ADVPL SQL - Function nome dos módulos
Compartilhado por Cristian Regazzo
CREATE FUNCTION dbo.fnNomeModulo
(
@CodigoModulo VARCHAR(2)
)
RETURNS VARCHAR(100)
AS
BEGIN
DECLARE @NomeModulo VARCHAR(100)
SET @NomeModulo = CASE @CodigoModulo
WHEN '1' THEN 'Ativo Fixo'
WHEN '2' THEN 'Compras'
WHEN '3' THEN 'Contabilidade'
WHEN '4' THEN 'Estoque/Custos'
WHEN '5' THEN 'Faturamento'
WHEN '6' THEN 'Financeiro'
WHEN '7' THEN 'Gestao de Pessoal'
WHEN '8' THEN 'Faturamento Servico'
WHEN '9' THEN 'Livros Fiscais'
WHEN '10' THEN 'Planej.Contr.Producao'
WHEN '11' THEN 'Veiculos'
WHEN '12' THEN 'Controle de Lojas'
WHEN '13' THEN 'Call Center'
WHEN '14' THEN 'Oficina'
WHEN '15' THEN 'Gerador de Relatorios Beta1'
WHEN '16' THEN 'Ponto Eletronico'
WHEN '17' THEN 'Easy Import Control'
WHEN '18' THEN 'Gestao de R.Humanos'
WHEN '19' THEN 'Manutencao de Ativos'
WHEN '20' THEN 'Recrutamento e Selecao Pessoal'
WHEN '21' THEN 'Inspecao de Entrada'
WHEN '22' THEN 'Metrologia'
WHEN '23' THEN 'Front Loja'
WHEN '24' THEN 'Controle de Documentos'
WHEN '25' THEN 'Inspecao de Projetos'
WHEN '26' THEN 'Treinamento'
WHEN '27' THEN 'Importacao - Financeiro'
WHEN '28' THEN 'Field Service'
WHEN '29' THEN 'Easy Export Control'
WHEN '30' THEN 'Easy Financing'
WHEN '31' THEN 'Easy Accounting'
WHEN '32' THEN 'Administracao de Forca de Vendas'
WHEN '33' THEN 'Plano de Saude'
WHEN '34' THEN 'Contabilidade Gerencial'
WHEN '35' THEN 'Medicina e Seguranca no Trabalho'
WHEN '36' THEN 'Controle de Nao-Conformidades'
WHEN '37' THEN 'Controle de Auditoria'
WHEN '38' THEN 'Controle Estatistico de Processos'
WHEN '39' THEN 'Gestao de Distribuicao'
WHEN '40' THEN 'Cargos e Salarios'
WHEN '41' THEN 'Auto Pecas'
WHEN '42' THEN 'Gestao de Armazenagem'
WHEN '43' THEN 'Gestao de Transporte'
WHEN '44' THEN 'Gestao de Projetos'
WHEN '45' THEN 'Controle de Direitos Autorais'
WHEN '46' THEN 'Automacao Coleta de Dados'
WHEN '47' THEN 'PPAP'
WHEN '48' THEN 'Replica'
WHEN '49' THEN 'Gerenciamento Academico'
WHEN '50' THEN 'Easy DrawBack Control'
WHEN '51' THEN 'Gestao Hospitalar'
WHEN '52' THEN 'Viewer'
WHEN '53' THEN 'Avaliacao e Pesquisa de Desempenho'
WHEN '54' THEN 'Gestao de Serviços Publicos'
WHEN '55' THEN 'Sistema de Fidel.e Analise Credito'
WHEN '56' THEN 'Gestao Ambiental'
WHEN '57' THEN 'Planejamento e Controle Orcamentario'
WHEN '58' THEN 'Gestao de Pesquisa e Resultados'
WHEN '59' THEN 'Gestao de Acervos'
WHEN '60' THEN 'HRP Estrutura Organizacional'
WHEN '61' THEN 'HRP Gestao de Pessoal'
WHEN '62' THEN 'HRP Ferramentas de Informacao'
WHEN '63' THEN 'HRP Planejamento e Desenvolvimento'
WHEN '64' THEN 'Acompanhamento de Processos Trabalhistas'
WHEN '65' THEN 'Gestao Advocaticia'
WHEN '66' THEN 'Gestao de Riscos'
WHEN '67' THEN 'Gestao Agricolas - Graos'
WHEN '68' THEN 'Gestao de Armazens Gerais'
WHEN '69' THEN 'Gestao de Contratos'
WHEN '70' THEN 'Arquitetura Organizacional'
WHEN '71' THEN 'Locacao de Veiculos'
WHEN '72' THEN 'Controle de Lojas - Photo'
WHEN '73' THEN 'Costumer Relationship Management'
WHEN '74' THEN 'BPM - Business Process Management'
WHEN '75' THEN 'Apontamento/Ponto Eletronico'
WHEN '76' THEN 'Juridico'
WHEN '77' THEN 'Pre-Faturamento de Servicos'
WHEN '78' THEN 'Gestao de Frete Embarcador'
WHEN '96' THEN 'Especificos II'
WHEN '97' THEN 'Especificos'
WHEN '98' THEN 'Especificos I'
WHEN '99' THEN 'Configurador'
ELSE 'Desconhecido'
END
RETURN @NomeModulo
END
SELECT
dbo.fnNomeModulo(table.CodigoModulo) AS NomeModulo
FROM NomeTabela
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima
