Perguntas FINA050 Contas a Pagar - Rotina Automática

//Calcula a condicao de pagamento
_aParcelas := aclone(U_fCondpag(SZ4->Z4_COND, SZ4->Z4_DTPAG, SZ4->Z4_QTDPARC, _nTotal))
_cParcela   := IIF(Len(_aParcelas) > 1,"0"," ")

procregua(Len(_aParcelas))

For _Nz := 1 to len(_aParcelas)
	
	_dVencto    := DataValida(_aParcelas[_Nz,1],.F.)
	_nValorPA   := Round(_aParcelas[_Nz,2],TamSX3("E2_VALOR")[1])
	IF Len(_aParcelas) > 1
		_cParcela   := SOMA1(_cParcela)
	Endif	
	
	aVetor :=  {{'E2_PREFIXO', _cPrefixo, 				NIL},;
	{'E2_NUM',     cTProtheus,							NIL},;
	{'E2_TIPO',    _cTTipo,    							NIL},;
	{'E2_FORNECE', _cFornece,                           NIL},;
	{'E2_LOJA',    _cLoja,                              NIL},;
	{"E2_NOMFOR",  _cNomFor, 	  					    Nil},;
	{'E2_PARCELA', _cParcela,					  	 	NIL},;
	{'E2_EMISSAO', _dEmissao,					  	 	NIL},;
	{"E2_VENCTO",  _dVencto,						    Nil},;
	{"E2_VENCREA", _dVencto,							Nil},;
	{'E2_VALOR',   _nValorPA,						    NIL},;
	{'E2_HIST',    _cHist,							    NIL},;
	{'E2_CCD',     _cCCD,							    NIL},;
	{'E2_ITEMD',   _cItem,							    NIL},;
	{'E2_CLVLDB',  _cCLVLDB,						    NIL},;
	{'E2_XMTDPGT', LEFT(_cTpPag,2),		   			  ".T."},;
	{'E2_NATUREZ', _cNatureza,							NIL},;
	{'E2_CONTAD',  _cContaD,						    NIL}}
	
	incproc("título...")
	MSExecAuto({|x,y,z| Fina050(x,y,z)},aVetor,,3)