Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT120LOK - Validações Específicas de Usuário
Versões: Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO  : Function A120LinOk() responsável pela validação de cada linha da GetDados do Pedido de Compras / Autorização de Entrega.

EM QUE PONTO : O ponto se encontra no final da função e deve ser utilizado para validações especificas do usuario onde será controlada pelo retorno do ponto de entrada oqual se for .F. o processo será interrompido e se .T. será validado.
Eventos


 

Programa Fonte 
MATA120.PRX
Sintaxe

MT120LOK - Validações Específicas de Usuário ( ) --> lRetorno

Retorno
    lRetorno(logico)
  • Se .T. linha validada segue o processo
    Se .F. interrompe o processo
Observações


 

Exemplos 
User Function  MT120LOK()Local nPosPrd    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'})Local nPosItem    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_ITEM'})Local lValido := .T.dbSelectArea('SC7')dbSetOrder(4)If MsSeek(xFilial('SC7')+aCols[n][nPosPrd]+cA120Num+aCols[n][nPosItem])     If (C7_QUJE > 0) .Or. (C7_RESIDUO == 'S') .Or. (C7_QTDACLA > 0)          lValido := .F.     EndIfEndIf Return(lValido)