if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paDelTiposInm]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paDelTiposInm]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTercClieGarant]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInsTercClieGarant]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTiposInm]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInsTiposInm]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryFinFactSeguroFmt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryFinFactSeguroFmt]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTercClieGarant]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryTercClieGarant]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTercClieGarantLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryTercClieGarantLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTiposInm]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryTiposInm]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpTercClieGarant]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paUpTercClieGarant]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpTiposInm]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paUpTiposInm]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTercClieGarantLta] @pmIdClie VARCHAR(16),@pmIdLinea VARCHAR(4)
 AS 
 SELECT CG.IdClie AS NitClie,RazonSocial,CG.IdAgencia AS CdAgencia,NomAgencia,CG.IdLinea AS CdLinea,LinCredito,Item,TipoGarant,CdInmueble,TipoInmueble
,CdTipoVeh,TipoVehiculo,VrGarant,VrAvaluo,Propietario,DirInmueble,CdCiudad,Localidad,Matricula,Escritura
,NumNotaria,MarcaVeh,Modelo,CdBanco,Banco,FecCheque,NumCheque,OtroTipoVehic,OtroInmueble,CedFmnte1,NomFmnte1,CedFmnte2,NomFmnte2
,CedFmnte3,NomFmnte3,CedFmnte4,NomFmnte4,CedFmnte5,NomFmnte5,CedFmnte6,NomFmnte6
,CLI.IdTipoTerc AS CdTipoTerc,TipoTercero
 FROM TercClieGarant AS CG INNER JOIN TercCliePrestamo AS CLI ON CG.IdClie=CLI.IdClie AND CG.IdAgencia=CLI.IdAgencia
 INNER JOIN Terceros AS T ON CG.IdClie=T.IdTercero INNER JOIN LineasCred AS L ON CG.IdLinea=L.IdLinea
 INNER JOIN TiposTerc AS TC ON CLI.IdTipoTerc=TC.IdTipoTerc
 LEFT JOIN TiposInm AS IM ON CG.CdInmueble=IM.IdTipoInm LEFT JOIN TiposVeh AS TV ON CG.CdTipoVeh=TV.IdTipoVeh
 LEFT JOIN Bancos AS B ON CG.CdBanco=B.IdBanco LEFT JOIN Localidades AS LC ON CG.CdCiudad=LC.IdLocal
 WHERE CG.IdClie LIKE ISNULL(@pmIdClie,'%') AND CG.IdLinea LIKE ISNULL(@pmIdLinea,'%')
 
 

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryFinFactSeguroFmt] @pmTipDoc VARCHAR(3), @pmIdPrestamoIni INT,@pmIdPrestamoFin INT,@pmIdCia CHAR(2)
 AS 
SELECT TipDoc,IdPrestamo,IdCia,Item,Fecha,VrSaldoIni,VrPagos,TarifSeguro,VrSeguro
FROM  Trn_FinFactSeguro
WHERE TipDoc=@pmTipDoc  AND IdPrestamo BETWEEN @pmIdPrestamoIni AND @pmIdPrestamoFin  AND IdCia=@pmIdCia

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsTercClieGarant] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmIdLinea VARCHAR(4),@pmItem INT,@pmTipoGarant VARCHAR(20),@pmCdInmueble VARCHAR(4),@pmCdTipoVeh VARCHAR(4),@pmVrGarant MONEY,@pmVrAvaluo MONEY,@pmPropietario VARCHAR(250),@pmDirInmueble VARCHAR(250),@pmCdCiudad VARCHAR(8),@pmMatricula VARCHAR(50),@pmEscritura VARCHAR(50)
,@pmNumNotaria VARCHAR(20),@pmMarcaVeh VARCHAR(20),@pmModelo VARCHAR(4),@pmCdBanco VARCHAR(4),@pmFecCheque SMALLDATETIME,@pmNumCheque VARCHAR(20),@pmOtroTipoVehic VARCHAR(50),@pmOtroInmueble VARCHAR(50),@pmCedFmnte1 VARCHAR(16),@pmNomFmnte1 VARCHAR(150),@pmCedFmnte2 VARCHAR(16),@pmNomFmnte2 VARCHAR(150),@pmCedFmnte3 VARCHAR(16),@pmNomFmnte3 VARCHAR(150)
,@pmCedFmnte4 VARCHAR(16),@pmNomFmnte4 VARCHAR(150),@pmCedFmnte5 VARCHAR(16),@pmNomFmnte5 VARCHAR(150),@pmCedFmnte6 VARCHAR(16),@pmNomFmnte6 VARCHAR(150)
 AS 
 INSERT INTO TercClieGarant (IdClie,IdAgencia,IdLinea,Item,TipoGarant,CdInmueble,CdTipoVeh,VrGarant,VrAvaluo,Propietario,DirInmueble,CdCiudad,Matricula,Escritura,NumNotaria,MarcaVeh,Modelo,CdBanco,FecCheque,NumCheque,OtroTipoVehic,OtroInmueble,CedFmnte1,NomFmnte1,CedFmnte2,NomFmnte2,CedFmnte3,NomFmnte3,CedFmnte4,NomFmnte4,CedFmnte5,NomFmnte5,CedFmnte6,NomFmnte6)
 VALUES (@pmIdClie,@pmIdAgencia,@pmIdLinea,@pmItem,@pmTipoGarant,@pmCdInmueble,@pmCdTipoVeh,@pmVrGarant,@pmVrAvaluo,@pmPropietario,@pmDirInmueble,@pmCdCiudad,@pmMatricula,@pmEscritura,@pmNumNotaria,@pmMarcaVeh,@pmModelo,@pmCdBanco,@pmFecCheque,@pmNumCheque,@pmOtroTipoVehic,@pmOtroInmueble,@pmCedFmnte1,@pmNomFmnte1,@pmCedFmnte2,@pmNomFmnte2,@pmCedFmnte3
,@pmNomFmnte3,@pmCedFmnte4,@pmNomFmnte4,@pmCedFmnte5,@pmNomFmnte5,@pmCedFmnte6,@pmNomFmnte6)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpTercClieGarant] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmIdLinea VARCHAR(4),@pmItem INT,@pmTipoGarant VARCHAR(20),@pmCdInmueble VARCHAR(4),@pmCdTipoVeh VARCHAR(4),@pmVrGarant MONEY,@pmVrAvaluo MONEY,@pmPropietario VARCHAR(250),@pmDirInmueble VARCHAR(250),@pmCdCiudad VARCHAR(8),@pmMatricula VARCHAR(50),@pmEscritura VARCHAR(50),@pmNumNotaria VARCHAR(20),@pmMarcaVeh VARCHAR(20),@pmModelo VARCHAR(4),@pmCdBanco VARCHAR(4),@pmFecCheque SMALLDATETIME,@pmNumCheque VARCHAR(20)
,@pmOtroTipoVehic VARCHAR(50),@pmOtroInmueble VARCHAR(50),@pmCedFmnte1 VARCHAR(16),@pmNomFmnte1 VARCHAR(150),@pmCedFmnte2 VARCHAR(16),@pmNomFmnte2 VARCHAR(150),@pmCedFmnte3 VARCHAR(16),@pmNomFmnte3 VARCHAR(150),@pmCedFmnte4 VARCHAR(16),@pmNomFmnte4 VARCHAR(150),@pmCedFmnte5 VARCHAR(16),@pmNomFmnte5 VARCHAR(150),@pmCedFmnte6 VARCHAR(16),@pmNomFmnte6 VARCHAR(150)
 AS 
 UPDATE TercClieGarant SET TipoGarant=@pmTipoGarant,CdInmueble=@pmCdInmueble,CdTipoVeh=@pmCdTipoVeh,VrGarant=@pmVrGarant,VrAvaluo=@pmVrAvaluo,Propietario=@pmPropietario,DirInmueble=@pmDirInmueble,CdCiudad=@pmCdCiudad,Matricula=@pmMatricula,Escritura=@pmEscritura,NumNotaria=@pmNumNotaria,MarcaVeh=@pmMarcaVeh,Modelo=@pmModelo,CdBanco=@pmCdBanco,FecCheque=@pmFecCheque,NumCheque=@pmNumCheque,OtroTipoVehic=@pmOtroTipoVehic,OtroInmueble=@pmOtroInmueble
,CedFmnte1=@pmCedFmnte1,NomFmnte1=@pmNomFmnte1,CedFmnte2=@pmCedFmnte2,NomFmnte2=@pmNomFmnte2,CedFmnte3=@pmCedFmnte3,NomFmnte3=@pmNomFmnte3,CedFmnte4=@pmCedFmnte4,NomFmnte4=@pmNomFmnte4,CedFmnte5=@pmCedFmnte5,NomFmnte5=@pmNomFmnte5,CedFmnte6=@pmCedFmnte6,NomFmnte6=@pmNomFmnte6
 WHERE IdClie=@pmIdClie AND IdAgencia=@pmIdAgencia AND IdLinea=@pmIdLinea AND Item=@pmItem
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTercClieGarant] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmIdLinea VARCHAR(4),@pmItem INT
 AS 
 SELECT IdClie,IdAgencia,IdLinea,Item,TipoGarant,CdInmueble,CdTipoVeh,VrGarant,VrAvaluo,Propietario,DirInmueble,CdCiudad,Matricula,Escritura
,NumNotaria,MarcaVeh,Modelo,CdBanco,FecCheque,NumCheque,OtroTipoVehic,OtroInmueble,CedFmnte1,NomFmnte1,CedFmnte2,NomFmnte2
,CedFmnte3,NomFmnte3,CedFmnte4,NomFmnte4,CedFmnte5,NomFmnte5,CedFmnte6,NomFmnte6
 FROM TercClieGarant
 WHERE IdClie=@pmIdClie AND IdAgencia=@pmIdAgencia AND IdLinea=@pmIdLinea AND Item=@pmItem
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsTiposInm] @pmIdTipoInm VARCHAR(4),@pmTipoInmueble VARCHAR(50),@pmInactivo BIT
 AS 
 INSERT INTO TiposInm (IdTipoInm,TipoInmueble,Inactivo)
 VALUES (@pmIdTipoInm,@pmTipoInmueble,@pmInactivo)

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpTiposInm] @pmIdTipoInm VARCHAR(4),@pmTipoInmueble VARCHAR(50),@pmInactivo BIT
 AS 
 UPDATE TiposInm SET TipoInmueble=@pmTipoInmueble,Inactivo=@pmInactivo
 WHERE IdTipoInm=@pmIdTipoInm

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

CREATE PROCEDURE [dbo].[paQryTiposInm] @pmIdTipoInm VARCHAR(4)
 AS 
IF @pmIdTipoInm IS NULL
 SELECT IdTipoInm,TipoInmueble FROM TiposInm WHERE Inactivo=0 ORDER BY IdTipoInm
ELSE  
 SELECT IdTipoInm,TipoInmueble,Inactivo FROM TiposInm WHERE IdTipoInm=@pmIdTipoInm



GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paDelTiposInm] @pmIdTipoInm VARCHAR(4)
 AS 
 DELETE FROM TiposInm
 WHERE IdTipoInm=@pmIdTipoInm