Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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