Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Silvana Vieira Torres

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

Bloco de código
languagedelphi
titleExemplo: GFEA1108
linenumberstrue
#INCLUDE "PROTHEUS.CH"

User Function GFEXFB16()

	Local aVlrPed := {}
	Local nI
	Local aVlRoteiro := {}
	Local cSeq := ""
	
	If IsInCallStack("GFEWSSIMULATION")
	
		If ValType(deValPedagiocVlPedagio) = "C"
		
			nSeqTrecho := nSeqTrecho + 1
		
			if cVlPedagio != "" 
				
				aVlrPed := StrTokArr(cVlPedagio, "\")
				For nI := 1 to Len( aVlrPed )
					
					If !Empty(aVlrPed[nI])					
						if nSeqTrecho == nI					
				return val(deValPedagio)
	EndIf 			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