TMNIVSUP - Pesquisa região do cliente na estrutura de região.

Esse ponto de entrada e chamado toda vez que a função TmsNivSup, para pesquisar a região do cliente.

Os parâmetros não são informados em todas as chamadas, exemplo o código e loja do cliente só será informado no TMSXFUNB calculo do frete, nas operações de viagem por exemplo não serão informados código e loja do cliente.

#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] = Rotina que está executando a funcao TmsNivSup
//PARAMIXB[5] = 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 TMSXFUNB calculo do frete,
// nas operações de viagem por exemplo não serão informados código e loja do cliente.

Local lRet := .F.

DO CASE
CASE PARAMIXB[4] = 'TMSA144'
Alert("Origem da Chamada da Função TMSA144 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSA146'
Alert("Origem da Chamada da Função TMSA146 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSA200'
Alert("Origem da Chamada da Função TMSA200 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSA210'
Alert("Origem da Chamada da Função TMSA210 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSA240'
Alert("Origem da Chamada da Função TMSA240 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSA320'
Alert("Origem da Chamada da Função TMSA320 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSAW10'
Alert("Origem da Chamada da Função TMSAW10 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSAW30'
Alert("Origem da Chamada da Função TMSAW30 !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSXFUNA'
Alert("Origem da Chamada da Função TMSXFUNA !!")
lRet := .F.
CASE PARAMIXB[4] = 'TMSXFUNB'
Alert("Origem da Chamada da Função TMSXFUNB !!")
lRet := .T.
CASE PARAMIXB[4] = 'TMSXFUNC'
Alert("Origem da Chamada da Função TMSXFUNC !!")
lRet := .T.
CASE PARAMIXB[4] = 'TMSXFUNI'
Alert("Origem da Chamada da Função TMSXFUNI !!")
lRet := .T.
CASE PARAMIXB[4] = 'TMSX940'
Alert("Origem da Chamada da Função TMSX940 !!")
lRet := .T.
OTHERWISE
Alert("Origem da Chamada da Função Não Encontrada !!")
lRet := .F.
ENDCASE

Return (lRet)

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

Lógico .T. ou .F.

TMSXFUNA.PRW