Histórico da Página

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050SUBST()
	LOCAL aArray := {}
	 
	PRIVATE lMsErroAuto := .F.
	
	//Estrutura para PA ( Pagamento Antecipado )Titulo efetivo
	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
				{ "E2_NUM"      , "0001"            , NIL },;
				{ "E2_TIPOPARCELA"     , "PA "               , NIL },;
				{ "E2_NATUREZ"  , "001"     TIPO"        , NIL },;
				{ "E2_FORNECE"NF"  , "0001"            , NIL },;
				{ "E2_EMISSAONATUREZ"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VALOR"    , 5000              , NIL },;
				{ "AUTBANCO"    , "001"				, NIL },;
				{ "AUTAGENCIA"  , "1234"			, NIL },;
				{ "AUTCONTA"    , "123456"			, NIL } }

	//Estrutura para demais títulos
	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
				{ "E2_NUM"      , "0001"            , NIL },;
				{ "E2_TIPO"     , "NF" "001"             , NIL },;
				{ "E2_NATUREZFORNECE"  , "0010001"             , NIL },;
				{ "E2_FORNECELOJA"     , "000101"              , NIL },;
				{ "E2_EMISSAO"  , CtoD("1727/0210/20122021"), NIL },;
				{ "E2_VENCTO"   , CtoD("1727/0210/20122021"), NIL },;
				{ "E2_VENCREA"  , CtoD("1727/0210/20122021"), NIL },;
				{ "E2_VALOR"    , 5000              , NIL } }
	
	//No array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos
	aAuxTitPrv := { { "E2_PREFIXO"			,cPref			"PAG"          , NIL },;
					{ "E2_NUM"				,cTitulo		"000000001"    , NIL },;
					{ "E2_PARCELA"			,cParcela1"1"		    , NIL },;
					{ "E2_TIPO"				,"PR "			, NIL },;
					{ "E2_FORNECE"			,cFornece"0001"		    , NIL },;
					{ "E2_LOJA"				,cLoja"01"			, NIL }}

	aadd(aTitPrv, aAuxTitPrv)
	 
	MsExecAuto({|a,b,c,d,e,f,g,h,i,j| FINA050(a,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv)
	 
	 
	If lMsErroAuto
		MostraErro()
	Else
		Alert("Título incluído com sucesso!")
	Endif
	 
Return