Histórico da Página

#Include 'Protheus.ch'

User Function GFEXWS20()    

    Local cFil        := PARAMIXB[1]
    Local cEmis       := PARAMIXB[2]
    Local cDtEmis     := PARAMIXB[3] 
	Local cCatVeic    := PARAMIXB[4]
	Local cCdTpVc   Local cValPedagio := PARAMIXB[5] 0 
	Local nAgrFrt1   // CDTPVC
 	Local nEixo     := Len(aAgrFrt1) //Quantidade de Docs no Romaneio
	Default aAgrFrt1  := PARAMIXB[6] //Agrupador de Romaneios

	//Exemplo: Divide o valor Localde cValPedagioPedagio :=pela 0quantidade 
	Localde nAgrFrt1Documentos de Carga  := Len(aAgrFrt1)

no Romaneio
	Do Case
        Case cCatVeic == 4
		   nEixo       := 3
		   cValPedagio := 25,.20 / NAgrFrt1nAgrFrt1
        Case cCatVeic == 5
		   nEixo       := 4
		   cValPedagio := 16,.80 / nAgrFrt1
        Case cCatVeic == 6
 		   nEixo       := 4
		   cValPedagio := 33,.60 / nAgrFrt1
        Case cCatVeic == 7
 		   nEixo       := 5
		   cValPedagio := 42,.00 / nAgrFrt1
        Case cCatVeic == 8
 		   nEixo       := 6
		   cValPedagio := 50,.40 / nAgrFrt1
    End Case

    AADD(aDadosGW1, cValPedagio)

Return aDadosGW1