Aging Query with Project

Question

Hi all
Is it possible to change the current BP Project to show INV1.Project instead?
USE [SBODemoSG]
GO
/****** Object:  StoredProcedure [dbo].[ARAgingByCustomerNameLC]    Script Date: 08/06/2014 14:03:49 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[ARAgingByCustomerNameLC]
  @DATETO DATETIME,
  @CARDCODEFM NVARCHAR(15),
  @CARDCODETO NVARCHAR(15),
  @CARDNAMEFM NVARCHAR(15),
  @CARDNAMETO NVARCHAR(15),
  @SLPNAMEFM NVARCHAR(15),
  @SLPNAMETO NVARCHAR(15)
AS
DECLARE @ISCREDIT NVARCHAR(2),
  @ISDEDIT NVARCHAR(2)
SET @ISCREDIT = 'C'
SET @ISDEDIT = 'D'
EXEC [AF_ARAging] '20091231','0','ZZZZZZ'
--************ CUSTOMER AGING REPORT FROM SAP BY USING MS SQL Profiler ***********--
SELECT CUST.CARDCODE, CUST.CARDNAME, OSLP.SLPCODE, OSLP.SLPNAME, CUST.ADDID, CUST.CreditLine, CUST.Balance, CUST.[GroupNum], CUST.PYMNTGROUP, '1' AS SECTION,
  Convert(varchar(12),@DATETO,101) AS AGINGDATE, CASE ISNULL(AR.FCCurrency,'') WHEN '' THEN 'SGD' ELSE AR.FCCurrency END AS DOCCUR,
  CASE TRANSTYPE WHEN '13' THEN 'Inv'
      WHEN '14' THEN 'CN'
      WHEN '18' THEN 'AP Inv'
      WHEN '19' THEN 'AP CN'
      WHEN '30' THEN 'JE'
      WHEN '46' THEN 'Pym'
      WHEN '24' THEN 'Rcp'
      ELSE TRANSTYPE END AS DOCTYPE,
  CASE WHEN ISNULL(REF2,'') <> '' THEN REF2 ELSE BASEREF END AS DOCNUM, T0.Project,
  REF2, Convert(varchar(12),REFDATE,101) AS REFDATE, Convert(varchar(12),DUEDATE,101) AS DUEDATE,
  /* USE MONTH END RATE FOR AMOUNT IN SGD */ 
  CASE ISNULL(RATE.RATE,0) WHEN 0 THEN AR.TOTAL * -1 ELSE RATE.RATE * AR.TOTALFC * -1  END AS DOCAMOUNT,
  0 AS INVOICENO, 0 AS AMTAPPLIED,
  CASE ISNULL(AR.FCCurrency,'') WHEN '' THEN 0 ELSE TOTALFC * -1 END AS DOCAMOUNTFC,
  (SELECT MAX(COMPNYNAME) FROM OADM) AS COMPANYNAME,
  RATE.RATE
  --AR.* , CUST.*, DOC.NUMATCARD, ACT.* 3
FROM
SELECT T1.[TransId], T0.[Ref2],T1.[TransRowId], MAX(T0.[ShortName]) AS [ShortName], MAX(T0.[TransType]) AS [TransType], MAX(T0.[CreatedBy]) AS [CreatedBy], MAX(T0.[BaseRef]) AS [BaseRef],
  MAX(T0.[SourceLine]) AS [SourceLine], MAX(T0.[RefDate]) AS [RefDate], MAX(T0.[DueDate]) AS [DueDate],   MAX(T0.[TaxDate]) AS [TaxDate], MAX(T0.[BalDueCred]) + SUM(T1.[ReconSum]) AS TOTAL,
  MAX(T0.[BalFcCred]) + SUM(T1.[ReconSumFC]) AS TOTALFC, MAX(T0.[BalScCred]) + SUM(T1.[ReconSumSC]) AS TOTALSC, MAX(T0.[LineMemo]) AS [LineMemo], MAX(T3.[FolioPref]) AS [FolioPref],
  MAX(T3.[FolioNum]) AS [FolioNum], MAX(T0.[Indicator]) AS [Indicator], MAX(T0.[Account]) AS [Account],
  MAX(T0.FCCurrency) as [FCCurrency]
FROM  [dbo].[JDT1] T0  INNER  JOIN [dbo].[ITR1] T1  ON  T1.[TransId] = T0.[TransId]  AND  T1.[TransRowId] = T0.[Line_ID]  
  INNER  JOIN [dbo].[OITR] T2  ON  T2.[ReconNum] = T1.[ReconNum]  
  INNER  JOIN [dbo].[OJDT] T3  ON  T3.[TransId] = T0.[TransId]  
  INNER  JOIN [dbo].[OCRD] T4  ON  T0.[ShortName] = T4.CARDCODE  
WHERE T4.CARDTYPE = 'C' AND T0.[RefDate] <= @DATETO  AND  T2.[ReconDate] > @DATETO  AND  T1.[IsCredit] = @ISCREDIT  AND  T0.[ShortName] BETWEEN @CARDCODEFM AND @CARDCODETO
GROUP BY T1.[TransId],T0.[Ref2],T1.[TransRowId]
HAVING MAX(T0.[BalFcCred]) <>- SUM(T1.ReconSumFC)  OR  MAX(T0.[BalDueCred]) <>- SUM(T1.ReconSum)  
UNION
SELECT T1.[TransId],T0.[Ref2],T1.[TransRowId],
  MAX(T0.[ShortName]), MAX(T0.[TransType]), MAX(T0.[CreatedBy]), MAX(T0.[BaseRef]), MAX(T0.[SourceLine]), MAX(T0.[RefDate]), MAX(T0.[DueDate]), MAX(T0.[TaxDate]),  - MAX(T0.[BalDueDeb]) - SUM(T1.[ReconSum]), 
  - MAX(T0.[BalFcDeb]) - SUM(T1.[ReconSumFC]),  - MAX(T0.[BalScDeb]) - SUM(T1.[ReconSumSC]), MAX(T0.[LineMemo]), MAX(T3.[FolioPref]), MAX(T3.[FolioNum]), MAX(T0.[Indicator]), MAX(T0.[Account]) ,
  MAX(T0.FCCurrency) as [FCCurrency]
FROM  [dbo].[JDT1] T0  INNER  JOIN [dbo].[ITR1] T1  ON  T1.[TransId] = T0.[TransId]  AND  T1.[TransRowId] = T0.[Line_ID]  
  INNER  JOIN [dbo].[OITR] T2  ON  T2.[ReconNum] = T1.[ReconNum]  
  INNER  JOIN [dbo].[OJDT] T3  ON  T3.[TransId] = T0.[TransId]  
  INNER  JOIN [dbo].[OCRD] T4  ON  T0.[ShortName] = T4.CARDCODE
WHERE T4.CARDTYPE = 'C' AND T0.[RefDate] <= @DATETO  AND  T2.[ReconDate] > @DATETO  AND  T1.[IsCredit] = @ISDEDIT  AND  T0.[ShortName] BETWEEN @CARDCODEFM AND @CARDCODETO   
GROUP BY T1.[TransId],T0.[Ref2],T3.[Ref2],T1.[TransRowId] HAVING MAX(T0.[BalFcDeb]) <>- SUM(T1.ReconSumFC)  OR  MAX(T0.[BalDueDeb]) <>- SUM(T1.ReconSum)  
UNION
SELECT T0.[TransId],T0.[Ref2],T0.[Line_ID], MAX(T0.[ShortName]), MAX(T0.[TransType]), MAX(T0.[CreatedBy]),
  MAX(T0.[BaseRef]), MAX(T0.[SourceLine]), MAX(T0.[RefDate]), MAX(T0.[DueDate]), MAX(T0.[TaxDate]), MAX(T0.[BalDueCred]) - MAX(T0.[BalDueDeb]), MAX(T0.[BalFcCred]) - MAX(T0.[BalFcDeb]), MAX(T0.[BalScCred]) -
  MAX(T0.[BalScDeb]), MAX(T0.[LineMemo]), MAX(T1.[FolioPref]), MAX(T1.[FolioNum]), MAX(T0.[Indicator]), MAX(T0.[Account]) ,
  MAX(T0.FCCurrency) as [FCCurrency]
FROM  [dbo].[JDT1] T0  INNER  JOIN [dbo].[OJDT] T1  ON  T1.[TransId] = T0.[TransId]  
  INNER  JOIN [dbo].[OCRD] T4  ON  T0.[ShortName] = T4.CARDCODE
WHERE T4.CARDTYPE = 'C' AND T0.[RefDate] <= @DATETO 
  AND   NOT EXISTS
  (SELECT U0.[TransId], U0.[TransRowId] FROM  [dbo].[ITR1] U0  INNER  JOIN [dbo].[OITR] U1  ON  U0.[ReconNum] = U1.[ReconNum]   WHERE T0.[TransId] = U0.[TransId] 
  AND  T0.[Line_ID] = U0.[TransRowId]  AND  U1.[ReconDate] > @DATETO   GROUP BY U0.[TransId], U0.[TransRowId]) AND T0.[ShortName] BETWEEN @CARDCODEFM AND @CARDCODETO
GROUP BY T0.[TransId],T0.[Ref2], T0.[Line_ID]
HAVING MAX(T0.[BalFcCred]) <> MAX(T0.BalFcDeb)  OR  MAX(T0.[BalDueCred]) <> MAX(T0.BalDueDeb)  
) AS AR
INNER JOIN
SELECT T0.CARDCODE, MAX(T0.CARDNAME) AS CARDNAME, MAX(T0.CURRENCY) AS CURRENCY, MAX(T3.PYMNTGROUP) AS PYMNTGROUP, MAX(T1.STREET) AS STREET,
   MAX(T1.BLOCK) AS BLOCK, MAX(T1.CITY) AS CITY, MAX(T1.ZIPCODE) AS ZIPCODE, MAX(T1.COUNTY) AS COUNTY, MAX(T2.CNTCTCODE) AS CNTCTCODE,
   MAX(T2.NAME) AS 'ContactPerson', MAX(T2.TEL1) AS TEL1, MAX(T2.FAX) AS FAX, MAX(T4.GroupName) AS BPGROUP, MAX(T0.SLPCODE) AS SLPCODE,
   MAX(T0.ADDID) AS ADDID, MAX(T0.CreditLine) AS CreditLine,  MAX(T0.[Balance]) AS [Balance], MAX(T0.[GroupNum]) AS [GroupNum]
FROM OCRD T0
  LEFT OUTER JOIN CRD1 T1
   ON T0.CARDCODE = T1.CARDCODE AND T0.BILLTODEF = T1.ADDRESS
  LEFT OUTER JOIN OCPR T2
   ON T0.CARDCODE = T2.CARDCODE AND T0.CNTCTPRSN = T2.NAME
  LEFT OUTER JOIN OCTG T3
   ON T0.GROUPNUM = T3.GROUPNUM
  LEFT OUTER JOIN OCRG T4
   ON T0.GroupCode = T4.GroupCode
WHERE T0.CARDTYPE = 'C' AND T0.CARDCODE BETWEEN @CARDCODEFM AND @CARDCODETO
GROUP BY T0.CARDCODE
) CUST
ON AR.[ShortName] = CUST.CARDCODE AND CUST.CARDNAME BETWEEN @CARDNAMEFM AND @CARDNAMETO
LEFT OUTER JOIN
( SELECT DOCNUM, OBJTYPE, NUMATCARD, T0.Project FROM OINV WHERE CARDCODE BETWEEN @CARDCODEFM AND @CARDCODETO
UNION
SELECT DOCNUM, OBJTYPE, NUMATCARD, T0.Project FROM ORIN WHERE CARDCODE BETWEEN @CARDCODEFM AND @CARDCODETO
) AS DOC
ON AR.BASEREF = DOC.DOCNUM AND AR.TRANSTYPE = DOC.OBJTYPE
LEFT OUTER JOIN
Select T0.ClgCode as 'ActNo', T0.CardCode, T0.EndDate as 'ActDate',
    T0.EndTime as 'ActTime', T0.Details as 'Remarks'
From OCLG T0
INNER JOIN
  (SELECT CardCode, MAX(EndDate) AS EndDate FROM OCLG WHERE ENDDATE < = @DATETO
  GROUP BY CardCode HAVING MAX(EndDate) = MAX(EndDate)) T1
ON T0.CARDCODE = T1.CARDCODE AND T0.ENDDATE = T1.ENDDATE
) AS ACT
ON CUST.CARDCODE = ACT.CARDCODE
INNER JOIN
(SELECT * FROM OSLP) OSLP
ON CUST.SLPCODE = OSLP.SLPCODE
LEFT OUTER JOIN
(SELECT T0.F_REFDATE, T0.T_REFDATE, T1.CURRENCY, T1.RATE FROM OFPR T0 INNER JOIN ORTT T1 ON T0.T_REFDATE = T1.RATEDATE) RATE
ON AR.FCCurrency = RATE.CURRENCY AND AR.REFDATE BETWEEN RATE.F_REFDATE AND RATE.T_REFDATE
WHERE OSLP.SLPNAME BETWEEN @SLPNAMEFM AND @SLPNAMETO
ORDER BY CUST.CARDNAME, CUST.CARDCODE, convert(varchar(10),AR.REFDATE,112)

Answer 1

Highlighted below, is it working or not...
declare  @DATETO DATETIME,
  @CARDCODEFM NVARCHAR(15),
  @CARDCODETO NVARCHAR(15),
  @CARDNAMEFM NVARCHAR(15),
  @CARDNAMETO NVARCHAR(15),
  @SLPNAMEFM NVARCHAR(15),
  @SLPNAMETO NVARCHAR(15)
DECLARE @ISCREDIT NVARCHAR(2),
  @ISDEDIT NVARCHAR(2)
SET @ISCREDIT = 'C'
SET @ISDEDIT = 'D'
SELECT CUST.CARDCODE,
       CUST.CARDNAME,
       OSLP.SLPCODE,
       OSLP.SLPNAME,
       CUST.ADDID,
       CUST.CreditLine,
       CUST.Balance,
       CUST.[GroupNum],
       CUST.PYMNTGROUP,
       '1' AS SECTION,
       Convert(varchar(12),@DATETO,101) AS AGINGDATE,
       CASE ISNULL(AR.FCCurrency,'')
           WHEN '' THEN 'SGD'
           ELSE AR.FCCurrency
       END AS DOCCUR,
       CASE TRANSTYPE
           WHEN '13' THEN 'Inv'
           WHEN '14' THEN 'CN'
           WHEN '18' THEN 'AP Inv'
           WHEN '19' THEN 'AP CN'
           WHEN '30' THEN 'JE'
           WHEN '46' THEN 'Pym'
           WHEN '24' THEN 'Rcp'
           ELSE TRANSTYPE
       END AS DOCTYPE,
       CASE
           WHEN ISNULL(REF2,'') <> '' THEN REF2
           ELSE BASEREF
       END AS DOCNUM,
       doc.Project,
       REF2,
       Convert(varchar(12),REFDATE,101) AS REFDATE,
       Convert(varchar(12),DUEDATE,101) AS DUEDATE,
       /* USE MONTH END RATE FOR AMOUNT IN SGD */
       CASE ISNULL(RATE.RATE,0)
           WHEN 0 THEN AR.TOTAL * -1
           ELSE RATE.RATE * AR.TOTALFC * -1
       END AS DOCAMOUNT,
       0 AS INVOICENO,
       0 AS AMTAPPLIED,
       CASE ISNULL(AR.FCCurrency,'')
           WHEN '' THEN 0
           ELSE TOTALFC * -1
       END AS DOCAMOUNTFC,
  (SELECT MAX(COMPNYNAME)
   FROM OADM) AS COMPANYNAME,
       RATE.RATE --AR.* , CUST.*, DOC.NUMATCARD, ACT.* 3
FROM (
SELECT T1.[TransId], T0.[Ref2],T1.[TransRowId], MAX(T0.[ShortName]) AS [ShortName], MAX(T0.[TransType]) AS [TransType], MAX(T0.[CreatedBy]) AS [CreatedBy], MAX(T0.[BaseRef]) AS [BaseRef],
       MAX(T0.[SourceLine]) AS [SourceLine], MAX(T0.[RefDate]) AS [RefDate], MAX(T0.[DueDate]) AS [DueDate],   MAX(T0.[TaxDate]) AS [TaxDate], MAX(T0.[BalDueCred]) + SUM(T1.[ReconSum]) AS TOTAL,
       MAX(T0.[BalFcCred]) + SUM(T1.[ReconSumFC]) AS TOTALFC, MAX(T0.[BalScCred]) + SUM(T1.[ReconSumSC]) AS TOTALSC, MAX(T0.[LineMemo]) AS [LineMemo], MAX(T3.[FolioPref]) AS [FolioPref],
        MAX(T3.[FolioNum]) AS [FolioNum], MAX(T0.[Indicator]) AS [Indicator], MAX(T0.[Account]) AS [Account], MAX(T0.FCCurrency) AS [FCCurrency],t0.Project
                                                                               FROM [dbo].[JDT1] T0  INNER  JOIN [dbo].[ITR1] T1  ON  T1.[TransId] = T0.[TransId]  AND  T1.[TransRowId] = T0.[Line_ID]
                                                                               INNER  JOIN [dbo].[OITR] T2  ON  T2.[ReconNum] = T1.[ReconNum]
                                                                               INNER  JOIN [dbo].[OJDT] T3  ON  T3.[TransId] = T0.[TransId]
                                                                               INNER  JOIN [dbo].[OCRD] T4  ON  T0.[ShortName] = T4.CARDCODE
                                                                               WHERE T4.CARDTYPE = 'C'
                                                                                 AND T0.[RefDate] <= @DATETO  AND  T2.[ReconDate] > @DATETO  AND  T1.[IsCredit] = @ISCREDIT  AND  T0.[ShortName] BETWEEN @CARDCODEFM AND @CARDCODETO
                                                                               GROUP BY T1.[TransId],T0.[Ref2],T1.[TransRowId],t0.Project HAVING MAX(T0.[BalFcCred]) <>- SUM(T1.ReconSumFC)  OR  MAX(T0.[BalDueCred]) <>- SUM(T1.ReconSum)
                                                                               UNION
                                                                               SELECT T1.[TransId],T0.[Ref2],T1.[TransRowId], MAX(T0.[ShortName]), MAX(T0.[TransType]),
                                                                               MAX(T0.[CreatedBy]), MAX(T0.[BaseRef]), MAX(T0.[SourceLine]), MAX(T0.[RefDate]),
                                                                                MAX(T0.[DueDate]), MAX(T0.[TaxDate]),  - MAX(T0.[BalDueDeb]) - SUM(T1.[ReconSum]), - MAX(T0.[BalFcDeb])
                                                                                 - SUM(T1.[ReconSumFC]),  - MAX(T0.[BalScDeb]) - SUM(T1.[ReconSumSC]), MAX(T0.[LineMemo]), MAX(T3.[FolioPref]),
                                                                                  MAX(T3.[FolioNum]), MAX(T0.[Indicator]), MAX(T0.[Account]) , MAX(T0.FCCurrency) AS [FCCurrency],t0.Project
                                                                               FROM [dbo].[JDT1] T0  INNER  JOIN [dbo].[ITR1] T1  ON  T1.[TransId] = T0.[TransId]  AND  T1.[TransRowId] = T0.[Line_ID]
                                                                               INNER  JOIN [dbo].[OITR] T2  ON  T2.[ReconNum] = T1.[ReconNum]
                                                                               INNER  JOIN [dbo].[OJDT] T3  ON  T3.[TransId] = T0.[TransId]
                                                                               INNER  JOIN [dbo].[OCRD] T4  ON  T0.[ShortName] = T4.CARDCODE
                                                                               WHERE T4.CARDTYPE = 'C'
                                                                                 AND T0.[RefDate] <= @DATETO  AND  T2.[ReconDate] > @DATETO  AND  T1.[IsCredit] = @ISDEDIT  AND  T0.[ShortName] BETWEEN @CARDCODEFM AND @CARDCODETO
                                                                               GROUP BY T1.[TransId],T0.[Ref2],T3.[Ref2],T1.[TransRowId] ,t0.Project HAVING MAX(T0.[BalFcDeb]) <>- SUM(T1.ReconSumFC)  OR  MAX(T0.[BalDueDeb]) <>- SUM(T1.ReconSum)
           UNION
           SELECT T0.[TransId],T0.[Ref2],T0.[Line_ID], MAX(T0.[ShortName]), MAX(T0.[TransType]), MAX(T0.[CreatedBy]),
       MAX(T0.[BaseRef]), MAX(T0.[SourceLine]), MAX(T0.[RefDate]), MAX(T0.[DueDate]), MAX(T0.[TaxDate]), MAX(T0.[BalDueCred]) - MAX(T0.[BalDueDeb]), MAX(T0.[BalFcCred]) - MAX(T0.[BalFcDeb]), MAX(T0.[BalScCred]) - MAX(T0.[BalScDeb]), MAX(T0.[LineMemo]), MAX(T1.[FolioPref]), MAX(T1.[FolioNum]), MAX(T0.[Indicator]), MAX(T0.[Account]) ,
       MAX(T0.FCCurrency) AS [FCCurrency],t0.Project
FROM [dbo].[JDT1] T0  INNER  JOIN [dbo].[OJDT] T1  ON  T1.[TransId] = T0.[TransId]
INNER  JOIN [dbo].[OCRD] T4  ON  T0.[ShortName] = T4.CARDCODE
WHERE T4.CARDTYPE = 'C'
  AND T0.[RefDate] <= @DATETO
  AND NOT EXISTS
    (SELECT U0.[TransId], U0.[TransRowId] FROM  [dbo].[ITR1] U0  INNER  JOIN [dbo].[OITR] U1  ON  U0.[ReconNum] = U1.[ReconNum]   WHERE T0.[TransId] = U0.[TransId]
     AND T0.[Line_ID] = U0.[TransRowId]  AND  U1.[ReconDate] > @DATETO   GROUP BY U0.[TransId], U0.[TransRowId]) AND T0.[ShortName] BETWEEN @CARDCODEFM AND @CARDCODETO
     GROUP BY T0.[TransId],T0.[Ref2], T0.[Line_ID],t0.Project HAVING MAX(T0.[BalFcCred]) <> MAX(T0.BalFcDeb)  OR  MAX(T0.[BalDueCred]) <> MAX(T0.BalDueDeb)) AS AR
  INNER JOIN (
  SELECT T0.CARDCODE,
         MAX(T0.CARDNAME) AS CARDNAME,
         MAX(T0.CURRENCY) AS CURRENCY,
         MAX(T3.PYMNTGROUP) AS PYMNTGROUP,
         MAX(T1.STREET) AS STREET,
         MAX(T1.BLOCK) AS BLOCK,
         MAX(T1.CITY) AS CITY,
         MAX(T1.ZIPCODE) AS ZIPCODE,
         MAX(T1.COUNTY) AS COUNTY,
         MAX(T2.CNTCTCODE) AS CNTCTCODE,
         MAX(T2.NAME) AS 'ContactPerson',
         MAX(T2.TEL1) AS TEL1,
         MAX(T2.FAX) AS FAX,
         MAX(T4.GroupName) AS BPGROUP,
         MAX(T0.SLPCODE) AS SLPCODE,
         MAX(T0.ADDID) AS ADDID,
         MAX(T0.CreditLine) AS CreditLine,
         MAX(T0.[Balance]) AS [Balance], MAX(T0.[GroupNum]) AS [GroupNum]
             FROM OCRD T0
             LEFT OUTER JOIN CRD1 T1 ON T0.CARDCODE = T1.CARDCODE
             AND T0.BILLTODEF = T1.ADDRESS
             LEFT OUTER JOIN OCPR T2 ON T0.CARDCODE = T2.CARDCODE
             AND T0.CNTCTPRSN = T2.NAME
             LEFT OUTER JOIN OCTG T3 ON T0.GROUPNUM = T3.GROUPNUM
             LEFT OUTER JOIN OCRG T4 ON T0.GroupCode = T4.GroupCode
             WHERE T0.CARDTYPE = 'C'
               AND T0.CARDCODE BETWEEN @CARDCODEFM AND @CARDCODETO
             GROUP BY T0.CARDCODE) CUST ON AR.[ShortName] = CUST.CARDCODE
  AND CUST.CARDNAME BETWEEN @CARDNAMEFM AND @CARDNAMETO
  LEFT OUTER JOIN
    (SELECT DOCNUM,
            OBJTYPE,
            NUMATCARD,Project
     FROM OINV
     WHERE CARDCODE BETWEEN @CARDCODEFM AND @CARDCODETO
     UNION SELECT DOCNUM,
                  OBJTYPE,
                  NUMATCARD,Project
     FROM ORIN
     WHERE CARDCODE BETWEEN @CARDCODEFM AND @CARDCODETO) AS DOC ON AR.BASEREF = DOC.DOCNUM
  AND AR.TRANSTYPE = DOC.OBJTYPE
  LEFT OUTER JOIN
    (SELECT T0.ClgCode AS 'ActNo',
            T0.CardCode,
            T0.EndDate AS 'ActDate',
            T0.EndTime AS 'ActTime',
            T0.Details AS 'Remarks'
     FROM OCLG T0
     INNER JOIN
       (SELECT CardCode,
               MAX(EndDate) AS EndDate
        FROM OCLG
        WHERE ENDDATE < = @DATETO
        GROUP BY CardCode HAVING MAX(EndDate) = MAX(EndDate)) T1 ON T0.CARDCODE = T1.CARDCODE
     AND T0.ENDDATE = T1.ENDDATE) AS ACT ON CUST.CARDCODE = ACT.CARDCODE
  INNER JOIN
    (SELECT *
     FROM OSLP) OSLP ON CUST.SLPCODE = OSLP.SLPCODE
  LEFT OUTER JOIN
    (SELECT T0.F_REFDATE,
            T0.T_REFDATE,
            T1.CURRENCY,
            T1.RATE
     FROM OFPR T0
     INNER JOIN ORTT T1 ON T0.T_REFDATE = T1.RATEDATE) RATE ON AR.FCCurrency = RATE.CURRENCY
  AND AR.REFDATE BETWEEN RATE.F_REFDATE AND RATE.T_REFDATE WHERE OSLP.SLPNAME BETWEEN @SLPNAMEFM AND @SLPNAMETO
ORDER BY CUST.CARDNAME,
         CUST.CARDCODE,
         convert(varchar(10),AR.REFDATE,112)
Regards
Kennedy