if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsNomAjustes]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsNomAjustes]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsNomAjustesDet]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInsNomAjustesDet]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryNomAjustes]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryNomAjustes]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryNomAjustesLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryNomAjustesLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQrytm_KdexCom]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQrytm_KdexCom]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpNomAjustes]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paUpNomAjustes]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryNomAjustesLta] @pmTipNota VARCHAR(3),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME
 AS 
 SELECT A.TipNota,TD.TipoDoc,A.NumNota,A.IdCia,Compania,A.IdPeriodo,A.FechaInicial,A.FechaFinal,A.IdEmpleado,E.Apellidos,E.Nombres,A.NContrato
,D.Item,D.IdConcepto,C.Concepto,C.ClaseCon,D.Detalle,D.CantDevg,D.CantDed,D.VrUnitario,D.VrTotDevg,D.VrTotDed,D.VrBaseLiq,D.VrBasExceso,D.Unidad,D.ClaseLiq,D.VrOrigen,D.Tarifa
,D.DiasCalc,D.DiasNov,D.FecInicial AS DetFecFinal,D.FecFinal AS DetFecInicial,D.CodFondo,FN.Fondo,D.NPrestamo,D.NCuota,D.OrigCargue,D.NitTercero,T.RazonSocial AS NomTercero,D.TipoIncLab
,A.IdRegNom,A.NumLiquida,A.NumSemLiq,A.IdNom,TipoNomina,A.TipoLiq,A.Observacion,A.NA_Estado,A.NA_Prefijo,A.NA_Numero,A.NA_FecEnvio,A.NA_CUNE,A.NA_QR
,A.NE_Prefijo,A.NE_Numero,A.NE_CUNE,A.NE_QR,A.FechaCrea,A.IdCiaCrea,A.IdUsuario,Usuario
--contrato/empleado
,CN.IdArea,Area,CN.IdDep AS CodDep,DP.Dependencia,CN.IdCargo,Cargo,CN.IdTipCon,TipoContrato,CN.FecIngreso,CN.FecVigencia,CN.FecRetiro,CN.VrSalario,CN.VrAuxTrans,CN.Inactivo
,E.Codigo,E.IdLugarCed,LC.Localidad,E.Direccion,E.Telefono,E.TelMovil,E.e_mail,E.IdProf AS CodProf,Profesion
FROM Trn_NomAjustes AS A INNER JOIN Trn_NomAjustesDet AS D ON A.TipNota=D.TipNota AND A.NumNota=D.NumNota AND A.IdCia=D.IdCia
INNER JOIN Empleados AS E ON A.IdEmpleado=E.IdEmpleado INNER JOIN adm_Usuarios AS U ON A.IdUsuario=U.IdUsuario
INNER JOIN TiposNom AS TN ON A.IdNom=TN.IdNom INNER JOIN NomConceptos AS C ON D.IdConcepto=C.IdConcepto
INNER JOIN Emp_Contrato AS CN ON A.NContrato=CN.NContrato INNER JOIN Dependencias AS DP ON CN.IdDep=DP.IdDep
INNER JOIN Areas AS AR ON CN.IdArea=AR.IdArea INNER JOIN Cargos AS CG ON CN.IdCargo=CG.IdCargo 
INNER JOIN Profesiones AS P ON E.IdProf=P.IdProf INNER JOIN Companias AS CI ON A.IdCia=CI.IdCia
INNER JOIN TiposCon AS TC ON CN.IdTipCon=TC.IdTipCon
LEFT JOIN Sys_TiposDoc AS TD ON A.TipNota=TD.IdDoc LEFT JOIN Fondos AS FN ON D.CodFondo=FN.IdFondo
LEFT JOIN Terceros AS T ON D.NitTercero=T.IdTercero LEFT JOIN Localidades AS LC ON E.IdLugarCed=LC.IdLocal
WHERE A.FechaInicial BETWEEN @pmFechaIni AND @pmFechaFin AND (A.TipNota=@pmTipNota OR @pmTipNota IS NULL)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsNomAjustes] @pmTipNota VARCHAR(3),@pmNumNota INT,@pmIdCia CHAR(2),@pmIdEmpleado VARCHAR(16),@pmNContrato INT,@pmIdPeriodo VARCHAR(8),@pmFechaInicial SMALLDATETIME,@pmFechaFinal SMALLDATETIME,@pmIdRegNom VARCHAR(30),@pmNumLiquida INT,@pmNumSemLiq INT,@pmIdNom VARCHAR(4),@pmTipoLiq CHAR(1),@pmObservacion VARCHAR(2000),@pmNA_Estado INT
,@pmNA_Prefijo VARCHAR(20),@pmNA_Numero INT,@pmNA_FecEnvio SMALLDATETIME,@pmNA_CUNE VARCHAR(500),@pmNE_Prefijo VARCHAR(20),@pmNE_Numero INT,@pmNE_CUNE VARCHAR(500),@pmFechaCrea SMALLDATETIME,@pmIdCiaCrea CHAR(2),@pmIdUsuario VARCHAR(11)
 AS 
 INSERT INTO Trn_NomAjustes (TipNota,NumNota,IdCia,IdEmpleado,NContrato,IdPeriodo,FechaInicial,FechaFinal,IdRegNom,NumLiquida,NumSemLiq,IdNom,TipoLiq,Observacion,NA_Estado,NA_Prefijo,NA_Numero,NA_FecEnvio,NA_CUNE,NE_Prefijo,NE_Numero,NE_CUNE,FechaCrea,IdCiaCrea,IdUsuario)
 VALUES (@pmTipNota,@pmNumNota,@pmIdCia,@pmIdEmpleado,@pmNContrato,@pmIdPeriodo,@pmFechaInicial,@pmFechaFinal,@pmIdRegNom,@pmNumLiquida,@pmNumSemLiq,@pmIdNom,@pmTipoLiq,@pmObservacion,@pmNA_Estado,@pmNA_Prefijo,@pmNA_Numero,@pmNA_FecEnvio,@pmNA_CUNE,@pmNE_Prefijo,@pmNE_Numero,@pmNE_CUNE,@pmFechaCrea,@pmIdCiaCrea,@pmIdUsuario)
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paUpNomAjustes] @pmTipNota VARCHAR(3),@pmNumNota INT,@pmIdCia CHAR(2),@pmIdEmpleado VARCHAR(16),@pmNContrato INT,@pmIdPeriodo VARCHAR(8),@pmFechaInicial SMALLDATETIME,@pmFechaFinal SMALLDATETIME,@pmIdRegNom VARCHAR(30),@pmNumLiquida INT,@pmNumSemLiq INT,@pmIdNom VARCHAR(4),@pmTipoLiq CHAR(1),@pmObservacion VARCHAR(2000),@pmNA_Estado INT
,@pmNA_Prefijo VARCHAR(20),@pmNA_Numero INT,@pmNA_FecEnvio SMALLDATETIME,@pmNA_CUNE VARCHAR(500),@pmNE_Prefijo VARCHAR(20),@pmNE_Numero INT,@pmNE_CUNE VARCHAR(500)
 AS 
 UPDATE Trn_NomAjustes SET IdEmpleado=@pmIdEmpleado,NContrato=@pmNContrato,IdPeriodo=@pmIdPeriodo,FechaInicial=@pmFechaInicial,FechaFinal=@pmFechaFinal,IdRegNom=@pmIdRegNom,NumLiquida=@pmNumLiquida,NumSemLiq=@pmNumSemLiq,IdNom=@pmIdNom,TipoLiq=@pmTipoLiq
,Observacion=@pmObservacion,NA_Estado=@pmNA_Estado,NA_Prefijo=@pmNA_Prefijo,NA_Numero=@pmNA_Numero,NA_FecEnvio=@pmNA_FecEnvio,NA_CUNE=@pmNA_CUNE,NE_Prefijo=@pmNE_Prefijo,NE_Numero=@pmNE_Numero,NE_CUNE=@pmNE_CUNE
 WHERE TipNota=@pmTipNota AND NumNota=@pmNumNota AND IdCia=@pmIdCia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paQryNomAjustes] @pmTipNota VARCHAR(3),@pmNumNota INT,@pmIdCia CHAR(2)
 AS 
 SELECT TipNota,NumNota,IdCia,IdEmpleado,NContrato,IdPeriodo,FechaInicial,FechaFinal,IdRegNom,NumLiquida,NumSemLiq,IdNom,TipoLiq,Observacion,NA_Estado,NA_Prefijo,NA_Numero,NA_FecEnvio,NA_CUNE,NA_QR,NE_Prefijo,NE_Numero,NE_CUNE,NE_QR,FechaCrea,IdCiaCrea,IdUsuario
 FROM Trn_NomAjustes
 WHERE TipNota=@pmTipNota AND NumNota=@pmNumNota AND IdCia=@pmIdCia
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInsNomAjustesDet] @pmTipNota VARCHAR(3),@pmNumNota INT,@pmIdCia CHAR(2),@pmItem INT,@pmIdConcepto VARCHAR(4),@pmDetalle VARCHAR(250),@pmCantDevg DECIMAL(14,4),@pmCantDed DECIMAL(14,4),@pmVrUnitario MONEY,@pmVrTotDevg MONEY,@pmVrTotDed MONEY,@pmUnidad VARCHAR(10),@pmClaseLiq VARCHAR(10),@pmVrOrigen MONEY,@pmTarifa DECIMAL(14,4),@pmDiasCalc DECIMAL(14,4),@pmDiasNov DECIMAL(14,4)
,@pmFecInicial SMALLDATETIME,@pmFecFinal SMALLDATETIME,@pmCodFondo VARCHAR(8),@pmNPrestamo INT,@pmNCuota INT,@pmOrigCargue VARCHAR(10),@pmVrBaseLiq MONEY,@pmVrBasExceso MONEY,@pmNitTercero VARCHAR(16),@pmTipoIncLab VARCHAR(20)
 AS 
 INSERT INTO Trn_NomAjustesDet (TipNota,NumNota,IdCia,Item,IdConcepto,Detalle,CantDevg,CantDed,VrUnitario,VrTotDevg,VrTotDed,Unidad,ClaseLiq,VrOrigen,Tarifa,DiasCalc,DiasNov,FecInicial,FecFinal,CodFondo,NPrestamo,NCuota,OrigCargue,VrBaseLiq,VrBasExceso,NitTercero,TipoIncLab)
 VALUES (@pmTipNota,@pmNumNota,@pmIdCia,@pmItem,@pmIdConcepto,@pmDetalle,@pmCantDevg,@pmCantDed,@pmVrUnitario,@pmVrTotDevg,@pmVrTotDed,@pmUnidad,@pmClaseLiq,@pmVrOrigen,@pmTarifa,@pmDiasCalc,@pmDiasNov,@pmFecInicial,@pmFecFinal,@pmCodFondo,@pmNPrestamo,@pmNCuota,@pmOrigCargue,@pmVrBaseLiq,@pmVrBasExceso,@pmNitTercero,@pmTipoIncLab)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paQrytm_KdexCom] @pmtmNumero VARCHAR(5)
 AS 
 SELECT tmNumero,tmItem,tmIdProducto,tmIdBodega,tmCdTanque,tmEntradas,tmSalidas,tmIdUnd,tmVrUnitario,tmVrPrecio,tmVrCostProm
,tmVrBruto,tmVrDcto,tmReferencia,tmCdProdEquiv,tmUnidades,tmServcios,tmEsCombo,tmEsProdBase,tmItemCbo,tmCdSubgrupo
,tmListaPrec,tmVrBase,tmCdMoneda,tmVrTasaCamb,tmIdTercero,tmCdAgencia,tmCdCCosto,tmCdSubCos,tmCdLocal,tmCdSzona,tmpVehiculo,tmIdVend
,tmComision,tmCdOperario,tmComisnOper,tmCodTarCom,tmCodTarCmc,tmCantObseq
--variables de ProMcias
,DescripProd,TipoRef,IdSubgrupo,IdBodega,IdUbic,VrCostAnt,VrCosto,VrCostPmd,ExtciaMin,ExtciaMax,ExtciaAct
,Seriales,Lotes,Combo,Tanques,IvaDetCombo,LtaBaseIva
 FROM tm_Kdex AS K INNER JOIN ProdMcias AS P ON K.tmIdProducto=P.IdProducto
 WHERE tmNumero=@pmtmNumero AND Combo<>0 
 ORDER BY tmItem
GO
--feb 22/2022


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].[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
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 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,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.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,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),@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)
 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)
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),@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
 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)
 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
 FROM TercCliePrestamo WHERE IdClie=@pmIdClie
GO