Descrição | Esse ponto de entrada e chamado toda vez que a função TmsNivSup, para pesquisar a região do cliente. |
---|
Observações | 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. |
---|
Exemplos | #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) |
---|
Preview |
---|
Veja também | |
---|
Idioma | Português(Brasil) |
---|
Versões | Microsiga_Protheus11 |
---|
Sistemas Operacionais Suportados | Todos |
---|
Compatível com as Bases de Dados | Todas |
---|
Updates | |
---|
Parâmetros | Nome | Tipo | Decrição |
---|
PARAMIXB[1] | Caracter | Região do Cliente | PARAMIXB[2] | Caracter | Informa se a região e coligada | PARAMIXB[3] | Array of Record | Array com Código/Loja do Cliente | PARAMIXB[4] | Caracter | Rotina que está executando a função TmsNivSup | PARAMIXB[5] | Array of Record | Array com região superior |
|
---|
Retorno | Lógico .T. ou .F. |
---|
Eventos de chamada do Ponto de Entrada | |
---|
Variáveis | |
---|
Programa Fonte | TMSXFUNA.PRW |
---|