GFEXFB16 - PERMITIR ALTERAR O VALOR DO PEDÁGIO NO CÁLCULO DO FRETE

Características do Requisito

Linha de Produto:	Microsiga Protheus
Segmento:	Supply Chain - Logística
Módulo:	SIGAGFE

Ponto de Entrada:

GFEXFB16

Descrição:

Altera o valor do pedágio no cálculo do frete

Localização:

Na função de cálculo do frete.

Programa Fonte:

GFEXFUNB - Serviço de Integração do Frete Embarcador (SIGAGFE)

Parâmetros:

Não se aplica.

Retorno:

Nome	Tipo	Descrição	Obrigatório
nVlrPed	Numérico	Numérico	Sim

#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