import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: MT120LOK - Validações Específicas de Usuário
Descrição:
Eventos
Programa Fonte
MATA120.PRX
Sintaxe
MT120LOK - Validações Específicas de Usuário ( ) --> lRetorno
Retorno
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) |