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

Exemplos

#INCLUDE "PROTHEUS.CH"

User Function M530DIRF()

Local aTitulos     := {}

Local cCodRet cCodRet   :=            " "

Local      aAreaSE2 := SE2->(GetArea())

Local nPos          :=            0

//Vetor com chave para identificar registro na SE2 e código de retencao retenção a ser enviado na DIRF.

aAdd(aTitulosaTítulos,{ "D MG 01 COMDP 01COMDP PJCOM 1 SEMIMP 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

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