ALTER TABLE tm_Diario ADD IdRuta VARCHAR(4) DEFAULT('0')
,IdLocOrigen VARCHAR(8) DEFAULT('0'), IdLocDestino VARCHAR(8) DEFAULT('0')
,IdPoseedor VARCHAR(16) DEFAULT('0'),IdConductor VARCHAR(16) DEFAULT('0')
,IdRemitente VARCHAR(16) DEFAULT('0'),IdDestinatario VARCHAR(16) DEFAULT('0')
,NumPedido INT DEFAULT(0),IdCiaPed CHAR(2) DEFAULT('00')
GO
ALTER TABLE tm_Diario ALTER COLUMN CdForma VARCHAR(4)
GO
ALTER TABLE tm_Diario ALTER COLUMN CdBanco VARCHAR(4)
GO
ALTER TABLE tm_Diario ALTER COLUMN CdCta VARCHAR(4)
GO
ALTER TABLE tm_Diario ALTER COLUMN IdVend VARCHAR(16)
GO
ALTER TABLE tm_Diario ALTER COLUMN nClieCon VARCHAR(16)
GO
ALTER TABLE tm_Diario ALTER COLUMN CdProducto VARCHAR(16)
GO
ALTER TABLE tm_Diario ALTER COLUMN TipCom VARCHAR(3)
GO
ALTER TABLE tm_Diario ALTER COLUMN IdCiaCom CHAR(2)
GO
ALTER TABLE tm_Diario ALTER COLUMN IdLocal VARCHAR(8)
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioCdBanco]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioCdBanco]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioCdCta]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioCdCta]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioCdForma]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioCdForma]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioCdProducto]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioCdProducto]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioIdVend]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioIdVend]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarionClieCon]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarionClieCon]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioTipCom]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioTipCom]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioIdCiaCom]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioIdCiaCom]
GO
IF  EXISTS (SELECT * FROM sys.check_constraints WHERE object_id = OBJECT_ID(N'[dbo].[CK_tm_DiarioIdLocal]') AND parent_object_id = OBJECT_ID(N'[dbo].[tm_Diario]'))
ALTER TABLE [dbo].[tm_Diario] DROP CONSTRAINT [CK_tm_DiarioIdLocal]
GO
--procedimietos
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Ant]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Ant]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Aos]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Aos]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Cos]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Cos]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Cum]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Cum]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dao]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dao]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dco]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dco]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dcu]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dcu]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dfc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dfc]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_DfcT]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_DfcT]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dlg]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dlg]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dls]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dls]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dop]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dop]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Dva]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Dva]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Fcr]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Fcr]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_FcrT]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_FcrT]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Lga]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Lga]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Muc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Muc]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_MucD]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_MucD]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Odp]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Odp]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Odt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Odt]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Opt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Opt]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Ost]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Ost]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Pdt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Pdt]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_PdtD]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_PdtD]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_Rmt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_Rmt]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_Diario_RmtD]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paInstm_Diario_RmtD]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQrytm_Diario]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQrytm_Diario]
GO


SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dfc] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
 SELECT @pmtmEst,TipDev,Devolucion,D.IdCia,D.Fecha,D.IdConcepto,D.IdCliente,D.IdAgencia,D.VrSubTotal,D.VrDescuento,D.VrImpuesto,D.VrSobretasa,D.VrRetencion,D.VrReteICA,D.VrReteIVA,D.VrFletes
,D.VrCargos,D.VrOtrDcto,D.VrImpGlobal,D.VrOtros,D.VrCostos,D.VrNeto,0,0,0,0,D.CantPuntos,'0',D.Cantidad,MulPlazos,IdForma,'','0'
,DetallePago,'0',F.FecPedido,D.IdVend,D.TarifaCom,'0',D.IdUsuario,D.IdLocEnv,ModdDev,'','',D.Modalidad,pVehiculo,D.TipDoc,D.Factura,D.IdCiaDoc,D.TipCom,D.Comprobante,D.IdCiaCom,0,0,D.Fecha,D.Observacion,D.TimeSys,D.VrImpCons
,F.CdRuta,D.IdLocEnv,'','',F.CdConductor,'','',D.Pedido,D.IdCiaPed
 FROM Trn_DevFcr AS D INNER JOIN Trn_Facturas AS F ON D.TipDoc=F.TipDoc  AND D.Factura=F.Factura  AND D.IdCiaDoc=F.IdCia
 WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR D.IdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Fcr] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
 SELECT @pmtmEst,TipDoc,Factura,IdCia,Fecha,IdConcepto,IdCliente,IdAgencia,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteICA,VrReteIVA,VrFletes
,VrCargos,VrOtrDcto,VrImpGlobal,VrOtros,VrCostos,VrNeto,0,0,0,0,CantPuntos,'0',Cantidad,MulPlazos,IdForma,'','0'
,DetallePago,'0',FecPedido,IdVend,TarifaCom,'0',IdUsuario,IdLocEnv,'','','',Modalidad,pVehiculo,TipPed,Pedido,IdCiaPed,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,Observacion,TimeSys,VrImpCons
,CdRuta,IdLocEnv,'','',CdConductor,'','',Remision,IdCiaRem
 FROM Trn_Facturas
 WHERE Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_FcrT] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
 SELECT @pmtmEst,F.TipDoc,F.Factura,F.IdCia,F.Fecha,F.IdConcepto,F.IdCliente,F.IdAgencia,D.VrUnitario*D.Cantidad,D.VrDescuento,D.VrImpuesto,0,D.VrRetencion,D.VrReteIca,0,0
,0,D.VrFaltante,D.VrSeguroRem,D.VrAutRetIca,D.VrCosto*D.CantPago,(D.VrUnitario*D.Cantidad)-D.VrDescuento+D.VrImpuesto,0,0,0,0,D.Cantidad,D.CdMercancia,D.PesoNeto,0,F.IdForma,'','0'
,CASE WHEN LEN(D.Descripcion)>150 THEN SUBSTRING(D.Descripcion,1,150) ELSE D.Descripcion END ,'0',D.FecRemesa,F.IdVend,F.TarifaCom,'0',F.IdUsuario,F.IdLocEnv,D.Referencia1,D.Referencia2,'',F.Modalidad
,D.pVehiculo,D.TipRem,D.Remesa,D.IdCiaRem,F.TipCom,F.Comprobante,F.IdCiaCom,F.Anulado,F.NumDev,F.FecDev,F.Observacion,F.TimeSys,F.VrImpCons,F.CdRuta,D.IdOrigen,D.IdDestino,D.NitTercero,F.CdConductor,'','',F.Pedido,F.IdCiaPed
FROM Trn_Facturas AS F INNER JOIN Trn_TraFacRemesas AS D ON F.TipDoc=D.TipDoc AND F.Factura=D.Factura AND F.IdCia=D.IdCia
WHERE F.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (F.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (F.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_DfcT] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,DV.TipDev,DV.Devolucion,DV.IdCia,DV.Fecha,DV.IdConcepto,DV.IdCliente,DV.IdAgencia,D.VrUnitario*D.Cantidad,D.VrDescuento,D.VrImpuesto,0,D.VrRetencion,D.VrReteIca,0,0
,0,D.VrFaltante,D.VrSeguroRem,D.VrAutRetIca,D.VrCosto*D.CantPago,(D.VrUnitario*D.Cantidad)-D.VrDescuento+D.VrImpuesto,0,0,0,0,D.Cantidad,D.CdMercancia,D.PesoNeto,0,F.IdForma,'','0'
,CASE WHEN LEN(D.Descripcion)>150 THEN SUBSTRING(D.Descripcion,1,150) ELSE D.Descripcion END ,'0',D.FecRemesa,DV.IdVend,DV.TarifaCom,'0',DV.IdUsuario,DV.IdLocEnv,D.Referencia1,D.Referencia2,'',DV.ModdDev
,D.pVehiculo,D.TipRem,D.Remesa,D.IdCiaRem,DV.TipCom,DV.Comprobante,DV.IdCiaCom,1,0,DV.Fecha,DV.Observacion,DV.TimeSys,DV.VrImpCons,F.CdRuta,D.IdOrigen,D.IdDestino,D.NitTercero,F.CdConductor,'','',DV.Factura,DV.IdCiaDoc
FROM Trn_DevFcr AS DV INNER JOIN Trn_TraFacRemesas AS D ON DV.TipDev=D.TipDoc AND DV.Devolucion=D.Factura AND DV.IdCia=D.IdCia
INNER JOIN Trn_Facturas AS F ON DV.TipDoc=F.TipDoc AND DV.Factura=F.Factura AND DV.IdCiaDoc=F.IdCia
WHERE DV.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (DV.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (DV.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Odp] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,O.TipDoc,O.OrdPago,O.IdCia,O.Fecha,O.IdConcepto,OM.IdPropietario,'0',OM.VrTotalFletes,OM.VrDescuento,OM.VrImpuestos,OM.VrEstampilla,OM.VrRetencion,OM.VrReteIca,0,OM.VrFondos
,OM.VrOtrosPagos,OM.VrOtrosDctos,OM.VrSeguros,OM.VrFaltantes,OM.VrTotalFletes-OM.VrDescuento,OM.VrNeto,0,0,OM.VrAnticipos,0,OM.Unidades,'',OM.PesoTotal,O.LiqRemesas,OM.CdForma,OM.NumCheque,''
,'','',O.FechaVence,'0',0,'0',O.IdUsuario,M.IdLocFletes,OM.Referencia,M.TipoAfiVehic,'',O.Modalidad,OM.IdVehiculo,OM.TipMuc,OM.Manifiesto,OM.IdCiaMuc,O.TipCom,O.Comprobante,O.IdCiaCom,O.Anulado,O.NumDev,O.FecDev,O.Observacion,O.TimeSys
,OM.VrReteCREE,M.IdRuta,M.IdOrigen,M.IdDestino,OM.IdPoseedor,OM.IdConductor,'','',OM.Egreso,OM.IdCiaEgr
FROM Trn_TraOrdenPago AS O INNER JOIN Trn_TraOrdenManif AS OM ON O.TipDoc=OM.TipDoc AND O.OrdPago=OM.OrdPago AND O.IdCia=OM.IdCia
INNER JOIN Trn_TraManifiesto AS M ON OM.TipMuc=M.TipDoc AND OM.Manifiesto=M.Manifiesto AND OM.IdCiaMuc=M.IdCia
WHERE O.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (O.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (O.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dop] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,D.IdConcepto,OM.IdPropietario,'0',OM.VrTotalFletes,OM.VrDescuento,OM.VrImpuestos,OM.VrEstampilla,OM.VrRetencion,OM.VrReteIca,0,OM.VrFondos
,OM.VrOtrosPagos,OM.VrOtrosDctos,OM.VrSeguros,OM.VrFaltantes,OM.VrTotalFletes-OM.VrDescuento,OM.VrNeto,0,0,OM.VrAnticipos,0,OM.Unidades,'',OM.PesoTotal,O.LiqRemesas,OM.CdForma,OM.NumCheque,''
,'','',O.FechaVence,'0',0,'0',D.IdUsuario,M.IdLocFletes,OM.Referencia,M.TipoAfiVehic,'',D.ModdDev,D.IdVehiculo,OM.TipMuc,OM.Manifiesto,OM.IdCiaMuc,D.TipCom,D.Comprobante,D.IdCiaCom,1,0,D.Fecha,D.Observacion,D.TimeSys
,OM.VrReteCREE,M.IdRuta,M.IdOrigen,M.IdDestino,D.IdPoseedor,D.IdConductor,'','',D.OrdPago,D.IdCiaDoc
FROM Trn_TraDevOdp AS D INNER JOIN Trn_TraOrdenPago AS O ON D.TipDoc=O.TipDoc AND D.OrdPago=O.OrdPago AND D.IdCiaDoc=O.IdCia
INNER JOIN Trn_TraOrdenManif AS OM ON D.TipDoc=OM.TipDoc AND D.OrdPago=OM.OrdPago AND D.IdCiaDoc=OM.IdCia
INNER JOIN Trn_TraManifiesto AS M ON OM.TipMuc=M.TipDoc AND OM.Manifiesto=M.Manifiesto AND OM.IdCiaMuc=M.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Cum] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,C.TipDoc,C.Cumplido,C.IdCia,C.Fecha,ISNULL(C.CodConcepto,''),M.IdPropietario,'0',CR.TotalCobro,0,0,0,0,0,0,C.VrAdicFlete,C.VrAdicCargue,C.VrAdicDescargue,0,0,CR.TotalPagos,CR.TotalPagos,0,0,0,C.VrAdicAnticipo
,CR.Cantidad,'0',CR.PesoTotal,0,'','','','','',C.FecPago,'0',0,'0',C.IdUsuario,C.CdOrigen,M.nRemolque,M.TipoAfiVehic,'',C.Modalidad,C.IdVehiculo
,C.TipMuc,C.Manifiesto,C.IdCiaMuc,C.TipoComp,C.NumComp,C.IdCia,C.Anulado,0,C.FecDev,C.Observacion,C.TimeSys,0,C.CdRuta,C.CdOrigen,C.CdDestino,M.IdPoseedor,M.IdConductor,'','',M.Remesa,M.IdCiaRem
FROM Trn_TraCumplido AS C INNER JOIN Trn_TraManifiesto AS M ON C.TipMuc=M.TipDoc AND C.Manifiesto=M.Manifiesto AND C.IdCiaMuc=M.IdCia
LEFT JOIN (SELECT TipDoc,Cumplido,IdCia,SUM(Cantidad) AS Cantidad,SUM(PesoNeto) AS PesoTotal,SUM(PesoNeto*TarifClie) AS TotalCobro,SUM(PesoNeto*TarifPago) AS TotalPagos
FROM Trn_TraCumRemesas GROUP BY TipDoc,Cumplido,IdCia) AS CR ON C.TipDoc=CR.TipDoc AND C.Cumplido=CR.Cumplido AND C.IdCia=CR.IdCia
WHERE C.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (C.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (C.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Ant] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,A.TipDoc,A.Anticipo,A.IdCia,A.Fecha,A.IdConcepto,M.IdPropietario,'0',M.VrFletes,M.VrDescuento,0,0,0,0,0,M.VrAnticipo+M.VrAntAdic,0,A.VrDeduccion,0,0,0,A.VrAnticipo,0,A.VrAbonado,0,0
,M.Cantidad,'0',M.PesoTotal,CASE WHEN A.TipoPago='EFECTIVO' THEN 1 ELSE 0 END,SUBSTRING(A.TipoPago,1,3),A.NumCheque,'',A.TipoPago,A.IdCta,A.FecCheque,A.CedBenef,0,'0',A.IdUsuario,M.IdOrigen,M.nRemolque,M.TipoAfiVehic,A.Beneficiario,A.Modalidad,A.IdVehiculo
,A.TipMuc,A.Manifiesto,A.IdCiaMuc,A.TipCom,A.Comprobante,A.IdCiaCom,A.Anulado,A.NumDev,A.FecDev,A.Observacion,A.TimeSys,0,M.IdRuta,M.IdOrigen,M.IdDestino,A.IdPoseedor,A.IdConductor,'','',A.NumCargue,A.CiaCargue
FROM Trn_TraAnticipos AS A INNER JOIN Trn_TraManifiesto AS M ON A.TipMuc=M.TipDoc AND A.Manifiesto=M.Manifiesto AND A.IdCiaMuc=M.IdCia
WHERE A.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (A.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (A.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Muc] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,M.TipDoc,M.Manifiesto,M.IdCia,M.Fecha,'0',M.IdPropietario,'0',M.VrFletes,M.VrDescuento,0,0,M.VrRetencion,M.VrReteIca,0,M.VrPagos,M.VrCargos,M.VrDctos,0,0,M.VrFletes,M.VrNeto,0,0,M.VrAnticipo,M.VrAntAdic
,M.Cantidad,'0',M.PesoTotal,0,'',MA.TipoRuta,'','','',M.FecDespacho,M.CdCondRelev,0,'0',M.IdUsuario,M.IdLocFletes,M.nRemolque,M.TipoAfiVehic,MA.NomRemite,MA.TipoMintrans,M.IdVehiculo
,'RMT',M.Remesa,M.IdCiaRem,M.TipCom,M.Comprobante,M.IdCiaCom,M.Anulado,0,M.FecDev,Substring (M.Observacion,1,250),M.TimeSys,0,M.IdRuta,M.IdOrigen,M.IdDestino,M.IdPoseedor,M.IdConductor,'','',M.Cumplido,M.IdCiaCump
FROM Trn_TraManifiesto AS M INNER JOIN Trn_TraManifAnexo AS MA ON M.TipDoc=MA.TipDoc AND M.Manifiesto=MA.Manifiesto AND M.IdCia=MA.IdCia
WHERE M.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (M.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (M.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dcu] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,ISNULL(D.IdConcepto,''),M.IdPropietario,'0',CR.TotalCobro,0,0,0,0,0,0,C.VrAdicFlete,C.VrAdicCargue,C.VrAdicDescargue,0,0,CR.TotalPagos,CR.TotalPagos,0,0,0,C.VrAdicAnticipo
,CR.Cantidad,'0',CR.PesoTotal,0,'','','','','',C.FecPago,'0',0,'0',C.IdUsuario,C.CdOrigen,M.nRemolque,M.TipoAfiVehic,'',D.ModdDev,C.IdVehiculo
,C.TipMuc,C.Manifiesto,C.IdCiaMuc,D.TipCom,D.Comprobante,D.IdCiaCom,1,0,D.Fecha,D.Observacion,D.TimeSys,0,C.CdRuta,C.CdOrigen,C.CdDestino,M.IdPoseedor,M.IdConductor,'','',D.Cumplido,D.IdCiaDoc
FROM Trn_TraDevCum AS D INNER JOIN Trn_TraCumplido AS C ON D.TipDoc=C.TipDoc AND D.Cumplido=C.Cumplido AND D.IdCiaDoc=C.IdCia
INNER JOIN Trn_TraManifiesto AS M ON C.TipMuc=M.TipDoc AND C.Manifiesto=M.Manifiesto AND C.IdCiaMuc=M.IdCia
LEFT JOIN (SELECT TipDoc,Cumplido,IdCia,SUM(Cantidad) AS Cantidad,SUM(PesoNeto) AS PesoTotal,SUM(PesoNeto*TarifClie) AS TotalCobro,SUM(PesoNeto*TarifPago) AS TotalPagos
FROM Trn_TraCumRemesas GROUP BY TipDoc,Cumplido,IdCia) AS CR ON D.TipDoc=CR.TipDoc AND D.Cumplido=CR.Cumplido AND D.IdCiaDoc=CR.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Rmt] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,R.TipDoc,R.NumOrden,R.IdCia,R.Fecha,CdConcepto,R.IdCliente,R.IdAgencia,R.VrCobro,0,0,0,0,0,0,R.VrSeguro,R.VrPagos,R.VrDctos,0,0,R.VrFletes,R.VrCobro
,0,0,R.VrDeclarado,0,0,'0',R.PesoTotal,0,R.CdForma,RA.TipoRuta,'','','',R.FecDespacho,RA.IdVend,0,'0',R.IdUsuario,R.IdLocFletes,R.nRemolque,R.TipoAfiVehic,RA.NomCliente,R.Modalidad,R.IdVehiculo
,R.TipDcm,R.NumDocmto,R.IdCiaDcm,R.TipCom,R.Comprobante,R.IdCiaCom,R.Anulado,0,R.FecDev,R.Observacion,R.TimeSys,R.VrCargos,R.CdRutaTarif,R.IdLocOrigen,R.IdLocDestino,'0',R.IdConductor,R.IdRemitente,R.IdDestinatario,R.NumPedido,R.IdCiaPed
FROM Trn_TraRemesa AS R INNER JOIN Trn_TraRemAnexo AS RA ON R.TipDoc=RA.TipDoc AND R.NumOrden=RA.NumOrden AND R.IdCia=RA.IdCia
WHERE R.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (R.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
AND (R.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (R.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_RmtD] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,R.TipDoc,R.NumOrden,R.IdCia,R.Fecha,CdConcepto,R.IdCliente,R.IdAgencia,D.PesoNeto*D.TarifClie,0,0,0,0,0,0,D.VrSeguro,D.PesoNeto*D.TarifPago,0,0,0,D.PesoNeto*D.TarifTabla,D.PesoNeto*D.TarifClie
,0,0,D.VrDeclarado,0,D.Cantidad,D.IdMercancia,D.PesoNeto,0,R.CdForma,RA.TipoRuta,'',CASE WHEN LEN(D.DescripMcias)>150 THEN SUBSTRING(D.DescripMcias,1,150) ELSE D.DescripMcias END,'',R.FecDespacho,RA.IdVend,0,'0',R.IdUsuario
,R.IdLocFletes,D.Referencia1,D.Referencia2,CASE WHEN LEN(D.Remitente)>150 THEN SUBSTRING(D.Remitente,1,150) ELSE D.Remitente END,R.Modalidad,R.IdVehiculo,R.TipDcm,R.NumDocmto,R.IdCiaDcm,R.TipCom,R.Comprobante,R.IdCiaCom,R.Anulado
,0,R.FecDev,R.Observacion,R.TimeSys,R.VrCargos,R.CdRutaTarif,D.IdOrigen,D.IdDestino,'0',R.IdConductor,D.NitRemite,D.NitDestntario,R.NumPedido,R.IdCiaPed
FROM Trn_TraRemesa AS R INNER JOIN Trn_TraRemAnexo AS RA ON R.TipDoc=RA.TipDoc AND R.NumOrden=RA.NumOrden AND R.IdCia=RA.IdCia
INNER JOIN Trn_TraRemMcias AS D ON R.TipDoc=D.TipDoc AND R.NumOrden=D.NumOrden AND R.IdCia=D.IdCia
WHERE R.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (R.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
AND (R.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (R.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_MucD] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,M.TipDoc,M.Manifiesto,M.IdCia,M.Fecha,R.CdConcepto,R.IdCliente,R.IdAgencia,D.PesoNeto*MR.TarifPago,0,0,0,0,0,0,D.PesoNeto*MR.TarifTabla,0,0,0,0,D.PesoNeto*MR.TarifPago,D.PesoNeto*MR.TarifPago,0,0,M.VrAnticipo,M.VrAntAdic
,D.Cantidad,D.IdMercancia,D.PesoNeto,0,'',MA.TipoRuta,'',CASE WHEN LEN(D.DescripMcias)>150 THEN SUBSTRING(D.DescripMcias,1,150) ELSE D.DescripMcias END,'',M.FecDespacho,M.CdCondRelev,0,'0',M.IdUsuario
,M.IdLocFletes,D.Referencia1,D.Referencia2,CASE WHEN LEN(D.Remitente)>150 THEN SUBSTRING(D.Remitente,1,150) ELSE D.Remitente END,MA.TipoMintrans,M.IdVehiculo,MR.TipRem,MR.Remesa,MR.IdCiaRem,M.TipCom,M.Comprobante,M.IdCiaCom
,M.Anulado,0,M.FecDev,SUBSTRING(M.Observacion,1,250),M.TimeSys,0,M.IdRuta,D.IdOrigen,D.IdDestino,M.IdPoseedor,M.IdConductor,D.NitRemite,D.NitDestntario,R.NumPedido,R.IdCiaPed
FROM Trn_TraManifiesto AS M INNER JOIN Trn_TraManifAnexo AS MA ON M.TipDoc=MA.TipDoc AND M.Manifiesto=MA.Manifiesto AND M.IdCia=MA.IdCia
INNER JOIN Trn_TraManifRem AS MR ON M.TipDoc=MR.TipDoc AND M.Manifiesto=MR.Manifiesto AND M.IdCia=MR.IdCia
INNER JOIN Trn_TraRemMcias AS D ON MR.TipRem=D.TipDoc AND MR.Remesa=D.NumOrden AND MR.IdCiaRem=D.IdCia AND MR.ItemRem=D.Item
INNER JOIN Trn_TraRemesa AS R ON MR.TipRem=R.TipDoc AND MR.Remesa=R.NumOrden AND MR.IdCiaRem=R.IdCia
WHERE M.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (M.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (M.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dva] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,D.IdConcepto,M.IdPropietario,'0',M.VrFletes,M.VrDescuento,0,0,0,0,0,M.VrAnticipo+M.VrAntAdic,0,A.VrDeduccion,0,0,0,D.VrDevolucion,A.VrAnticipo,A.VrAbonado,0,0
,M.Cantidad,'0',M.PesoTotal,CASE WHEN A.TipoPago='EFECTIVO' THEN 1 ELSE 0 END,SUBSTRING(A.TipoPago,1,3),A.NumCheque,'',A.TipoPago,A.IdCta,A.FecCheque,A.CedBenef,0,'0',D.IdUsuario,M.IdOrigen,M.nRemolque,M.TipoAfiVehic,A.Beneficiario,D.ModdDev,D.IdVehiculo
,A.TipMuc,A.Manifiesto,A.IdCiaMuc,D.TipCom,D.Comprobante,D.IdCiaCom,1,D.Devolucion,D.Fecha,D.Observacion,D.TimeSys,0,M.IdRuta,M.IdOrigen,M.IdDestino,D.IdPoseedor,D.IdConductor,'','',D.Anticipo,D.IdCiaDoc
FROM Trn_TraDevAnt AS D INNER JOIN Trn_TraAnticipos AS A ON D.TipDoc=A.TipDoc AND D.Anticipo=A.Anticipo AND D.IdCiaDoc=A.IdCia
INNER JOIN Trn_TraManifiesto AS M ON A.TipMuc=M.TipDoc AND A.Manifiesto=M.Manifiesto AND A.IdCiaMuc=M.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_PdtD] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,P.TipDoc,P.Pedido,P.IdCia,P.Fecha,0,P.IdCliente,P.IdAgencia,D.TarifClie*D.PesoNeto,0,0,0,0,0,0,D.VrSeguro,0,0,0,0,D.TarifPago*D.PesoNeto,D.TarifClie*D.PesoNeto
,0,0,D.VrDeclarado,0,D.Cantidad,D.IdMercancia,D.PesoNeto,0,'',PA.TipoRuta,'',CASE WHEN LEN(D.DescripMcias)>150 THEN SUBSTRING(D.DescripMcias,1,150) ELSE D.DescripMcias END,'',P.FecDespacho,P.IdVend,0,'0',P.IdUsuario,D.IdOrigen
,D.Referencia1,D.Referencia2,CASE WHEN LEN(D.Remitente)>150 THEN SUBSTRING(D.Remitente,1,150) ELSE D.Remitente END,PA.TipoServicio,D.CdTipoVehic,P.TipRem,P.Remesa,P.IdCiaRem,'0',0,''
,P.Anulado,0,P.FecDev,P.Observacion,P.TimeSys,0,PA.CdRutaTarif,D.IdOrigen,D.IdDestino,'','',D.NitRemite,D.NitDestntario,P.Factura,P.IdCiaFac
FROM Trn_TraPedido AS P INNER JOIN Trn_TraPedAnexo AS PA ON P.TipDoc=PA.TipDoc AND P.Pedido=PA.Pedido AND P.IdCia=PA.IdCia
INNER JOIN Trn_TraPedMcias AS D ON P.TipDoc=D.TipDoc AND P.Pedido=D.Pedido AND P.IdCia=D.IdCia
WHERE P.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (P.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
AND (P.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (P.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Pdt] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,P.TipDoc,P.Pedido,P.IdCia,P.Fecha,0,P.IdCliente,P.IdAgencia,P.VrCobro,0,0,0,0,0,0,P.VrSeguro,P.VrPagos,P.VrDctos,0,0,P.VrFletes,P.VrCobro
,0,0,P.VrDeclarado,0,P.CantDesp,'0',P.Cantidad,0,'',PA.TipoRuta,'',PA.EmbAdicional,'',P.FecDespacho,P.IdVend,0,'0',P.IdUsuario,P.IdLocOrigen,PA.TipoTrans,PA.CdTipoVeh,PA.NomCliente,PA.TipoServicio,''
,P.TipRem,P.Remesa,P.IdCiaRem,'0',0,'',P.Anulado,0,P.FecDev,P.Observacion,P.TimeSys,0,PA.CdRutaTarif,P.IdLocOrigen,P.IdLocDestino,'','',P.IdRemitente,P.IdDestinatario,P.Factura,P.IdCiaFac
FROM Trn_TraPedido AS P INNER JOIN Trn_TraPedAnexo AS PA ON P.TipDoc=PA.TipDoc AND P.Pedido=PA.Pedido AND P.IdCia=PA.IdCia
WHERE P.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (P.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
AND (P.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (P.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Cos] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,C.TipDoc,C.Cumplido,C.IdCia,C.Fecha,C.IdConcepto,O.IdCliente,O.IdAgencia,C.VrTotal,0,0,0,0,0,0,0,0,0,0,0,C.VrCosto,C.VrTotal
,0,0,0,0,0,'0',C.Cantidad,0,'',C.RemCliente,'',C.DescServicio,'',C.FecDespacho,O.IdConductor,0,'0',C.IdUsuario,O.IdOrigen,O.nRemolque,C.TipoAfiVehic,C.Funcionario,O.Modalidad,O.IdVehiculo
,C.TipOds,C.NumOrden,C.IdCiaOds,C.TipCom,C.Comprobante,C.IdCiaCom,C.Anulado,C.NumDev,C.FecDev,C.Observacion,C.TimeSys,0,O.CdRuta,O.IdOrigen,O.IdDestino,O.IdPoseedor,O.IdConductor,'','',O.NumRemesa,O.CdCiaRem 
FROM Trn_TraOrdenCum AS C INNER JOIN Trn_TraOrdenServ AS O ON C.TipOds=O.TipDoc AND C.NumOrden=O.NumOrden AND C.IdCiaOds=O.IdCia
WHERE C.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (C.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (C.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Ost] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,O.TipDoc,O.NumOrden,O.IdCia,O.Fecha,O.TipDoc,O.IdCliente,O.IdAgencia,O.VrTotal,0,0,0,0,0,0,0,0,0,0,0,O.VrCosto,O.VrTotal
,0,0,0,0,0,'0',O.Cantidad,0,'',O.RemCliente,'',O.TipoResiduo,'',O.FecDespacho,O.IdConductor,0,'0',O.IdUsuario,O.IdOrigen,O.nRemolque,O.TipoAfiVehic,O.NomRecibido,O.Modalidad,O.IdVehiculo
,O.TipFact,O.NumFactura,O.CdCiaFact,'0',0,'00',O.Anulado,0,O.FecDev,O.Observacion,O.TimeSys,0,O.CdRuta,O.IdOrigen,O.IdDestino,O.IdPoseedor,O.IdConductor,'','',O.NumRemesa,O.CdCiaRem 
FROM Trn_TraOrdenServ AS O
WHERE O.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (O.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
AND (O.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (O.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dao] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,D.IdConcepto,O.IdCliente,O.IdAgencia,O.VrCosto,0,0,0,0,0,0,A.VrAnticipo,0,0,0,0,0,D.VrDevolucion,0,A.VrAbonado,0,0
,0,'0',O.Cantidad,CASE WHEN A.TipoPago='EFECTIVO' THEN 1 ELSE 0 END,SUBSTRING(A.TipoPago,1,3),A.NumCheque,'',A.TipoPago,D.CdCta,A.FecCheque,A.CedBenef,0,'0',D.IdUsuario,O.IdOrigen,O.nRemolque,O.TipoAfiVehic,A.Beneficiario,D.ModdDev,O.IdVehiculo
,A.TipOds,A.NumOrden,A.IdCiaOds,D.TipCom,D.Comprobante,D.IdCiaCom,1,0,D.Fecha,D.Observacion,D.TimeSys,0,O.CdRuta,O.IdOrigen,O.IdDestino,O.IdPoseedor,O.IdConductor,'','',D.Anticipo,D.IdCiaDoc
FROM Trn_TraDevAos AS D INNER JOIN Trn_TraOrdenAnt AS A ON D.TipDoc=A.TipDoc AND D.Anticipo=A.Anticipo AND D.IdCiaDoc=A.IdCia
INNER JOIN Trn_TraOrdenServ AS O ON A.TipOds=O.TipDoc AND A.NumOrden=O.NumOrden AND A.IdCiaOds=O.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dco] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,D.IdConcepto,O.IdCliente,O.IdAgencia,C.VrTotal,0,0,0,0,0,0,0,0,0,0,0,C.VrCosto,C.VrTotal
,0,0,0,0,0,'0',C.Cantidad,0,'',C.RemCliente,'',C.DescServicio,'',C.FecDespacho,O.IdConductor,0,'0',D.IdUsuario,O.IdOrigen,O.nRemolque,C.TipoAfiVehic,C.Funcionario,D.ModdDev,O.IdVehiculo
,C.TipOds,C.NumOrden,C.IdCiaOds,D.TipCom,D.Comprobante,D.IdCiaCom,1,0,D.Fecha,D.Observacion,D.TimeSys,0,O.CdRuta,O.IdOrigen,O.IdDestino,O.IdPoseedor,O.IdConductor,'','',D.Cumplido,D.IdCiaDoc 
FROM Trn_TraDevCos AS D INNER JOIN Trn_TraOrdenCum AS C ON D.TipDoc=C.TipDoc AND D.Cumplido=C.Cumplido AND D.IdCiaDoc=C.IdCia
INNER JOIN Trn_TraOrdenServ AS O ON C.TipOds=O.TipDoc AND C.NumOrden=O.NumOrden AND C.IdCiaOds=O.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Opt] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,L.TipDoc,L.Liquidacion,L.IdCia,L.Fecha,L.IdConcepto,O.IdCliente,O.IdAgencia,L.VrTotal,L.VrDescuento,L.VrIva,0,L.VrRetencion,L.VrReteIca,L.VrReteIva,L.VrOtros
,L.VrGastos,0,0,0,L.VrCosto,L.VrNeto,0,0,L.VrAnticipo,0,0,'0',L.Cantidad,L.CxPagar,'',L.NumCheque,'',O.TipoResiduo,'',L.FechaVence,L.IdConductor,0,'0',L.IdUsuario,O.IdOrigen,L.Referencia,L.TipoAfiVehic,O.NomRecibido,O.Modalidad,L.IdVehiculo
,L.TipOds,L.NumOrden,L.IdCiaOds,L.TipCom,L.Comprobante,L.IdCiaCom,L.Anulado,L.NumDev,L.FecDev,L.Observacion,L.TimeSys,L.VrReteCREE,O.CdRuta,O.IdOrigen,O.IdDestino,L.IdPoseedor,L.IdConductor,'','',L.Egreso,L.IdCiaEgr
FROM Trn_TraOrdenLiq AS L INNER JOIN Trn_TraOrdenServ AS O ON L.TipOds=O.TipDoc AND L.NumOrden=O.NumOrden AND L.IdCiaOds=O.IdCia
WHERE L.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (L.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
AND (L.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (L.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dls] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDev VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,D.IdConcepto,O.IdCliente,O.IdAgencia,D.VrTotal,D.VrDescuento,D.VrIva,0,D.VrRetencion,D.VrReteIca,D.VrReteIva,D.VrOtros
,D.VrGastos,0,0,0,D.VrCosto,D.VrNeto,0,0,D.VrAnticipo,0,0,'0',D.Cantidad,D.CxPagar,'',L.NumCheque,'',O.TipoResiduo,'',L.FechaVence,L.IdConductor,0,'0',D.IdUsuario,O.IdOrigen,L.Referencia,L.TipoAfiVehic,O.NomRecibido,D.ModdDev,L.IdVehiculo
,L.TipOds,L.NumOrden,L.IdCiaOds,D.TipCom,D.Comprobante,D.IdCiaCom,1,0,D.Fecha,D.Observacion,D.TimeSys,D.VrReteCREE,O.CdRuta,O.IdOrigen,O.IdDestino,L.IdPoseedor,L.IdConductor,'','',D.Liquidacion,D.IdCiaDoc
FROM Trn_TraDevLgo AS D INNER JOIN Trn_TraOrdenLiq AS L ON D.TipDoc=L.TipDoc AND D.Liquidacion=L.Liquidacion AND D.IdCiaDoc=L.IdCia
INNER JOIN Trn_TraOrdenServ AS O ON L.TipOds=O.TipDoc AND L.NumOrden=O.NumOrden AND L.IdCiaOds=O.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.TipDev=@pmTipDev OR @pmTipDev IS NULL)
AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Lga] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDoc VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,L.TipDoc,L.Liquidacion,L.IdCia,L.Fecha,L.IdConcepto,L.IdPropietario,'0',L.VrGastos,0,0,0,0,0,0,0,L.VrOtrosCred,0,0,0,L.VrCombustible,L.VrAnticipos,0,0,L.VrDiferencia,0
,L.galsComb,'0',L.PesoTotal,L.LiqMixto,'','','',L.DescMcias,'',L.FechaMuc,L.NitEmpresa,0,'0',L.IdUsuario,L.IdLocOrigen,L.Referencia,L.Modalidad,'',L.Modalidad,L.IdVehiculo
,L.TipMuc,L.Manifiesto,L.IdCiaMuc,L.TipCom,L.Comprobante,L.IdCiaCom,L.Anulado,L.NumDev,L.FecDev,L.Observacion,L.TimeSys,0,L.IdRuta,L.IdLocOrigen,L.IdLocDestino,L.IdPoseedor,L.IdConductor,'','',L.NumDocRef,L.IdCiaRef
FROM Trn_TraLiqViajes AS L
WHERE L.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (L.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (L.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
AND (L.TipDoc=@pmTipDoc OR @pmTipDoc IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Aos] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,A.TipDoc,A.Anticipo,A.IdCia,A.Fecha,A.IdConcepto,O.IdCliente,O.IdAgencia,O.VrCosto,0,0,0,0,0,0,O.VrAnticipo,0,0,0,0,0,A.VrAnticipo,0,A.VrAbonado,0,0
,0,'0',O.Cantidad,CASE WHEN A.TipoPago='EFECTIVO' THEN 1 ELSE 0 END,SUBSTRING(A.TipoPago,1,3),A.NumCheque,'',A.TipoPago,A.IdCta,A.FecCheque,A.CedBenef,0,'0',A.IdUsuario,O.IdOrigen,O.nRemolque,O.TipoAfiVehic,A.Beneficiario,A.TipoAncpo,O.IdVehiculo
,A.TipOds,A.NumOrden,A.IdCiaOds,A.TipCom,A.Comprobante,A.IdCiaCom,A.Anulado,A.NumDev,A.FecDev,A.Observacion,A.TimeSys,0,O.CdRuta,O.IdOrigen,O.IdDestino,O.IdPoseedor,O.IdConductor,'','',O.NumRemesa,O.CdCiaRem
FROM Trn_TraOrdenAnt AS A INNER JOIN Trn_TraOrdenServ AS O ON A.TipOds=O.TipDoc AND A.NumOrden=O.NumOrden AND A.IdCiaOds=O.IdCia
WHERE A.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (A.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (A.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Dlg] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario VARCHAR(11)=Null,@pmTipDev VARCHAR(3)=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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,D.TipDev,D.Devolucion,D.IdCia,D.Fecha,D.IdConcepto,D.IdPropietario,'0',D.VrGastos,0,0,0,0,0,0,0,D.VrOtrosCred,0,0,0,D.VrCombustible,D.VrAnticipos,0,0,D.VrDiferencia,0
,D.galsComb,'0',D.PesoTotal,L.LiqMixto,'','','',L.DescMcias,'',D.FecDoc,D.NitEmpresa,0,'0',D.IdUsuario,L.IdLocOrigen,L.Referencia,D.ModdDev,'',D.Modalidad,D.IdVehiculo
,D.TipMuc,D.Manifiesto,D.IdCiaMuc,D.TipCom,D.Comprobante,D.IdCiaCom,1,0,D.Fecha,D.Observacion,D.TimeSys,0,L.IdRuta,L.IdLocOrigen,L.IdLocDestino,D.IdPoseedor,D.IdConductor,'','',D.Liquidacion,D.IdCiaDoc
FROM Trn_TraDevLeg AS D INNER JOIN Trn_TraLiqViajes AS L ON D.TipDoc=L.TipDoc AND D.Liquidacion=L.Liquidacion AND D.IdCiaDoc=L.IdCia
WHERE D.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (D.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (D.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
AND (D.TipDev=@pmTipDev OR @pmTipDev IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paInstm_Diario_Odt] @pmtmEst CHAR(2),@pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdUsuario 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
,VrImpConsumo,IdRuta,IdLocOrigen,IdLocDestino,IdPoseedor,IdConductor,IdRemitente,IdDestinatario,NumPedido,IdCiaPed)
SELECT @pmtmEst,O.TipDoc,O.NumOrden,O.IdCia,O.Fecha,O.TipDoc,O.IdConductor,'0',O.VrServicios,0,0,0,0,0,0,O.VrOtros,O.VrManoObra,0,0,0,O.VrRepuestos,O.VrServicios
,0,0,0,0,O.kmRemolque,'0',O.kmVehiculo,0,'',O.nRemolque,'',O.IdCenSer,'',O.FechaOrden,O.IdOperario,0,O.IdSupervisor,O.IdUsuario,'0',O.nRemolque,O.IdCenSer,'',O.Modalidad,O.IdVehiculo
,O.TipFact,O.NumFactura,O.IdCiaFact,'0',0,'00',O.Anulado,O.NumDev,O.FecDev,O.Observacion,O.TimeSys,0,'','','',O.IdConductor,O.IdConductor,'','',0,''
FROM Trn_MttoOrden AS O
WHERE O.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (O.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND (O.IdUsuario=@pmIdUsuario OR @pmIdUsuario IS NULL)
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paQrytm_Diario] @pmtmEst CHAR(2)
 AS 
 SELECT TipDoc,TipoDoc,Numero,D.IdCia AS CdCia,Compania,Fecha,D.IdConcepto AS CdConcepto,Concepto,D.IdTercero AS NitTercero,T.RazonSocial AS NomTercero,D.IdAgencia AS Id_Agencia,Agencia
,VrSubTotal,VrDescuento,VrImpuesto,VrSobretasa,VrRetencion,VrReteIca,VrReteIva,VrOtros,VCargos,VrOtrosDctos,VrImpGlobal,VrSoldicom,VrCostos,VrImpConsumo,VrNeto
,VrEfectivo,VrPagosOtr,VrCreditos,VrValesGastos,CantPuntos,CdProducto,DescripProd,Cantidad,EnEfectivo
,CdForma,FormaPago,NumForma,CdBanco,Banco,DetallePagos,CdCta,NumeroCta,FecCheque,D.IdVend AS CdVend,V.RazonSocial AS Vendedor
,TarifaCom,nClieCon,Nombre,IdCajero,Usuario,D.IdLocal AS CdLocal,Localidad,L.IdDep AS CdDpto,Departamento,D.Referencia AS DetReferencia,Referencia2,Beneficiario
,Modalidad,pVehiculo,TipRef,DocRef,IdCiaRef,TipCom,Comprobante,IdCiaCom,Anulado,NumDev,FecDev,D.Observacion AS Observ,TimeSys,tmId,tmEst
--datos del cliente
,T.TipoId AS TercTipo,T.Dv AS TercDv,T.Codigo AS TercCodigo,T.NomCial AS TercNomCial,T.SiglaRaz AS TercSigal,T.Direccion AS TercDireccion
,T.Telefono AS TercTelefono,T.Fax AS TercFax,T.e_mail AS TercEmail,T.SitioWeb AS TercSitioWeb,T.IdSector AS CdSector,SectorEco,T.IdRegimen AS CdRegimen,Regimen
,A.Referencia AS AgeReferencia
--datos del producto
,P.Referencia AS Prod_Referencia,TipoRef,P.IdSubgrupo AS CdSubgrupo,Subgrupo,S.IdGrupo AS CdGrupo,Grupo,G.IdLinea AS CdLinea,Linea,P.IdMarca AS CdMarca,Marca
 FROM tm_Diario AS D INNER JOIN Companias AS CI ON D.IdCia=CI.IdCia INNER JOIN Terceros AS T ON  D.IdTercero=T.IdTercero 
 LEFT JOIN Terceros AS V ON  D.IdVend=V.IdTercero INNER JOIN  Conceptos AS CN ON D.IdConcepto=CN.IdConcepto 
 INNER JOIN adm_Usuarios AS UC ON D.IdCajero=UC.IdUsuario 
 INNER JOIN Localidades AS L ON D.IdLocal=L.IdLocal INNER JOIN Departamentos AS DP ON L.IdDep=DP.IdDep
 INNER JOIN  RegimenDian AS RG ON T.IdRegimen=RG.IdRegimen INNER JOIN SectoresEco AS SE ON T.IdSector=SE.IdSector
 LEFT JOIN ClieContado AS CC ON D.nClieCon=CC.IdCliente  LEFT JOIN Sys_TiposDoc AS TD ON D.TipDoc=TD.IdDoc
 LEFT JOIN CtasCorrientes AS CTA ON D.CdCta=CTA.IdCta LEFT JOIN Bancos AS B ON D.CdBanco=B.IdBanco
 LEFT JOIN  Agencias  AS A ON D.IdAgencia=A.IdAgencia LEFT JOIN Formaspago AS FP ON D.CdForma=FP.IdForma
 LEFT JOIN ProdMcias AS P ON D.CdProducto=P.IdProducto 
 LEFT JOIN SubGrupos AS S ON P.IdSubgrupo=S.IdSubgrupo LEFT JOIN Grupos AS G ON S.IdGrupo=G.IdGrupo 
 LEFT JOIN Lineas AS LN ON G.IdLinea=LN.IdLinea LEFT JOIN Marcas AS M ON P.IdMarca=M.IdMarca
 WHERE  tmEst=@pmtmEst
 ORDER BY TipDoc,tmId
GO