ALTER TABLE TercCliePrestamo ADD VrActivos MONEY DEFAULT(0) NOT NULL
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTercCliePrestamo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsTercCliePrestamo]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpTercCliePrestamo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paUpTercCliePrestamo]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTercCliePrestamoLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryTercCliePrestamoLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTercCliePrestamo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryTercCliePrestamo]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTercCliePrestamo_Sel]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsTercCliePrestamo_Sel]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTercCliePrestamoLta]  @pmIdGrupo VARCHAR(4)=Null,@pmIdVend VARCHAR(16)=Null,@pmIdSzona VARCHAR(4)=Null
,@pmIdTipoTerc  VARCHAR(4)=Null,@pmFecIngIni SMALLDATETIME=Null,@pmFecIngFin SMALLDATETIME=Null,@pmIdEstado VARCHAR(4)=Null
 AS 
 SELECT IdClie,T.RazonSocial AS Razon_Social,T.TipoId AS TipId,T.Dv AS DvNit,T.NomCial AS NombreCmcial,T.SiglaRaz AS SiglaRazSocial
,IdAgencia,NomAgencia,NitRepLeg,NomRepLeg,NitContac,NomContac,TelContac,emlContac,CargContac,T.Direccion AS TercDireccion,T.IdLocal AS CdCiudad,L.Localidad AS Ciudad,L.IdDep AS CdDpto
,D.Departamento AS Dpto,T.Telefono AS Tlefono,T.Fax AS NumFax,T.TelMovil AS TelCeluar,T.SitioWeb AS WebSite,T.e_mail AS Email
,DirAgencia,IdLocalAge,LE.Localidad AS CiuAgencia,DE.Departamento AS DptoAgencia,C.IdTipoTerc AS CdTipoTerc,TipoTercero
,SZ.IdZona AS CdZona,Zona,C.IdSzona AS CdSubzona,Subzona,C.IdGrupo AS CdGrupo,GrupoClie,T.IdSector AS CdSector,SectorEco,T.IdProf AS CdProf,Profesion,T.IdRegimen AS CdRgmen,Regimen
,T.TipEnte AS TipoEnte,IdVend,TV.RazonSocial AS NomVendedor,C.IdClase AS CdClase,ClaseCuenta,NumCuenta,C.IdBanco AS CdBanco,Banco
,EsExento,CalcIntMora,DiasGracia,FecIngreso,FecVigencia,FecRetiro,VrSalBasico,TipoSalario,MaxDcto,MatMerc,FecMat,IncRetFte,NumTarj,FecVenceTc,FechaImp,CodCCosto,CodSubCosto
,C.FecNacmto,C.Nacionalidad,C.Sexo,C.CdEstCivil,EstCivil,C.NumPerCargo,C.NivelEduc,C.TipoVivienda,C.EstratoSocial,C.IdOcupac,Ocupacion,C.VrPension,C.VrOtrosDev,C.VrActivos,C.VrPasivo,C.VrPatrimonio
,C.EmpresaLab,C.FecIngLab,C.TelEmpresa,C.DirEmpresa,C.EmailEmpresa,C.BaseAportes,C.CdTarifApo,TA.Tarifa AS TarifApo,C.VrAportes,C.FecInicioApo,C.FecFinalApo,C.DiaCausacApo,C.FecRetiroApo,C.CausalRetiro,C.SinDctoNom,C.SinLiqAporte,C.CabFamilia,C.DebitoAuto
,Comentarios,C.IdEstado AS CdEstado,EC.Estado AS EstadoClie,C.Inactivo AS ClieInactivo,FechaCrea,FechaAct,C.IdUsuario AS CdUsuario,Usuario
,T.IniStgNom AS PosNomb,T.IdLugarCed AS IdLugCed,LC.Localidad AS LugarCed,T.FecExpCed AS FecExpCedula,T.PN_RUT,T.Inactivo AS TercInactivo,T.Codigo AS TercCodigo
 FROM TercCliePrestamo AS C INNER JOIN Terceros AS T ON C.IdClie=T.IdTercero  INNER JOIN Terceros AS TV ON C.IdVend=TV.IdTercero
 INNER JOIN GruposCli AS G ON C.IdGrupo=G.IdGrupo INNER JOIN TiposTerc AS TC ON C.IdTipoTerc=TC.IdTipoTerc
 INNER JOIN Subzonas AS SZ ON C.IdSzona=SZ.IdSzona  INNER JOIN Zonas AS Z ON SZ.IdZona=Z.IdZona 
 INNER JOIN EstadoTer AS EC ON C.IdEstado=EC.IdEstado INNER JOIN adm_Usuarios AS U ON C.IdUsuario=U.IdUsuario
 INNER JOIN Localidades AS LE ON C.IdLocalAge=LE.IdLocal INNER JOIN Departamentos AS DE ON LE.IdDep=DE.IdDep
 INNER JOIN Localidades AS L ON T.IdLocal=L.IdLocal INNER JOIN Departamentos AS D ON L.IdDep=D.IdDep
 INNER JOIN  SectoresEco AS S ON T.IdSector=S.IdSector  INNER JOIN RegimenDian AS RG ON T.IdRegimen=RG.IdRegimen
 LEFT JOIN ClaseCta AS CTA ON C.IdClase=CTA.IdClase LEFT JOIN Bancos AS B ON C.IdBanco=B.IdBanco 
 LEFT JOIN Localidades AS LC ON T.IdLugarCed=LC.IdLocal  LEFT JOIN Profesiones AS PF ON T.IdProf=PF.IdProf 
 LEFT JOIN Tablapor AS TA ON C.CdTarifApo=TA.IdTarifa LEFT JOIN Ocupaciones AS OC ON C.IdOcupac=OC.IdOcupac
 LEFT JOIN EstadoCiv AS EV ON C.CdEstCivil=EV.IdEstado
 WHERE C.IdGrupo LIKE ISNULL(@pmIdGrupo,'%') AND IdVend LIKE ISNULL(@pmIdVend,'%')
 AND  C.IdSzona LIKE ISNULL(@pmIdSzona,'%')  AND  C.IdTipoTerc  LIKE ISNULL(@pmIdTipoTerc ,'%')
 AND C.IdEstado LIKE ISNULL(@pmIdEstado,'%')
 AND (FecIngreso>=ISNULL(@pmFecIngIni,CAST('19100101' AS SMALLDATETIME)) AND FecIngreso<=ISNULL(@pmFecIngFin,CAST('20781230' AS SMALLDATETIME)))
 ORDER BY T.RazonSocial
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryTercCliePrestamo] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16)
 AS 
 SELECT IdClie,IdAgencia,NitRepLeg,NomRepLeg,NitContac,NomContac,TelContac,emlContac,CargContac,NomAgencia,DirAgencia,IdLocalAge,IdSzona,IdGrupo,IdTipoTerc,IdVend,IdClase,NumCuenta,IdBanco
,EsExento,CalcIntMora,DiasGracia,FecIngreso,FecVigencia,FecRetiro,VrSalBasico,MaxDcto,TipoSalario,MatMerc,FecMat,Comentarios,IdEstado,Inactivo,NumTarj,PwdTarj,FecVenceTc,IncRetFte
,FechaCrea,FechaAct,FechaImp,CodCCosto,CodSubCosto,FecNacmto,Nacionalidad,Sexo,CdEstCivil,NumPerCargo,NivelEduc,TipoVivienda,EstratoSocial,IdOcupac,VrPension,VrOtrosDev,VrPasivo,VrPatrimonio
,EmpresaLab,FecIngLab,TelEmpresa,DirEmpresa,EmailEmpresa,BaseAportes,CdTarifApo,VrAportes,FecInicioApo,FecFinalApo,DiaCausacApo,FecRetiroApo,CausalRetiro,SinDctoNom,SinLiqAporte,CabFamilia,DebitoAuto,VrActivos,IdUsuario
 FROM TercCliePrestamo
 WHERE IdClie=@pmIdClie AND IdAgencia=@pmIdAgencia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsTercCliePrestamo] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmNitRepLeg VARCHAR(16),@pmNomRepLeg VARCHAR(150),@pmNitContac VARCHAR(16),@pmNomContac VARCHAR(150),@pmTelContac VARCHAR(20),@pmemlContac VARCHAR(100)
,@pmCargContac VARCHAR(50),@pmIdSzona VARCHAR(4),@pmIdGrupo VARCHAR(4),@pmIdTipoTerc VARCHAR(4),@pmIdVend VARCHAR(16),@pmIdClase VARCHAR(4),@pmNumCuenta VARCHAR(30),@pmIdBanco VARCHAR(4),@pmEsExento BIT,@pmCalcIntMora BIT,@pmDiasGracia INT
,@pmFecIngreso SMALLDATETIME,@pmFecVigencia SMALLDATETIME,@pmFecRetiro SMALLDATETIME,@pmVrSalBasico MONEY,@pmMaxDcto DECIMAL(14,4),@pmMatMerc VARCHAR(20),@pmFecMat SMALLDATETIME,@pmNomAgencia VARCHAR(150),@pmDirAgencia VARCHAR(250)
,@pmIdLocalAge VARCHAR(8),@pmComentarios VARCHAR(2000),@pmIdEstado VARCHAR(4),@pmInactivo BIT,@pmTipoSalario CHAR(1),@pmNumTarj VARCHAR(30),@pmPwdTarj VARCHAR(30),@pmFecVenceTc SMALLDATETIME,@pmIncRetFte BIT,@pmFechaImp SMALLDATETIME,@pmCodCCosto VARCHAR(16),@pmCodSubCosto VARCHAR(16)
,@pmFecNacmto SMALLDATETIME,@pmNacionalidad VARCHAR(50),@pmSexo CHAR(1),@pmCdEstCivil VARCHAR(4),@pmNumPerCargo INT,@pmNivelEduc VARCHAR(4),@pmTipoVivienda VARCHAR(10),@pmEstratoSocial INT,@pmIdOcupac VARCHAR(4),@pmVrPension MONEY,@pmVrOtrosDev MONEY
,@pmVrPasivo MONEY,@pmVrPatrimonio MONEY,@pmEmpresaLab VARCHAR(150),@pmFecIngLab SMALLDATETIME,@pmTelEmpresa VARCHAR(20),@pmDirEmpresa VARCHAR(250),@pmEmailEmpresa VARCHAR(100),@pmBaseAportes MONEY,@pmCdTarifApo VARCHAR(4),@pmVrAportes MONEY,@pmFecInicioApo SMALLDATETIME,@pmFecFinalApo SMALLDATETIME
,@pmDiaCausacApo VARCHAR(150),@pmFecRetiroApo SMALLDATETIME,@pmCausalRetiro VARCHAR(250),@pmSinDctoNom BIT,@pmSinLiqAporte BIT,@pmCabFamilia BIT,@pmDebitoAuto VARCHAR(20),@pmVrActivos MONEY,@pmFechaCrea SMALLDATETIME,@pmIdUsuario VARCHAR(11)
 AS 
 INSERT INTO TercCliePrestamo (IdClie,IdAgencia,IdSzona,IdGrupo,IdTipoTerc,IdVend,IdClase,NumCuenta,IdBanco,NomAgencia,DirAgencia,IdLocalAge,NitRepLeg,NomRepLeg,NitContac,NomContac,TelContac,emlContac,CargContac,EsExento,CalcIntMora,DiasGracia
,FecIngreso,FecVigencia,FecRetiro,VrSalBasico,MaxDcto,TipoSalario,MatMerc,FecMat,Comentarios,IdEstado,Inactivo,FechaCrea,IdUsuario,NumTarj,PwdTarj,FecVenceTc,IncRetFte,FechaImp,CodCCosto,CodSubCosto
,FecNacmto,Nacionalidad,Sexo,CdEstCivil,NumPerCargo,NivelEduc,TipoVivienda,EstratoSocial,IdOcupac,VrPension,VrOtrosDev,VrPasivo,VrPatrimonio,EmpresaLab,FecIngLab,TelEmpresa,DirEmpresa,EmailEmpresa,BaseAportes,CdTarifApo,VrAportes,FecInicioApo,FecFinalApo
,DiaCausacApo,FecRetiroApo,CausalRetiro,SinDctoNom,SinLiqAporte,CabFamilia,DebitoAuto,VrActivos)
 VALUES (@pmIdClie,@pmIdAgencia,@pmIdSzona,@pmIdGrupo,@pmIdTipoTerc,@pmIdVend,@pmIdClase,@pmNumCuenta,@pmIdBanco,@pmNomAgencia,@pmDirAgencia,@pmIdLocalAge,@pmNitRepLeg,@pmNomRepLeg,@pmNitContac,@pmNomContac,@pmTelContac,@pmemlContac,@pmCargContac,@pmEsExento
,@pmCalcIntMora,@pmDiasGracia,@pmFecIngreso,@pmFecVigencia,@pmFecRetiro,@pmVrSalBasico,@pmMaxDcto,@pmTipoSalario,@pmMatMerc,@pmFecMat,@pmComentarios,@pmIdEstado,@pmInactivo,@pmFechaCrea,@pmIdUsuario,@pmNumTarj,@pmPwdTarj,@pmFecVenceTc,@pmIncRetFte,@pmFechaImp,@pmCodCCosto,@pmCodSubCosto
,@pmFecNacmto,@pmNacionalidad,@pmSexo,@pmCdEstCivil,@pmNumPerCargo,@pmNivelEduc,@pmTipoVivienda,@pmEstratoSocial,@pmIdOcupac,@pmVrPension,@pmVrOtrosDev,@pmVrPasivo,@pmVrPatrimonio,@pmEmpresaLab,@pmFecIngLab,@pmTelEmpresa,@pmDirEmpresa,@pmEmailEmpresa,@pmBaseAportes
,@pmCdTarifApo,@pmVrAportes,@pmFecInicioApo,@pmFecFinalApo,@pmDiaCausacApo,@pmFecRetiroApo,@pmCausalRetiro,@pmSinDctoNom,@pmSinLiqAporte,@pmCabFamilia,@pmDebitoAuto,@pmVrActivos)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpTercCliePrestamo] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmNitRepLeg VARCHAR(16),@pmNomRepLeg VARCHAR(150),@pmNitContac VARCHAR(16),@pmNomContac VARCHAR(150),@pmTelContac VARCHAR(20),@pmemlContac VARCHAR(100),@pmCargContac VARCHAR(50)
,@pmIdSzona VARCHAR(4),@pmIdGrupo VARCHAR(4),@pmIdTipoTerc VARCHAR(4),@pmIdVend VARCHAR(16),@pmIdClase VARCHAR(4),@pmNumCuenta VARCHAR(30),@pmIdBanco VARCHAR(4),@pmEsExento BIT,@pmCalcIntMora BIT,@pmDiasGracia INT,@pmFecIngreso SMALLDATETIME,@pmFecVigencia SMALLDATETIME
,@pmFecRetiro SMALLDATETIME,@pmVrSalBasico MONEY,@pmMaxDcto DECIMAL(14,4),@pmMatMerc VARCHAR(20),@pmFecMat SMALLDATETIME,@pmNomAgencia VARCHAR(150),@pmDirAgencia VARCHAR(250),@pmIdLocalAge VARCHAR(8),@pmComentarios VARCHAR(2000),@pmIdEstado VARCHAR(4),@pmInactivo BIT,@pmTipoSalario CHAR(1)
,@pmNumTarj VARCHAR(30),@pmPwdTarj VARCHAR(30),@pmFecVenceTc SMALLDATETIME,@pmIncRetFte BIT,@pmFechaImp SMALLDATETIME,@pmCodCCosto VARCHAR(16),@pmCodSubCosto VARCHAR(16)
,@pmFecNacmto SMALLDATETIME,@pmNacionalidad VARCHAR(50),@pmSexo CHAR(1),@pmCdEstCivil VARCHAR(4),@pmNumPerCargo INT,@pmNivelEduc VARCHAR(4),@pmTipoVivienda VARCHAR(10),@pmEstratoSocial INT,@pmIdOcupac VARCHAR(4),@pmVrPension MONEY,@pmVrOtrosDev MONEY
,@pmVrPasivo MONEY,@pmVrPatrimonio MONEY,@pmEmpresaLab VARCHAR(150),@pmFecIngLab SMALLDATETIME,@pmTelEmpresa VARCHAR(20),@pmDirEmpresa VARCHAR(250),@pmEmailEmpresa VARCHAR(100),@pmBaseAportes MONEY,@pmCdTarifApo VARCHAR(4),@pmVrAportes MONEY,@pmFecInicioApo SMALLDATETIME,@pmFecFinalApo SMALLDATETIME
,@pmDiaCausacApo VARCHAR(150),@pmFecRetiroApo SMALLDATETIME,@pmCausalRetiro VARCHAR(250),@pmSinDctoNom BIT,@pmSinLiqAporte BIT,@pmCabFamilia BIT,@pmDebitoAuto VARCHAR(20),@pmVrActivos MONEY,@pmFechaAct SMALLDATETIME
 AS 
 UPDATE TercCliePrestamo SET NitRepLeg=@pmNitRepLeg,NomRepLeg=@pmNomRepLeg,NitContac=@pmNitContac,NomContac=@pmNomContac,TelContac=@pmTelContac,emlContac=@pmemlContac,CargContac=@pmCargContac,IdSzona=@pmIdSzona,IdGrupo=@pmIdGrupo,IdTipoTerc=@pmIdTipoTerc,IdVend=@pmIdVend
,IdClase=@pmIdClase,NumCuenta=@pmNumCuenta,IdBanco=@pmIdBanco,EsExento=@pmEsExento,CalcIntMora=@pmCalcIntMora,DiasGracia=@pmDiasGracia,FecIngreso=@pmFecIngreso,FecVigencia=@pmFecVigencia,FecRetiro=@pmFecRetiro,VrSalBasico=@pmVrSalBasico,MaxDcto=@pmMaxDcto,MatMerc=@pmMatMerc,FecMat=@pmFecMat
,Comentarios=@pmComentarios,IdEstado=@pmIdEstado,NomAgencia=@pmNomAgencia,DirAgencia=@pmDirAgencia,IdLocalAge=@pmIdLocalAge,Inactivo=@pmInactivo,FechaAct=@pmFechaAct,TipoSalario=@pmTipoSalario,NumTarj=@pmNumTarj,PwdTarj=@pmPwdTarj,FecVenceTc=@pmFecVenceTc
,IncRetFte=@pmIncRetFte,FechaImp=@pmFechaImp,CodCCosto=@pmCodCCosto,CodSubCosto=@pmCodSubCosto
,FecNacmto=@pmFecNacmto,Nacionalidad=@pmNacionalidad,Sexo=@pmSexo,CdEstCivil=@pmCdEstCivil,NumPerCargo=@pmNumPerCargo,NivelEduc=@pmNivelEduc,TipoVivienda=@pmTipoVivienda,EstratoSocial=@pmEstratoSocial,IdOcupac=@pmIdOcupac,VrPension=@pmVrPension,VrOtrosDev=@pmVrOtrosDev,VrPasivo=@pmVrPasivo
,VrPatrimonio=@pmVrPatrimonio,EmpresaLab=@pmEmpresaLab,FecIngLab=@pmFecIngLab,TelEmpresa=@pmTelEmpresa,DirEmpresa=@pmDirEmpresa,EmailEmpresa=@pmEmailEmpresa,BaseAportes=@pmBaseAportes,CdTarifApo=@pmCdTarifApo,VrAportes=@pmVrAportes,FecInicioApo=@pmFecInicioApo,FecFinalApo=@pmFecFinalApo
,DiaCausacApo=@pmDiaCausacApo,FecRetiroApo=@pmFecRetiroApo,CausalRetiro=@pmCausalRetiro,SinDctoNom=@pmSinDctoNom,SinLiqAporte=@pmSinLiqAporte,CabFamilia=@pmCabFamilia,DebitoAuto=@pmDebitoAuto,VrActivos=@pmVrActivos
 WHERE IdClie=@pmIdClie AND IdAgencia=@pmIdAgencia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsTercCliePrestamo_Sel] @pmIdClie VARCHAR(16),@pmNewIdClie VARCHAR(16)
 AS 
 IF EXISTS (SELECT IdClie FROM  TercCliePrestamo WHERE  IdClie=@pmIdClie)
  INSERT INTO TercCliePrestamo (IdClie,IdAgencia,IdSzona,IdGrupo,IdTipoTerc,IdVend,IdClase,NumCuenta,IdBanco,NomAgencia,DirAgencia,IdLocalAge,NitRepLeg,NomRepLeg,NitContac,NomContac,TelContac,emlContac,CargContac,EsExento,CalcIntMora,DiasGracia,FecIngreso,FecVigencia,FecRetiro,VrSalBasico
 ,MaxDcto,TipoSalario,MatMerc,FecMat,Comentarios,IdEstado,Inactivo,FechaCrea,IdUsuario,NumTarj,PwdTarj,FecVenceTc,IncRetFte,FechaImp,CodCCosto,CodSubCosto,FecNacmto,Nacionalidad,Sexo,CdEstCivil,NumPerCargo,NivelEduc,TipoVivienda,EstratoSocial,IdOcupac,VrPension,VrOtrosDev,VrPasivo,VrPatrimonio
,EmpresaLab,FecIngLab,TelEmpresa,DirEmpresa,EmailEmpresa,BaseAportes,CdTarifApo,VrAportes,FecInicioApo,FecFinalApo,DiaCausacApo,FecRetiroApo,CausalRetiro,SinDctoNom,SinLiqAporte,CabFamilia,DebitoAuto,VrActivos)
 SELECT @pmNewIdClie,IdAgencia,IdSzona,IdGrupo,IdTipoTerc,IdVend,IdClase,NumCuenta,IdBanco,NomAgencia,DirAgencia,IdLocalAge,NitRepLeg,NomRepLeg,NitContac,NomContac,TelContac,emlContac,CargContac,EsExento,CalcIntMora,DiasGracia,FecIngreso,FecVigencia,FecRetiro,VrSalBasico
 ,MaxDcto,TipoSalario,MatMerc,FecMat,Comentarios,IdEstado,Inactivo,FechaCrea,IdUsuario,NumTarj,PwdTarj,FecVenceTc,IncRetFte,FechaImp,CodCCosto,CodSubCosto,FecNacmto,Nacionalidad,Sexo,CdEstCivil,NumPerCargo,NivelEduc,TipoVivienda,EstratoSocial,IdOcupac,VrPension,VrOtrosDev,VrPasivo,VrPatrimonio
,EmpresaLab,FecIngLab,TelEmpresa,DirEmpresa,EmailEmpresa,BaseAportes,CdTarifApo,VrAportes,FecInicioApo,FecFinalApo,DiaCausacApo,FecRetiroApo,CausalRetiro,SinDctoNom,SinLiqAporte,CabFamilia,DebitoAuto,VrActivos
 FROM TercCliePrestamo WHERE IdClie=@pmIdClie
GO