SELECT
T1.[DocEntry] as 'SAP NO',
T2.[SeriesName] as ' Series' ,
T0.[DocNum] AS 'PR NO',T0.[DocDate] as ' PR Date',
T0.[CreateDate] AS 'APP Date' ,
T0.[DocTime] as'APP TIME' , datediff(dd,T0.[DocDate] , GetDate()) as 'Pending days from PR Dt' ,datediff(dd,T0.[CreateDate] , GetDate()) as 'Pending days from App Dt' ,
T0.[ReqDate] as 'Req Date',
T0.[U_PCode] as 'Project',
T0.[U_Project],
T1.[ItemCode],
T1.[Dscription],
T1.[U_ItGroup] ,
T4.[U_BuyerList],
T1.[Quantity],
T1.[Price] ,
T1.[unitMsr],
(select DocNum from OPOR where DocEntry=(Select Max( a.DocEntry) from OPOR a inner join POR1 b on a.DocEntry=b.DocEntry inner join OITM as c on b.ItemCode = c.ItemCode Where b.ItemCode = T1.[ItemCode] and a.DocDate = (Select MAX(a.DocDate) from OPOR a inner join POR1 b on a.DocEntry=b.DocEntry inner join OITM as c on b.ItemCode = c.ItemCode Where b.ItemCode = T1.[ItemCode] ))) as 'Last PO No' ,
(select DocDate from OPOR where DocEntry=(Select Max( a.DocEntry) from OPOR a inner join POR1 b on a.DocEntry=b.DocEntry inner join OITM as c on b.ItemCode = c.ItemCode Where b.ItemCode = T1.[ItemCode] and a.DocDate = (Select MAX(a.DocDate) from OPOR a inner join POR1 b on a.DocEntry=b.DocEntry inner join OITM as c on b.ItemCode = c.ItemCode Where b.ItemCode = T1.[ItemCode] ))) as 'Last Purchase Date' ,
(select Price from por1 where DocEntry=(select max(a.DocEntry) from opor as a inner join por1 as b on a.DocEntry=b.DocEntry where b.ItemCode=T1.ItemCode and a.DocDate=(select max(a.DocDate) from opor as a inner join por1 as b on a.DocEntry=b.DocEntry where b.ItemCode=T1.ItemCode)) and ItemCode=T1.ItemCode) as 'Last PO Price' ,
(select CardName from OPOR where DocEntry=(Select Max( a.DocEntry) from OPOR a inner join POR1 b on a.DocEntry=b.DocEntry inner join OITM as c on b.ItemCode = c.ItemCode Where b.ItemCode = T1.[ItemCode] and a.DocDate = (Select MAX(a.DocDate) from OPOR a inner join POR1 b on a.DocEntry=b.DocEntry inner join OITM as c on b.ItemCode = c.ItemCode Where b.ItemCode = T1.[ItemCode] ))) as 'Last Vendor Name'
FROM OPQT T0
INNER JOIN PQT1 T1 ON T0.DocEntry = T1.DocEntry
INNER JOIN NNM1 T2 ON T0.Series = T2.Series
inner join oitm as d on d.ItemCode=T1.[ItemCode]
INNER JOIN OITB T4 ON d.ItmsGrpCod = T4.ItmsGrpCod
WHERE T1.[LineStatus] ='O' and DateDiff(dd,T0.[CreateDate] ,getdate()) >= 7 ORDER BY T0.[CreateDate]