Query fails in SAP

Question

hello
i have a query that runs file in SQL but when i copy it to SAp, it runs once, then gets an internal error[131-183] when I want to execute it again. can anyone please advice
thanks
janice
WITH Invoices AS  --Get invoices per item
(SELECT I1.[ItemCode],
        I1.[Dscription],
        SUM(I1.[Quantity]) AS Qty ,DATEDIFF(month, '2006-06-01',getdate()) AS ItemMonths
   FROM OINV I0  INNER JOIN INV1 I1 ON I0.DocEntry = I1.DocEntry
  WHERE I0.[DocDate] >= '2006-06-01'
    AND I0.DocType <> 'S'
  GROUP BY I1.[ItemCode], I1.[Dscription]
Credit AS               -- Get credit notes per item
(      SELECT C1.[ItemCode],
                C1.[Dscription],
                SUM(C1.[Quantity]) AS Qty
          FROM ORIN C0  INNER JOIN RIN1 C1 ON C0.DocEntry = C1.DocEntry
       WHERE C0.[DocDate] >= '2006-06-01'
             AND C0.DocType <> 'S'
      GROUP BY C1.[ItemCode], C1.[Dscription]
ItemInfo As
(SELECT T0.ItemCode[SearchCode], T0.FRGNName[Description], cast (cast ((T1.OnHand- T1.IsCommited) as decimal (5,0)) as nvarchar (10))[Available], cast (cast (T1.OnOrder as decimal (5,0)) as nvarchar (10))[Expected],
(case when (T0.U_IMP is null or T0.U_IMP = '')  then '0' else T0.U_IMP end )as 'InputTube',
(T0.U_Wieghtm * T0.BLength1)[KgLength], T0.ValidComm[-], T2.Price[PriceL],  T0.SWW[Spec], T0.U_WIEGHTM[KgMetre], 
(T2.Price/(CASE WHEN T0.BLength1 = 0 THEN 0.0001 ELSE T0.BLength1 END))[PriceM]
FROM OITM T0  INNER JOIN OITW T1 ON T0.ItemCode = T1.ItemCode
INNER JOIN ITM1 T2 ON T0.ItemCode = T2.ItemCode,
OCRD T3
WHERE T3.CardName = '@urservice'
and LEFT(T0.ITEMCODE,1)<>'L'
and t0.itmsgrpcod <> '105'
and t0.itmsgrpcod <> '101'
and t0.itmsgrpcod <> '112'
and t0.itmsgrpcod <> '113'
and t0.itmsgrpcod <> '111'
and t0.itmsgrpcod<>'114'
and T2.[PriceList] = T3.[ListNum]
and T3.CardType = 'C'
SELECT
ITEMINFO.SearchCode,
ITEMINFO.Description,
ITEMINFO.Available,
((Inv.[Qty] - Crn.[Qty]) / Inv.ItemMonths) AS [Avg per Month],
(case when ITEMINFO.Expected is null then '0' else ITEMINFO.Expected end ) as 'Expected',
(case when ITEMINFO.InputTube is null then '0' else ITEMINFO.InputTube end) as 'InputTube',
(case when ITEMINFO.KgLength is null then '0' else ITEMINFO.KgLength end) as 'KgLength',
(case when ITEMINFO.PriceL is null then '0' else ITEMINFO.PriceL end) as 'PriceL' ,
(case when ITEMINFO.Spec is null then '0' else ITEMINFO.Spec end) as 'Spec',
(case when ITEMINFO.KgMetre is null then '0' else ITEMINFO.KgMetre end) as 'KgMetre',
(case when Iteminfo.PriceM is null then '0' else Iteminfo.PriceM end) as 'PriceM'
FROM Invoices Inv left outer JOIN Credit Crn ON Inv.[ItemCode] = Crn.[ItemCode]
                  full outer join ItemInfo  ON Inv.[ItemCode] =ItemInfo.[SearchCode]

Answer 1

WITH Invoices AS  --Get invoices per item
(SELECT I1.[ItemCode],
        I1.[Dscription],
        SUM(I1.[Quantity]) AS Qty ,DATEDIFF(month, '2006-06-01',getdate()) AS ItemMonths
   FROM OINV I0  INNER JOIN INV1 I1 ON I0.DocEntry = I1.DocEntry
  WHERE I0.[DocDate] >= '2006-06-01'
    AND I0.DocType <> 'S'
  GROUP BY I1.[ItemCode], I1.[Dscription]
Credit AS               -- Get credit notes per item
(      SELECT C1.[ItemCode],
                C1.[Dscription],
                SUM(C1.[Quantity]) AS Qty
          FROM ORIN C0  INNER JOIN RIN1 C1 ON C0.DocEntry = C1.DocEntry
       WHERE C0.[DocDate] >= '2006-06-01'
             AND C0.DocType <> 'S'
      GROUP BY C1.[ItemCode], C1.[Dscription]
ItemInfo As
(SELECT T0.ItemCode[SearchCode], T0.FRGNName[Description],
cast (cast ((T1.OnHand- T1.IsCommited) as decimal (5,0)) as nvarchar (10))[Available],
cast (cast (T1.OnOrder as decimal (5,0)) as nvarchar (10))[Expected],
(case when (T0.U_IMP is null or T0.U_IMP = '')  then '0' else T0.U_IMP end )as 'InputTube',
(T0.U_Wieghtm * T0.BLength1)[KgLength], T0.ValidComm[-], T2.Price[PriceL],  T0.SWW[Spec], T0.U_WIEGHTM[KgMetre], 
(T2.Price/(CASE WHEN T0.BLength1 = 0 THEN 0.0001 ELSE T0.BLength1 END))[PriceM]
FROM OITM T0  INNER JOIN OITW T1 ON T0.ItemCode = T1.ItemCode
INNER JOIN ITM1 T2 ON T0.ItemCode = T2.ItemCode,
OCRD T3
WHERE T3.CardName = '@urservice'
and LEFT(T0.ITEMCODE,1)<>'L'
and t0.itmsgrpcod <> '105'  and t0.itmsgrpcod <> '101' and t0.itmsgrpcod <> '112' and t0.itmsgrpcod <> '113' 
and t0.itmsgrpcod <> '111'  and t0.itmsgrpcod<>'114'
and T2.[PriceList] = T3.[ListNum]
and T3.CardType = 'C'
Edited by: Janice Middleton on Jul 20, 2009 1:18 PM