OX100A - Valida a rotina Fechamento de OS Modelo 2 .

Descrição

Ponto de entrada executado antes de processar o fechamento da rotina Fechamento de OS Modelo 2.

Observações

Exemplos

#include "Protheus.ch"

User Function OX100A()

Local lRetorno := .t.

MsgInfo("Ponto de Entrada antes de processar o fechamento de Tipo de Tempo")

Return lRetorno

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

lRetorno - indica se deve ou não continuar o processamento de fechamento.

Eventos de chamada do Ponto de Entrada

// Avaliacao de Credito ...
VOI->(dbSetOrder(1))
VOI->(dbSeek( xFilial("VOI") + aVetTTP[ nPosTTPFec , ATT_TIPTEM ] ) )
If VOI->VOI_SITTPO <> "2"
if Empty(GetNewPar("MV_CPNCLC","")) .or. !AllTrim(M->VOO_CONDPG) $ GetMv("MV_CPNCLC") .or. Empty(M->VOO_CONDPG)
If "F" $ GetMv("MV_CHKCRE")
If !MaAvalCred( aVetTTPnPosTTPFec,ATT_CLIENTE , aVetTTPnPosTTPFec,ATT_LOJA , nTotnFiscal + FG_AVALCRED(aVetTTPnPosTTPFec,ATT_CLIENTE, aVetTTPnPosTTPFec,ATT_LOJA), 1 , .T.)
Help(" ",1,"LIMITECRED")
Return .f.
EndIf
EndIf
EndIf
Endif

If ExistBlock("OX100A")
If !ExecBlock("OX100A",.f.,.f.)
Return(.f.)
EndIf
EndIf
//

Processa({|| lRetorno := OX100PFECH(nPosTTPFec) }, STR0056 , STR0057 ,.F.)

Variáveis

Programa Fonte

OFIXX100.PRW