Histórico da Página

#INCLUDE "TOTVS.CH"
#INCLUDE "FINA373.ch"
#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} User Function FINTPDARF 
    ( Durante a gravação do status de baixado "B" no registro FI9  o ponto de entrada 
    permite uma tratativa para Origens diferenciadas na DARF no contas a pagar "SE2" do regrito posicionado. 
    O ponto de entrada será executado quando o campo E2_TITPAI estiver vazio.
      )
    @type  Function
    @author Cassio S Dias
    @since 28/12/2023
    @version 12
    @return cOrigens, Character, Informação referente a origem
    @see (links_or_referenceshttps://tdn.totvs.com/x/sEW8M)
    /*/
User Function FINTPDARF() as Character
	// Posiciociando na tabela SF2 - CONTAS A PAGAR

	Local cOrigens as Character
	Local cTitPai  as Character

	cTitPai  := SE2->E2_TITPAI
	cOrigens := "FINA376"

	if  EMPTY(cTitPai)
		MSGINFO( "Passou pelo ponto de entrada FINTPDARF ", "FINTPDARF" )
	EndIf

Return cOrigens // Retornar o valor referente a origem EX: E2_ORIGEM