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

Ponto de Entrada - TMA99GSDG

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    CASE PARAMIXB[1] = 2
Alert       Alert("Origem do Processo Quilometragem.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 3
Alert        Alert("Origem do Processo Serviços de Manutenção.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 4
Alert        Alert("Origem do Processo Verifica amortição de Despesas de Manutenção Pendente.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 5
Alert        Alert("Origem do Processo Apura Abastecimento de Veiculo.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 6
Alert        Alert("Origem do Processo Calcula Custo Motorista.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 7
Alert        Alert("Origem do Processo Calcula Custo Motorista.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 8
Alert        Alert("Origem do Processo Calculo de Despesas padrão do Veículo.")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 9
Alert        Alert("Origem do Processo, Custo do Veiculo sem Viagem")
nRet        nRet := PARAMIXB[3]
CASE    CASE PARAMIXB[1] = 10
Alert        Alert("Origem do Processo, Rateio Plan. Veiculo nas Viagens Processadas.")
nRet        nRet := PARAMIXB[3]
OTHERWISE
Alert    OTHERWISE
       Alert("Origem do Processo Não Identificado !!")
nRet        nRet := 0
ENDCASE

Return (nRet)