...
Portuguese | ||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
PontoPunto-de-Entrada: MT120OK - Validações Específicas Validaciones específicas de Usuáriousuario
Descrição Descripción: LOCALIZAÇÃOLOCALIZACIÓN: Function A120TudOk() responsável pela validação de todos os itens da GetDados doresponsable por la validación de todos los ítems de la GetDados del Pedido de Compras / AutorizaçãoAutorización de Entrega.
Eventos
Programa Fontefuente MATA120.PRX SintaxeSintaxis MT120OK - Validações EspecíficasValidaciones específicas de Usuáriousuario ( ) --> lRetorno RetornoRespuesta lRetorno ( logicológico) SeSi fuera .T. linha validada segue o processoSe línea validada sigue el proceso Bloco de código |
interrumpe el proceso Observaciones Ejemplo #INCLUDE #INCLUDE"TOTVS.ch" #INCLUDE #INCLUDE #INCLUDE "FWMVCDEF.CH" User FunctionUser Function MT120OK() Local nPosPrdLocal nPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'}) Local nPosQtdLocal nPosQtd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'}) Local nPosPrcLocal nPosPrc := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'}) Local lValidoLocal lValido := .T. Local nX := 0 For nX :=1 To Len( aCols ) If (Local nX := 0
For nX :=1 To Len( aCols ) If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) ) If () If ( Empty(aCols[nX][nPosQtd]) .Or. Empty(aCols[nX][nPosPrc]) ) lValido := .F. Exit EndIf EndIf Next nX) lValido := .F. Exit EndIf EndIf Next nX
Return(lValido) ExemplosEjemplos User FunctionFunction MT120OK()Local nPosPrdnPosPrd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'})Local nPosQtdnPosQtd := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'})Local nPosPrcnPosPrc := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'})Local lValido := .T.Local nXnX := 0 For nX :=1 To Len( aCols ) If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) ) If () If ( Empty(aCols[nX][nPosQtd]) .Or. Empty(aCols[nX][nPosPrc]) ) lValido) lValido := .F. Exit EndIf EndIfNextExit EndIf EndIfNext nXReturn(lValido) |