Árvore de páginas

Versões comparadas

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

 

 

...

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.

...

Observaçõ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

...

retencao

...

a

...

ser

...

enviado

...

na

...

DIRF.

...


aAdd(aTitulos,

...

{

...

"D

...

MG

...

01

...

COMDP

...

PJCOM

...

1

...

SEMIMP

...

",

...

"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

Preview

Veja também

Idioma

Português(Brasil)

...

Versões

Microsiga_Protheus10

...

e

...

Microsiga_Protheus11

...

Sistemas

...

Operacionais

...

Suportados

...

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

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