Linha Microsiga Protheus

Árvore de páginas

TMA99GSDG - Verificação e Alteração de Valores no Custo 

 

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGATMS - Gestão de Transportes

Ponto de Entrada - TMA99GSDG

Descrição:

Foi disponibilizado o Ponto de Entrada TMA99GSDG para verificação e alteração de valores nos custos, conforme o número do processo informado no parâmetro.

Localização:

TMSAF99 - Custos Transporte

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[1] = 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)