Item aging report query

Hi All,
My Client need Item aging report but by default there is no item aging report is there in SBO or any idea to create the report
Pls any one can give me the complete item aging query.
Thanks,
Gopal

hi gopal,
Pl check this links
https://forums.sdn.sap.com/watches!add.jspa?forumID=264&threadID=871918
https://forums.sdn.sap.com/watches!add.jspa?forumID=264&threadID=974984
Jeyakanthan

Similar Messages

Customer Aging Report Query (without invoices offset by incoming payment)

Hi All Experts,
May I know is there any field from JDT1 mention which invoices is already offset by the Incoming payment or AR Credit note? Because I do not want those invoices that already offset by incoming payment appear at the Customer Aging Report. Meaning, the data appear in the Customer Aging Report is only show those invoices that yet to pay by the customer. Kindly give some advise on it. Thanks a lot.
Thanks and regards,
Angie Ng

Hi David,
Thanks for your suggestion. I have try it, but all of my JDT1.IntrnMatch is in 0 value. Meaning in my situation it is none of any reconcilliation making. But from my SBO window, i manage to see that actually this incoming payment is pay for which invoices. Problem is it is difficult for me to do the possiblity logic that might be happen in my Customer Aging Report Query. Please give some advise that how to show only those invoices yet to pay? The current query will show all the data no matter the invoices or credit memo has been offset.
select OCRD.cardcode 'Supplier Code',OCRD.cardname 'Name',sysdeb 'Debit GBP',syscred 'Credit GBP',
case JDT1.transtype
when '13' then 'INV'
when '14' then 'AR CN'
when '24' then 'INCOMING'
else 'Other'
end 'Type',
Ref1,
fccurrency 'BP Currency',
CONVERT(VARCHAR(10), refdate, 103)'Posting Date' ,
CONVERT(VARCHAR(10), duedate, 103) 'Due Date',
CONVERT(VARCHAR(10), taxdate, 103) 'Doc Date' ,
CASE
when (DATEDIFF(dd,refdate,current_timestamp))+1 < 31
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "0-30 days",
case when ((datediff(dd,refdate,current_timestamp))+1 > 30
and (datediff(dd,refdate,current_timestamp))+1< 61)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "31 to 60 days",
case when ((datediff(dd,refdate,current_timestamp))+1 > 60
and (datediff(dd,refdate,current_timestamp))+1< 91)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "61 to 90 days",
CASE
when (DATEDIFF(dd,refdate,current_timestamp))+1 > 90
then
case
when syscred= 0 then sysdeb
when sysdeb= 0 then syscred * - 1
end
end "90 + days"
from JDT1,OCRD where JDT1.shortname = OCRD.cardcode and cardtype = 'c' and intrnmatch = '0'
ORDER BY OCRD.CARDCODE, taxdate

Referencing application item in report query

I can't seem to find documentation on how to do this. I have defined an application item in shared components called APP_LOCATION. I need to reference this item in a report query where clause. This is an sql report, not an interactive report. I have tried:
select .....
from ..
where x.column=:APP_LOCATION
but this does not work. Can someone help or point me to some documentation on this?

I found the answer to my own question. The query syntax was correct, but I was not setting the value of the application item.

Function module for customer open item aging report

Hi all,
Please let me know the FM for customer open item aging or which FM is used in tcode S_ALR_87012178 to get the age wise open item of customer.
Thanks in advance
Regards
Puneet

Part4 
 
<pre class="jive-pre"><code class="jive-code jive-java">"&----
"*& Form process_data
"&----
FORM PROCESS_DATA .
DATA : L_TOTAL_TMP(15). " LIKE BSID-DMBTR. 
CLEAR : L_TOTAL,LPD_TOTALS.
"* As per Customer accumulate the amount.
"* For overdue items.
CLEAR : L_TOTAL_TMP.
LOOP AT L_OPENDUE_LT.
CONDENSE L_OPENDUE_LT-DMBTR NO-GAPS.
L_TOTAL_TMP = L_TOTAL_TMP + L_OPENDUE_LT-DMBTR.
 AT END OF KUNNR.
 LPD_TOTALS-KUNNR = L_OPENDUE_LT-KUNNR.
 LPD_TOTALS-LPD_TOTAL = L_TOTAL_TMP.
 APPEND LPD_TOTALS.
 CLEAR : L_TOTAL_TMP.
 ENDAT.
ENDLOOP.
CLEAR : L_TOTAL,LOA_TOTALS.
"* As per Customer accumulate the amount.
"* For Open Items.
CLEAR : L_TOTAL_TMP.
LOOP AT L_OPENDUE_LE.
 CONDENSE L_OPENDUE_LE-DMBTR NO-GAPS.
 L_TOTAL_TMP = L_TOTAL_TMP + L_OPENDUE_LE-DMBTR.
 AT END OF KUNNR.
 LOA_TOTALS-KUNNR = L_OPENDUE_LE-KUNNR.
 LOA_TOTALS-LOA_TOTAL = L_TOTAL_TMP.
 APPEND LOA_TOTALS.
 CLEAR : L_TOTAL_TMP.
 ENDAT.
ENDLOOP.
"* Get ageing data based slabs, and duedate.
PERFORM AGEING_DATA.
LOOP AT L_BSID.
"* Move the data to final internal table.
 MOVE L_BSID-KUNNR TO FINAL_DATA-KUNNR.
 MOVE L_LANDX TO FINAL_DATA-LANDX.
 MOVE L_PSTLZ TO FINAL_DATA-PSTLZ.
 MOVE L_NAME TO FINAL_DATA-NAME1.
 MOVE L_PHONE TO FINAL_DATA-PHONE.
 MOVE L_SORTL TO FINAL_DATA-SORTL.
 MOVE L_BSID-ZTERM TO FINAL_DATA-ZTERM.
 MOVE L_BUSAB TO FINAL_DATA-BUSAB.
 READ TABLE LPD_TOTALS WITH KEY KUNNR = L_BSID-KUNNR.
 IF SY-SUBRC EQ 0.
 MOVE LPD_TOTALS-LPD_TOTAL TO FINAL_DATA-LPD_TOTAL.
 ENDIF.
 READ TABLE LOA_TOTALS WITH KEY KUNNR = L_BSID-KUNNR.
 IF SY-SUBRC EQ 0.
 MOVE LOA_TOTALS-LOA_TOTAL TO FINAL_DATA-LOA_TOTAL.
 ENDIF.
 READ TABLE AGE_DATA WITH KEY KUNNR = L_BSID-KUNNR.
 IF SY-SUBRC EQ 0.
 MOVE AGE_DATA-CURAMT TO FINAL_DATA-CURAMT.
 MOVE AGE_DATA-AMT1 TO FINAL_DATA-AMT1.
 MOVE AGE_DATA-AMT2 TO FINAL_DATA-AMT2.
 MOVE AGE_DATA-AMT3 TO FINAL_DATA-AMT3.
 MOVE AGE_DATA-AMT4 TO FINAL_DATA-AMT4.
 MOVE AGE_DATA-AMT5 TO FINAL_DATA-AMT5.
 MOVE AGE_DATA-AMT6 TO FINAL_DATA-AMT6.
 ENDIF.
 ENDIF.
 APPEND FINAL_DATA.
 CLEAR: FINAL_DATA.
ENDLOOP.
ENDFORM. " process_data
</code></pre>

Purchased items list - purchased item aging report

Hello Everyone,
I am looking for a report/PLD which will list the following:
Item description
Unit Price
tax amount
Gross Price
Vat type total
Total
However this must be from AR invoices. Essentially what the customer iwshes to see it a statement of all items purchased in a give period with the amounts/tax/totals etc.
What is the best way to implement this?
Regards,
Paul
Edited by: Paul Finneran on Oct 9, 2008 3:05 PM

Hi Paul,
I think you can try to use XL reporter. If it is possible to use query PLD, it is more better but based on this note 1155872 and 854321, I am not sure if it will be similar with PLD standard. I concern with the header of the query PLD that can be matched with the document that is generated in the repetitive area1 line of the query PLD.
Rgds,

Payments to Vendors Ageing Report query

Hi - Require a report that for each vendor, calculates the total payments made to them but split into aged columns. Example is total payments made to the vendor in the last month, in the last 3 months, 6 months, 9 months and the last year.
There seems to be no report in SAP that does this as they used open items but we require payments made. Can anyone suggest anything other than BW (which we dont have) or ABAP progrtam?
thanks.

I am afraid that there is not another option than BW or ABAP my friend.
Sorry

Customer Aging Report query

Kindly help me with a query to generate a customer aging covering;
1. Invoices
2. Credit Memos
3. Payments
4. Manual Journal Entries
I have tried one of the aging queries posted in the forum, but the results are incorrect for some customers.
Thanks in advance,
Avinash

Give this a try.
Ken Worst
-- SAP B1 Customer Receivables Aging - By Due Date
-- Version 10022008
select OCRD.cardcode 'Customer Code',OCRD.cardname 'Customer Name',
SUM(case when syscred <> 0 then syscred * - 1
else sysdeb
end) "Balance Due",
ISNULL(SUM(CASE when DATEDIFF(dd,JDT1.DueDate,current_timestamp) < 0
then
 case
 when JDT1.BalDueCred <> 0 then JDT1.BalDueCred * - 1
 else JDT1.BalDueDeb
 end
end),0.00) "Future Remit",
ISNULL(SUM(CASE when (DATEDIFF(dd,JDT1.DueDate,current_timestamp) >= 0
and datediff(dd,JDT1.DueDate,current_timestamp)< 30)
then
 case
 when JDT1.BalDueCred <> 0 then JDT1.BalDueCred * - 1
 else JDT1.BalDueDeb
 end
end),0.00) "0-30 days",
ISNULL(SUM(CASE when (datediff(dd,JDT1.DueDate,current_timestamp) >= 30
and datediff(dd,JDT1.DueDate,current_timestamp)< 60)
then
 case
 when JDT1.BalDueCred <> 0 then JDT1.BalDueCred * - 1
 else JDT1.BalDueDeb
 end
end),0.00) "31 to 60 days",
ISNULL(SUM(CASE when (datediff(dd,JDT1.DueDate,current_timestamp) >= 60
and datediff(dd,JDT1.DueDate,current_timestamp)< 90)
then
 case
 when JDT1.BalDueCred <> 0 then JDT1.BalDueCred * - 1
 else JDT1.BalDueDeb
 end
end),0.00) "61 to 90 days",
ISNULL(SUM(CASE when (datediff(dd,JDT1.DueDate,current_timestamp) >= 90
and datediff(dd,JDT1.DueDate,current_timestamp) < 120)
then
 case
 when JDT1.BalDueCred <> 0 then JDT1.BalDueCred * - 1
 else JDT1.BalDueDeb
 end
end),0.00) "91 to 120 days",
ISNULL(SUM(CASE when DATEDIFF(dd,JDT1.DueDate,current_timestamp) >= 120
then
 case
 when BalDueCred <> 0 then BalDueCred * - 1
 else BalDueDeb
 end
end),0.00) "120+ days"
from JDT1,OCRD
WHERE JDT1.shortname = OCRD.cardcode and OCRD.cardtype = 'c'
GROUP BY OCRD.cardcode, OCRD.cardname
--Filters Out Zero Balances
HAVING SUM(case when syscred <> 0 then syscred * - 1
else sysdeb
end) > 0 OR SUM(case when syscred <> 0 then syscred * - 1
else sysdeb
end) < 0
ORDER BY OCRD.CARDCODE

Aging Report SQL Query

Dear Guys,
I have tried for aging report query , but still my expected results is not come. Please go through below the table and script data for your reference. Please wirte a query for aging report.
USE [SAMPLES]
GO
/****** Object: Table [dbo].[NEW_DCB_REPORT] Script Date: 02/12/2015 01:19:06 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING OFF
GO
CREATE TABLE [dbo].[NEW_DCB_REPORT](
[MFDB_LedgerNumber] [int] IDENTITY(1,1) NOT NULL,
[MFDB_TxnDate] [datetime] NOT NULL,
[MFDB_StateId] [int] NOT NULL,
[MFDB_RegionId] [int] NOT NULL,
[MFDB_BranchId] [int] NOT NULL,
[MFDB_SHGId] [int] NOT NULL,
[MFDB_SHGName] [varchar](75) NOT NULL,
[MFDB_ShgMemberId] [int] NOT NULL,
[MFDB_MemberName] [varchar](50) NOT NULL,
[MFDB_VillageId] [int] NOT NULL,
[MFDB_LoanNumber] [int] NOT NULL,
[MFDB_LoanAmount] [int] NOT NULL,
[MFDB_DisbursedDate] [datetime] NOT NULL,
[MFDB_DemandDate] [datetime] NULL,
[MFDB_CollectionDate] [datetime] NULL,
[MFDB_InstallmentNumber] [int] NOT NULL,
[MFDB_ArrearPrincipal] [numeric](18, 2) NOT NULL,
[MFDB_ArrearInterest] [numeric](18, 2) NOT NULL,
[MFDB_DemandPrincipal] [numeric](18, 2) NOT NULL,
[MFDB_DemandInterest] [numeric](18, 2) NOT NULL,
[MFDB_TotDemandPrincipal] [numeric](18, 2) NOT NULL,
[MFDB_TotDemandInterest] [numeric](18, 2) NOT NULL,
[MFDB_AdvOBPrincipal] [numeric](18, 2) NOT NULL,
[MFDB_AdvOBInterest] [numeric](18, 2) NOT NULL,
[MFDB_CollectedPrincipal] [numeric](18, 2) NOT NULL,
[MFDB_CollectedInterest] [numeric](18, 2) NOT NULL,
[MFDB_AdvCBPrincipal] [numeric](18, 2) NOT NULL,
[MFDB_AdvCBInterest] [numeric](18, 2) NOT NULL,
[MFDB_BalancePrincipal] [numeric](18, 2) NOT NULL,
[MFDB_BalanceInterest] [numeric](18, 2) NOT NULL,
[MFDB_OS_Pri] [numeric](18, 2) NOT NULL,
[MFDB_OS_Int] [numeric](18, 2) NOT NULL,
[MFDB_RepaymentPercentage] [int] NOT NULL,
[MFDB_LoanSchemeId] [int] NOT NULL,
[MFDB_LActivityId] [int] NOT NULL,
[MFDB_LActSpecId] [int] NOT NULL,
[MFDB_FundAgencyId] [int] NOT NULL,
[MFDB_LSourceId] [int] NOT NULL,
[MFDB_Months] [varchar](15) NOT NULL,
[MFDB_PanchayatId] [int] NOT NULL,
[MFDB_PanchayatName] [varchar](100) NOT NULL,
[MFDB_VillageName] [varchar](100) NOT NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
USE [SAMPLES];
SET NOCOUNT ON;
SET XACT_ABORT ON;
GO
SET IDENTITY_INSERT [dbo].[NEW_DCB_REPORT] ON;
BEGIN TRANSACTION;
INSERT INTO [dbo].[NEW_DCB_REPORT]([MFDB_LedgerNumber], [MFDB_TxnDate], [MFDB_StateId], [MFDB_RegionId], [MFDB_BranchId], [MFDB_SHGId], [MFDB_SHGName], [MFDB_ShgMemberId], [MFDB_MemberName], [MFDB_VillageId], [MFDB_LoanNumber], [MFDB_LoanAmount], [MFDB_DisbursedDate], [MFDB_DemandDate], [MFDB_CollectionDate], [MFDB_InstallmentNumber], [MFDB_ArrearPrincipal], [MFDB_ArrearInterest], [MFDB_DemandPrincipal], [MFDB_DemandInterest], [MFDB_TotDemandPrincipal], [MFDB_TotDemandInterest], [MFDB_AdvOBPrincipal], [MFDB_AdvOBInterest], [MFDB_CollectedPrincipal], [MFDB_CollectedInterest], [MFDB_AdvCBPrincipal], [MFDB_AdvCBInterest], [MFDB_BalancePrincipal], [MFDB_BalanceInterest], [MFDB_OS_Pri], [MFDB_OS_Int], [MFDB_RepaymentPercentage], [MFDB_LoanSchemeId], [MFDB_LActivityId], [MFDB_LActSpecId], [MFDB_FundAgencyId], [MFDB_LSourceId], [MFDB_Months], [MFDB_PanchayatId], [MFDB_PanchayatName], [MFDB_VillageName])
SELECT 18, '20140422 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', NULL, NULL, 0, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'Apr - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 162, '20140521 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20140521 00:00:00.000', NULL, 1, 0.00, 0.00, 0.00, 150.00, 0.00, 150.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 150.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'May - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 13932, '20140621 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20140621 00:00:00.000', NULL, 2, 0.00, 150.00, 909.00, 150.00, 909.00, 300.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 909.00, 300.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'Jun - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 32505, '20140721 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20140721 00:00:00.000', NULL, 3, 909.00, 300.00, 909.00, 136.00, 1818.00, 436.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1818.00, 436.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'Jul - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 62524, '20140821 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20140821 00:00:00.000', NULL, 4, 1818.00, 436.00, 909.00, 123.00, 2727.00, 559.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 2727.00, 559.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'Aug - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 100871, '20140921 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20140921 00:00:00.000', NULL, 5, 2727.00, 559.00, 909.00, 109.00, 3636.00, 668.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 3636.00, 668.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'Sep - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 153679, '20141021 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20141021 00:00:00.000', NULL, 6, 3636.00, 668.00, 909.00, 96.00, 4545.00, 764.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 4545.00, 764.00, 10000.00, 1051.00, 0, 3, 4, 77, 3, 2, N'Oct - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 203840, '20141119 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', NULL, '20141119 00:00:00.000', 2, 4545.00, 764.00, 0.00, 0.00, 4545.00, 764.00, 0.00, 0.00, 10000.00, 150.00, 5455.00, 0.00, 0.00, 614.00, 0.00, 901.00, 0, 3, 4, 77, 3, 2, N'Nov - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 291259, '20141221 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20141221 00:00:00.000', NULL, 8, 0.00, 614.00, 909.00, 68.00, 909.00, 682.00, 5455.00, 0.00, 0.00, 0.00, 4546.00, 0.00, 0.00, 682.00, 0.00, 901.00, 0, 3, 4, 77, 3, 2, N'Dec - 14', 2927, N'PALI', N'PALI' UNION ALL
SELECT 363176, '20150121 00:00:00.000', 6, 16, 67, 5514, N'MAHALAXMI-5514', 66735, N'SUNITA', 4624, 1, 10000, '20140422 00:00:00.000', '20150121 00:00:00.000', NULL, 9, 0.00, 682.00, 909.00, 55.00, 909.00, 737.00, 4546.00, 0.00, 0.00, 0.00, 3637.00, 0.00, 0.00, 737.00, 0.00, 901.00, 0, 3, 4, 77, 3, 2, N'Jan - 15', 2927, N'PALI', N'PALI'
COMMIT;
RAISERROR (N'[dbo].[NEW_DCB_REPORT]: Insert Batch: 1.....Done!', 10, 1) WITH NOWAIT;
GO
SET IDENTITY_INSERT [dbo].[NEW_DCB_REPORT] OFF;
I expected results as below:
Report As On Date: 30-10-2014
S.No. SHG NAME MEMBER NAME <=30 31-60 61-90 91-120 91-180 181-365 365 - 689 Above 2 Yrs
1 MAHALAXMI-5514 SUNITA 0 909 1818 2727 3636 4545 0 0
Report As On Date:
30-10-2014
S.No.
SHG NAME
MEMBER NAME
<=30
31-60
61-90
91-120
91-180
181-365
365 - 689
Above 2 Yrs
1
MAHALAXMI-5514
SUNITA
0
909
1818
2727
3636
4545
0
0

Thanks for your replay, I have checked your query it seems nearly ok, Please find my script which i tried above for the same.
DECLARE @i_AsOnDate AS DATETIME = '2014-09-30'
;WITH CA1 AS
SELECT ROW_NUMBER() OVER(Order By DR.MFDB_SHGName,DR.MFDB_MemberName)
AS SerialNumber,
DR.MFDB_SHGId
AS ShgId,
DR.MFDB_SHGName
AS ShgName,
DR.MFDB_ShgMemberId
AS MemId,
DR.MFDB_MemberName
AS MemName,
ISNULL((SELECT CAST(SUM(LD.MFDB_StdPrincipal) AS BIGINT )
FROM MFDB_LOAN_DISBURSEMENT LD
WHERE LD.MFDB_SHGId
= DR.MFDB_SHGId
AND LD.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND LD.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND LD.MFDB_ApprovalStatus = 1
AND DATEDIFF(DAY,@i_AsOnDate,LD.MFDB_CollectionDate) > 0 ),0)
AS YETDUE,
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) >= 0
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 30
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '0-30',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 60
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 30
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '31-60',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 90
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 60
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '61-90',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 120
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 90
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '91-120',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 180
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 120
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '121-180',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 365
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 180
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '181-365',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 689
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 365
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS '366-689',
ISNULL((SELECT TOP 1 CAST(ND.MFDB_BalancePrincipal AS BIGINT )
FROM dbo.MFDB_NEW_DCB_REPORT ND
WHERE ND.MFDB_SHGId
= DR.MFDB_SHGId
AND ND.MFDB_ShgMemberId
= DR.MFDB_ShgMemberId
AND ND.MFDB_LoanNumber
= DR.MFDB_LoanNumber
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) <= 730
AND DATEDIFF(Day,ND.MFDB_TxnDate,@i_AsOnDate) > 689
ORDER BY ND.MFDB_LedgerNumber DESC),0)
AS 'Above_2_Yrs'
FROM DBO.MFDB_NEW_DCB_REPORT DR
WHERE DR.MFDB_BranchId
= 67
AND DR.MFDB_SHGId
IN (5514)
AND DR.MFDB_ShgMemberId = 66735
AND DATEDIFF(DAY,MFDB_TxnDate,@i_AsOnDate) >= 0
SELECT * FROM CA1
results after the execution of the script:
SerialNumber
ShgId
ShgName
MemId
MemName
YETDUE
0-30
31-60
61-90
91-120
121-180
181-365
366-689
Above_2_Yrs
3
5514
MAHALAXMI-5514
SUNITA
10000
3636
2727
1818
909
0
0
0
0
2
5514
MAHALAXMI-5514
SUNITA
10000
3636
2727
1818
909
0
0
0
0
6
5514
MAHALAXMI-5514
SUNITA
10000
3636
2727
1818
909
0
0
0
0
4
5514
MAHALAXMI-5514
SUNITA
10000
3636
2727
1818
909
0
0
0
0
1
5514
MAHALAXMI-5514
SUNITA
10000
3636
2727
1818
909
0
0
0
0
5
5514
MAHALAXMI-5514
SUNITA
10000
3636
2727
1818
909
0
0
0
0
But I expected results is:
s.n
ShgId
ShgName
MemId
MemName
YETDUE
0-30
31-60
61-90
91-120
121-180
181-365
366-689
Above_2_Yrs
1
5514
MAHALAXMI-5514
66735
SUNITA
10000
909
1818
2727
3636
0
0
0
I want only one record per member with aging .. please advice me for further action.

Regarding standard aging reports

Hi Experts/Gurus
 I need the standard reports for customer aging report and vendor aging report.
Need immediate replies.
Your answers can be rewarded with good points.
Regards,
kumar

REPORT zfi_customer_ageing
 NO STANDARD PAGE HEADING
 LINE-COUNT 58
 line-size 168
 MESSAGE-ID zh_msg.
 D A T A B A S E T A B L E S D E C L A R A T I O N
TABLES: kna1, " Customer Master (General)
 t001, " Company Codes
 rfpdo.
 I N T E R N A L T A B L E S D E C L A R A T I O N S *
Internal Table for Customer Open Items Data
DATA: BEGIN OF int_bsid OCCURS 0,
 kunnr LIKE bsid-kunnr, " Customer Number
 name1 LIKE kna1-name1, " Customer Name
 shkzg LIKE bsid-shkzg, " Dr/Cr Indicator
 belnr LIKE bsid-belnr, " Document Number
 xblnr LIKE bsid-xblnr, " Ref Doc No
 blart LIKE bsid-blart, " Document Type
 zfbdt LIKE bsid-zfbdt, " Base Line Date
 zbd1t LIKE bsid-zbd1t, " Due date1
 zbd2t LIKE bsid-zbd2t, " Due Date2
 zbd3t LIKE bsid-zbd3t, " Due Date3
 waers LIKE bsid-waers, " Currency
 dmbtr LIKE bsid-dmbtr, " Amount in Local Curr
 END OF int_bsid.
Internal Table for Amounts Sum Up Data
DATA: BEGIN OF int_final OCCURS 0,
 kunnr LIKE bsid-kunnr, " Customer Number
 name1 LIKE kna1-name1, " Customer Name
 total1 LIKE bsid-dmbtr, " Amount in Local Curr
 total2 LIKE bsid-dmbtr, " Amount in Local Curr
 total3 LIKE bsid-dmbtr, " Amount in Local Curr
 total4 LIKE bsid-dmbtr, " Amount in Local Curr
 total5 LIKE bsid-dmbtr, " Amount in Local Curr
 total6 LIKE bsid-dmbtr, " Amount in Local Curr
 total LIKE bsid-dmbtr, " Amount in Local Curr
 END OF int_final.
 D A T A D E C L A R A T I O N S
DATA : v_flag, " Flag
 v_gtotal1 LIKE bsid-dmbtr, " Amount Totals
 v_gtotal2 LIKE bsid-dmbtr, " Amount Totals
 v_gtotal3 LIKE bsid-dmbtr, " Amount Totals
 v_gtotal4 LIKE bsid-dmbtr, " Amount Totals
 v_gtotal5 LIKE bsid-dmbtr, " Amount Totals
 v_gtotal6 LIKE bsid-dmbtr, " Amount Totals
 v_gtotal LIKE bsid-dmbtr, " Amount Totals
 v_subtotal1 LIKE bsid-dmbtr, " Amount Totals
 v_subtotal2 LIKE bsid-dmbtr, " Amount Totals
 v_subtotal3 LIKE bsid-dmbtr, " Amount Totals
 v_subtotal4 LIKE bsid-dmbtr, " Amount Totals
 v_subtotal5 LIKE bsid-dmbtr, " Amount Totals
 v_subtotal6 LIKE bsid-dmbtr, " Amount Totals
 v_subtotal LIKE bsid-dmbtr, " Amount Totals
 v_date LIKE bsid-zfbdt, " Due Date
 v_tage1(4), " Age 30 days
 v_tage2(4), " Age 60 days
 v_tage3(4), " Age 90 days
 v_fir(15), " Column Text1
 v_sec(15), " Column Text2
 v_thir(15), " Column Text3
 v_four(17), " Column Text4
 v_fidd(4), " Days field1
 v_sedd(4), " Days field2
 v_thdd(4), " Days field3
 v_fodd(4), " Days field4
 v_str TYPE SY-LISEL, " String
 v_str1(11), " String
 v_tage(3), " String
 v_date1(10). " Date field
 R A N G E D E C L A R A T I O N S
RANGES: r_date1 FOR bsid-zfbdt, " Date Range 1
 r_date2 FOR bsid-zfbdt, " Date Range 2
 r_date3 FOR bsid-zfbdt, " Date Range 3
 r_date4 FOR bsid-zfbdt. " Date Range 4
 S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_kunnr FOR kna1-kunnr. "Customer account
PARAMETERS: p_bukrs LIKE t001-bukrs. "Co. Code
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_allgst LIKE rfpdo-allgstid OBLIGATORY DEFAULT sy-datum.
"Open items at key date
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_tage1 LIKE rfpdo1-allgfael DEFAULT '30',
 p_tage2 LIKE rfpdo1-allgfael DEFAULT '60',
 p_tage3 LIKE rfpdo1-allgfael DEFAULT '90',
 p_tage4 LIKE rfpdo1-allgfael DEFAULT '120'.
SELECTION-SCREEN END OF BLOCK b3.
 A T S E L E C T I O N S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_flds.
 S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
Fetch main data
PERFORM fetch_data.
 T O P O F P A G E
Header
TOP-OF-PAGE.
PERFORM header.
 E N D O F P A G E
Footer
END-OF-PAGE.
ULINE.
 T O P O F P A G E D U R I N G L I N E S E L E C T I O N *
Top of Page in Secondary List
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM header1.
 A T L I N E S E L E C T I O N *
AT LINE-SELECTION.
Perform Line Selections
PERFORM line_selection.
 E N D O F S E L E C T I O N
END-OF-SELECTION.
List generation
PERFORM basic_list.
*& Form validate_flds
Validation of Selection Screen fields
FORM validate_flds .
Validate Customer Code
CLEAR kna1-kunnr.
SELECT kunnr UP TO 1 ROWS
 INTO kna1-kunnr
 FROM kna1
 WHERE kunnr IN s_kunnr AND
 spras = sy-langu.
ENDSELECT.
IF sy-subrc <> 0.
 MESSAGE e000 WITH 'Invalid Customer Code range'(023).
ENDIF.
Validate Company Code
CLEAR t001-bukrs.
SELECT bukrs UP TO 1 ROWS
 INTO t001-bukrs
 FROM t001
 WHERE bukrs = p_bukrs AND
 spras = sy-langu.
ENDSELECT.
IF sy-subrc <> 0.
 MESSAGE e021. " Invalid Company Code range
ENDIF.
IF ( p_tage1 > p_tage2 ) OR ( p_tage1 > p_tage3 ) OR
 ( p_tage1 > p_tage4 ).
 MESSAGE e999 WITH 'Column 1 greater'(004)
 'than Column# 2 or 3 or 4'(005).
ENDIF.
*column 2
IF ( p_tage2 > p_tage3 ) OR ( p_tage1 > p_tage4 ).
 MESSAGE e999 WITH 'Column 2 greater'(006)
 'than Column# 3 or 4'(007).
ENDIF.
*column3
IF ( p_tage3 > p_tage4 ).
 MESSAGE e999 WITH 'Column 3 greater'(008)
 'than Column#4'(009).
ENDIF.
ENDFORM. " validate_flds
*& Form fetch_data
Fetching Data from Database Tables
FORM fetch_data .
Date Range Population
r_date1-sign = 'I'.
r_date1-option = 'BT'.
r_date1-low = p_allgst.
r_date1-high = r_date1-low + p_tage1.
APPEND r_date1.
r_date2-sign = 'I'.
r_date2-option = 'BT'.
r_date2-low = r_date1-high + 1.
r_date2-high = r_date1-low + p_tage2.
APPEND r_date2.
r_date3-sign = 'I'.
r_date3-option = 'BT'.
r_date3-low = r_date2-high + 1.
r_date3-high = r_date1-low + p_tage3.
APPEND r_date3.
r_date4-sign = 'I'.
r_date4-option = 'BT'.
r_date4-low = r_date3-high + 1.
r_date4-high = r_date1-low + p_tage4.
APPEND r_date4.
Select the Customer Open Items data from bsid
SELECT l~kunnr
 l1~name1
 b~waers
 b~dmbtr
 b~zfbdt
 b~zbd1t
 b~zbd2t
 b~zbd3t
 b~belnr
 b~xblnr
 b~shkzg
 b~blart
 INTO CORRESPONDING FIELDS OF TABLE int_bsid
 FROM knb1 AS l INNER JOIN kna1 AS l1
 ON lkunnr = l1kunnr
 INNER JOIN bsid AS b
 ON lkunnr = bkunnr AND
 lbukrs = bbukrs
 WHERE l~kunnr IN s_kunnr AND
 l~bukrs = p_bukrs and
 b~zfbdt le p_allgst.
IF SY-SUBRC <> 0.
 MESSAGE i000 WITH 'No Data found'(027).
ENDIF.
Removing the date limit to get the due items in the past
DELETE int_bsid WHERE
 ( blart NE 'RE' AND blart NE 'KR' ) OR
 shkzg NE 'H'.
SORT int_bsid BY kunnr.
ENDFORM. " fetch_data
*& Form header
Display the Report Columns
FORM header .
v_tage1 = p_tage1 + 1.
v_tage2 = p_tage2 + 1.
v_tage3 = p_tage3 + 1.
v_fidd = p_tage1.
v_sedd = p_tage2.
v_thdd = p_tage3.
v_fodd = p_tage4.
MOVE v_fodd0(4) TO v_fodd1(3).
v_fodd+0(1) = space.
CONCATENATE '1 to'(010) v_fidd INTO v_fir.
CONCATENATE v_tage1 ' to '(011) v_sedd INTO v_sec.
CONCATENATE v_tage2 ' to '(011) v_thdd INTO v_thir.
CONCATENATE v_tage3 ' to '(011) space v_fodd INTO v_four.
Standard header
clear: v_date1, v_str, v_str1, v_tage.
write p_allgst to v_date1.
Move p_tage4 to v_tage.
concatenate '>' v_tage text-025 into v_str1.
concatenate
'Summary of Ageing Analysis for Customer Open Invoices as on'(013)
 v_date1 into v_str separated by space.
CALL FUNCTION 'Z_STANDARD_HEADER'
 EXPORTING
 title1 = 'Saudi International Petrochemical Company'(012)
 title2 = v_str.
FORMAT COLOR OFF.
WRITE : /1(168) sy-uline.
FORMAT COLOR 1 INTENSIFIED.
WRITE :/1 sy-vline, 13 sy-vline, 49 sy-vline,
 50(101) 'Invoices Due For(In Days)'(014) CENTERED,
 151 sy-vline, 168 sy-vline .
WRITE :/1 sy-vline, 2(11) 'Customer#'(015) CENTERED,
 13 sy-vline ,14(35) 'Customer Name'(016) CENTERED,
 49 sy-vline,
 50(101) sy-uline,151 sy-vline,
 152(16) 'Total'(017) CENTERED,
 168 sy-vline.
WRITE : /1 sy-vline,13 sy-vline, 49 sy-vline,
 50(16) v_fir CENTERED, 66 sy-vline,
 67(16) v_sec CENTERED, 83 sy-vline,
 84(16) v_thir CENTERED, 100 sy-vline,
 101(16) v_four CENTERED, 117 sy-vline,
 118(16) v_str1 centered, 134 sy-vline,
 135(16) 'Already Overdue'(018) CENTERED,151 sy-vline,
 168 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(168) sy-uline.
ENDFORM. " header
*& Form basic_list
Display the Basic List
FORM basic_list .
NEW-PAGE LINE-SIZE 168.
LOOP AT int_bsid.
 CLEAR v_date.
 IF int_bsid-zbd3t <> ' '.
 v_date = int_bsid-zfbdt + int_bsid-zbd3t.
 ELSE.
 IF int_bsid-zbd2t <> ' '.
 v_date = int_bsid-zfbdt + int_bsid-zbd2t.
 ELSE.
 v_date = int_bsid-zfbdt + int_bsid-zbd1t.
 ENDIF.
 ENDIF.
 IF int_bsid-zbd1t = ' '.
 v_date = int_bsid-zfbdt.
 ENDIF.
 IF v_date IN r_date1.
 int_final-total1 = int_final-total1 + int_bsid-dmbtr.
 ELSEIF v_date IN r_date2.
 int_final-total2 = int_final-total2 + int_bsid-dmbtr.
 ELSEIF v_date IN r_date3.
 int_final-total3 = int_final-total3 + int_bsid-dmbtr.
 ELSEIF v_date IN r_date4.
 int_final-total4 = int_final-total4 + int_bsid-dmbtr.
 ELSEif v_date > r_date4-high.
 int_final-total5 = int_final-total5 + int_bsid-dmbtr.
 ELSEif v_date < p_allgst.
 int_final-total6 = int_final-total6 + int_bsid-dmbtr.
 ENDIF.
 AT END OF kunnr.
 v_flag = 1.
 ENDAT.
 IF v_flag = 1.
 int_final-kunnr = int_bsid-kunnr.
 int_final-name1 = int_bsid-name1.
 int_final-total = int_final-total1 + int_final-total2 +
 int_final-total3 + int_final-total4 + int_final-total5 +
 int_final-total6.
 APPEND int_final.
 v_gtotal1 = v_gtotal1 + int_final-total1.
 v_gtotal2 = v_gtotal2 + int_final-total2.
 v_gtotal3 = v_gtotal3 + int_final-total3.
 v_gtotal4 = v_gtotal4 + int_final-total4.
 v_gtotal5 = v_gtotal5 + int_final-total5.
 v_gtotal6 = v_gtotal6 + int_final-total6.
 v_gtotal = v_gtotal + int_final-total.
 WRITE: /1 sy-vline,
 2 int_final-kunnr COLOR 4 INTENSIFIED ON,
 13 sy-vline,
 14 int_final-name1 COLOR 4 INTENSIFIED ON,
 49 sy-vline.
 DATA : v_rem.
 v_rem = sy-tabix MOD 2.
 IF v_rem NE 0.
 FORMAT COLOR 2 INTENSIFIED.
 WRITE : 50 int_final-total1 CURRENCY int_bsid-waers,
 66 sy-vline,
 67 int_final-total2 CURRENCY int_bsid-waers,
 83 sy-vline,
 84 int_final-total3 CURRENCY int_bsid-waers,
 100 sy-vline,
 101 int_final-total4 CURRENCY int_bsid-waers,
 117 sy-vline,
 118 int_final-total5 CURRENCY int_bsid-waers,
 134 sy-vline,
 135 int_final-total6 CURRENCY int_bsid-waers,
 151 sy-vline,
 152 int_final-total CURRENCY int_bsid-waers,
 168 sy-vline.
 ELSE.
 WRITE : 50 int_final-total1 CURRENCY int_bsid-waers,
 66 sy-vline,
 67 int_final-total2 CURRENCY int_bsid-waers,
 83 sy-vline,
 84 int_final-total3 CURRENCY int_bsid-waers,
 100 sy-vline,
 101 int_final-total4 CURRENCY int_bsid-waers,
 117 sy-vline,
 118 int_final-total5 CURRENCY int_bsid-waers,
 134 sy-vline,
 135 int_final-total6 CURRENCY int_bsid-waers,
 151 sy-vline,
 152 int_final-total CURRENCY int_bsid-waers,
 168 sy-vline.
 ENDIF.
 FORMAT COLOR OFF.
 HIDE int_final.
 CLEAR int_final.
 v_flag = 0.
 ENDIF.
 AT LAST.
 WRITE : /1(168) sy-uline.
 FORMAT COLOR 3 INTENSIFIED.
 WRITE : /1 sy-vline, 2(47) 'GRAND TOTAL'(022) CENTERED,
 49 sy-vline, 50 v_gtotal1 CURRENCY int_bsid-waers,
 66 sy-vline, 67 v_gtotal2 CURRENCY int_bsid-waers,
 83 sy-vline, 84 v_gtotal3 CURRENCY int_bsid-waers,
 100 sy-vline,101 v_gtotal4 CURRENCY int_bsid-waers,
 117 sy-vline,118 v_gtotal5 CURRENCY int_bsid-waers,
 134 sy-vline,135 v_gtotal6 CURRENCY int_bsid-waers,
 151 sy-vline,152 v_gtotal CURRENCY int_bsid-waers,
 168 sy-vline.
 HIDE : v_gtotal1,
 v_gtotal2,
 v_gtotal3,
 v_gtotal4,
 v_gtotal5,
 v_gtotal6,
 v_gtotal.
 ENDAT.
 FORMAT COLOR OFF.
ENDLOOP.
WRITE : /1(168) sy-uline.
ENDFORM. " basic_list
*& Form line_selection
When double clicked on the line display the seconday list
FORM line_selection .
NEW-PAGE LINE-SIZE 206.
Sy-lsind = 1.
DATA : v_rem,v_cnt LIKE sy-tabix.
v_cnt = 0.
SORT int_bsid BY belnr zfbdt.
LOOP AT int_bsid WHERE kunnr EQ int_final-kunnr.
 v_rem = v_cnt MOD 2.
 CLEAR v_date.
 IF int_bsid-zbd3t <> ' '.
 v_date = int_bsid-zfbdt + int_bsid-zbd3t.
 ELSE.
 IF int_bsid-zbd2t <> ' '.
 v_date = int_bsid-zfbdt + int_bsid-zbd2t.
 ELSE.
 v_date = int_bsid-zfbdt + int_bsid-zbd1t.
 ENDIF.
 ENDIF.
 IF int_bsid-zbd1t = ' '.
 v_date = int_bsid-zfbdt.
 ENDIF.
 IF v_rem NE 0.
 format color 2 intensified.
 WRITE :/1 sy-vline, 2 int_bsid-belnr,
 12 sy-vline,13 int_bsid-kunnr,
 23 sy-vline,24 int_bsid-name1,
 59 sy-vline,60 int_bsid-xblnr,
 76 sy-vline,77 int_bsid-zfbdt,
 87 sy-vline.
 WRITE : 104 sy-vline,121 sy-vline,
 138 sy-vline,155 sy-vline,
 172 sy-vline, 189 sy-vline,
 190 int_bsid-dmbtr CURRENCY int_bsid-waers,
 206 sy-vline.
 IF v_date IN r_date1.
 v_subtotal1 = v_subtotal1 + int_bsid-dmbtr.
 WRITE : 88 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEIF v_date IN r_date2.
 v_subtotal2 = v_subtotal2 + int_bsid-dmbtr.
 WRITE : 105 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEIF v_date IN r_date3.
 v_subtotal3 = v_subtotal3 + int_bsid-dmbtr.
 WRITE : 122 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEIF v_date IN r_date4.
 v_subtotal4 = v_subtotal4 + int_bsid-dmbtr.
 WRITE : 139 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEif v_date > r_date4-high.
 v_subtotal5 = v_subtotal5 + int_bsid-dmbtr.
 WRITE : 156 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEif v_date < p_allgst.
 v_subtotal6 = v_subtotal6 + int_bsid-dmbtr.
 WRITE : 173 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ENDIF.
 format color off.
 ELSE.
 WRITE :/1 sy-vline, 2 int_bsid-belnr,
 12 sy-vline,13 int_bsid-kunnr,
 23 sy-vline,24 int_bsid-name1,
 59 sy-vline,60 int_bsid-xblnr,
 76 sy-vline,77 int_bsid-zfbdt,
 87 sy-vline.
 WRITE : 104 sy-vline,121 sy-vline,
 138 sy-vline,155 sy-vline,
 172 sy-vline,189 sy-vline,
 190 int_bsid-dmbtr CURRENCY int_bsid-waers,
 206 sy-vline.
 IF v_date IN r_date1.
 v_subtotal1 = v_subtotal1 + int_bsid-dmbtr.
 WRITE : 88 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEIF v_date IN r_date2.
 v_subtotal2 = v_subtotal2 + int_bsid-dmbtr.
 WRITE : 105 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEIF v_date IN r_date3.
 v_subtotal3 = v_subtotal3 + int_bsid-dmbtr.
 WRITE : 122 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEIF v_date IN r_date4.
 v_subtotal4 = v_subtotal4 + int_bsid-dmbtr.
 WRITE : 139 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEif v_date > r_date4-high.
 v_subtotal5 = v_subtotal5 + int_bsid-dmbtr.
 WRITE : 156 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ELSEif v_date < p_allgst.
 v_subtotal6 = v_subtotal6 + int_bsid-dmbtr.
 WRITE : 173 int_bsid-dmbtr CURRENCY int_bsid-waers.
 ENDIF.
 ENDIF.
 FORMAT COLOR OFF.
 v_cnt = v_cnt + 1.
ENDLOOP.
WRITE : /1(206) sy-uline.
v_subtotal = v_subtotal1 + v_subtotal2 + v_subtotal3
 + v_subtotal4 + v_subtotal5 + v_subtotal6.
FORMAT COLOR 3 INTENSIFIED.
WRITE : /1 sy-vline,
 2(85) 'Total'(017) CENTERED CURRENCY int_bsid-waers ,
 87 sy-vline,
 88 v_subtotal1 CURRENCY int_bsid-waers,
 104 sy-vline,
 105 v_subtotal2 CURRENCY int_bsid-waers,
 121 sy-vline,
 122 v_subtotal3 CURRENCY int_bsid-waers,
 138 sy-vline,
 139 v_subtotal4 CURRENCY int_bsid-waers,
 155 sy-vline,
 156 v_subtotal5 CURRENCY int_bsid-waers,
 172 sy-vline,
 173 v_subtotal6 CURRENCY int_bsid-waers,
 189 sy-vline,
 190 v_subtotal CURRENCY int_bsid-waers,
 206 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(206) sy-uline.
CLEAR : v_subtotal,v_subtotal1,v_subtotal2,v_subtotal3,
 v_subtotal4,v_subtotal5,v_gtotal1,v_gtotal2,v_gtotal3,
 v_gtotal4, v_gtotal5,v_gtotal,v_subtotal6,v_gtotal6.
ENDFORM. " line_selection
*& Form header1
Secondary List Header
FORM header1 .
Standard header
clear: v_date1, v_str, v_str1, v_tage.
write p_allgst to v_date1.
Move p_tage4 to v_tage.
concatenate '>' v_tage text-025 into v_str1.
concatenate
 'Details of Ageing Analysis for Customer Open Invoices as on'(024)
 v_date1 into v_str separated by space.
CALL FUNCTION 'Z_STANDARD_HEADER'
 EXPORTING
 title1 = 'Saudi International Petrochemical Company'(012)
 title2 = v_str.
FORMAT COLOR 1 intensified.
WRITE :/1(206) sy-uline.
WRITE :/1 sy-vline,12 sy-vline ,
 23 sy-vline,59 sy-vline,76 sy-vline,87 sy-vline,
 88(101) 'Invoices Due For(In Days)'(014) CENTERED,
 189 sy-vline,206 sy-vline.
WRITE : /1 sy-vline, 2(10) 'Doc Number'(021) CENTERED,
 12 sy-vline, 13(10) 'Customer#'(015) CENTERED,
 23 sy-vline, 24(35) 'Customer Name'(016) CENTERED,
 59 sy-vline, 60(16) 'Ref invoice#'(019) CENTERED,
 76 sy-vline, 77(10) 'Inv dt'(020) CENTERED,
 87 sy-vline, 88(101) sy-uline,
 189 sy-vline,190(16) 'Total'(017) CENTERED,
 206 sy-vline.
WRITE : /1 sy-vline, 12 sy-vline,
 23 sy-vline,59 sy-vline,
 76 sy-vline,87 sy-vline,
 88(16) v_fir CENTERED, 104 sy-vline,
 105(16) v_sec CENTERED, 121 sy-vline,
 122(16) v_thir CENTERED, 138 sy-vline,
 139(16) v_four CENTERED, 155 sy-vline,
 156(16) v_str1 CENTERED,
 172 sy-vline,
 173(16) 'Already Overdue'(018) CENTERED,
 189 sy-vline,
 206 sy-vline.
 format color off.
WRITE : /1(206) sy-uline.
ENDFORM. " header1
REPORT zfi_vendor_ageing
 NO STANDARD PAGE HEADING
 LINE-COUNT 58
 line-size 168
 MESSAGE-ID zh_msg.
Report Name : Vendor Open Items Ageing Report
Purpose : This report displays the Vendor Open Items based on
 different Ageing days (Calculated by taking the Base
 Line date and the days mentioned in Payment Terms)
M O D I F I C A T I O N L O G
Date | Change Number | Initials | Description
30-Aug-2004 | DTSK900**** | Anji Reddy | Initial
 D A T A B A S E T A B L E S D E C L A R A T I O N
TABLES: lfa1, " Vendor Master (General)
 t001, " Company Codes
 rfpdo.
 I N T E R N A L T A B L E S D E C L A R A T I O N S *
Internal Table for Vendor Open Items Data
DATA: BEGIN OF int_bsik OCCURS 0,
 lifnr LIKE bsik-lifnr, " Vendor Number
 name1 LIKE lfa1-name1, " Vendor Name
 shkzg LIKE bsik-shkzg, " Dr/Cr Indicator
 belnr LIKE bsik-belnr, " Document Number
 xblnr LIKE bsik-xblnr, " Ref Doc No
 blart LIKE bsik-blart, " Document Type
 zfbdt LIKE bsik-zfbdt, " Base Line Date
 zbd1t LIKE bsik-zbd1t, " Due date1
 zbd2t LIKE bsik-zbd2t, " Due Date2
 zbd3t LIKE bsik-zbd3t, " Due Date3
 waers LIKE bsik-waers, " Currency
 dmbtr LIKE bsik-dmbtr, " Amount in Local Curr
 END OF int_bsik.
Internal Table for Amounts Sum Up Data
DATA: BEGIN OF int_final OCCURS 0,
 lifnr LIKE bsik-lifnr, " Vendor Number
 name1 LIKE lfa1-name1, " Vendor Name
 total1 LIKE bsik-dmbtr, " Amount in Local Curr
 total2 LIKE bsik-dmbtr, " Amount in Local Curr
 total3 LIKE bsik-dmbtr, " Amount in Local Curr
 total4 LIKE bsik-dmbtr, " Amount in Local Curr
 total5 LIKE bsik-dmbtr, " Amount in Local Curr
 total6 LIKE bsik-dmbtr, " Amount in Local Curr
 total LIKE bsik-dmbtr, " Amount in Local Curr
 END OF int_final.
 D A T A D E C L A R A T I O N S
DATA : v_flag, " Flag
 v_gtotal1 LIKE bsik-dmbtr, " Amount Totals
 v_gtotal2 LIKE bsik-dmbtr, " Amount Totals
 v_gtotal3 LIKE bsik-dmbtr, " Amount Totals
 v_gtotal4 LIKE bsik-dmbtr, " Amount Totals
 v_gtotal5 LIKE bsik-dmbtr, " Amount Totals
 v_gtotal6 LIKE bsik-dmbtr, " Amount Totals
 v_gtotal LIKE bsik-dmbtr, " Amount Totals
 v_subtotal1 LIKE bsik-dmbtr, " Amount Totals
 v_subtotal2 LIKE bsik-dmbtr, " Amount Totals
 v_subtotal3 LIKE bsik-dmbtr, " Amount Totals
 v_subtotal4 LIKE bsik-dmbtr, " Amount Totals
 v_subtotal5 LIKE bsik-dmbtr, " Amount Totals
 v_subtotal6 LIKE bsik-dmbtr, " Amount Totals
 v_subtotal LIKE bsik-dmbtr, " Amount Totals
 v_date LIKE bsik-zfbdt, " Due Date
 v_tage1(4), " Age 30 days
 v_tage2(4), " Age 60 days
 v_tage3(4), " Age 90 days
 v_fir(15), " Column Text1
 v_sec(15), " Column Text2
 v_thir(15), " Column Text3
 v_four(17), " Column Text4
 v_fidd(4), " Days field1
 v_sedd(4), " Days field2
 v_thdd(4), " Days field3
 v_fodd(4), " Days field4
 v_str TYPE SY-LISEL, " String
 v_str1(11), " String
 v_tage(3), " String
 v_date1(10). " Date field
 R A N G E D E C L A R A T I O N S
RANGES: r_date1 FOR bsik-zfbdt, " Date Range 1
 r_date2 FOR bsik-zfbdt, " Date Range 2
 r_date3 FOR bsik-zfbdt, " Date Range 3
 r_date4 FOR bsik-zfbdt. " Date Range 4
 S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr. "Vendor account
PARAMETERS: p_bukrs LIKE t001-bukrs. "Co. Code
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS: p_allgst LIKE rfpdo-allgstid OBLIGATORY DEFAULT sy-datum.
"Open items at key date
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_tage1 LIKE rfpdo1-allgfael DEFAULT '30',
 p_tage2 LIKE rfpdo1-allgfael DEFAULT '60',
 p_tage3 LIKE rfpdo1-allgfael DEFAULT '90',
 p_tage4 LIKE rfpdo1-allgfael DEFAULT '120'.
SELECTION-SCREEN END OF BLOCK b3.
 A T S E L E C T I O N S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_flds.
 S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
Fetch main data
PERFORM fetch_data.
 T O P O F P A G E
Header
TOP-OF-PAGE.
PERFORM header.
 E N D O F P A G E
Footer
END-OF-PAGE.
ULINE.
 T O P O F P A G E D U R I N G L I N E S E L E C T I O N *
Top of Page in Secondary List
TOP-OF-PAGE DURING LINE-SELECTION.
PERFORM header1.
 A T L I N E S E L E C T I O N *
AT LINE-SELECTION.
Perform Line Selections
PERFORM line_selection.
 E N D O F S E L E C T I O N
END-OF-SELECTION.
List generation
PERFORM basic_list.
*& Form validate_flds
Validation of Selection Screen fields
FORM validate_flds .
Validate Vendor Code
CLEAR lfa1-lifnr.
SELECT lifnr UP TO 1 ROWS
 INTO lfa1-lifnr
 FROM lfa1
 WHERE lifnr IN s_lifnr AND
 spras = sy-langu.
ENDSELECT.
IF sy-subrc <> 0.
 MESSAGE e000 WITH 'Invalid Vendor Code range'(023).
ENDIF.
Validate Company Code
CLEAR t001-bukrs.
SELECT bukrs UP TO 1 ROWS
 INTO t001-bukrs
 FROM t001
 WHERE bukrs = p_bukrs AND
 spras = sy-langu.
ENDSELECT.
IF sy-subrc <> 0.
 MESSAGE e021. " Invalid Company Code range
ENDIF.
IF ( p_tage1 > p_tage2 ) OR ( p_tage1 > p_tage3 ) OR
 ( p_tage1 > p_tage4 ).
 MESSAGE e999 WITH 'Column 1 greater'(004)
 'than Column# 2 or 3 or 4'(005).
ENDIF.
*column 2
IF ( p_tage2 > p_tage3 ) OR ( p_tage1 > p_tage4 ).
 MESSAGE e999 WITH 'Column 2 greater'(006)
 'than Column# 3 or 4'(007).
ENDIF.
*column3
IF ( p_tage3 > p_tage4 ).
 MESSAGE e999 WITH 'Column 3 greater'(008)
 'than Column#4'(009).
ENDIF.
ENDFORM. " validate_flds
*& Form fetch_data
Fetching Data from Database Tables
FORM fetch_data .
Date Range Population
r_date1-sign = 'I'.
r_date1-option = 'BT'.
r_date1-low = p_allgst.
r_date1-high = r_date1-low + p_tage1.
APPEND r_date1.
r_date2-sign = 'I'.
r_date2-option = 'BT'.
r_date2-low = r_date1-high + 1.
r_date2-high = r_date1-low + p_tage2.
APPEND r_date2.
r_date3-sign = 'I'.
r_date3-option = 'BT'.
r_date3-low = r_date2-high + 1.
r_date3-high = r_date1-low + p_tage3.
APPEND r_date3.
r_date4-sign = 'I'.
r_date4-option = 'BT'.
r_date4-low = r_date3-high + 1.
r_date4-high = r_date1-low + p_tage4.
APPEND r_date4.
Select the Vendor Open Items data from BSIK
SELECT l~lifnr
 l1~name1
 b~waers
 b~dmbtr
 b~zfbdt
 b~zbd1t
 b~zbd2t
 b~zbd3t
 b~belnr
 b~xblnr
 b~shkzg
 b~blart
 INTO CORRESPONDING FIELDS OF TABLE int_bsik
 FROM lfb1 AS l INNER JOIN lfa1 AS l1
 ON llifnr = l1lifnr
 INNER JOIN bsik AS b
 ON llifnr = blifnr AND
 lbukrs = bbukrs
 WHERE l~lifnr IN s_lifnr AND
 l~bukrs = p_bukrs and
 b~zfbdt le p_allgst.
IF SY-SUBRC <> 0.
 MESSAGE i000 WITH 'No Data found'(027).
ENDIF.
Removing the date limit to get the due items in the past
DELETE int_bsik WHERE
 ( blart NE 'RE' AND blart NE 'KR' ) OR
 shkzg NE 'H'.
SORT int_bsik BY lifnr.
ENDFORM. " fetch_data
*& Form header
Display the Report Columns
FORM header .
v_tage1 = p_tage1 + 1.
v_tage2 = p_tage2 + 1.
v_tage3 = p_tage3 + 1.
v_fidd = p_tage1.
v_sedd = p_tage2.
v_thdd = p_tage3.
v_fodd = p_tage4.
MOVE v_fodd0(4) TO v_fodd1(3).
v_fodd+0(1) = space.
CONCATENATE '1 to'(010) v_fidd INTO v_fir.
CONCATENATE v_tage1 ' to '(011) v_sedd INTO v_sec.
CONCATENATE v_tage2 ' to '(011) v_thdd INTO v_thir.
CONCATENATE v_tage3 ' to '(011) space v_fodd INTO v_four.
Standard header
clear: v_date1, v_str, v_str1, v_tage.
write p_allgst to v_date1.
Move p_tage4 to v_tage.
concatenate '>' v_tage text-025 into v_str1.
concatenate
'Summary of Ageing Analysis for Vendor Open Invoices as on'(013)
 v_date1 into v_str separated by space.
CALL FUNCTION 'Z_STANDARD_HEADER'
 EXPORTING
 title1 = 'Saudi International Petrochemical Company'(012)
 title2 = v_str.
FORMAT COLOR OFF.
WRITE : /1(168) sy-uline.
FORMAT COLOR 1 INTENSIFIED.
WRITE :/1 sy-vline, 13 sy-vline, 49 sy-vline,
 50(101) 'Invoices Due For(In Days)'(014) CENTERED,
 151 sy-vline, 168 sy-vline .
WRITE :/1 sy-vline, 2(11) 'Vendor#'(015) CENTERED,
 13 sy-vline ,14(35) 'Vendor Name'(016) CENTERED,
 49 sy-vline,
 50(101) sy-uline,151 sy-vline,
 152(16) 'Total'(017) CENTERED,
 168 sy-vline.
WRITE : /1 sy-vline,13 sy-vline, 49 sy-vline,
 50(16) v_fir CENTERED, 66 sy-vline,
 67(16) v_sec CENTERED, 83 sy-vline,
 84(16) v_thir CENTERED, 100 sy-vline,
 101(16) v_four CENTERED, 117 sy-vline,
 118(16) v_str1 centered, 134 sy-vline,
 135(16) 'Already Overdue'(018) CENTERED,151 sy-vline,
 168 sy-vline.
FORMAT COLOR OFF.
WRITE : /1(168) sy-uline.
ENDFORM. " header
*& Form basic_list
Display the Basic List
FORM basic_list .
NEW-PAGE LINE-SIZE 168.
LOOP AT int_bsik.
 CLEAR v_date.
 IF int_bsik-zbd3t <> ' '.
 v_date = int_bsik-zfbdt + int_bsik-zbd3t.
 ELSE.
 IF int_bsik-zbd2t <> ' '.
 v_date = int_bsik-zfbdt + int_bsik-zbd2t.
 ELSE.
 v_date = int_bsik-zfbdt + int_bsik-zbd1t.
 ENDIF.
 ENDIF.
 IF int_bsik-zbd1t = ' '.
 v_date = int_bsik-zfbdt.
 ENDIF.
 IF v_date IN r_date1.
 int_final-total1 = int_final-total1 + int_bsik-dmbtr.
 ELSEIF v_date IN r_date2.
 int_final-total2 = int_final-total2 + int_bsik-dmbtr.
 ELSEIF v_date IN r_date3.
 int_final-total3 = int_final-total3 + int_bsik-dmbtr.
 ELSEIF v_date IN r_date4.
 int_final-total4 = int_final-total4 + int_bsik-dmbtr.
 ELSEif v_date > r_date4-high.
 int_final-total5 = int_final-total5 + int_bsik-dmbtr.
 ELSEif v_date < p_allgst.
 int_final-total6 = int_final-total6 + int_bsik-dmbtr.
 ENDIF.
 AT END OF lifnr.
 v_flag = 1.
 ENDAT.
 IF v_flag = 1.
 int_final-lifnr = int_bsik-lifnr.
 int_final-name1 = int_bsik-name1.
 int_final-total = int_final-total1 + int_final-total2 +
 int_final-total3 + int_final-total4 + int_final-total5 +
 int_final-total6.
 APPEND int_final.
 v_gtotal1 = v_gtotal1 + int_final-total1.
 v_gtotal2 = v_gtotal2 + int_final-total2.
 v_gtotal3 = v_gtotal3 + int_final-total3.
 v_gtotal4 = v_gtotal4 + int_final-total4.
 v_gtotal5 = v_gtotal5 + int_final-total5.
 v_gtotal6 = v_gtotal6 + int_final-total6.
 v_gtotal = v_gtotal + int_final-total.
 WRITE: /1 sy-vline,
 2 int_final-lifnr COLOR 4 INTENSIFIED ON,
 13 sy-vline,
 14 int_final-name1 COLOR 4 INTENSIFIED ON,
 49 sy-vline.
 DATA : v_rem.
 v_rem = sy-tabix MOD 2.
 IF v_rem NE 0.
 FORMAT COLOR 2 INTENSIFIED.
 WRITE : 50 int_final-total1 CURRENCY int_bsik-waers,
 66 sy-vline,
 67 int_final-total2 CURRENCY int_bsik-waers,
 83 sy-vline,
 84 int_final-total3 CURRENCY int_bsik-waers,
 100 sy-vline,
 101 int_final-total4 CURRENCY int_bsik-waers,
 117 sy-vline,
 118 int_final-total5 CURRENCY int_bsik-waers,
 134 sy-vline,
 135 int_final-total6 CURRENCY int_bsik-waers,
 151 sy-vline,
 152 int_final-total CURRENCY int_bsik-waers,
 168 sy-vline.
 ELSE.
 WRITE : 50 int_final-total1 CURRENCY int_bsik-waers,
 66 sy-vline,
 67 int_final-total2 CURRENCY int_bsik-waers,
 83 sy-vline,
 84 int_final-total3 CURRENCY int_bsik-waers,
 100 sy-vline,
 101 int_final-total4 CURRENCY int_bsik-waers,
 117 sy-vline,
 118 int_final-total5 CURRENCY int_bsik-waers,
 134 sy-vline,
 135 int_final-total6 CURRENCY int_bsik-waers,
 151 sy-vline,
 152 int_final-total CURRENCY int_bsik-waers,
 168 sy-vline.
 ENDIF.
 FORMAT COLOR OFF.
 HIDE int_final.
 CLEAR int_final.
 v_flag = 0.
 ENDIF.

Can using query create aging report for GL Account

Hi all expert,
I have a challenge scenario which customer request print out aging report for the following GL Account.
This is not a business partner account. However, customer want display like aging report.
30 days aging report for the following GL accounts by projects:-
 i) WIP (Work In Progress) account
 ii) Accrued Revenue account
 iii) Accrued Cost account
Examples:
 Current Balance 30 day 60 day 90 day 120 day
Account WIP 10000 2000 3000 5000 0
Any idea or example given? If yes, can you provide a query here?
Regards,
Eric Tan

Hi Eric
In standard SAP Business One this is difficult as the reports are 2 dimensional. To achieve this you will need to write multiple select statements into a temporary table and then select the final result from the temp table. Here is a sample for you to test:
USE [*DATABASE_NAME*]
GO
/****** Object: StoredProcedure [dbo].[REPORT_NAME] Script Date: 04/24/2009 13:17:21 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE proc [dbo].[*REPORT_NAME*]
as
set nocount on
begin
DECLARE @Day_no varchar(2)
DECLARE @Month_no varchar(2)
DECLARE @Year_no varchar(4)
DECLARE @Start_Date Datetime
SET @Day_no = DAY(GetDate())
SET @Month_no = MONTH(GetDate())
SET @Year_no = YEAR(GetDate())
SET @Start_Date = @Year_No + '/' + @Month_no + '/' + @Day_no -- + '/' + @Year_No
IF OBJECT_ID(N'tempdb..#CRDAGEING', N'U') IS NOT NULL
drop table #CRDAGEING
SELECT T0.[CardCode] AS [CardCode], T0.[CardName] AS [CardName], -T0.[Balance] AS [Balance], CAST(0 AS MONEY) AS [Current], CAST(0 AS MONEY) AS [1Week], CAST(0 AS MONEY) AS [2Weeks], CAST(0 AS MONEY) AS [3Weeks], CAST(0 AS MONEY) AS [4Weeks], CAST(0 AS MONEY) AS [5Weeks], CAST(0 AS MONEY) AS [6Weeks], CAST(0 AS MONEY) AS [Over6Weeks], CAST(0 AS MONEY) AS [Avg3Months], CAST (0 AS MONEY) AS [Onhand] INTO #CRDAGEING FROM OCRD T0 WHERE T0.[CardType] = 'S' -- and T0.[CardCode] <> '' --and T0.[DocDate] >= @FromDate AND T0.[DocDate] <= @ToDate
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] <= @Start_Date GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0, 0, 0, 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] >= DATEADD(DAY,1,@Start_Date) and T1.[DueDate] <= DATEADD(DAY,8,@Start_Date) GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0, 0, 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] > DATEADD(DAY,8,@Start_Date) and T1.[DueDate] <= DATEADD(DAY,15,@Start_Date) GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0, 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] > DATEADD(DAY,15,@Start_Date) and T1.[DueDate] <= DATEADD(DAY,22,@Start_Date) GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, 0, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] > DATEADD(DAY,22,@Start_Date) and T1.[DueDate] <= DATEADD(DAY,29,@Start_Date) GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, 0, 0, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] > DATEADD(DAY,29,@Start_Date) and T1.[DueDate] <= DATEADD(DAY,36,@Start_Date) GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, 0, 0, 0, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] > DATEADD(DAY,36,@Start_Date) and T1.[DueDate] <= DATEADD(DAY,43,@Start_Date) GROUP BY T1.[ShortName]
INSERT dbo.#CRDAGEING SELECT T1.[ShortName], NULL, 0, 0, 0, 0, 0, 0, 0, 0, -SUM(T1.[BalDueDeb] - T1.[BalDueCred]), 0, 0 FROM JDT1 T1, OCRD T2 WHERE T2.[CardType] = 'S' and T2.[CardCode] = T1.[ShortName] and T1.[DueDate] > DATEADD(DAY,43,@Start_Date) GROUP BY T1.[ShortName]
SELECT SR.[CardCode], MAX(SR.[CardName]), SUM(SR.[Balance]) AS [BalanceOwing], SUM(SR.[Current]) AS [Current], SUM(SR.[1Week]) AS [1Week], SUM(SR.[2Weeks]) AS [2Weeks], SUM(SR.[3Weeks]) AS [3Weeks], SUM(SR.[4Weeks]) AS [4Weeks], SUM(SR.[5Weeks]) AS [5Weeks], SUM(SR.[6Weeks]) AS [6Weeks], SUM(SR.[Over6Weeks]) AS [Over6Weeks] FROM dbo.#CRDAGEING SR GROUP BY SR.[CardCode] ORDER BY SR.[CardCode]
END
Go to Microsoft SQL Studio manager and select your company database. Then expand the list and select Programmability > Stored Procedures. Right click on Stored Procedures and select New Stored Procedure. Copy the above code over the code in the edit window and change the database name as well as report name. Then select Execute to create the stored procedure. If you make changes, remember to change the word CREATE to ALTER (with other words CREATE for the first execute, and ALTER thereafter). Then in SAP Business One create a new query and leave everything blank. Click on execute and select the pencil to change to edit mode. Remove the words SELECT and type in EXEC REPORT_NAME (change the REPORT_NAME to the name you used in SQL). Then execute again and the results will be displayed in SAP Business One.
Let me know if you get stuck. Remember the above is an example and will need to be changed to use your tables and fields as required. The basic idea is to move across by one column with each select statement. So for example the first select statement does the CURRENT column, the second one the 30DAYS column, and so on.
Kind regards
Peter Juby

SAP Query for AR Aging Report

Hello Gurus-
I am trying to build a query for Aging report, and would like to include something like this:
Customer-Reference-Payment terms-Due date-Current-31-60days-61-90days-91-120days-over120days-toatal amount.
I have an infoset which includes BSID, KNA1, KNB1. I have maintained local fields:
Due Date = Baseline date + cash discount days
Statement Date = My input date.
Current = Condition (DUEDTE >= STATDTE - 30) formula (Amount)
31 - 60 Days = Condition (DUEDTE >= STATDTE - 60 AND DUEDTE < STATDTE - 30) formula (Amount)
61 - 90 Days = similar to above
91 - 120 Days = similar to above
Amount = - 1 * (If Debit credit indicator = "H" then "Amount in local currency") otherwise "Amt in Loc.Cur"
Over 120 Days = similar to above
When I enter a statement date of today it works hunky dory...it all looks good...my current column looks good and do the rest. When i want to run this query as of couple of months ago (if today is 12/19/08 and i wanted to run my aging report for 10/31/08) it should give me aging as of my statement date 10/31/08 but it does not. It calculates the total amount as of today. I know because of local field "Amount" where i gave amount in local currency, but how would I tell that it should pick up amount in local currency till the statement date?
Any input in this regards is highly helpful.
Thanks,
RNarayan

Hi Ram,
On your aging report you want to see invoices which are still not paid (or still open) as of a certain date. This date is "key date". You need to define a variable for key date (which is normally system date if you run today) but it could be a past date.
So key date is let us say Oct 31st (X) and the system date is Dec 19th. When you run the report as of Oct 31st all invoices that are posted prior to Oct 31st (posting date less than X) and are still in BSID will show on your report. There is no issue here.
Let us say an invoice was created on Oct 25th (Y) and was paid on Nov 15th (Z). The clearing date is Z. That means if you run the aging report today this invoice will not show.
But you want to run the report on Oct 31st. This means X is greater than Y but is less than Z.
Clearing date and posting date are part of BSAD. Report run date is the user input and is a variable.
With the above concept and with the help of an ABAP programmer you should be able to solve the problem.
Regards
Sharabh

Aged open items revaluation report

I was wondering if anyone knows of a report that would give you the same information as the open items revaluation report only aged. The aging reports that are in the system are only point in time. We're looking for an historical aging report. Does anyone know if a report like that exists?
Thanks,
Todd

Hello ...
You must enter the LDP clicking the pencil icon that appears in the toolbar when the window is open open items list.
Once there, create 2 new text fields, one with the text "Orders" and another that says "Customer Orders". Both fields were identified as Field_XXX and Field_YYY (where XXX and YYY are numbers that appear in their fields)
There is a field of variable rate system, which is what lets you see the description of the type of document. (Orders, Customer Orders, etc.).. This field corresponds to variable 100 (check it that way), we assume that this field is the field F_ZZZ within the layout.
Create 2 fields of type formula, the formula to edit it (Field_XXX == Field_ZZZ) and (Field_YYY == Field_ZZZ) respectively.
Create 2 text fields (these are only to test the application, then to understand the functionality can not delete them or leave them visible). Set in one of these areas, the letter "A" in the second field and set the letter "B". both camps can put one over the other in the layout.
Now comes the application of the field ... "A" condicionelo one of the formula fields and country "B" condicionelo another formula field. The conditional mode is to set the formula field in the general tab LINK A. ..
Try then see a preview of both reports and can see that depending on the type of document you will see "A" or "B" as appropriate.
Apply the same logic as those fields that you will create and generate the difference between formats.
I hope this will be helpful
Best Regards,

SQL Report query with condition (multiple parameters) in apex item?

Hello all,
I have a little problem and can't find a solution.
I need to create reports based on a SQL query or I.R. Nothing hard there.
Then I need to add the WHERE clause dynamically with javascript from an Apex item.
Again not very hard. I defined an Apex item, set my query like this "SELECT * FROM MYTAB WHERE COL1 = :P1_SEARCH" and then I call the page setting the P1_SEARCH value. For instance COL1 is rowid. It works fine.
But here is my problem. Let's consider that P1_SEARCH will contain several rowids and that I don't know the number of those values,
(no I won't create a lot of items and build a query with so many OR!), I would like sotheming like "SELECT * FROM MYTAB WHERE ROWID IN (:P1_SEARCH) with something like : ROWID1,ROWID2 in P1_SEARCH.
I also tried : 'ROWID1,ROWID2' and 'ROWID1','ROWID2'
but I can't get anything else than filter error. It works with IN with one value but as soon as there are two values or more, it seems than Apex can't read the string.
How could I do that, please?
Thanks for your help.
Max

mnoscars wrote:
But here is my problem. Let's consider that P1_SEARCH will contain several rowids and that I don't know the number of those values,
(no I won't create a lot of items and build a query with so many OR!), I would like sotheming like "SELECT * FROM MYTAB WHERE ROWID IN (:P1_SEARCH) with something like : ROWID1,ROWID2 in P1_SEARCH.
I also tried : 'ROWID1,ROWID2' and 'ROWID1','ROWID2'
but I can't get anything else than filter error. It works with IN with one value but as soon as there are two values or more, it seems than Apex can't read the string.For a standard report, see +{message:id=9609120}+
For an IR—and improved security avoiding the risk of SQL Injection—use a <a href="http://download.oracle.com/docs/cd/E17556_01/doc/apirefs.40/e15519/apex_collection.htm#CACFAICJ">collection</a> containing the values in a column instead of a CSV list:
{code}
SELECT * FROM MYTAB WHERE ROWID IN (SELECT c001 FROM apex_collections WHERE collection_name = 'P1_SEARCH')
{code}
(Please close duplicate threads spawned by your original question.)

Forming a report query dynamically with the value of an item

Hi Gurus,
We wanted to create a report based on the value of an item in the page.
For example
There is a text box named p1_table depending on the value of this item the query of the report should change
1) when p1_table = emp then report query should be select * from emp
2) when p1_table = dept then report query should be select * from dept
I tried doing this using
select * from :p1_table and select * from v('p1_table') , it is not working.
Kindly help me in achieving the requirement.
Thanks & Regards,
Vikas Krishna

Hi Vikas,
You have to do this as a report based on a function that returns the query as a string. You build up the string dynamically in the function.
Regards
Andre

How To Use a Hidden Page Item within an SQL Report Query without Submitting

Hi,
Using: Oracle ApEx 3.0.1
I have an sql report region that contains a hidden page item as part of the "where clause". My problem is, based on a value entered by the user, I need to assign this value enetered to my hidden item, so that it can be used within the where condition of my sql but this would need to be done without actually submitting the form.
At the moment, I can set the value via an on-demand process but my SQL is still not returing any values as the hidden page item within the query is not set (as page has not been submitted).
Can anybody please assist as I am not sure how to do this and whether in actual fact, this is possible to do, without having submitted the page.
Thanks.
Tony.
Edited by: Tony F. on Nov 12, 2011 1:39 AM

You can set a session value using a dummy ajax call e.g:
Add the following to the 'Function and Global Variable Declaration' region
function f_set_item(pThis){
var get = new htmldb_Get(null,&APP_ID.,'APPLICATION_PROCESS=dummy',1);
get.add('P1_ID',pThis.value)
gReturn = get.get();
get = null;
}Where P1_ID is the session value to be set. Then call the function in the usual way e.g.
javascript:f_set_item(this);
I hope that helps
Shunt

Item aging report query

Similar Messages

Maybe you are looking for