Linha Microsiga Protheus

Árvore de páginas

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.)