Histórico da Página
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: |
| |||||||||
Retorno: |
| Não se aplica |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas