DescriçãoDescripción: | O Ponto El Punto de Entrada M103CODR foi disponibilizado apenas entrada M103CODR solo se puso a disposición para validar / visualizar se as informações contidas no si la información incluida en el array "aCodR" (Códigos de Retenção retención / Impostos) foram preenchidas corretamenteimpuestos) se incluyó correctamente. | ||||||||
LocalizaçãoUbicación: | O Ponto de Entrada será executado no El Punto de entrada se ejecutará en el momento de confirmar a inclusão do la inclusión del documento de entrada. | ||||||||
Eventos: | Documento de Entradaentrada | ||||||||
Programa Fontefuente: | MATA103.PRX | ||||||||
FunçãoFunción: | A103VldCodR | ||||||||
| ParâmetrosParámetros: |
| ||||||||
RetornoDevolución: |
|
ExemploEjemplo:
#Include 'Protheus.ch'
User Function M103CODR()
Local aCodR := PARAMIXB[1]
Local nPos := 0
Local lRet:= .T.
//Validações do UsuárioValidaciones del usuario.
If !Empty(aCodR) //aCodR: Posição Posición 2 do del array "Código de retençãoretención; Posição Posición 4 do del array "ImpostoImpuesto";
nPos := aScan( aCodR, {|aX| aX[4]=="IRR"})
If nPos>0
lRet:= MsgYesNo ("Encontrado codigo de retenção do Se encontró el código de retención del IRR:"+ aCodR[nPos,2]+". Confirma¿Confirma?")
Else
lRet:= MsgYesNo ("Não encontrado codigo de retenção do No se encontró el código de retención del IRR. Confirma¿Confirma?")
EndIf
EndIf
Return lRet
