OM070VLD - Validação na inclusão nas linhas de serviço

Descrição

Este Ponto de Entrada permite incluir Query na validação do serviço.

Observações

Exemplos

User Function OM070VLD()

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

Return(.t.)

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

N/A

Retorno

.T. ou .F.

Eventos de chamada do Ponto de Entrada

If Empty(M->VO4_NOSSEQ)
oTime:lActive := lSTime
oTime1:lActive := lSTime1
FS_LIMPA070("SRV")
Return(.t.)
EndIf

If ExistBlock("OM070VLD")
lRet := ExecBlock("OM070VLD ",.f.,.f.)
If !lRet
Return (.f.)
Endif
Endif

DbSelectArea("VO4")
DbSetOrder(8)
DbSeek(xFilial("VO4")+M->VO4_NOSSEQ)

Variáveis

Programa Fonte

OFIOM070