Histórico da Página

Descrição

Este ponto de entrada permite que os campos: Gera Dirf

(E2_DIRF)

e

Cód.Ret.

(E2_CODRET)

sejam

preenchidos

no

momento

da

geração

de

pagamentos

de

comissões.

Exemplos

#INCLUDE "PROTHEUS.CH"

User

Function

M530DIRF()

Local

aTitulos

    :=

{}

Local

cCodRet   :=

            "

"

Local

     aAreaSE2

:=

SE2->(GetArea())

Local

nPos

         :=

            0

//Vetor

com

chave

para

identificar

registro

na

SE2

e

código

de

retenção a

ser

enviado

na

DIRF.

aAdd(

aTítulos,

{

"01COMDP PJCOM 1 001       ", "1708"

})

nPos

:=

Ascan(aTitulos,

{

|x|

x

[1

]

==

(SE2->E2_FILIAL+SE2->E2_PREFIXO+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJA+SE2->E2_NATUREZ)

})

If nPos > 0

  cCodRet            := aTitulos[nPos,2

]        

Endif               

RestArea(aAreaSE2)

Return cCodRet

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10

e

Microsiga_Protheus11

Sistemas

Operacionais

Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Código de Retenção (cCodRet)

Eventos de chamada do Ponto de Entrada

Executar a rotina de Atualização de pagamentos de comissões.

Variáveis

cCodRet (retorno do ponto de entrada).

Programa Fonte

MATA530.PRX