INSERT INTO adm_Opciones (IdOpc,Opcion,TipoDato,Valor,NivUp,nModulo)
 VALUES ('IDL','CONTROL DE TIEMPO DE INACTIVIDAD (valor en minutos,0-no aplica)','DECIMAL','0',5,'GENERAL')
GO
UPDATE Sys_Report SET Ind_Location='LL' WHERE TipoRep='DSO' AND IdRep='01'
GO
INSERT INTO Sys_Report (TipoRep,IdRep,Descripcion,Formato,TipoPapel,Orientacion,VistaPrevia,VerSetup,NumCopias,sp_Nombre,Ind_Location,NomRep)
 VALUES ('CCO','01','Predeterminado','CrLcoc.rpt',1,1,1,0,1,'paQryEdsFormasCos','','Costo de Combustible - Clientes')
GO
INSERT INTO Sys_ObjetosApp (IdObj,IdGrupo,SubModulo,IndObj,Nombre,Formulario,Permisos,NivelMinimo,NomArchivo)
 VALUES ('FRMLCOC','MAIINF','INV',22,'Costos de Combustible - Clientes','FRMLCOC','SNNNNSNNNNNNN',0,'')
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryActivosDep]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryActivosDep]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryEdsFormasCos]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
 DROP PROCEDURE [dbo].[paQryEdsFormasCos]
GO

SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paQryActivosDep] @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME
 AS 
 SELECT IdActivo,NomActivo,IdGrupo,IdCCosto,IdSubCos,IdInstala,IdDep,IdRespons,IdCia,IdProv,FecCompra,FecActivacion
,VrBaseDep,VrMejoras,VrDisminucion,VidaUtil,FecFinDep,MetodoDep,Ajustable,Contable,CueEnGrupo
,FecUltDep,IdEstado,FecRetiro,TipoContable,VrSalvamento,DepPartes,UndsProd,VUExtend
 FROM Activos
 WHERE FecActivacion<=@pmFechaFin 
 AND (IdEstado<>'9999'  OR (IdEstado='9999' AND FecRetiro>@pmFechaFin))
 ORDER BY IdActivo
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
CREATE PROCEDURE [dbo].[paQryEdsFormasCos] @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
 AS 
SELECT F.Planilla,F.IdCia,Compania,F.Fecha,F.IdCliente,T.RazonSocial AS NomCliente,F.IdAgencia,A.Agencia AS NomAgencia,F.CdProducto,DescripProd,F.Cantidad,F.VrTotal
,K.VrUnitario AS CostoUnid,K.VrUnitario*F.Cantidad AS CostoTotal,F.NumSerie,F.NumForma,F.Referencia,F.NumRef2,F.IdVend,V.RazonSocial AS Vendedor,F.pVehiculo,F.nVehiculo
FROM Trn_EdsFormas AS F LEFT JOIN (SELECT TipDoc,Documento,IdCia,Item,IdProducto,CdTanque,Entradas,Salidas,VrUnitario,VrPrecio,VrCostoEnt,VrCostoSal
FROM Trn_Kardex WHERE TipDoc='PLA' AND Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (IdCia=@pmIdCia OR @pmIdCia IS NULL)
) AS K ON F.Planilla=K.Documento AND F.IdCia=K.IdCia AND F.CdProducto=K.IdProducto
INNER JOIN Companias AS C ON F.IdCia=C.IdCia
INNER JOIN Terceros AS T ON F.IdCliente=T.IdTercero INNER JOIN Terceros AS V ON F.IdVend=V.IdTercero
INNER JOIN ProdMcias AS P ON F.CdProducto=P.IdProducto 
LEFT JOIN Agencias AS A ON F.IdAgencia=A.IdAgencia
WHERE F.TipoRango='VAL' AND F.Fecha BETWEEN @pmFechaIni AND @pmFechaFin 
AND (F.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND F.Anulado=0
UNION ALL
SELECT P.Documento,P.IdCia,Compania,P.Fecha,P.NitCliente,T.RazonSocial,P.CdAgencia,A.Agencia,P.CdProducto,DescripProd,P.Cant_Gals,P.VrPagado
,K.VrUnitario AS CostoUnid,K.VrUnitario*P.Cant_Gals AS CostoTotal,P.IdForma,P.NumForma,P.Referncia1,P.Referncia2,'','',P.Referncia2,''
FROM Trn_Pagos AS P LEFT JOIN (SELECT TipDoc,Documento,IdCia,Item,IdProducto,CdTanque,Entradas,Salidas,VrUnitario,VrPrecio,VrCostoEnt,VrCostoSal
FROM Trn_Kardex WHERE TipDoc='PLA' AND Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND (IdCia=@pmIdCia OR @pmIdCia IS NULL)
) AS K ON P.TipDoc=K.TipDoc AND P.Documento=K.Documento AND P.IdCia=K.IdCia AND P.CdProducto=K.IdProducto
INNER JOIN Companias AS C ON P.IdCia=C.IdCia INNER JOIN Terceros AS T ON P.NitCliente=T.IdTercero 
INNER JOIN ProdMcias AS PM ON P.CdProducto=PM.IdProducto 
LEFT JOIN Agencias AS A ON P.CdAgencia=A.IdAgencia
WHERE P.TipDoc='PLA' AND P.Fecha BETWEEN @pmFechaIni AND @pmFechaFin 
AND (P.IdCia=@pmIdCia OR @pmIdCia IS NULL) AND P.FE_Ticket=1