Code Snippet
Declare
@tabela as char(25)
Declare
@instrucao as varchar(1500)
Declare
@ordem as varchar(200)
-- Atribui o nome para a tabela temporaria
Select
@tabela = '_AVLVLR_' + replace(replace(replace(replace(Convert(varchar(40),getdate(),121),'-',''),':',''),' ',''),'.','')
-- Criação da tabela temporaria que servirá de base para o relatorio
Select
-- Campos Chaves
a
.projeto_codigo,
a
.subprojeto_codigo,
a
.equipamento_codigo,
a
.avaliacao_codigo,
-- Campos do Cabeçalho
d
.cliente_razao_social as Razao_Social,
c
.subprojeto_data_base as Data_Base,
c
.subprojeto_descricao as Unidade,
-- Campos do Detalhe
Convert(Varchar(30), AME.dbo.FU_AVL_concatena(' / ',ltrim(rtrim(isnull(a.avaliacao_patrimonio,''))), ltrim(rtrim(isnull(a.avaliacao_incorp,''))))) as num_bem,
a
.avaliacao_ficha as ficha,
a
.avaliacao_equipamento_descricao as Descricao_Bem,
a
.equipamento_cotacao_data,
Convert(numeric(6,2),null) as vida_util,
Convert(numeric(6,2),null) as vida_util_perc,
Convert(numeric(18,2),null) as valor_reposicao,
Convert(numeric(18,2),null) as valor_mercado,
Convert(numeric(18,2),null) as valor_maximo_seguravel,
Convert(numeric(18,2),null) as valor_danos_eletricos,
a
.localidade_equipamento_codigo as localidade_equipamento_codigo,
g
.localidade_equipamento_sigla as localidade_equipamento_sigla,
g
.localidade_equipamento_descricao as localidade_equipamento_descricao,
a
.planta_seguro_codigo as planta_seguro_codigo,
h
.planta_seguro_numero as planta_seguro_numero,
h
.planta_seguro_descricao as planta_seguro_descricao,
a
.centro_custo_codigo as centro_custo_codigo,
i
.centro_custo_numero as centro_custo_numero,
i
.centro_custo_descricao as centro_custo_descricao,
a
.conta_contabil_codigo as conta_contabil_codigo,
j
.conta_contabil_conta as conta_contabil_conta,
j
.conta_contabil_descricao as conta_contabil_descricao,
a
.avaliacao_nota,
a
.avaliacao_ano_aparente,
a
.avaliacao_quantidade,
Convert(tinyint, Null) as meio_codigo,
Convert(char(2), Null) as meio_sigla,
Convert(smallint, Null) as classe_codigo,
Convert(char(3), Null) as classe_sigla,
Convert(numeric(5,2), Null) as classe_danos_eletricos,
c
.subprojeto_descricao,
a
.segmento_sigla,
s
.segmento_acessorio,
s
.segmento_montagem,
s
.segmento_admengproj
Into
#rel_avaliacao_analitico
From
((((((((avaliacao a
inner join projeto b on b.projeto_codigo = a.projeto_codigo)
inner join subprojeto c on c.projeto_codigo = a.projeto_codigo and c.subprojeto_codigo = a.subprojeto_codigo)
inner join cliente d on d.cliente_codigo = b.cliente_codigo)
inner join equipamento_cotacao f on f.equipamento_codigo = a.equipamento_codigo)
inner join localidade_equipamento g on g.localidade_equipamento_codigo = a.localidade_equipamento_codigo)
left outer join planta_seguro h on (h.planta_seguro_codigo=a.planta_seguro_codigo and h.projeto_codigo=a.projeto_codigo and h.subprojeto_codigo=a.subprojeto_codigo))
inner join centro_custo i on i.centro_custo_codigo = a.centro_custo_codigo)
inner join conta_contabil j on j.conta_contabil_codigo = a.conta_contabil_codigo)
inner join segmentos s on s.segmento_sigla=a.segmento_sigla
Where
( a.projeto_codigo = @projeto_codigo and a.subprojeto_codigo = @subprojeto_codigo) AND
( b.projeto_codigo = @projeto_codigo) AND
( c.projeto_codigo = @projeto_codigo and c.subprojeto_codigo = @subprojeto_codigo) AND
( f.projeto_codigo = @projeto_codigo and f.subprojeto_codigo = @subprojeto_codigo) AND
( g.projeto_codigo = @projeto_codigo and g.subprojeto_codigo = @subprojeto_codigo) AND
( i.projeto_codigo = @projeto_codigo and i.subprojeto_codigo = @subprojeto_codigo) AND
( j.projeto_codigo = @projeto_codigo and j.subprojeto_codigo = @subprojeto_codigo) AND
( s.projeto_codigo = @projeto_codigo and s.subprojeto_codigo = @subprojeto_codigo)
-- Cria a tabela para receber os calculos
Execute
dbo.SP_AVL_avaliacao_criatmp @tabela
-- Coloca os dados necessarios para calculos na temporária
Select
@instrucao =
' Insert ' + @tabela + ' (
projeto_codigo,
subprojeto_codigo,
equipamento_codigo,
avaliacao_codigo,
equipamento_cotacao_data,
avaliacao_nota,
avaliacao_ano_aparente,
avaliacao_quantidade )
Select projeto_codigo,
subprojeto_codigo,
equipamento_codigo,
avaliacao_codigo,
equipamento_cotacao_data,
avaliacao_nota,
avaliacao_ano_aparente,
avaliacao_quantidade
From avaliacao
where projeto_codigo = '
+ convert(char(4),@projeto_codigo) + 'and
subprojeto_codigo = '
+ convert(char(4),@subprojeto_codigo)
Execute
(@instrucao)
-- Calcula os valores da tabela temporária
Execute
dbo.SP_AVL_Avaliacao_Valores @tabela
-- Realiza Update na tabela do relatório com os valores calculados
CREATE
clustered INDEX tmprel001 on #rel_avaliacao_analitico (projeto_codigo asc,equipamento_codigo asc,subprojeto_codigo asc)
Select
@instrucao =
' Update #rel_avaliacao_analitico
Set meio_codigo = b.meio_codigo,
classe_codigo = b.classe_codigo,
classe_danos_eletricos = b.danos_eletricos,
vida_util = b.vida_util,
vida_util_perc = b.vida_util_perc,
valor_reposicao = b.valor_reposicao,
valor_mercado = b.valor_mercado,
valor_maximo_seguravel = b.valor_maximo_seguravel,
valor_danos_eletricos = b.valor_danos_eletricos
From #rel_avaliacao_analitico a, '
+ @tabela + ' b' +
' Where a.avaliacao_codigo = b.avaliacao_codigo and
a.projeto_codigo = b.projeto_codigo and
a.equipamento_codigo = b.equipamento_codigo and
a.subprojeto_codigo = b.subprojeto_codigo '
Execute
(@instrucao)
drop
INDEX #rel_avaliacao_analitico.tmprel001
-- Apaga a tabela temporária de calculos , fiscamente do banco
Select
@instrucao = 'Drop table ' + @tabela
Execute
(@Instrucao)
-- Acerta as siglas do MEIO e da Classe
CREATE
clustered INDEX tmprel001 on #rel_avaliacao_analitico (meio_codigo asc)
Update
#rel_avaliacao_analitico
Set
meio_sigla = b.meio_sigla
From
#rel_avaliacao_analitico a,
meio b
Where
a.meio_codigo = b.meio_codigo
drop
INDEX #rel_avaliacao_analitico.tmprel001
CREATE
clustered INDEX tmprel001 on #rel_avaliacao_analitico (classe_codigo asc)
Update
#rel_avaliacao_analitico
Set
classe_sigla = b.classe_sigla
From
#rel_avaliacao_analitico a,
classe b
Where
a.classe_codigo = b.classe_codigo
drop
INDEX #rel_avaliacao_analitico.tmprel001
-- Acerta a ordem de saída da infromação
If
@ordem_codigo = 1
Begin
CREATE INDEX tmprel2 on #rel_avaliacao_analitico (descricao_bem ASC, valor_reposicao DESC)
Select @ordem = 'Order by descricao_bem ASC , valor_reposicao DESC '
End
Else
If @ordem_codigo = 2
Begin
CREATE INDEX tmprel on #rel_avaliacao_analitico (valor_reposicao DESC, descricao_bem ASC)
Select @ordem = 'Order by valor_reposicao DESC, descricao_bem ASC'
End
Set
nocount off
-- Seleciona os campos para o Crystal Reports
Select
@instrucao = '
Select r.projeto_codigo,
Convert(char(3),replicate(''0'', 3 - Len(r.subprojeto_codigo)) + Convert(varchar(3), r.subprojeto_codigo)) as subprojeto_codigo,
subprojeto_descricao,
equipamento_codigo,
avaliacao_codigo,
Razao_Social,
Data_Base,
Unidade,
num_bem,
ficha,
Descricao_Bem,
equipamento_cotacao_data,
vida_util,
vida_util_perc,
valor_reposicao,
valor_mercado,
valor_maximo_seguravel,
valor_danos_eletricos,
localidade_equipamento_codigo,
localidade_equipamento_sigla,
localidade_equipamento_descricao,
planta_seguro_codigo,
planta_seguro_numero,
planta_seguro_descricao,
centro_custo_codigo,
centro_custo_numero,
centro_custo_descricao,
conta_contabil_codigo,
conta_contabil_conta,
conta_contabil_descricao,
avaliacao_nota,
avaliacao_ano_aparente,
avaliacao_quantidade,
meio_codigo,
meio_sigla,
classe_codigo,
classe_sigla,
classe_danos_eletricos,
segmento_sigla,
segmento_acessorio,
segmento_montagem,
segmento_admengproj
From
#rel_avaliacao_analitico r '
+ @ordem
Execute
(@instrucao) 
