Ponto de Entrada
Descrição: | Este Ponto de Entrada tem a finalidade de permitir ao usuário realizar alterações na condição de pagamento da rotina Fechamento de O.S. (OFIXA100) |
Localização: | Atualizações / Mov Fechamento / Fechamento de OS Modelo 2 |
Eventos: | Function OX100FOVS9(cReadVar)
Default cReadVar := ReadVar()
// se o usuario nao possui permissao de alterar retorna .f. If !(VAI->VAI_ALTPAR =="1") MsgStop(STR0127,STR0004) // "Usuário sem permissão para alterar a data e/ou valor da parcela." Return .f. EndIf // If Empty(M->VOO_CONDPG) MsgStop(STR0128,STR0004) // "Preencha uma condição de pagamento antes." Return .f. EndIf // DBSelectArea("SE4") DBSetOrder(1) If !(MsSeek(xFilial("SE4")+M->VOO_CONDPG)) Help(" ",1,"REGNOIS",,AllTrim(RetTitle("VOO_CONDPG")) + ": " + M->VOO_CONDPG ,4,1) Return .f. Endif
// Melhoria para condição de pagamento If ExistBlock("OX100SE4") If !ExecBlock("OX100SE4",.f.,.f.) Return(.f.) EndIf EndIf
|
Programa Fonte: | OFIXX100.PRW |
Função: | OX100FOVS9 |
Retorno: | Lógico |
Exemplo:
User Function OX100SE4()
MsgInfo("Ponto de entrada OX100SE4 executado com sucesso!")
Return(.t.)
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas