Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

O Ponto de Entrada M103CODR foi disponibilizado apenas para validar / visualizar se as informações contidas no array "aCodR" (Códigos de Retenção / Impostos) foram preenchidas corretamente.

Localização:

O Ponto de Entrada será executado no momento de confirmar a inclusão do documento de entrada.

Eventos:

Documento de Entrada

Programa Fonte:

MATA103.PRX

Função:

 A103VldCodR

 Parâmetros:
NomeTipoDescriçãoObrigatório
PARAMIXB[1]ArrayArray com os códigos de retenção / impostosSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

 Lógico

 .T. Continua o processo e confirma a inclusão da nota; .F. Interrompe o processo e não confirma a inclusão da nota  

 Sim

 

Exemplo:

#Include  'Protheus.ch'

User Function M103CODR() 

Local aCodR  :=  PARAMIXB[1]

Local nPos  :=  0 

Local lRet:=  .T.

 //Validações do Usuário.

If !Empty(aCodR)  //aCodR: Posição 2 do array "Código de retenção; Posição 4 do array "Imposto";

     nPos  :=  aScan(  aCodR,  {|aX|  aX[4]=="IRR"})

    If nPos>0

       lRet:=  MsgYesNo  ("Encontrado codigo de retenção do IRR:"+  aCodR[nPos,2]+". Confirma?")

   Else

      lRet:=  MsgYesNo  ("Não encontrado codigo de retenção do IRR. Confirma?")

 EndIf

EndIf

Return  lRet