Histórico da Página

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]	Numerico	Valor
PARAMIXB[4]	Caracter	Código da Despesa
PARAMIXB[5]	Caracter	Có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 Processo 5 = Apura Apura Abastecimento de Veiculo
// Processo 6 = Calcula Calcula Custo Motorista
// Processo 7 = Calcula Calcula Custo Motorista
// Processo 8 = Calculo Calculo de Despesas padrão do Veículo.
// Processo 9 = Custo do Veiculo sem Viagem
// Processo 10 = Rateio Rateio Plan. Veiculo nas Viagens Processadas.

Local aRet := {}

DO CASE
CASE PARAMIXB[1] = 2
      Alert Alert("Origem do Processo Quilometragem.")
nRet := PARAMIXB[3]
CASE PARAMIXB[1] = 3
      Alert Alert("Origem do Processo Serviços de Manutenção.")
nRet := PARAMIXB[3]
CASE PARAMIXB[1] = 4
      Alert 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[41] = 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)

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

Ponto de Entrada - TMA99GSDG