Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Rafael Dos Santos Souza

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rubieni Gonzalez Aparicio

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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

 

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGATMS - Gestão de TransporteTransportes

Ponto de Entrada - TMA99GSDG

Descrição:

Criado Foi disponibilizado o ponto Ponto de entrada Entrada TMA99GSDG para verificação , e alteração de valores no nos custos, conforme o numero número do processo informado no parametroparâ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 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  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[41] = 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 OTHERWISE
             Alert Alert("Origem do Processo Não Identificado !!")
            nRet  nRet := 0
ENDCASE

Return (nRet)