Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function GFEXFB16()

	Local aVlrPed := {}
	Local nI
	Local aVlRoteiro := {}
	Local cSeq := ""
	
	If IsInCallStack("GFEWSSIMULATION")
	
		If ValType(cVlPedagio) = "C"
		
			nSeqTrecho := nSeqTrecho + 1
		
			if cVlPedagio != "" 
				
				aVlrPed := StrTokArr(cVlPedagio, "\")
				For nI := 1 to Len( aVlrPed )
					
					If !Empty(aVlrPed[nI])					
						if nSeqTrecho == nI					
							if val(aVlrPed[nI]) != 0
								cSeq := "0" + ltrim(str(nI))							 
								
								aAdd(aVlRoteiro,{'',cSeq,VAL(aVlrPed[nI]),0,0,.F.})
							Endif	
						Endif				
					EndIf
					
				next nI						
					
			Endif
		Endif
	Endif
	
Return