Árvore de páginas

Versões comparadas

Chave

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

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