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

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

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

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInsLogBusesRec @pmTipoProc VARCHAR(3),@pmNumero INT,@pmNomArchivo VARCHAR(50),@pmFechaRec SMALLDATETIME,@pmFechaCrea SMALLDATETIME,@pmCantReg INT
,@pmCantRegErr INT,@pmEstadoProc INT,@pmObservacion VARCHAR(250),@pmTimeSys SMALLDATETIME,@pmIdUsuario VARCHAR(11),@pmNombre VARCHAR(50)
 AS 
 INSERT INTO LogBusesRec (TipoProc,Numero,NomArchivo,FechaRec,FechaCrea,CantReg,CantRegErr,EstadoProc,Observacion,TimeSys,IdUsuario,Nombre)
 VALUES (@pmTipoProc,@pmNumero,@pmNomArchivo,@pmFechaRec,@pmFechaCrea,@pmCantReg,@pmCantRegErr,@pmEstadoProc,@pmObservacion,@pmTimeSys,@pmIdUsuario,@pmNombre)

GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paInsLogBusesRecDet @pmTipoProc VARCHAR(3),@pmNumero INT,@pmItem INT,@pmIdVehiculo VARCHAR(10),@pmNumVeh VARCHAR(10),@pmIdPropietario VARCHAR(16),@pmNomProp VARCHAR(150)
,@pmIdCond VARCHAR(16),@pmNomCond VARCHAR(150),@pmVehEsPropio BIT,@pmVrSaldoAnt MONEY,@pmValorRec MONEY,@pmVrDescuento MONEY,@pmEstado INT,@pmNumRecibo INT,@pmIdCiaRec CHAR(2)
,@pmFechaRec SMALLDATETIME,@pmNumCuenta VARCHAR(50),@pmReferencia VARCHAR(50),@pmCodSucursal VARCHAR(10),@pmDescRegistro VARCHAR(250),@pmComentario VARCHAR(250)
 AS 
 INSERT INTO LogBusesRecDet (TipoProc,Numero,Item,IdVehiculo,NumVeh,IdPropietario,NomProp,IdCond,NomCond,VehEsPropio,VrSaldoAnt,ValorRec,VrDescuento,Estado,NumRecibo,IdCiaRec,FechaRec,NumCuenta,Referencia,CodSucursal,DescRegistro,Comentario)
 VALUES (@pmTipoProc,@pmNumero,@pmItem,@pmIdVehiculo,@pmNumVeh,@pmIdPropietario,@pmNomProp,@pmIdCond,@pmNomCond,@pmVehEsPropio,@pmVrSaldoAnt,@pmValorRec,@pmVrDescuento,@pmEstado
,@pmNumRecibo,@pmIdCiaRec,@pmFechaRec,@pmNumCuenta,@pmReferencia,@pmCodSucursal,@pmDescRegistro,@pmComentario)
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO

CREATE PROCEDURE paQryLogBusesRecFmt @pmTipoProc VARCHAR(3),@pmNumeroIni INT,@pmNumeroFin INT
 AS 
 SELECT L.Numero AS NumProceso,NomArchivo,L.FechaRec AS FecRecaudo,FechaCrea,CantReg,CantRegErr,EstadoProc,Observacion,TimeSys,IdUsuario,Nombre
--detalles
,Item,IdVehiculo,NumVeh,IdPropietario,NomProp,IdCond,NomCond,VehEsPropio,VrSaldoAnt,ValorRec,VrDescuento
,Estado,NumRecibo,IdCiaRec,D.FechaRec AS FecPago,NumCuenta,Referencia,CodSucursal,DescRegistro,Comentario
 FROM LogBusesRec AS L LEFT JOIN LogBusesRecDet AS D  ON L.TipoProc=D.TipoProc AND L.Numero=D.Numero
 WHERE L.TipoProc=@pmTipoProc AND L.Numero BETWEEN  ISNULL(@pmNumeroIni,0) AND ISNULL(@pmNumeroFin,2147483647)
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

