SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[paInstm_PreExtoCuo] @pmtmEst CHAR(2),@pmtmTipoRep INT,@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCliente VARCHAR(16)=Null
,@pmIdCia CHAR(2)=Null
 AS 
 INSERT INTO tm_PreExto (tmEst,tmTipoRep,tmTipDoc,tmNumero,tmIdCia,tmItem,tmFecha,tmIdCliente,tmIdAgencia,tmCargos,tmAbonos,tmIdLinea,tmConcepto,tmDetalle,tmReferencia,tmCredito,tmVrPrestamo,tmVrCuota
,tmTotAbonos,tmNCuota,tmIdVend,tmTimeSys,tmFecVence,tmTipoAbono,tmDTF_EA,tmTasaNom,tmTasaEfe,tmTipRef,tmDocRef,tmIdCiaRef,tmTipCom,tmComprobante,tmIdCiaCom,tmAnulado,tmNumDev,tmFecDev
,tmSanClie,tmSanCia,tmSanAgenc,tmSanAgeCia,tmSanLinea,tmSanLineaCia,tmSanConc,tmSanConcCia)
 SELECT @pmtmEst,@pmtmTipoRep,C.TipDoc,C.IdPrestamo,C.IdCia,0,MAX(C.Fecha),C.IdCliente,C.IdAgencia,SUM(C.VrTotal),0,P.IdLinea,'CAPITAL','','',P.TipoCredito,P.VrPrestamo,P.VrCuota
,SUM(C.VrAbonado),MAX(NumCuota),P.IdVend,P.TimeSys,MAX(C.FechaVence),0,MAX(DTF_EA),MAX(TasaNom),MAX(TasaEfe),'PR1',0,'',TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev
,0,0,0,0,0,0,0,0
 FROM Trn_FinCuotas AS C INNER JOIN Trn_FinPrestamo AS P ON C.TipDoc=P.TipDoc  AND C.IdPrestamo=P.IdPrestamo  AND C.IdCia=P.IdCia
 WHERE C.TipDoc='PR1' AND c.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND C.Concepto='CAPITAL' 
 AND NOT EXISTS (SELECT * FROM tm_PreExto WHERE tm_PreExto.tmTipDoc='PR1' AND tm_PreExto.tmNumero=C.IdPrestamo AND tm_PreExto.tmIdCia=C.IdCia
 AND tm_PreExto.tmConcepto='CAPITAL')
 AND C.IdCliente LIKE ISNULL(@pmIdCliente,'%') AND C.IdCia LIKE ISNULL(@pmIdCia,'%%')
 GROUP BY  C.TipDoc,C.IdPrestamo,C.IdCia,C.IdCliente,C.IdAgencia,P.IdLinea,P.TipoCredito,P.VrPrestamo,P.VrCuota
,P.IdVend,P.TimeSys,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev