Drill down on GL Accounts

Hi Experts, we upgraded to version 8.81 and now some users don't see any date when going to Chart of Accounts, chose a GL Account and click on the orange arrow.... No data.
We use RDP to access SAP on the server. If I log on as user 1 to the server , then log on to SAP I am not able to see the GL history by clicking on the arrow. If I log on as User 2 to the server and open SAP withe the User 1 user name and PW for SAP I am able to see the history. So it is something on the Profile logging into the server, we matched both users up, gave admin rights etc stil having the issue. Any idea what is causing that?
Thanks

Hi,
Those User 1 & 2 are windows accounts. Under these user profiles in windows registry, something is saved. Temporary tables may also affects the settings. Compare the registries to find the differences.
Thanks,
Gordon

Similar Messages

FSI0 - Drill Down Reports for Account Balance Analysis

Any orientation on this issue will be greatly appreciated.
These are the steps I did to create a new Drill-Down Report for my customer.
1. Created and modified a new Form based on the Form for the Financial Statement Analysis 0SAPBLNCE-04 (Periodic Actual vs Actual) using Transaction FSI4 (Create) and FSI5 (Change)
2. Created and modified a new Report with reference to the Form I just created using transactions FSI1 (Create) and FSI2 (Change)
3. I select "Expand: Completely" to see all Account Balances
3. All the totals match between the Original Standard Report and the new report I just created.
4. On both reports, when I select a Balance and then select the GOTO \ Line Items to get the list of documents I get the following results:
==> Most of the cases (I would say probably 80% of the cases) the Account Balance I selected matches with the Total of Line Items that is displayed when I do the GOTO \ Line Items
==> In some cases (just a few) the Account Balance does not match at all with the totals of Line Items that is displayed when I do the GOTO \ Line Items
Can somebody explain why ? Shouldn't the totals match all the time since I am specifically selecting a balance to see all its line items? Where are the missing line items?
Since these are just a few cases my customer is okay with it but he would like to hear a logic explanation why the Account Balance and its line items do not match on this report.

Hello,
There is a possibility that you have activate line item display for some of the accounts at a later stage. Meaning that earlier postings were not be shown for the earlier postings but only totals will be made available. Therefore, obviously there is bound to be difference between line item report and totals report.
You need to identify which accounts are being changed with line item display at a later stage.
In case if you forget to keep GL Line item display for an account, but the posting are already made the following steps you would required to get the line item display retrospectively.
1. Note that you are NOT required to make the balance of that GL account to ZERO. Please do not confuse with Open Item Management.
2. Put the check box line item display for the account in FS00. Make sure you are entering right company code.
3. Block the account for posting in COA Segment and Company Code Segment in FS00
4. Go to SA38 and run program RFSEPA01 (Give correct GL Account and Company Code)
5. Now, remove the block you kept on the GL Account in FS00.
This will reset the line item display retrospectively.
Hope this will solve your problem.
Regards,
Ravi

S_ALR_87012169 R3 FCC 6.0 drill down help (AR account balance)

Can anyone teach me how to display 87012169 Classic Drill Down Report? I need check the history data from Oct. 2010 to Feb. 2012 AR transactions. The Help > Application Help showed "No documentation available", I believe we did not install the help data.
I tried to use ALR_87012173 for Customer Open Items (the partical payment did not deduct from original invoice) or 87012177 (did not setup the layout yet).
Thanks,

Hi PPIO: I used FBL5N but all partial payment did not deduct from original invoice if you short of 0.01 cent, that is why I am trying other reports from SAP. How you retrieve data and create your customized reports in R3? We will implement BW in April 2012 but do we need any report tool to create our own reports?
Our internal SAP administrator told me the FBL5N can NOT display correct balance due that is can not do task. I can not believe it, Can you teach me why we got incorrect balance due and what caused the problem? Tks.

GL Account drill down crashing in 8.8

Forum,
In 8.8 PL17 when in the Chart of accounts screen, if any user tries to drill down into the account balance they get the following message:
System Message
(-100) Anything but a memory problem.
This was not an issue on 2005 for this particular data set. Has anything changed with 8.8 due to the introduction of the archive function, or is it a computer resource issue?
Regards,
Juan

Hi Juan,
Gordon is right, there is some data integrity problem that is making the code go in loops. This can happen when users work directly on queries, or some bad data entered in user defined fields or perhaps power failure etc may have crash ms database problems, or it could even be sap b1 bug.
Please contact your partner who in turn will contact sap and perhaps sap will dial in to fix the problem on work on your system directly.
Hopefully you have recent database backup you can use, but then you may lose lot of production data. Hopefully it is not your production server.
In anycase, go customer partner portal and open a medium severity defect or high if that is your postiion.
Take it from there.
Goodluck.

Viewing reports with Drill Down option

Hi all, here is the complaint that we received:
Please try to find a means to help!
When I’m in my Report and when in an account and I go to a deal to alter or look at it, when I return to reports I always am driven back to the top of the report file. If I’m in December and looking at the entire year I have to go through all accounts once again to get to the same starting point. A great irritant. I can’t help but think that there is a better way.
Anyone know if this can be changed? Thank you in advance!!!

Sorry, let me explain...
The problem isn't with the report, they have issues with what happens after you drill down into the account from the report and go back to the report.
When they go back to the report after adjusting the account/opp it doesn;t go back to what they were looking at, the view will go to the top of the report. Say they were looking at Account #100 out of 250 (250 total accounts in the report), if they drill down into account 100 and then go back to the report they will be taken back to account #1.
Is that more clear?
What they want is to be able to go back to the view of Account #100.

Unable to populate the G/L account text ( description ) in drill down repor

Hi
We have developed the trial balance drill down report from FAGLFLEXT table under 0FL library for company code wise.
The charecters are period,fiscal year & Version and the key figures are HSL ( GLT0 table ).
We are getting only the GL account number in the row ( actual requirement is we need to get the g/l account number and text beside of number ) . Please suggest.
Regards
Venkat

Hi
Thanks for the reply, this we have already tried. We are preparing the report for the trial balance which consists of the Balance sheet accounts & Profit and loss accounts. The total number of G/L accounts is more than 500. Here under the Charecteristic values we are giving the account number range . We dont want to manually enter the description for all the G/L accounts. The report should automatically populate the G/L account description ( text ) from the range of the G/L accounts such as 10000000-30000000 etc.
Regards
Venkat

Business Partner Account Balance Drill Down

I have a problem with a specific user a site not being able to Drill down into Account balance on the BP screen. She has restarted her PC and is having the same issue on other PCs. The drill down seems to working fine for all the other users.
They are running 8.82 PL07 We've ran the restore item balances function, but the problem still exist.
She can see the account balance and the drill down arrow, but SAP hangs as soon as she clicks the drill down buttton. I doesn't cause any locks for any other users.
Any ideas?
Regards,
Riana de Lange

Hi,
Please check these threads:
http://scn.sap.com/thread/1870263
http://scn.sap.com/thread/1502030
http://scn.sap.com/thread/1609552
http://scn.sap.com/thread/1976962
http://scn.sap.com/thread/1337140
Thanks & Regards,
Nagarajan

Drill down to all screens of XK03 in ALV report from CALL TRANSACTION

HI!
I have created a vendor master report which calls the XK03 transaction when the vendor is clicked on on the ALV output. It takes me to the XK03 address screen and when I try clicking to go to the next screen it says the last screen is reached , 'Do you wnat to cancell processing'. I want to enable the program to goto the next screens as well like the controll screen and the accounting screen ect in my drill down on call transaction.
following si my code section which does it.
CASE rs_selfield-fieldname.
        WHEN 'LIFNR'.
*       Set parameter ID for transaction screen field
          CHECK NOT wa_vend-lifnr IS INITIAL.
          SET PARAMETER ID 'LIF' FIELD wa_vend-lifnr.
          SET PARAMETER ID 'BUK' FIELD wa_vend-bukrs.
          SET PARAMETER ID 'EKO' FIELD wa_vend-ekorg.
          SET PARAMETER ID 'KDY' FIELD kdy_val.
          CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN. "EC needed
ENDCASE.
ENDCASE.
Thanks and regards,
Aarav

Hi,
Your code seems to be right.
Try writing the code as the below format.
CASE SY-UCOMM.
* CHECK FUNCTION CODE
WHEN '&IC1'.
* CHECK FIELD CLICKED ON WITHIN ALVGRID REPORT
IF SELFIELD-FIELDNAME = 'LIFNR'.
* READ DATA TABLE, USING INDEX ROW USER CLICKED ON
READ TABLE IT_FINAL INTO WA_FINAL INDEX SELFIELD-TABINDEX.
* SET PARAMETER ID FOR TRANSACTION SCREEN FIELD
SET PARAMETER ID 'BES' FIELD WA_FINAL-LIFNR.
* EXECUTE TRANSACTION 'XK03',AND SKIP INITIAL DATA ENTRY SCREEN.
CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
Thanks
Arbind

Issue with drill down in Financial Reporting 11.1.2.2

Hi All,
I have a requirement like this :
I have different dimensions for Year and Period(Period has half years and also quarters ).
The requirement is like that when the report opens up the rport should look like this:
                         YearTotal
                    FY12            FY13
Accounts
Now the user wants to drill down on YearTotal and it should show in the following way:
                           H1                      H2
                 FY12      FY13    FY12      FY13
Accounts
and so on.
Still now whatever I have tried I am unable to acheive this . Any ideas whther this is acheivable or not ????
Regards,
Saurav

Even without drill(allow expansion) you can only achieve that only by using merge option.
With merge the drill will not work.
It'll not be a pretty report.
Regards
Celvin
http://www.orahyplabs.com

Drill Down and Drill UP on Web Analysis Report

Hi all,
I have a question regarding Drill down and Drill up on Web Analysis Report.
The situation is the following:
I've created a report with some account parent elements in row. The dimension account has a multiple hierarchy.
I need to drill down on the child of these elements keeping the parente on top and so i've selected the option "Selected Member First".
The drill down it's ok for the first drill to go on the next level but when i drill down once more to go on the next level of the selected member hierarchy the drill move this level out hierarchy.
Can someone help me on this point?
After that i've drilled just to the last level when i drill up on these elements to return on the previous level i note that in the report happens a strange thing:
The Drill Up works fine but on the report appears another elements which is the same parent with anothe code/alias of another hierarchy instead of the Selected member.
On this i've noted tha this 2 different parente have the same elements...I think that the children of the selected memeber can be shared members....Can be this the problem?
Thanks for the help.
Best Regards
Eugenio Gualtieri

Hi John,
thanks for your answer.
I've trayed to set the report on Smart View to virify tou test your advise.
The situatio is the following:
IS05101010-PUBBLICITA'
702000 - VEND. DI SPAZIO PUBBLICITARIO
702010 - RETTIFICHE VENDITE SPAZIO PUBBLICITARIO
W10004 - RICAVI PUBBL ICITA' ATTIVA (Q.EDIT) INTE
W10007 - RICAVI DA SPAZIO PUBBL. INTERASA
W10029 - RETTIFICA RICAVI PUBBL. INTERASA
ED05101010-PUBBLICITA'
702000 - VEND. DI SPAZIO PUBBLICITARIO
702010 - RETTIFICHE VENDITE SPAZIO PUBBLICITARIO
W10004 - RICAVI PUBBL ICITA' ATTIVA (Q.EDIT) INTE
W10007 - RICAVI DA SPAZIO PUBBL. INTERASA
W10029 - RETTIFICA RICAVI PUBBL. INTERASA
If I take only one parent member the drill up works fine but if i take all 2 memeber as above and i decide to drill up on one of the two element occur that the drill work for the two elements at the same time.
Afetr the drill in this case the situation is:
IS05101010-PUBBLICITA'
ED05101010-PUBBLICITA'
Can be a problem due to shared memebers?
Thanks for your help.
Regards
Eugenio Gualtieri

Cash Management Report FF7B - drill-down from planning levels to AP/AR OIs

Hi
I'm configuring cash management and have created all planning levels and groups needed.
All master data, ie GL accounts, vendors and customers, have the correct planning level or group.
I've created all the groupings etc that I need.
I'm running the reports FF7A and FF7B. I have two questions and problems.
1. When running the Liquidity Forecsat for customers and vendors I drill-down to the standard PL or SL planning levels for AP and AR postings respectively. Then I drill into the planning groups correctly (E1-E9 and R1-R8). But when I try to drill into the cash management detail records (or is it the AP/AR line items?) I get "Memo Records: List - List Contains No Data". This happens every time. Should I now see the AP or AP line items? Or should I see some cash management memo records? I have deleted all the cash management data several times and recreated but I still get this problem (using reports RFFDDL00 and RFFDKU00)
When I do the same for purchase orders, purchase requisitions or sales orders I see a Memo Records List which agrees with the previous planning level total and I can then drill into the actiual POs, PRs or SOs from this list without an issue.
2. When running the Cash Position and I do the drill-down to the GL Line Items, I get an enormous list which does not just show the total of items at the previous planning level. Why is this please? Example: a bank account with a balance of £2,000 (shown on the panning level) but with 000's of line items totalling say £5m. Again I have deleted the CM data and recreated but without any improvement to the problem.
Any help anyone can give me with these issues will be very much appreciated.
Thanks.
Wayne

Hi
I have the same trouble with Tcode FF7B. There´s a message "Memo Records: List - List Contains No Data"; bit in the TcodeFF7A, it runs OK. The message appears just witn Tcode FF7A.
Also, There´s all TR data in tables FDSB for GL accounts, FDSR and FDFIEP for customers/vendors.
Can you help me?? can you solved this issue?
Tanks for your Help

Advanced template to drill down from one dimension to another

Dear all:
Situation
I am trying to create an report that displays my Accounts by month. In addition, after I double-click each account (if it is a base member), it drills down to open Entity (in my case Cost Center) associated with that Account number. In the Entity drill-down section, once the Entity becomes a base member, it drills down to IO (internal orders) associated with a particular cost center.
Data
1. I tried to manipulate existing "Double Drill Down" dynamic template, and disabled the column expansion (because my columns consist of months of actual vs. budget and some ratio calculation). The problem is that after I drilled down, my EVGTS formula was not replicated in the other dimension
2. I tried to integrate EVEXP into EVDRE but was unsuccessful too... The expansion worked as if everything got expanded at the same time.
Question
Is my approach correct? Is this an even good practice to do, or I should keep it as standard as possible?
Thank you!
Have a great day!
Sincerely,
Brian

The double-drill down dynamic template accommodate my need, except I didn't modify the report to my format correctly.

How do I create a drill down for my summary data?

I have 7 fields of summary data with all having a common link called the customer account number.
I have tried the following steps several time carefully and was unable to get my drill down to work.
Insert menu > Group and chose the customer account number as my group field
copy and paste the summary fields to the group header ( which I now have hundreds of GH1)
Right click on the details section and chose Hide.
Suppress the Group Footer
File Menu > Report options and check on Show All Headers on Drill Down.
I must be missing a step somewhere here. I end up with no summary fields showing (to drill down into), and the customer account numbers showing.
Can some check this out for me?

hi Michael,
you need a group to have drill down. you can't drill down on a report footer. if you can't group by these categories then you can't have drill down.
your other option is to create an on demand subreport that you can open. i would suggest that you go through a bunch of the e-learning tutorials on crystal reports here. after that go to the online help for crystal reports and use the search tab and search for "creating an on demand subreport"
you'd need to create an on demand subreport for each total that you are showing. again, please see the elearning topics especially on subreports, grouping. and then do follow the steps on on demand subreports in the online help.
-jamie

Drill down hide/show report on same page

Hi,
Is it possible to create a drill down report where instead of linking to new pages, the details can be displayed using hide/show buttons on the relevant columns? For example, if you have the following fields:
Region
Country
Division
Account
Order
Product ID
Product Price
Would it be possible to ,by default, have the report only show distinct regions. By clicking an expand button on a particular region, it's countries are displayed. By clicking an expand button on a country, its divisions are displayed,etc., eventually being able to drill down to order details.
This seems similar to a tree to me, although I have not used trees before. However, from the way I understand the structure of hierarchy in trees, the way this data is structured it would not be possible through a tree.
Any ideas? If not I can just settle on a standard drill down report with links to new pages, but if the above is possible it would work much better for my users.
Thanks

FJW,
Yes, it's possible. We typically refer people to this demo from Carl to get an idea of how it can be accomplished:
http://htmldb.oracle.com/pls/otn/f?p=11933:13
Regards,
Dan
http://danielmcghan.us
http://sourceforge.net/projects/tapigen

How to make output of ABAp query interactive(drill down)..?

Hi All,
I have developed one ABAP query which shows the output in which there is a coloumm 'order number'.
I want to make this coloumn interactive ,that means after double clicking on any row of this colomn ,it should go to transaction KO02.
Where do i have to write the code in ABAP query ?
I am very new to ABAP query..this is the first query i have deloped till now.
points will be rewarded.
Thnks in advance.
Regards,
Sanjay.

<b>The below sample code is one such example of Drill down reporting...
Make the necessary modifications, change the statement CALL TRANSACTION to whatever you want to CALL. Proceed further.</b>
*"Table declarations...................................................
TABLES:
EKKO,                                " Purchasing Document Header
CDHDR,                               " Change document header
SSCRFIELDS.                          " Fields on selection screens
*"Selection screen elements............................................
SELECT-OPTIONS:
S_EBELN FOR EKKO-EBELN,              " Purchasing Document Number
S_LIFNR FOR EKKO-LIFNR,              " Vendor's account number
S_EKGRP FOR EKKO-EKGRP,              " Purchasing group
S_BEDAT FOR EKKO-BEDAT,              " Purchasing Document Date
S_UDATE FOR CDHDR-UDATE.             " Creation date of the change
                                       " document
*" Data declarations...................................................
Field String to hold Purchase Document Number                       *
DATA:
BEGIN OF FS_EBELN,
    EBELN(90) TYPE C,                  " Purchase Document Number
    ERNAM     TYPE EKKO-ERNAM,         " Name of Person who Created
                                       " the Object
    LIFNR     TYPE EKKO-LIFNR,         " Vendor's account number
    EKGRP     TYPE EKKO-EKGRP,         " Purchasing group
    BEDAT     TYPE EKKO-BEDAT,         " Purchasing Document Date
END OF FS_EBELN,
Field String to hold Purchase Document Header                       *
BEGIN OF FS_EKKO,
    EBELN TYPE EKKO-EBELN,             " Purchasing Document Number
    ERNAM TYPE EKKO-ERNAM,             " Name of Person who Created the
                                       " Object
    LIFNR TYPE EKKO-LIFNR,             " Vendor's account number
    EKGRP TYPE EKKO-EKGRP,             " Purchasing group
    BEDAT TYPE EKKO-BEDAT,             " Purchasing Document Date
END OF FS_EKKO,
Field String to hold Account Number and name of the Vendor          *
BEGIN OF FS_LFA1,
    LIFNR TYPE LFA1-LIFNR,             " Account Number of Vendor
    NAME1 TYPE LFA1-NAME1,             " Name1
END OF FS_LFA1,
Field String to hold Change date and the name of the user           *
BEGIN OF FS_CDHDR,
    OBJECTCLAS TYPE CDHDR-OBJECTCLAS, " Object Class
    OBJECTID   TYPE CDHDR-OBJECTID,    " Object value
    CHANGENR   TYPE CDHDR-CHANGENR,    " Document change number
    USERNAME   TYPE CDHDR-USERNAME,    " User name
    UDATE      TYPE CDHDR-UDATE,       " Creation date of the change
                                       " document
END OF FS_CDHDR,
Field String to hold Change document items                          *
BEGIN OF FS_CDPOS,
    OBJECTCLAS   TYPE CDPOS-OBJECTCLAS," Object class
    OBJECTID(10) TYPE C,               " Object Value
    CHANGENR     TYPE CDPOS-CHANGENR, " Document change number
    TABNAME      TYPE CDPOS-TABNAME,   " Table Name
    FNAME        TYPE CDPOS-FNAME,     " Field Name
    VALUE_NEW    TYPE CDPOS-VALUE_NEW, " New contents of changed field
    VALUE_OLD    TYPE CDPOS-VALUE_OLD, " Old contents of changed field
END OF FS_CDPOS,
Field String to hold Date Element Name                              *
BEGIN OF FS_DATAELE,
    TABNAME   TYPE DD03L-TABNAME,      " Table Name
    FIELDNAME TYPE DD03L-FIELDNAME,    " Field Name
    ROLLNAME TYPE DD03L-ROLLNAME,     " Data element (semantic domain)
END OF FS_DATAELE,
Field String to hold Short Text of the Date Element                 *
BEGIN OF FS_TEXT,
    ROLLNAME TYPE DD04T-ROLLNAME,      " Data element (semantic domain)
    DDTEXT   TYPE DD04T-DDTEXT,        " Short Text Describing R/3
                                       " Repository Objects
END OF FS_TEXT,
Field String to hold data to be displayed on the ALV grid           *
BEGIN OF FS_OUTTAB,
    EBELN      TYPE EKKO-EBELN,        " Purchasing Document Number
    ERNAM      TYPE EKKO-ERNAM,        " Name of Person who Created the
                                       " Object
    LIFNR      TYPE EKKO-LIFNR,        " Vendor's account number
    EKGRP      TYPE EKKO-EKGRP,        " Purchasing group
    BEDAT      TYPE EKKO-BEDAT,        " Purchasing Document Date
    WERKS      TYPE LFA1-WERKS,        " Plant
    NAME1      TYPE LFA1-NAME1,        " Name1
    USERNAME   TYPE CDHDR-USERNAME,    " User name
    UDATE      TYPE CDHDR-UDATE,       " Creation date of the change
                                       " document
    DDTEXT     TYPE DD04T-DDTEXT,      " Short Text Describing R/3
                                       " Repository Objects
    VALUE_NEW TYPE CDPOS-VALUE_NEW,   " New contents of changed field
    VALUE_OLD TYPE CDPOS-VALUE_OLD,   " Old contents of changed field
END OF FS_OUTTAB,
Internal table to hold Purchase Document Number                     *
T_EBELN LIKE STANDARD TABLE
            OF FS_EBELN,
Internal table to hold Purchase Document Header                     *
T_EKKO LIKE STANDARD TABLE
          OF FS_EKKO,
Temp Internal table to hold Purchase Document Header                *
T_EKKO_TEMP LIKE STANDARD TABLE
               OF FS_EKKO,
Internal table to hold Account number and Name of the Vendor        *
T_LFA1 LIKE STANDARD TABLE
           OF FS_LFA1,
Internal Table to hold Change date and the name of the user         *
T_CDHDR LIKE STANDARD TABLE
            OF FS_CDHDR,
Internal Table to hold Change document items                        *
T_CDPOS LIKE STANDARD TABLE
            OF FS_CDPOS,
Temp. Internal Table to hold Change document items                  *
T_CDPOS_TEMP LIKE STANDARD TABLE
                 OF FS_CDPOS,
Internal Table to hold Data Element Name                            *
T_DATAELE LIKE STANDARD TABLE
              OF FS_DATAELE,
Temp. Internal Table to hold Data Element Name                      *
T_DATAELE_TEMP LIKE STANDARD TABLE
                   OF FS_DATAELE,
Internal Table to hold Short Text of the Date Element               *
T_TEXT LIKE STANDARD TABLE
           OF FS_TEXT,
Internal Table to hold data to be displayed on the ALV grid         *
T_OUTTAB LIKE STANDARD TABLE
             OF FS_OUTTAB.
               C L A S S   D E F I N I T I O N                      *
CLASS LCL_EVENT_HANDLER DEFINITION DEFERRED.
*" Data declarations...................................................
Work variables                                                      *
DATA:
    W_EBELN       TYPE EKKO-EBELN,     " Purchasing Document Number
    W_LIFNR       TYPE EKKO-LIFNR,     " Vendor's account number
    W_EKGRP       TYPE EKKO-EKGRP,     " Purchasing group
    W_VALUE       TYPE EKKO-EBELN,     " Reflected Value
    W_SPACE       VALUE ' ',           " Space
    W_FLAG        TYPE I,              " Flag Variable
    W_VARIANT     TYPE DISVARIANT,     " Variant
*--- ALV Grid
    W_GRID        TYPE REF TO CL_GUI_ALV_GRID,
*--- Event Handler
    W_EVENT_CLICK TYPE REF TO LCL_EVENT_HANDLER,
*--- Field catalog table
    T_FIELDCAT    TYPE LVC_T_FCAT.
                      AT SELECTION-SCREEN EVENT                     *
AT SELECTION-SCREEN ON S_EBELN.
Subroutine to validate Purchase Document Number.
PERFORM VALIDATE_PD_NUM.
AT SELECTION-SCREEN ON S_LIFNR.
Subroutine to validate Vendor Number.
PERFORM VALIDATE_VEN_NUM.
AT SELECTION-SCREEN ON S_EKGRP.
Subroutine to validate Purchase Group.
PERFORM VALIDATE_PUR_GRP.
                      START-OF-SELECTION EVENT                      *
START-OF-SELECTION.
Subroutine to select all Purchase orders.
PERFORM SELECT_PO.
CHECK W_FLAG EQ 0.
Subroutine to select Object values.
    PERFORM SELECT_OBJ_ID.
CHECK W_FLAG EQ 0.
Subroutine to select Changed values.
    PERFORM SELECT_CHANGED_VALUE.
CHECK W_FLAG EQ 0.
Subroutine to Select Purchase Orders.
    PERFORM SELECT_PUR_DOC.
Subroutine to select Vendor Details.
    PERFORM SELECT_VENDOR.
Subroutine to select Text for the Changed values.
    PERFORM DESCRIPTION.
                      END-OF-SELECTION EVENT                        *
END-OF-SELECTION.
IF NOT T_EKKO IS INITIAL.
Subroutine to populate the Output Table.
    PERFORM FILL_OUTTAB.
Subroutine to build Field Catalog.
    PERFORM PREPARE_FIELD_CATALOG CHANGING T_FIELDCAT.
    CALL SCREEN 100.
ENDIF.                               " IF NOT T_EKKO...
CLASS LCL_EVENT_HANDLER DEFINITION
Defining Class which handles events
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
    METHODS:
        HANDLE_HOTSPOT_CLICK
             FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
                       IMPORTING E_ROW_ID E_COLUMN_ID.
ENDCLASS.                              " LCL_EVENT_HANDLER DEFINITION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION
Implementing the Class which can handle events
CLASS LCL_EVENT_HANDLER IMPLEMENTATION .
*---Handle Double Click
METHOD HANDLE_HOTSPOT_CLICK .
Subroutine to get the HotSpot Cell information.
    PERFORM GET_CELL_INFO.
    SET PARAMETER ID 'BES' FIELD W_VALUE.
    CALL TRANSACTION 'ME23N'.
ENDMETHOD.                           " HANDLE_HOTSPOT_CLICK
ENDCLASS.                              " LCL_EVENT_HANDLER
*&      Module STATUS_0100 OUTPUT
      PBO Event
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'OOPS'.
SET TITLEBAR 'TIT'.
Subroutine to fill the Variant Structure
PERFORM FILL_VARIANT.
IF W_GRID IS INITIAL.
    CREATE OBJECT W_GRID
      EXPORTING
   I_SHELLSTYLE      = 0
   I_LIFETIME        =
        I_PARENT       = CL_GUI_CONTAINER=>SCREEN0
   I_APPL_EVENTS     =
   I_PARENTDBG       =
   I_APPLOGPARENT    =
   I_GRAPHICSPARENT =
   I_NAME            =
   I_FCAT_COMPLETE   = SPACE
      EXCEPTIONS
        ERROR_CNTL_CREATE = 1
        ERROR_CNTL_INIT   = 2
        ERROR_CNTL_LINK   = 3
        ERROR_DP_CREATE   = 4
        OTHERS            = 5.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.                             " IF SY-SUBRC <> 0
    CALL METHOD W_GRID->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
       I_BUFFER_ACTIVE               =
       I_BYPASSING_BUFFER            =
       I_CONSISTENCY_CHECK           =
       I_STRUCTURE_NAME              =
        IS_VARIANT                    = W_VARIANT
        I_SAVE                        = 'A'
       I_DEFAULT                     = 'X'
       IS_LAYOUT                     =
       IS_PRINT                      =
       IT_SPECIAL_GROUPS             =
       IT_TOOLBAR_EXCLUDING          =
       IT_HYPERLINK                  =
       IT_ALV_GRAPHICS               =
       IT_EXCEPT_QINFO               =
       IR_SALV_ADAPTER               =
      CHANGING
        IT_OUTTAB                     = T_OUTTAB
        IT_FIELDCATALOG               = T_FIELDCAT
       IT_SORT                       =
       IT_FILTER                     =
      EXCEPTIONS
        INVALID_PARAMETER_COMBINATION = 1
        PROGRAM_ERROR                 = 2
        TOO_MANY_LINES                = 3
        OTHERS                        = 4
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.                             " IF SY-SUBRC <> 0.
ENDIF.                               " IF W_GRID IS INITIAL
CREATE OBJECT W_EVENT_CLICK.
SET HANDLER W_EVENT_CLICK->HANDLE_HOTSPOT_CLICK FOR W_GRID.
ENDMODULE.                             " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      PAI Event
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                             " USER_COMMAND_0100 INPUT
*&      Form PREPARE_FIELD_CATALOG
      Subroutine to build the Field catalog
      <--P_T_FIELDCAT Field Catalog Table
FORM PREPARE_FIELD_CATALOG CHANGING PT_FIELDCAT TYPE LVC_T_FCAT .
DATA LS_FCAT TYPE LVC_S_FCAT.
Purchasing group...
LS_FCAT-FIELDNAME = 'EKGRP'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Purchasing Document Number...
LS_FCAT-FIELDNAME = 'EBELN'.
LS_FCAT-REF_TABLE = 'EKKO' .
LS_FCAT-EMPHASIZE = 'C411'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-HOTSPOT   = 'X'.
APPEND LS_FCAT TO PT_FIELDCAT .
CLEAR LS_FCAT .
Name of Person who Created the Object...
LS_FCAT-FIELDNAME = 'ERNAM'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-OUTPUTLEN = '15' .
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Purchasing Document Date...
LS_FCAT-FIELDNAME = 'BEDAT'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Vendor's account number...
LS_FCAT-FIELDNAME = 'LIFNR'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Account Number of Vendor or Creditor...
LS_FCAT-FIELDNAME = 'NAME1'.
LS_FCAT-REF_TABLE = 'LFA1'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-COLTEXT   = 'Vendor Name'(001).
LS_FCAT-SELTEXT   = 'Vendor Name'(001).
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Creation date of the change document...
LS_FCAT-FIELDNAME = 'UDATE'.
LS_FCAT-REF_TABLE = 'CDHDR'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-COLTEXT   = 'Change Date'(002).
LS_FCAT-SELTEXT   = 'Change Date'(002).
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
User name of the person responsible in change document...
LS_FCAT-FIELDNAME = 'USERNAME'.
LS_FCAT-REF_TABLE = 'CDHDR'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-COLTEXT   = 'Modified by'(003).
LS_FCAT-SELTEXT   = 'Modified by'(003).
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Short Text Describing R/3 Repository Objects...
LS_FCAT-FIELDNAME = 'DDTEXT'.
LS_FCAT-REF_TABLE = 'DD04T'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '15'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Old contents of changed field...
LS_FCAT-FIELDNAME = 'VALUE_OLD'.
LS_FCAT-REF_TABLE = 'CDPOS'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '12'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
New contents of changed field...
LS_FCAT-FIELDNAME = 'VALUE_NEW'.
LS_FCAT-REF_TABLE = 'CDPOS'.
LS_FCAT-INTTYPE   = 'C'.
LS_FCAT-OUTPUTLEN = '12'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
ENDFORM.                               " PREPARE_FIELD_CATALOG
*& Form SELECT_PO
Subroutine to select all the Purchase Orders
There are no interface parameters to be passed to this subroutine.
FORM SELECT_PO .
   SELECT EBELN                        " Purchasing Document Number
          ERNAM                        " Name of Person who Created
                                       " the Object
          LIFNR                        " Vendor's account number
          EKGRP                        " Purchasing group
          BEDAT                        " Purchasing Document Date
     FROM EKKO
PACKAGE SIZE 10000
APPENDING TABLE T_EBELN
    WHERE EBELN IN S_EBELN
      AND BEDAT IN S_BEDAT.
   ENDSELECT.
IF SY-SUBRC NE 0.
   W_FLAG = 1.
   MESSAGE S401(M8).
ENDIF.                                " IF SY-SUBRC NE 0
ENDFORM.                               " SELECT_PO
*& Form SELECT_OBJ_ID
Subroutine to select Object ID
There are no interface parameters to be passed to this subroutine.
FORM SELECT_OBJ_ID .
IF NOT T_EBELN IS INITIAL.
    SELECT OBJECTCLAS                  " Object Class
           OBJECTID                    " Object value
           CHANGENR                    " Document change number
           USERNAME                    " User name
           UDATE                       " Creation date
      FROM CDHDR
      INTO TABLE T_CDHDR
   FOR ALL ENTRIES IN T_EBELN
     WHERE OBJECTID EQ T_EBELN-EBELN
       AND UDATE IN S_UDATE
       AND TCODE IN ('ME21N','ME22N','ME23N').
   ENDSELECT.
   IF SY-SUBRC NE 0.
     W_FLAG = 1.
     MESSAGE S833(M8) WITH 'Header Not Found'(031).
   ENDIF.                              " IF SY-SUBRC NE 0.
ENDIF.                                " IF NOT T_EBELN IS INITIAL
ENDFORM.                               " SELECT_OBJ_ID
*& Form SELECT_CHANGED_VALUE
Subroutine to select Changed Values
There are no interface parameters to be passed to this subroutine.
FORM SELECT_CHANGED_VALUE .
IF NOT T_CDHDR IS INITIAL.
    SELECT OBJECTCLAS                  " Object class
           OBJECTID                    " Object value
           CHANGENR                    " Document change number
           TABNAME                     " Table Name
           FNAME                       " Field Name
           VALUE_NEW                   " New contents of changed field
           VALUE_OLD                   " Old contents of changed field
      FROM CDPOS
   PACKAGE SIZE 10000
APPENDING TABLE T_CDPOS
   FOR ALL ENTRIES IN T_CDHDR
     WHERE OBJECTCLAS EQ T_CDHDR-OBJECTCLAS
       AND OBJECTID   EQ T_CDHDR-OBJECTID
       AND CHANGENR   EQ T_CDHDR-CHANGENR.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      W_FLAG = 1.
      MESSAGE S833(M8) WITH 'Item Not Found'(032).
    ENDIF.                             " IF SY-SUBRC NE 0.
ENDIF.                               " IF NOT T_CDHDR IS INITIAL
T_CDPOS_TEMP[] = T_CDPOS[].
ENDFORM.                               " SELECT_CHANGED_VALUE
*&   Form SELECT_PUR_DOC
   Subroutine to select Purchase Order Details
   There are no interface parameters to be passed to this subroutine.
FORM SELECT_PUR_DOC .
IF NOT T_CDPOS IS INITIAL.
    SORT T_EBELN BY EBELN.
    LOOP AT T_CDPOS INTO FS_CDPOS.
      READ TABLE T_EBELN INTO FS_EBELN WITH KEY EBELN =
                                      FS_CDPOS-OBJECTID BINARY SEARCH.
      IF SY-SUBRC NE 0.
        DELETE TABLE T_EBELN FROM FS_EBELN.
      ENDIF.                           " IF SY-SUBRC NE 0.
    ENDLOOP.                           " LOOP AT T_CDPOS...
    LOOP AT T_EBELN INTO FS_EBELN.
      MOVE FS_EBELN-EBELN TO FS_EKKO-EBELN.
      MOVE FS_EBELN-ERNAM TO FS_EKKO-ERNAM.
      MOVE FS_EBELN-LIFNR TO FS_EKKO-LIFNR.
      MOVE FS_EBELN-EKGRP TO FS_EKKO-EKGRP.
      MOVE FS_EBELN-BEDAT TO FS_EKKO-BEDAT.
      APPEND FS_EKKO TO T_EKKO.
    ENDLOOP.                           " LOOP AT T_EBELN...
    T_EKKO_TEMP[] = T_EKKO[].
ENDIF.                               " IF NOT T_CDPOS IS INITIAL
ENDFORM.                               " SELECT_PUR_DOC
*& Form SELECT_VENDOR
Subroutine to select Vendor details
There are no interface parameters to be passed to this subroutine.
FORM SELECT_VENDOR .
IF NOT T_EKKO IS INITIAL.
    SORT T_EKKO_TEMP BY LIFNR.
    DELETE ADJACENT DUPLICATES FROM T_EKKO_TEMP COMPARING LIFNR.
    SELECT LIFNR                       " Account Number of Vendor or
                                       " Creditor
           NAME1                       " Name 1
      FROM LFA1
      INTO TABLE T_LFA1
   FOR ALL ENTRIES IN T_EKKO_TEMP
     WHERE LIFNR EQ T_EKKO_TEMP-LIFNR.
   IF SY-SUBRC NE 0.
     MESSAGE S002(M8) WITH 'Master Details'(033).
   ENDIF.                              " IF SY-SUBRC NE 0.
ENDIF.                               " IF NOT T_EKKO IS INITIAL
ENDFORM.                               " SELECT_VENDOR
*& Form DESCRIPTION
Subroutine to get the description
There are no interface parameters to be passed to this subroutine.
FORM DESCRIPTION .
IF NOT T_CDPOS IS INITIAL.
    SORT T_CDPOS_TEMP BY TABNAME FNAME.
    DELETE ADJACENT DUPLICATES FROM T_CDPOS_TEMP COMPARING TABNAME FNAME
    SELECT TABNAME                     " Table Name
           FIELDNAME                   " Field Name
           ROLLNAME                    " Data element
      FROM DD03L
      INTO TABLE T_DATAELE
   FOR ALL ENTRIES IN T_CDPOS_TEMP
     WHERE TABNAME EQ T_CDPOS_TEMP-TABNAME
       AND FIELDNAME EQ T_CDPOS_TEMP-FNAME.
    IF NOT T_DATAELE IS INITIAL.
    T_DATAELE_TEMP[] = T_DATAELE[].
    SORT T_DATAELE_TEMP BY ROLLNAME.
    DELETE ADJACENT DUPLICATES FROM T_DATAELE_TEMP COMPARING ROLLNAME.
      SELECT ROLLNAME                  " Data element
             DDTEXT                    " Short Text Describing R/3
                                       " Repository Objects
        FROM DD04T
        INTO TABLE T_TEXT
     FOR ALL ENTRIES IN T_DATAELE_TEMP
       WHERE ROLLNAME EQ T_DATAELE_TEMP-ROLLNAME
         AND DDLANGUAGE EQ SY-LANGU.
      IF SY-SUBRC NE 0.
        EXIT.
      ENDIF.                           " IF SY-SUBRC NE 0.
    ENDIF.                             " IF NOT T_DATAELE IS INITIAL.
ENDIF.                               " IF NOT T_CDPOS IS INITIAL.
ENDFORM.                               " DESCRIPTION
*& Form FILL_OUTTAB
Subroutine to populate the Outtab
There are no interface parameters to be passed to this subroutine.
FORM FILL_OUTTAB .
SORT T_CDHDR   BY OBJECTCLAS OBJECTID CHANGENR.
SORT T_EKKO    BY EBELN.
SORT T_LFA1    BY LIFNR.
SORT T_DATAELE BY TABNAME FIELDNAME.
SORT T_TEXT    BY ROLLNAME.
LOOP AT T_CDPOS INTO FS_CDPOS.
    READ TABLE T_CDHDR INTO FS_CDHDR WITH KEY
                                   OBJECTCLAS = FS_CDPOS-OBJECTCLAS
                                   OBJECTID = FS_CDPOS-OBJECTID
                                   CHANGENR = FS_CDPOS-CHANGENR
                                   BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        MOVE FS_CDHDR-USERNAME TO FS_OUTTAB-USERNAME.
        MOVE FS_CDHDR-UDATE    TO FS_OUTTAB-UDATE.
        READ TABLE T_EKKO INTO FS_EKKO WITH KEY
                                       EBELN = FS_CDHDR-OBJECTID
                                       BINARY SEARCH.
          IF SY-SUBRC EQ 0.
            MOVE FS_EKKO-EBELN TO FS_OUTTAB-EBELN.
            MOVE FS_EKKO-ERNAM TO FS_OUTTAB-ERNAM.
            MOVE FS_EKKO-LIFNR TO FS_OUTTAB-LIFNR.
            MOVE FS_EKKO-EKGRP TO FS_OUTTAB-EKGRP.
            MOVE FS_EKKO-BEDAT TO FS_OUTTAB-BEDAT.
            READ TABLE T_LFA1 INTO FS_LFA1 WITH KEY
                                           LIFNR = FS_EKKO-LIFNR
                                           BINARY SEARCH.
              IF SY-SUBRC EQ 0.
                MOVE FS_LFA1-NAME1 TO FS_OUTTAB-NAME1.
              ENDIF.                   " IF SY-SUBRC EQ 0.
          ENDIF.                       " IF SY-SUBRC EQ 0.
      ENDIF.                           " IF SY-SUBRC EQ 0.
    MOVE FS_CDPOS-VALUE_NEW TO FS_OUTTAB-VALUE_NEW.
    MOVE FS_CDPOS-VALUE_OLD TO FS_OUTTAB-VALUE_OLD.
    READ TABLE T_DATAELE INTO FS_DATAELE WITH KEY
                                         TABNAME = FS_CDPOS-TABNAME
                                         FIELDNAME = FS_CDPOS-FNAME
                                         BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        READ TABLE T_TEXT INTO FS_TEXT WITH KEY
                                       ROLLNAME = FS_DATAELE-ROLLNAME
                                       BINARY SEARCH.
          IF SY-SUBRC EQ 0.
            MOVE FS_TEXT-DDTEXT TO FS_OUTTAB-DDTEXT.
          ENDIF.                       " IF SY-SUBRC EQ 0.
      ENDIF.                           " IF SY-SUBRC EQ 0.
    APPEND FS_OUTTAB TO T_OUTTAB.
    CLEAR FS_OUTTAB.
ENDLOOP.
ENDFORM.                               " FILL_OUTTAB
*&   Form GET_CELL_INFO
   Subroutine to get the Cell Information
--> W_VALUE   Holds the value of Hotspot clicked
FORM GET_CELL_INFO .
CALL METHOD W_GRID->GET_CURRENT_CELL
    IMPORTING
     E_ROW     =
      E_VALUE   = W_VALUE
     E_COL     =
     ES_ROW_ID =
     ES_COL_ID =
     ES_ROW_NO =
ENDFORM.                               " GET_CELL_INFO
*&   Form VALIDATE_PD_NUM
   Subroutine to validate Purchase Document Number
   There are no interface parameters to be passed to this subroutine.
FORM VALIDATE_PD_NUM .
IF NOT S_EBELN[] IS INITIAL.
    SELECT EBELN                       " Purchase Document Number
      FROM EKKO
      INTO W_EBELN
     UP TO 1 ROWS
     WHERE EBELN IN S_EBELN.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      CLEAR SSCRFIELDS-UCOMM.
      MESSAGE E717(M8).
    ENDIF.                             " IF SY-SUBRC NE 0
ENDIF.                               " IF NOT S_EBELN[]...
ENDFORM.                               " VALIDATE_PD_NUM
*&   Form VALIDATE_VEN_NUM
   Subroutine to validate Vendor Number
   There are no interface parameters to be passed to this subroutine.
FORM VALIDATE_VEN_NUM .
IF NOT S_LIFNR[] IS INITIAL.
    SELECT LIFNR                       " Vendor Number
      FROM LFA1
      INTO W_LIFNR
     UP TO 1 ROWS
     WHERE LIFNR IN S_LIFNR.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      CLEAR SSCRFIELDS-UCOMM.
      MESSAGE E002(M8) WITH W_SPACE.
    ENDIF.                             " IF SY-SUBRC NE 0
ENDIF.                               " IF NOT S_LIFNR[]...
ENDFORM.                               " VALIDATE_VEN_NUM
*&   Form VALIDATE_PUR_GRP
   Subroutine to validate the Purchase Group
   There are no interface parameters to be passed to this subroutine.
FORM VALIDATE_PUR_GRP .
IF NOT S_EKGRP[] IS INITIAL.
    SELECT EKGRP                       " Purchase Group
      FROM T024
      INTO W_EKGRP
     UP TO 1 ROWS
     WHERE EKGRP IN S_EKGRP.
    ENDSELECT.
    IF SY-SUBRC NE 0.
      CLEAR SSCRFIELDS-UCOMM.
      MESSAGE E622(M8) WITH W_SPACE.
    ENDIF.                             " IF SY-SUBRC NE 0
ENDIF.                               " IF NOT S_EKFRP[]...
ENDFORM.                               " VALIDATE_PUR_GRP
*& Form FILL_VARIANT
Subroutine to fill the Variant Structure
There are no interface parameters to be passed to this subroutine
FORM FILL_VARIANT .
Filling the Variant structure
W_VARIANT-REPORT = SY-REPID.
W_VARIANT-USERNAME = SY-UNAME.
ENDFORM.                               " FILL_VARIANT
Regards,
Pavan

Drill down on GL Accounts

Similar Messages

Maybe you are looking for