OX001LKS - Validação das linhas dos Itens Serviço.

Descrição

Ponto de Entrada para validacao das linhas do acols dos itens srv.

Observações

Exemplos

Function OX001LKS()
lRet := .t.
MsgInfo("Ponto de entrada OX001LKS com sucesso.")

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

lRet - .t. ou .f.

Retorno

lRet - retorno Booleano - .t. ou .f.

Eventos de chamada do Ponto de Entrada

Function OX001LINSOK()
Local nCntFor := 0
Local lTudoBranco := .t.
Local nValSeq := 0
Local cIncMob := "" // cIncMob do VOK (Servico)
// ############################################################
// # Pula registros deletados #
// ############################################################
If oGetServ:aCols[oGetServ:nAt,len(oGetServ:aColsnAt)]
Return .t.
EndIf
// ####################################################################
// Ponto de Entrada para validacao das linhas do acols dos itens srv.
// ####################################################################
If ( ExistBlock("OX001LKS") ) // <<<<---- O B S O L E T O
lRet := ExecBlock("OX001LKS",.F.,.F.,{lRet})
If !lRet
return .f.
EndIf
EndIf

Variáveis

Programa Fonte

OFIXX001.PRW