Histórico da Página

#INCLUDE "PROTHEUS.CH"  

User Function SPEDG126()
	Local   nPosG125 	:= paramixbParamixb[1]
	Local	cAliasSFA 	:= paramixbParamixb[2] //Variavel cAliasSFA usada para posicionar algum registro se necessario.
	Local	aRegG126    := paramixbParamixb[3]
	Local	cCodBem 	:= paramixbParamixb[4]
	Local	nPos		:=	 0 

	If AllTrim(cCodBem) == "00000901"	
		
		aAdd(aRegG126, {})	
		nPos :=	Len (aRegG126)
		
		aAdd(aRegG126[nPos], nPosG125)		  	//00 - Relacionamento com o registro PAI	
		aAdd(aRegG126[nPos], "G126") 		  	//01-REG		
		aAdd(aRegG126[nPos], "01012011")		//02-DT_INI	
		aAdd(aRegG126[nPos], "01012011")		//03-DT_FIM	
		aAdd(aRegG126[nPos], 001)		   		//04-NUM_PARC	
		aAdd(aRegG126[nPos], 16000.00)			//05-VL_PARC_PASS	
		aAdd(aRegG126[nPos], 16000.00)			//06-VL_TRIB_OC	
		aAdd(aRegG126[nPos], 16000.00)			//07-VL_TOTAL	
		aAdd(aRegG126[nPos], 16000.00)			//08-IND_PER_SAI	
		aAdd(aRegG126[nPos], 16000.00)			//09-VL_PARC_APROP 	 	       

	EndIf

Return aRegG126