Tengo el siguiente codigo que me consulta distintos procesos en mi BD, pero al unirlos todos para ejecutarlos y traerlos en un reporte en Crystal Reports se demora unos 5-10 min en su tiempo de ejecucion, como puedo mejorar este tiempo?
--Ventas
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) AS Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry, T0.DocNum,T0.DocDate,
T1.WhsCode'Filler','VENTA'AS WhsCode,T1.ItemCode,T2.ItemName,T1.Quantity,T1.Quantity AS Cantidad,
((T1.Price-(T1.Price*T0.DiscPrcnt)/100)+(((T1.Price-(T1.Price*T0.DiscPrcnt)/100)*T1.VatPrcnt)/100))AS 'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OINV T0 INNER JOIN INV1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T1.WhsCode='PB-PT' AND T2.ItemCode NOT IN ('IMP-00001','IMP-00002','SER-00001','SER-00002','SER-00003','SER-00004','SER-00005','SER-00006','CAN-14000','CAN-14025','CAN-14026','CAN-14072')
UNION ALL
--Notas Crédito-Articulo
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) AS Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry, T0.DocNum,T0.DocDate,
T1.WhsCode'Filler','VENTA'AS WhsCode,T1.ItemCode,T2.ItemName,CASE WHEN T1.NoInvtryMv='Y' THEN 0 ELSE T1.Quantity*-1 END AS'Quantity',T1.Quantity AS Cantidad,
((T1.Price-(T1.Price*T0.DiscPrcnt)/100)+(((T1.Price-(T1.Price*T0.DiscPrcnt)/100)*T1.VatPrcnt)/100))AS 'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM ORIN T0 INNER JOIN RIN1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T1.WhsCode='PB-PT' AND T2.ItemCode NOT IN ('IMP-00001','IMP-00002','SER-00001','SER-00002','SER-00003','SER-00004','SER-00005','SER-00006','CAN-14000','CAN-14025','CAN-14026','CAN-14072')
UNION ALL
--Notas Crédito-Servicio
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) AS Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry, T0.DocNum,T0.DocDate,
'PB-PT'AS'Filler','VENTA'AS WhsCode,T1.[U_ItemCodeSer],T1.Dscription'ItemName',1*-1'Quantity',T1.Quantity AS Cantidad,
((T1.Price-(T1.Price*T0.DiscPrcnt)/100)+(((T1.Price-(T1.Price*T0.DiscPrcnt)/100)*T1.VatPrcnt)/100))AS 'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM ORIN T0 INNER JOIN RIN1 T1 ON T0.DocEntry=T1.DocEntry
-- INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T0.Doctype='S' AND T1.OcrCode2 IN ('2501032','2501')
UNION ALL
--Traslados PV
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) as Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry,
T0.DocNum,T0.DocDate,T0.Filler,T1.WhsCode,T1.ItemCode,T2.ItemName,T1.Quantity,T1.Quantity AS Cantidad,T1.Price'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OWTR T0 INNER JOIN WTR1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T0.Filler='PB-PT' AND T1.WhsCode like 'PV-%'
UNION ALL
--Traslados PDC
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) as Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry, T0.DocNum,T0.DocDate,T1.WhsCode'Filler',CASE WHEN T1.WhsCode='PB-PT' THEN 'PDC-MPC' ELSE 'PB-PT' END AS WhsCode,
T1.ItemCode,T2.ItemName,T1.Quantity,T1.Quantity AS Cantidad,T1.Price'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OIGE T0 INNER JOIN IGE1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE (T1.WhsCode='PB-PT' AND T0.U_Concepto_INVE='S006') OR
(T1.WhsCode='PB-PT' AND T0.U_Concepto_INVE='S005')
UNION ALL
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) as Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry,
T0.DocNum,T0.DocDate,T0.Filler,T1.WhsCode,T1.ItemCode,T2.ItemName,T1.Quantity,T1.Quantity AS Cantidad,T1.Price'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OWTR T0 INNER JOIN WTR1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T0.Filler='PB-PT' AND T1.WhsCode like 'PDC-%'
UNION ALL
--Devouliciones PV
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) as Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry, T0.DocNum,T0.DocDate,T1.WhsCode'Filler',T0.Filler'WhsCode',T1.ItemCode,T2.ItemName,T1.Quantity*-1 as 'Quantity',T1.Quantity AS Cantidad,T1.Price'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OWTR T0 INNER JOIN WTR1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T1.WhsCode='PB-PT' AND T1.WhsCode like 'PV-%'
UNION ALL
--Entrada PDC
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) as Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry,T0.DocNum,T0.DocDate,T1.WhsCode'Filler',CASE WHEN T1.WhsCode='PB-PT' THEN 'PDC-MPC' ELSE 'PB-PT' END AS WhsCode,
T1.ItemCode,T2.ItemName,T1.Quantity*-1,T1.Quantity AS Cantidad,T1.Price'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OIGN T0 INNER JOIN IGN1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE (T1.WhsCode='PB-PT' AND T0.U_Concepto_INVE='E006') OR
(T1.WhsCode='PB-PT' AND T0.U_Concepto_INVE='E005')
UNION ALL
SELECT MONTH(T0.DocDate) AS Mes,YEAR(T0.DocDate) as Ano,T0.Objtype,CAST(T0.DocEntry AS CHAR )AS DocEntry, T0.DocNum,T0.DocDate,T1.WhsCode'Filler',T0.Filler'WhsCode',T1.ItemCode,T2.ItemName,T1.Quantity*-1 as 'Quantity',T1.Quantity AS Cantidad,T1.Price'Precio Admistrativo',T1.StockPrice'Costo Real'
FROM OWTR T0 INNER JOIN WTR1 T1 ON T0.DocEntry=T1.DocEntry
INNER JOIN OITM T2 ON T2.ItemCode=T1.ItemCode
WHERE T1.WhsCode='PB-PT' AND T1.WhsCode like 'PDC-%'
este informe es generado por hora, por lo cual quisiera que generara un poco mas rapido para asi evitar frenar otros procesos de produccion, aparte el informe es generado por varias personas a la vez por lo cual tambien afecta a la BD, ya que son varias consultas constantes que no tienen la mejor optimizacion