...
Portuguese | ||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Punto-de-Entrada: MT120OK - Validaciones específicas de usuario
Descripción: LOCALIZACIÓN: Function A120TudOk() responsable por la validación de todos los ítems de la GetDados del Pedido de Compras / Autorización de Entrega. Eventos
Programa fuente MATA120.PRX Sintaxis MT120OK - Validaciones específicas de usuario ( ) --> lRetorno Respuesta lRetorno (lógico) Si fuera .T. línea validada sigue el proceso Observaciones
Local nX := 0
For nX :=1 To Len( aCols ) If (
lValido := .F. Exit EndIf EndIf Next nX
Ejemplos User Function MT120OK()Local nPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'})Local nPosQtd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'})Local nPosPrc := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'})Local lValido := .T.Local nX := 0 For nX :=1 To Len( aCols ) If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) ) If ( Empty(aCols[nX][nPosQtd]) .Or. Empty(aCols[nX][nPosPrc]) ) lValido := .F. Exit EndIf EndIfNext nXReturn(lValido) |