Histórico da Página

#include "totvs.ch"  

User Function SPDFIS09() 

Local cEntSai := ParamixB[1]	
Local aParc := {}            
           
//-------------------------------------------------------------------
//Detalhamento do array aParc 			            
//                                                             
//INFORMAÇÃO        POSICAO       Tamanho  					    
//TIPO               01           03					        
//NUMERO             02           09           				
//PARCELA            03           01						    
//VENCIMENTO REAL    04           08					        
//VALOR R$           05           18					        
//-------------------------------------------------------------------

If ("1"$cEntSai)
	           //{(cAliasSE2)->E2_TIPO, (cAliasSE2)->E2_HIST, (cAliasSE2)->E2_NUM, (cAliasSE2)->E2_PARCELA, (cAliasSE2)->E2_VENCREA, (cAliasSE2)->E2_VLCRUZ})           
	aAdd (aParc, {"","","","",Stod("//"),0})	 
Else
	           //{(cAliasSE1)->E1_TIPO, (cAliasSE1)->E1_HIST, (cAliasSE1)->E1_NUM, (cAliasSE1)->E1_PARCELA, (cAliasSE1)->E1_VENCREA, (cAliasSE1)->E1_VLCRUZ})           
	aAdd (aParc, {"","","","",Stod("//"),0})
EndIf
	Return(aParc)