Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada tem a finalidade de permitir que o usuário realize alterações na condição de pagamento da rotina Orçamento por Fases (OFIXA011). |
Localização: | Atualizações / Mov Oficina / Orc por Fases |
Eventos: | Function OX004FOK() Local nCntFor // se o usuario nao possui permissao de alterar retorna .f. if !(VAI->VAI_ALTPAR =="1") return .f. endif // DBSelectArea("SE4") DBSetOrder(1) if !(DBSeek(xFilial("SE4")+cTipPag)) return .f. endif
// Melhoria para condição de pagamento If ExistBlock("OX004SE4") If !ExecBlock("OX004SE4",.f.,.f.) Return(.f.) EndIf EndIf
|
Programa Fonte: | OFIXX004.PRW |
Função: | OX004FOK |
Retorno: | Lógico |
Exemplo:
User Function OX004SE4()
MsgInfo("Ponto de entrada OX004SE4 executado com sucesso!")
Return(.t.)