Linha Microsiga Protheus

Árvore de páginas

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGATMS - Gestão de Transporte

Ponto de Entrada - TMNIVSUP

Descrição:

Criado o ponto de entrada TMNIVSUP para determinar se o cliente subirá a estrutura de região, conforme retorno do ponto de entrada.

Localização:

TMSXFUNA

Programa Fonte:

TMSXFUNA.PRW

Função:

User Function TMNIVSUP()

Parâmetros:

Nome

Tipo

Descrição

PARAMIXB[1]

Caracter

Região do Cliente

PARAMIXB[2]

Lógico

Informa se a região e coligada

PARAMIXB[3]ArrayCódigo/Loja do Cliente
PARAMIXB[4]CaracterID da rotina que está executando a função TmsNivSup
PARAMIXB[5]CaracterNome da Função
PARAMIXB[6]ArrayArray com a estrutura de região encontrada, pelo sistema

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

 aRet

Array

Caso não houver alteração na estrutura de região, informar o aRet no retorno do ponto de entrada sem alterações ou em branco, caso seja necessário alterar a estrutura de região, será obrigatório informar a nova estrutura de regiões respeitando o padrão informado pelo sistema, região e região superior, é obrigatório informar todas a regiões e regiões superiores.

Sim

 

Exemplo:

#Include "Protheus.ch"

User Function TMNIVSUP()

//PARAMIXB[1] = Regiao do Cliente
//PARAMIXB[2] = Informa se a regiao e coligada
//PARAMIXB[3] = Codigo/Loja do Cliente
//PARAMIXB[4] = ID da rotina que está executando a funcao TmsNivSup
//PARAMIXB[5] = Nome da Função
//PARAMIXB[6] = Array com regiao superior
//Os paramentros não são informados em todas as chamadas, exemplo o codigo e loja do cliente só será informado no calculo do frete,
// nas operações de viagem por exemplo não serão informados código e loja do cliente.

//Função: Código: Origem da Chamada
//TMSA144 01 Viagem
//TMSA146 02 Programação de Carregamento
//TMSA200 03 Calculo do Frete
//TMSA210 04 Manutenção de Carregamento
//TMSA240 05 Complemento de Viagem
//TMSA320 06 Geração de AWB
//TMSA940 07 Grade Horario de Voo
//TMSAW10 08 Proposta Comercial
//TMSA050 09 Entrada NF Cliente
//TMSA040 10 Cotação de Frete
// " " Outros

Local aRet := {}

DO CASE
      CASE PARAMIXB[4] = '01'
            Alert("Origem da Chamada da Função TMSA144 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '02'
            Alert("Origem da Chamada da Função TMSA146 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '03'
            Alert("Origem da Chamada da Função TMSA200 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '04'
            Alert("Origem da Chamada da Função TMSA210 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '05'
            Alert("Origem da Chamada da Função TMSA240 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '06'
            Alert("Origem da Chamada da Função TMSA320 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '07'
            Alert("Origem da Chamada da Função TMSA940 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '08'
            Alert("Origem da Chamada da Função TMSAW10 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '09'
            Alert("Origem da Chamada da Função TMSA050 !!")
            aRet := PARAMIXB[6]
      CASE PARAMIXB[4] = '10'
            Alert("Origem da Chamada da Função TMSA040 !!")
            aRet := PARAMIXB[6]
      OTHERWISE
            Alert("Origem da Chamada da Função Não Encontrada !!")
            aRet := PARAMIXB[6]
ENDCASE

Return (aRet)