Codigo fuente

ALTER procedure [dbo].[pxBusCPoblad] --'01'
@bus int = 1,
@p01 varchar(50) = '',
@p02 varchar(50) = '',
@p03 varchar(50) = ''
as
begin
if @bus='01' goto BusCPob
return

BusCPob:
--set @p02='0002'
-- set @p03='2011'
if object_id('#_mpupred') is not null drop table #_mpupred
select
a.codigo, id_anexo, cod_pred, porcen, a.id_urba, area_terr, tipo=case whentipo_pred=1 then 'PU' else 'PR' end,
frontis, rtrim(c.mini)+' '+b.codurb zona,
'direccPred'=cast(rtrim(case when len(ltrim(rtrim(b.codurb)))>0 then rtrim(c.mini)+' '+b.codurb else '' end )+rtrim(case when len(ltrim(rtrim(a.direccion)))>0 then '/ '+ltrim(rtrim(a.direccion)) else '' end)+
rtrim(case when len(rtrim(ltrim(num_calle)))>0 then ' Nro. '+rtrim(ltrim(num_calle)) else '' end)+rtrim(case when len(rtrim(ltrim(num_depa)))>0 then ' Dpto. '+rtrim(ltrim(num_depa)) else '' end)+
rtrim(case when len(rtrim(ltrim(num_manzan)))>0 then ' Mza. '+rtrim(ltrim(num_manzan))else '' end)+
rtrim(case when len(rtrim(ltrim(num_lote)))>0 then ' Lte. '+rtrim(ltrim(num_lote)) else '' end) as varchar(250))
into #_mpupred
from dbo.mpupred a
left join dbo.t_codurbb on a.id_urba=b.id_urba
left join dbo.t_codzon c on b.tipo=c.id_zona
where a.id_urba=@p01 and año=@p02


select
ax.codigo, ax.nombre, bx.tipo, bx.id_anexo, bx.direccPred,bx.area_terr, bx.cod_pred,
bx.porcen, bx.id_urba, bx.zona
from mcontrib ax
inner join #_mpupred bx on ax.codigo=bx.codigo

/*
select y.codigo, y.nombre, z.tipo, z.area_terr, z.id_anexopredio, z.direccPred, z.porcen, z.frontis,
s.piso, t.depcla, u.depmat, v.depcon, muros+' '+techos+' '+pisos+' '+puertas+' '+revestim+' '+baños+' '+inst_elect catego,
s.antiguedad, s.area_const,z.zona
from mcontrib y
inner join #_mpupred z on y.codigo=z.codigo
inner join mpisos s on z.codigo=s.codigo and z.id_anexo=s.id_anexo
left join t_depcla t on s.id_depcla=t.id_depcla...