Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Monica Virginia Barrantes de Villanueva

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Monica Virginia Barrantes de Villanueva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Ponto

Punto de

Entrada

entrada

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:
NomeNombreTipoDescriçãoDescripciónObrigatórioObligatorio
PARAMIXB[1]ArrayArray com os con los códigos de retenção retención / impostosimpuestosSimSí

RetornoDevolución:

NomeNombre

Tipo

DescriçãoDescripción

ObrigatórioObligatorio

 lRet

 Lógico

 .T. Continua o processo e confirma a inclusão da notael proceso y confirma la inclusión de la factura; .F. Interrompe o processo e não confirma a inclusão da nota  Interrumpe el proceso y no confirma la inclusión de la factura  

 Sí Sim

 

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