Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina de Fechamento de OS Modelo 2 (OFIXA100) e permite a gravação de informações após a geração do registro de solicitação de liberação de desconto de peças/serviços.

Localização:

Atualizações / Mov. Oficina / Fechamento OS Modelo 2

Eventos:

// Gera Liberacao de Desconto

OX100GERLB(aOSProb, lGeraSep)

lRetorno := .f.

If ExistBlock("OX100GLB")

If ExecBlock("OX100GLB")

lRetorno := OX100LBDES(.f.)

EndIf

EndIf

Programa Fonte:

OFIXX100.PRW      

Função:

OX100LBDES  

Retorno:

LOGICO.

Quando retornar .t., o sistema irá verificar se a solicitação de liberação de desconto foi liberada.

 

Exemplo:

#include "Protheus.ch"

 

User Function OX100GLB()

 

MsgInfo("Ponto de Entrada depois da gravação do registro de liberação de desconto.")

 

Return .f.