if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_NotBus]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Diario_NotBus]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Od1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Diario_Od1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Od1Det]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Diario_Od1Det]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Rc1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Diario_Rc1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Rc1Det]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Diario_Rc1Det]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Caja_NotBus]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Caja_NotBus]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Caja_Od1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Caja_Od1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Caja_Rc1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_Caja_Rc1]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Diario_NotBus @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Diario (tmEst,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteIca,VrReteIva,VrOtros
,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrCostos,VrNeto,VrEfectivo,VrPagosOtr,VrCreditos,VrValesGastos,CantPuntos,CdProducto,Cantidad,EnEfectivo,CdForma,NumForma,CdBanco
,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2,Beneficiario,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,TipDoc,NumNota,IdCia,Fecha,IdConcepto,IdCliente,IdAgencia,ValorTotal,0,ValorIva,0,ValorReteFte,ValorReteIca,0,ValorSancion
,0,0,0,0,ValorCosto,ValorNeto,0,0,0,0,0,'0',0,PrestCaja,'0',NumCheque,IdBanco
,'','0',FecVence,IdVendedor,Comision,'0',IdUsuario,'0',Referencia,'','','BUSES',IdVehiculo,TipDcm,Documento,IdCiaDoc,TipCom,Comprobante,IdCiaCom,0,0,Null,Observacion,TimeSys
 FROM Trn_NotasBuses
 WHERE  Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND IdCia LIKE ISNULL(@pmIdCia,'%%') AND IdUsuario LIKE ISNULL(@pmIdCajero,'%')
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Diario_Od1 @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Diario (tmEst,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteIca,VrReteIva,VrOtros
,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrCostos,VrNeto,VrEfectivo,VrPagosOtr,VrCreditos,VrValesGastos,CantPuntos,CdProducto,Cantidad,EnEfectivo,CdForma,NumForma,CdBanco
,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2,Beneficiario,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,TipDev,Devolucion,D.IdCia,D.Fecha,D.IdConcepto,D.IdCliente,D.IdAgencia,D.ValorTotal,D.ValorDcto,0,0,D.ValorReteFte,D.ValorReteIca,D.ValorReteIva,D.ValorPagMas
,D.ValorOtros,D.ValorOtrosDct,0,D.ValorAhorro,0,D.ValorNeto,CASE D.EnEfectivo WHEN 1 THEN D.ValorNeto ELSE 0 END,CASE D.EnEfectivo WHEN 0 THEN D.ValorNeto ELSE 0 END,0,0,0,'0',0,D.EnEfectivo,'EFE',D.NumCheque,D.IdBanco
,'',R.IdCta,Null,D.IdVendedor,D.Comision,'0',D.IdUsuario,'0',R.Referencia,'','',D.Modalidad,D.IdVehiculo,TipCar,Cartulina,IdCiaCar,D.TipCom,D.Comprobante,D.IdCiaCom,0,D.Recibo,FecDoc,D.Observacion,D.TimeSys
 FROM Trn_DevRecBuses AS D INNER JOIN Trn_RecBuses AS R ON D.TipDoc=R.TipDoc AND D.Recibo=R.Recibo AND D.IdCiaDoc=R.IdCia
 WHERE  D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND  D.IdCia LIKE ISNULL(@pmIdCia,'%%') AND D.IdUsuario LIKE ISNULL(@pmIdCajero,'%')

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Diario_Od1Det @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Diario (tmEst,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteIca,VrReteIva,VrOtros
,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrCostos,VrNeto,VrEfectivo,VrPagosOtr,VrCreditos,VrValesGastos,CantPuntos,CdProducto,Cantidad,EnEfectivo,CdForma,NumForma,CdBanco
,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2,Beneficiario,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,TipDev,Devolucion,R.IdCia,R.Fecha,IdConcepto,IdCliente,IdAgencia,VrPagado,VrCambio,0,0,ValorReteFte,ValorReteIca,ValorReteIva,ValorPagMas
,ValorOtros,ValorOtrosDct,0,ValorAhorro,0,VrPagado-VrCambio,CASE IdForma WHEN 'EFE' THEN VrPagado-VrCambio ELSE 0 END, CASE IdForma WHEN 'EFE' THEN 0 ELSE  VrPagado-VrCambio END
,0,0,0,'0',0,EnEfectivo,IdForma,P.NumForma,P.IdBanco,Detalle,CASE P.CdCta WHEN NULL THEN '0'  WHEN '' THEN '0' ELSE P.CdCta END,FecForma,IdVendedor,Comision,'0',R.IdUsuario,CdLocal,Referncia1,Referncia2,Beneficiario
,Modalidad,IdVehiculo,R.TipDoc,Recibo,IdCiaDoc,TipCom,Comprobante,IdCiaCom,0,Recibo,FecDoc,Observacion,TimeSys
 FROM Trn_DevRecBuses AS R INNER JOIN Trn_Pagos AS P ON R.TipDev=P.TipDoc AND R.Devolucion=P.Documento AND R.IdCia=P.IdCia
 WHERE  R.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND  R.IdCia LIKE ISNULL(@pmIdCia,'%%') AND R.IdUsuario LIKE ISNULL(@pmIdCajero,'%')
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Diario_Rc1 @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Diario (tmEst,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteIca,VrReteIva,VrOtros
,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrCostos,VrNeto,VrEfectivo,VrPagosOtr,VrCreditos,VrValesGastos,CantPuntos,CdProducto,Cantidad,EnEfectivo,CdForma,NumForma,CdBanco
,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2,Beneficiario,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,TipDoc, Recibo, IdCia, Fecha, IdConcepto, IdCliente, IdAgencia,ValorTotal,ValorDcto,0,0,ValorReteFte,ValorReteIca,ValorReteIva,ValorPagMas,ValorOtros,ValorOtrosDct
,0,TotalAhorro,0,ValorNeto,CASE EnEfectivo WHEN 1 THEN ValorNeto ELSE 0 END,CASE EnEfectivo WHEN 0 THEN ValorNeto ELSE 0 END,0,0,0,'0',0,EnEfectivo,CASE EnEfectivo WHEN 1 THEN  'EFE' ELSE 'CHE' END
,NumCheque,IdBanco,'',IdCta,Null,IdVendedor,Comision,'0',IdUsuario,'0',Referencia,'','',Modalidad,IdVehiculo,TipCar, Cartulina, IdCiaCar,TipCom, Comprobante, IdCiaCom, Anulado, NumDev, FecDev,Observacion,TimeSys
 FROM Trn_RecBuses
 WHERE  Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND  IdCia LIKE ISNULL(@pmIdCia,'%%') AND IdUsuario LIKE ISNULL(@pmIdCajero,'%')
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Diario_Rc1Det @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Diario (tmEst,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteIca,VrReteIva,VrOtros
,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrCostos,VrNeto,VrEfectivo,VrPagosOtr,VrCreditos,VrValesGastos,CantPuntos,CdProducto,Cantidad,EnEfectivo,CdForma,NumForma,CdBanco
,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2,Beneficiario,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,R.TipDoc,Recibo,R.IdCia,R.Fecha,IdConcepto,IdCliente,IdAgencia,VrPagado,VrCambio,0,0,ValorReteFte,ValorReteIca,ValorReteIva,ValorPagMas
,ValorOtros,ValorOtrosDct,0,TotalAhorro,0,VrPagado-VrCambio,CASE EnEfectivo WHEN 1 THEN VrPagado-VrCambio ELSE 0 END,CASE EnEfectivo WHEN 0 THEN VrPagado-VrCambio ELSE 0 END,0,0,0,'0',0,EnEfectivo
,IdForma,NumForma,P.IdBanco,Detalle,CASE P.CdCta WHEN NULL THEN '0'  WHEN '' THEN '0' ELSE P.CdCta END,FecForma,IdVendedor,Comision,'0',R.IdUsuario,CdLocal,Referncia1,Referncia2,Beneficiario,Modalidad,IdVehiculo,TipCar,Cartulina,IdCiaCar
,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys
 FROM Trn_RecBuses AS R INNER JOIN Trn_Pagos AS P ON R.TipDoc=P.TipDoc AND R.Recibo=P.Documento AND R.IdCia=P.IdCia
 WHERE  R.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND  R.IdCia LIKE ISNULL(@pmIdCia,'%%') AND R.IdUsuario LIKE ISNULL(@pmIdCajero,'%')


GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


CREATE PROCEDURE paInstm_Caja_NotBus @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Caja (tmEst,tmItem,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrRetencion,VrOtros,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrNeto,VrEfectivo
,VrPagosOtr,VrCreditos,VrGastComb,VrGastOtros,Cantidad,CantPuntos,PuntosAcum,EnEfectivo,CdForma,NumForma,CdBanco,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2
,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,7,TipDoc,NumNota,IdCia,Fecha,IdConcepto,IdCliente,IdAgencia,ValorTotal,0,ValorIva,ValorReteFte+ValorReteIca,ValorSancion,0,0,0,0,ValorNeto ,ValorNeto
,0,0,0,0,0,0,0,1,'EFE',NumCheque,IdBanco,'','0',FecVence,IdVendedor,Comision,'0',IdUsuario,'0',Referencia,''
,'CAJA',IdVehiculo,TipDcm,Documento,IdCiaDoc,TipCom,Comprobante,IdCiaCom,0,0,Null,Observacion,TimeSys
 FROM Trn_NotasBuses
 WHERE  Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND PrestCaja<>0 AND IdCia LIKE ISNULL(@pmIdCia,'%%') AND IdUsuario LIKE ISNULL(@pmIdCajero,'%')

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Caja_Od1 @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Caja (tmEst,tmItem,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrRetencion,VrOtros,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrNeto,VrEfectivo
,VrPagosOtr,VrCreditos,VrGastComb,VrGastOtros,Cantidad,CantPuntos,PuntosAcum,EnEfectivo,CdForma,NumForma,CdBanco,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2
,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,2,TipDev, Devolucion, D.IdCia, D.Fecha, D.IdConcepto,D.IdCliente, D.IdAgencia,D.ValorTotal, D.ValorDcto,D.ValorReteIva,D.ValorReteFte+D.ValorReteIca,D.ValorPagMas,D.ValorOtros,D.ValorOtrosDct,0,D.ValorAhorro,D.ValorNeto,0
,0,0,0,0,R.NPasajeros,0,0,D.EnEfectivo,'EFE',D.NumCheque,D.IdBanco,'',D.IdCta,D.FecDoc, D.IdVendedor, D.Comision,'0',D.IdUsuario,'0',R.Referencia,'',D.Modalidad,D.IdVehiculo,D.TipDoc, D.Recibo, D.IdCiaDoc,D.TipCom, D.Comprobante, D.IdCiaCom,0,0,Null, D.Observacion,D.TimeSys
 FROM Trn_DevRecBuses AS D INNER JOIN Trn_RecBuses AS R ON D.TipDoc=R.TipDoc AND D.Recibo=R.Recibo AND D.IdCiaDoc=R.IdCia
 WHERE  D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND  D.IdCia LIKE ISNULL(@pmIdCia,'%%') AND D.IdUsuario LIKE ISNULL(@pmIdCajero,'%')
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_Caja_Rc1 @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdCajero VARCHAR(11)=Null
 AS 
 INSERT INTO tm_Caja (tmEst,tmItem,TipDoc,Numero,IdCia,Fecha,IdConcepto,IdTercero,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrRetencion,VrOtros,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrNeto,VrEfectivo
,VrPagosOtr,VrCreditos,VrGastComb,VrGastOtros,Cantidad,CantPuntos,PuntosAcum,EnEfectivo,CdForma,NumForma,CdBanco,DetallePagos,CdCta,FecCheque,IdVend,TarifaCom,nClieCon,IdCajero,IdLocal,Referencia,Referencia2
,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys)
SELECT @pmtmEst,2,TipDoc, Recibo, IdCia, Fecha,IdConcepto, IdCliente, IdAgencia,ValorTotal, ValorDcto,ValorReteIva, ValorReteFte+ValorReteIca,ValorPagMas,ValorOtros,ValorOtrosDct,0,TotalAhorro,ValorNeto,0
,0,0,0,0,NPasajeros,0,0,EnEfectivo,'EFE',NumCheque,IdBanco,'',IdCta,Null, IdVendedor, Comision, '0',IdUsuario,'0',Referencia,''
,Modalidad,IdVehiculo,TipCar, Cartulina, IdCiaCar,TipCom, Comprobante, IdCiaCom, Anulado, NumDev, FecDev, Observacion,TimeSys
FROM Trn_RecBuses
 WHERE  Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND  IdCia LIKE ISNULL(@pmIdCia,'%%') AND IdUsuario LIKE ISNULL(@pmIdCajero,'%')
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_EVcauCte]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_EVcauCte]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_EstCueCte_Cc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_EstCueCte_Cc]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpTercPropietarioSal]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paUpTercPropietarioSal]
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_EVcauCte @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmtmEst CHAR(2),@pmIdCia CHAR(2)=Null
,@pmIdVehiculo VARCHAR(10)=Null,@pmIdCliente VARCHAR(16)=Null,@pmIdClase VARCHAR(4)=Null,@pmIdGrupo VARCHAR(4)=Null,@pmIdAdmon VARCHAR(4)=Null
 AS
--INSERTA CAUSACIONES CIERRE CTE
 INSERT INTO tm_EVcau (tmEst,tmTipo,tmDocmnto,tmIdCia,tmItem,tmFecha,tmGrupo,tmIdCargo,tmIdConcepto,tmValor,tmValorDev,tmVrGastos,tmIdCliente,tmIdVehiculo,tmVehPropio,tmIdConductor,tmModalidad,tmValorTotal,tmGalones,tmVrComb,tmDetalle,tmNumCheque,tmReferencia,tmIdClase,tmAnulado
,tmNumDev,tmFecDev,tmTipDcm,tmDocDev,tmIdCiaDcm,tmFecDcm,tmIdEstado,tmIdUsuario,tmTimeSys)
 SELECT @pmtmEst,'DVO',Recibo,IdCia,Item+2000,Fecha,TipRec,IdCargo,'0',0,ValorAbono,(ValorAbono*-1),R.IdCliente,R.IdVehiculo,VehPropio,IdVendedor,'CCTE',ValorAbono,0,0,Detalle,'0','OTROS',IdClase,0
,0,Null,TipDoc,Documento,IdCiaDoc,Null,'0001',R.IdUsuario,R.TimeSys
 FROM  Trn_RecFactura  AS R  INNER JOIN Vehiculos AS V ON R.IdVehiculo=V.IdVehiculo 
 WHERE  TipRec='OTR' AND  R.Fecha BETWEEN @pmFechaIni AND @pmFechaFin  AND IdCia LIKE ISNULL(@pmIdCia,'%%')
 AND R.IdVehiculo LIKE ISNULL(@pmIdVehiculo,'%') AND R.IdCliente LIKE ISNULL(@pmIdCliente,'%') AND R.IdClase LIKE ISNULL(@pmIdClase,'%')
 AND IdGrupo LIKE ISNULL(@pmIdGrupo,'%') AND IdAdmon LIKE ISNULL(@pmIdAdmon,'%')
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInstm_EstCueCte_Cc @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmtmEst CHAR(2),@pmtmIndTip INT,@pmIdCia CHAR(2)=Null
,@pmIdVehiculo VARCHAR(10)=Null,@pmIdCliente VARCHAR(16)=Null,@pmIdClase VARCHAR(4)=Null,@pmIdGrupo VARCHAR(4)=Null
 AS
  INSERT INTO tm_EstCueCte  (tmEst, tmTipDoc, tmDocumento, tmIdCia, tmItem, tmIndTip, tmFecha, tmFecVence, tmValorDebito, tmValorCredito, tmValorAbono, tmIdCliente
 ,tmIdAgencia, tmIdVehiculo, tmVehPropio, tmIdVendedor, tmComision, tmIdCargo, tmIdClase, tmIdConcepto, tmFecUltPago, tmFactura, tmReferencia,tmDetalle, tmCartulina
 ,tmIdUsuario,tmIdEstado,tmModalidad,tmCxPagar, tmTimeSys, tmAnulado, tmNumDev, tmFecDev,tmIdBanco, tmSaldoAnt, tmSaldoAntCla, tmSaldoAntCia, tmSaldoAntDia,tmNuevoSaldo)
 SELECT @pmtmEst,R.TipRec,R.Recibo,R.IdCia,R.Item+10000,@pmtmIndTip,R.Fecha,V.FecVence,0,R.ValorAbono,0,R.IdCliente
,R.IdAgencia,R.IdVehiculo,R.VehPropio,R.IdVendedor,R.Comision,R.IdCargo,R.IdClase,V.IdConcepto,FecPago,V.Factura,V.Referencia,R.Detalle,V.NotaInt
,R.IdUsuario,'0001','CCTE',0,R.TimeSys,0,0,Null,'0',0,0,0,0,0
 FROM Trn_RecFactura AS R INNER JOIN Trn_CausacVence AS V ON R.TipDoc =V.TipDoc  AND R.Documento=V.Documento  AND R.IdCiaDoc=V.IdCia AND R.ItemDoc=V.Item
 INNER JOIN Vehiculos AS VH ON R.IdVehiculo=VH.IdVehiculo 
 WHERE R.TipRec='OTR'  AND R.Fecha BETWEEN @pmFechaIni AND @pmFechaFin  AND R.IdCia like ISNULL(@pmIdCia,'%%')
 AND R.IdVehiculo LIKE ISNULL(@pmIdVehiculo,'%') AND R.IdCliente LIKE ISNULL(@pmIdCliente,'%') AND R.IdClase LIKE ISNULL(@pmIdClase,'%')
 AND VH.IdGrupo LIKE ISNULL(@pmIdGrupo,'%')

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paUpTercPropietarioSal @pmIdPropietario VARCHAR(16),@pmSaldoActual MONEY
AS
 IF @pmIdPropietario IS NULL
   UPDATE TercPropietario  SET SaldoActual=@pmSaldoActual
 ELSE
  UPDATE TercPropietario  SET SaldoActual=@pmSaldoActual  WHERE  IdPropietario=@pmIdPropietario
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

