FINA050-F050IRF - Natureza de IRF no arquivo SED

Salve salve....

Ponto de entrada F050IRF- ( Financeiro- Contas a Pagar)

FINA050-F050IRF - Chamado antes de ser criada (caso não exista), a natureza de IRF no arquivo SED   

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} F050IRF
Chamado antes de ser criada (caso não exista), a natureza de IRF no arquivo SED  &nbsp

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function F050IRF()
Local nRegSE2	:= ParamIXB as numeric
Local nNextMes	:= 00 as numeric
Local dVencto	:= Date() as date

If Month(SF1->F1_DTDIGIT) > Month(SF1->F1_EMISSAO)

	nNextMes := Month(SF1->F1_DTDIGIT)+1
	dVencto  := CTOD("20/"+Iif(nNextMes==13,"01",StrZero(nNextMes,2))+"/"+ Substr(Str(Iif(nNextMes==13,Year(SF1->F1_DTDIGIT),Year(SF1->F1_DTDIGIT)) ),2) )
	
	Do While .T.
		If DataValida(dVencto,.T.) == dVencto
			Exit
		Else
			dVencto -= 1
		Endif
	EndDo
				
	SE2->E2_VENCTO  := dVencto
	SE2->E2_VENCREA := dVencto
	SE2->E2_VENCORI := dVencto
Endif
Return( Nil )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima