if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paDelOcupaciones]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paDelOcupaciones]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsOcupaciones]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsOcupaciones]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTercCliePreRef]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsTercCliePreRef]
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].[paInsTercCliePrestamo_Sel]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsTercCliePrestamo_Sel]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryFinCiAportesLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryFinCiAportesLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryOcupaciones]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryOcupaciones]
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].[paQryTercCliePrestamoLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryTercCliePrestamoLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpOcupaciones]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paUpOcupaciones]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpTercCliePreRef]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paUpTercCliePreRef]
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

SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paQryFinCiAportesLta] @pmIdCliente VARCHAR(16)=Null
 AS 
 SELECT A.Item,A.IdCliente,T.RazonSocial AS NomCliente,A.IdAgencia,CL.NomAgencia,A.ValorTotal,A.FecInicio,A.FecFinal,A.CantCuotas
 ,A.Descripcion,A.FechaCrea,A.IdCiaCrea,Compania,A.IdUsuario,Usuario,[Id]
 FROM Trn_FinCiAportes AS A INNER JOIN TercCliePrestamo AS CL ON A.IdCliente=CL.IdClie AND A.IdAgencia=CL.IdAgencia
 INNER JOIN Terceros AS T ON A.IdCliente=T.IdTercero INNER JOIN Companias AS CI ON A.IdCiaCrea=CI.IdCia
 INNER JOIN adm_Usuarios AS U ON A.IdUsuario=U.IdUsuario
 WHERE (A.IdCliente=@pmIdCliente OR @pmIdCliente IS NULL) AND CL.Inactivo=0
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.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
,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.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,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,@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)
 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)
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,@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
 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)
 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
 FROM TercCliePrestamo WHERE IdClie=@pmIdClie
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsTercCliePreRef] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmItem INT,@pmTipoRef VARCHAR(10)
,@pmReferencia VARCHAR(150),@pmNitRefncia VARCHAR(16),@pmDirRefncia VARCHAR(150),@pmTelRefncia VARCHAR(30)
,@pmemlRefncia VARCHAR(100),@pmCargRefncia VARCHAR(50),@pmNumCuenta VARCHAR(30),@pmObservcion VARCHAR(250)
,@pmParentesco VARCHAR(10),@pmFechaNac SMALLDATETIME,@pmEdad INT,@pmBenSolidario BIT
 AS 
 INSERT INTO TercCliePreRef (IdClie,IdAgencia,Item,TipoRef,Referencia,NitRefncia,DirRefncia,TelRefncia,emlRefncia,CargRefncia,NumCuenta,Observcion
,Parentesco,FechaNac,Edad,BenSolidario)
 VALUES (@pmIdClie,@pmIdAgencia,@pmItem,@pmTipoRef,@pmReferencia,@pmNitRefncia,@pmDirRefncia,@pmTelRefncia,@pmemlRefncia,@pmCargRefncia,@pmNumCuenta,@pmObservcion
,@pmParentesco,@pmFechaNac,@pmEdad,@pmBenSolidario)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpTercCliePreRef] @pmIdClie VARCHAR(16),@pmIdAgencia VARCHAR(16),@pmItem INT,@pmTipoRef VARCHAR(10),@pmReferencia VARCHAR(150),@pmNitRefncia VARCHAR(16)
,@pmDirRefncia VARCHAR(150),@pmTelRefncia VARCHAR(30),@pmemlRefncia VARCHAR(100),@pmCargRefncia VARCHAR(50),@pmNumCuenta VARCHAR(30),@pmObservcion VARCHAR(250)
,@pmParentesco VARCHAR(10),@pmFechaNac SMALLDATETIME,@pmEdad INT,@pmBenSolidario BIT
 AS 
 UPDATE TercCliePreRef SET TipoRef=@pmTipoRef,Referencia=@pmReferencia,NitRefncia=@pmNitRefncia,DirRefncia=@pmDirRefncia,TelRefncia=@pmTelRefncia,emlRefncia=@pmemlRefncia
,CargRefncia=@pmCargRefncia,NumCuenta=@pmNumCuenta,Observcion=@pmObservcion,Parentesco=@pmParentesco,FechaNac=@pmFechaNac,Edad=@pmEdad,BenSolidario=@pmBenSolidario
 WHERE IdClie=@pmIdClie AND IdAgencia=@pmIdAgencia AND Item=@pmItem
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsOcupaciones] @pmIdOcupac VARCHAR(4),@pmOcupacion VARCHAR(50),@pmInactivo BIT
 AS 
 INSERT INTO Ocupaciones (IdOcupac,Ocupacion,Inactivo)
 VALUES (@pmIdOcupac,@pmOcupacion,@pmInactivo)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpOcupaciones] @pmIdOcupac VARCHAR(4),@pmOcupacion VARCHAR(50),@pmInactivo BIT
 AS 
 UPDATE Ocupaciones SET Ocupacion=@pmOcupacion,Inactivo=@pmInactivo
 WHERE IdOcupac=@pmIdOcupac
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryOcupaciones] @pmIdOcupac VARCHAR(4)
 AS 
 IF @pmIdOcupac IS NULL
  BEGIN
  SELECT IdOcupac,Ocupacion
  FROM Ocupaciones
  WHERE Inactivo=0
  END
 ELSE
  BEGIN
  SELECT IdOcupac,Ocupacion,Inactivo
  FROM Ocupaciones
  WHERE IdOcupac=@pmIdOcupac
  END
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paDelOcupaciones] @pmIdOcupac VARCHAR(4)
 AS 
 DELETE FROM Ocupaciones WHERE IdOcupac=@pmIdOcupac
GO
