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 := " "
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(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

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave