GFEXWS20 - Permite a manipulação da variável publica deValPedagio

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

  

Ponto de Entrada:GFEXWS20

Descrição:

Permite a manipulação da variável publica deValPedagio

Localização:

Na função GFEWSSIMULATION

Programa Fonte:

GFEWSSIMULATION - Serviço Específico de Simulação de Frete do Frete Embarcador (SIGAGFE)

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

aDadosGW1Array

Array contendo os dados da GW1

Sim

Retorno:

Não se aplica

#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