Linha Microsiga Protheus

Árvore de páginas

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

Exemplo: GFEXWS20
#Include 'Protheus.ch'

User Function GFEXWS20()    

    Local cFil        := PARAMIXB[1]
    Local cEmis       := PARAMIXB[2]
    Local cDtEmis     := PARAMIXB[3] 
	Local cCatVeic    := PARAMIXB[4]
    Local cValPedagio := 0 
	Local nAgrFrt1    := Len(aAgrFrt1) //Quantidade de Docs no Romaneio
	Default aAgrFrt1  := [] //Agrupador de Romaneios

	//Exemplo: Divide o valor de Pedagio pela quantidade de Documentos de Carga no Romaneio
	Do Case
        Case cCatVeic == 4
		   cValPedagio := 25.20 / nAgrFrt1
        Case cCatVeic == 5
		   cValPedagio := 16.80 / nAgrFrt1
        Case cCatVeic == 6
		   cValPedagio := 33.60 / nAgrFrt1
        Case cCatVeic == 7
		   cValPedagio := 42.00 / nAgrFrt1
        Case cCatVeic == 8
		   cValPedagio := 50.40 / nAgrFrt1
    End Case

    AADD(aDadosGW1, cValPedagio)

Return aDadosGW1