Histórico da Página

#Include 'Protheus.ch'

User Function GFEXWS20()
	
	Local aDadosGW1	:= PARAMIXB[1]
	local iCont     := 0
	Local iLen      := 0
	Local lElimina  := .T.
	Public aPedEsp  := {}
		
    iLen := (Len(aDadosGW1) / 18) - 1
	

    FOR iCont := iLen TO 0 STEP -1

		aAdd(aPedEsp,{aDadosGW1[(iCont * 18) + 3],aDadosGW1[(iCont * 18) + 18]})

        ADEL(aDadosGW1,((iCont * 18) + 18))

    NEXT nCont 
    
    aSize(aDadosGW1,len(aDadosGW1) - (iLen + 1))		  

	// Verifica se o array de pedágio possui valor válido
	// Caso estiver zerado o array é eliminado
	for iCont = 1 to len(aPedEsp)
		if aPedEsp[iCont][2] != "0" 
			lElimina = .F.
		Endif
		
	next iCont	

	if lElimina
		aPedEsp := {}
	endif	
	
 
return aRet   Return aDadosGW1