Punto de entrada

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:
NombreTipoDescripciónObligatorio
PARAMIXB[1]ArrayArray con los códigos de retención / impuestosSí

Devolución:

Nombre

Tipo

Descripción

Obligatorio

 lRet

 Lógico

 .T. Continua el proceso y confirma la inclusión de la factura; .F. Interrumpe el proceso y no confirma la inclusión de la factura  

 Sí

 

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