OX100VCP Ponto de Entrada utilizado para retornar se a Condição de Pagamento pode ser utilizada

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Fechamento de Ordem de Serviço, utilizado para retornar se a Condição de Pagamento pode ser utilizada.

Localização:

Atualizações \ Mov Oficina \ Fechamento OS Mod 2

Eventos:

SE4->(dbSetOrder(1))

SE4->(MsSeek( xFilial("SE4") + M->VOO_CONDPG ))

If !SE4->E4_TIPO $ "9/A"

Return .t.

EndIf

//PE para Validação da Condição de Pagamento no Fechamento

If ExistBlock("OX100VCP")

If !ExecBlock("OX100VCP",.f.,.f.,{ SE4->E4_TIPO })

Return .f.

EndIf

Programa Fonte:

OFIXX100.PRW

Função:

OX100CONDNEG()

Parâmetros:

Nome	Tipo	Descrição
SE4->E4_TIPO	Caractere	Tipo da Condição de Pagamento

Retorno:

Nome	Tipo	Descrição
lRet	Lógico	logico ( .t. pode utilizar a Condição de Pagamento / .f. não pode utilizar a Condição de Pagamento )

Exemplo:

// Ponto de Entrada na rotina de Fechamento de Ordem de Serviço, utilizado para retornar

// se a Condição de Pagamento pode ser utilizada.

User Function OX100VCP()

Local cE4_TIPO := ParamIXB[1]

Local lRet := .t.

MsgInfo("Ponto de entrada OX100VCP executado com sucesso!")

Return lRet