Árvore de páginas

Versões comparadas

Chave

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

GFEXWS18 - PERMITIR

...

MANIPULAR DADOS RECEBIDOS PARA A SIMULAÇÃO DE FRETE

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

...

Ponto de Entrada:GFEXWS18

Descrição:Altera

o valor do pedágio no cálculo do Permite manipular dados recebidos para a Simulação de frete

Localização:

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

Programa Fonte:

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

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

aDadosGW1Array

Array contendo os dados da GW1

Sim

Retorno:

Nome

Tipo

Descrição

Obrigatório

nVlrPed

Numérico

Numérico

Sim

Não se aplica

Bloco de código
languagedelphi
titleExemplo: GFEXWS18
linenumberstrue
#Include 'Protheus.ch'

User Function GFEXWS18()
	
	Local aDadosGW1	:= PARAMIXB[1]
	local iCont     := 0
	Local iLen      := 0
	PublicLocal lElimina cVlPedagio := "".T.
	Public aPedEsp nSeqTrecho := 0
	
	cVlPedagio := aDadosGW1[len(aDadosGW1)-1]
	
Return {}
		
    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 aDadosGW1