ExecAuto FINA050 – Inclusão de Título no Contas a Pagar(FINA050)

#include 'protheus.ch'
#Include "tbiconn.ch"
/*{Protheus.doc} User Function ExFIN050
    (Essa função tem por finalidade mostrar a rotina automática com ExecAuto FINA050 em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 14/01/2025
    
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
/*/

User Function ExFIN050()
	//Setando valores da rotina automática
	lMsErroAuto := .F.
	Local aSE2 :={}


	aAdd(aSE2, {"E2_FILIAL",  FWxFilial("SE2"),  Nil})
	aAdd(aSE2, {"E2_NUM",     cNum,           Nil})
	aAdd(aSE2, {"E2_PREFIXO", cPref,          Nil})
	aAdd(aSE2, {"E2_PARCELA", cParc,          Nil})
	aAdd(aSE2, {"E2_TIPO",    cTipo,             Nil})
	aAdd(aSE2, {"E2_NATUREZ", cNat,         Nil})
	aAdd(aSE2, {"E2_FORNECE", cForn,          Nil})
	aAdd(aSE2, {"E2_LOJA",    cLoja,             Nil})
	aAdd(aSE2, {"E2_NOMFOR",  cNomFor,           Nil})
	aAdd(aSE2, {"E2_EMISSAO", dEmissao,          Nil})
	aAdd(aSE2, {"E2_VENCTO",  dVencto,           Nil})
	aAdd(aSE2, {"E2_VENCREA", dVencReal,         Nil})
	aAdd(aSE2, {"E2_VALOR",   nValor,            Nil})
	aAdd(aSE2, {"E2_HIST",    cHist,             Nil})
	aAdd(aSE2, {"E2_MOEDA",   1,                 Nil})
 


//Iniciando transação e incluindo o título a pagar
	Begin Transaction
		
		MSExecAuto({|x, y| FINA050(x, y)}, aSE2, 3)

		//Se houve erro, mostra mensagem
		If(lMsErroAuto)
			MostraErro()
			DisarmTransaction()
    	Else
      		FWAlertInfo("O título no contas a pagar foi incluído com sucesso!","MSExecAuto FINA050")
		EndIf
	
	End Transaction


Return