MT120LOK - Validaciones específicas de usuario

Descripción:

LOCALIZACIÓN: Function A120LinOk() responsable por la validación de cada línea de la GetDados del Pedido de Compras / Autorización de Entrega.

EN QUÉ PUNTO: El punto se encuentra al final de la función y se debe utilizar para validaciones específicas del usuario, donde será controlada por la respuesta del punto de entrada, si este fuera .F. el proceso se interrumpirá y si fuera .T. se validará.

Eventos

Programa fuente

MATA120.PRX

Sintaxis

MT120LOK - Validaciones específicas de usuario  ( ) --> lRetorno

Respuesta

lRetorno(lógico)

Si .T. línea validada sigue el proceso
Si .F. interrumpe el proceso

Observaciones

Ejemplos

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)