M530DIRF - Preenchimento dos campos para Dirf no pagamento de Comissão

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(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

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