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