Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGATMS - Gestão de Transporte

Ponto de Entrada - TMA99GSDG

Descrição:

Criado o ponto de entrada TMA99GSDG para verificação, e alteração de valores no custos conforme o numero do processo informado no parametro

Localização:

TMSAF99

Programa Fonte:

TMSAF99.PRW

Função:

User Function TMA99GSDG ()

Parâmetros:

Nome

Tipo

Descrição

PARAMIXB[1]

Numerico

Código do Processo

PARAMIXB[2]

Caracter

ID Custo TMS

PARAMIXB[3]NumericoValor
PARAMIXB[4]CaracterCódigo da Despesa
PARAMIXB[5]CaracterCódigo do Veiculo

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização

Retorno:

Nome

Tipo

Descrição

Obrigatório

 nRet

Numerico

Caso não houver alteração no valor, informar no nRet no retorno do ponto de entrada sem alterações.

Sim

 

Exemplo:

#Include "Protheus.ch"

User Function TMA99GSDG ()

// Processo 2 = Quilometragem

// Processo 3 = Serviços de Manutenção

// Processo 4 = Verefica amortição de Despesas de Manutenção Pendente

// Processo 5 =  Apura Abastecimento de Veiculo

// Processo 6 = Calcula Custo Motorista

// Processo 7 = Calcula Custo Motorista

// Processo 8 =  Calculo de Despesas padrão do Veículo.

// Processo 9 =  Custo do Veiculo sem Viagem

// Processo 10 = Rateio Plan. Veiculo nas Viagens Processadas.

Local aRet := {}

DO CASE

      CASE PARAMIXB[1] = 2
            Alert("Origem do Processo Quilometragem.)
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 3
            Alert("Origem do Processo Serviços de Manutenção.)
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 4
            Alert("Origem do Processo Verifica amortição de Despesas de Manutenção Pendente.)
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 5
            Alert("Origem do Processo Apura Abastecimento de Veiculo.)
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 6
            Alert("Origem do Processo Calcula Custo Motorista.")
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 7
            Alert("Origem do Processo Calcula Custo Motorista.")
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 8
            Alert("Origem do Processo Calculo de Despesas padrão do Veículo.")
            nRet := PARAMIXB[3]

      CASE PARAMIXB[4] = 9
            Alert("Origem do Processo, Custo do Veiculo sem Viagem")
            nRet := PARAMIXB[3]

      CASE PARAMIXB[1] = 10
            Alert("Origem do Processo, Rateio Plan. Veiculo nas Viagens Processadas.
            nRet := PARAMIXB[3]

      OTHERWISE
            Alert("Origem do Processo Não Identificado !!")
            nRet := 0
ENDCASE

Return (nRet)