Descripción: | El Punto de entrada M103CODR solo se puso a disposición para validar / visualizar si la información incluida en el array "aCodR" (Códigos de retención / impuestos) se incluyó correctamente. | ||||||||
Ubicación: | El Punto de entrada se ejecutará en el momento de confirmar la inclusión del documento de entrada. | ||||||||
Eventos: | Documento de entrada | ||||||||
Programa fuente: | MATA103.PRX | ||||||||
Función: | A103VldCodR | ||||||||
| Parámetros: |
| ||||||||
Devolución: |
|
Ejemplo:
#Include 'Protheus.ch'
User Function M103CODR()
Local aCodR := PARAMIXB[1]
Local nPos := 0
Local lRet:= .T.
//Validaciones del usuario.
If !Empty(aCodR) //aCodR: Posición 2 del array "Código de retención; Posición 4 del array "Impuesto";
nPos := aScan( aCodR, {|aX| aX[4]=="IRR"})
If nPos>0
lRet:= MsgYesNo ("Se encontró el código de retención del IRR:"+ aCodR[nPos,2]+". ¿Confirma?")
Else
lRet:= MsgYesNo ("No se encontró el código de retención del IRR. ¿Confirma?")
EndIf
EndIf
Return lRet
