Po amendment report

hi,
is there a standard report which will give me no. of POs amended and the reason for it , e,g qty , rate etc.
rgds

Hi
there is no stnadrad report but you can check at..
The Changes in the PO Header & Item Level are Stored in
CDHDR -
CDPOS -
Check the Same using Transaction SE16N
In the Selection Parameters Enter the Table Names EKKO & EKPO & Execute the List.
In the Object Value you can also give the PO Number.
Thx
Raju

Similar Messages

How can I show the last amend date of the .rpt file on my report?

I want to show the last amendment date of the .rpt file on my report.
Modification date and time refer to the actual report rather than the .rpt file.
Does anyone have any suggestions? I am using version 11.2.
Thanks,
Anne-Marie

annemarier,
Have you tried the "Modification Date" or "Modification Time" fields located under the Special Fields section of the Field Explorer?
I've never used them, but they seem like good candidates.
Jason

Report For BOM Amendment

Dear Sir,
We have Make-To-Order scenario . Our BOM is multilevel one . We are required to develop a Report showing the details related to Changes Made in the BOM during a Period .
The Report contain the information :
Item Code , Old Quantity , Amended Quantity , Amendment Date
I request SAP experts to kindly guide me as how to develop such a Report please .
With Thanks and Regards
S M Mittal

PL refer two tables CDHRD and CDPOS
Input for CDHRD is
Object name is client number,BOM type,BOM number - example 070M00000006.
You will get the details of BOM type and BOM number in MAST.
from CDHRD you will get Document number which you have to pass it to CDPOS to get the data of component changed.
In STPO if you enter the data, you will get the details of item
table key-XXXMYYYYYYAAAAAAABBBBBB
XXX client number
M - BOM type- STPO-STLTY
YYYYYY - STPO-STLNR
AAAAAAA - STPO-STLKN
BBBBBB - STPO-STPOZ
I hope you got it, if required come back

Amend the rxi Financial tax register report to exclude discarded lines.

I would like to amend the rxi Financial Tax Report "RX-only: Financial Tax Register Report" to exclude discarded invoice lines.
From reading the details on how rxi reports work I don't think I am able to amend the rxi report to do this. What would be the best way for me to customise this report? Is there a view which the report looks at which I could use to base my customised version on?
Any help appreciated.
Thanks.

Thanks for the reply.
I need to remove rows from the Financial Tax Register report and it look like you can only remove/add columns.
Doc ID 1938762.1 refers to the 'Tax Register' output. Which table is this output stored in?
Thanks.

Crystal reports Viewer: cannot amend the selection parameter

Hi, when I open a report in the report views (2008) it only shows me the data that was selected when I last amended the report in the "crystal reports basic 2008". I can see my parameter listed in the parameter panel, but the "change" button is greyed out. Any ideas?
Thanks in advance!
Simon

Crystal reports Viewer is only a Viewer. That means you can not do any modifications to the report. Report opened by viewer is a read only version. Designer has to be used to amend your report.
Thanks,
Gordon

Amendment A/R REPORT Customer open Item Analysis (Over due Items balance)

Hello Experts
The TCode for the above report is: S_ALR_87012178.
The report/program is run by giving Co Cd as input, ie the field "Customer A/c" (Customer number) is left blank.
Then,we get the o/p report.
In this report, only the "Customer Names" are displayed. (along with the report data)
Now, the requirement is "Corresponding Customer numbers" are to be displayed, ie an additional column "Customer number" is to be developed.
How do we write the logic for the FSpec?
Any suggestions/help/guidance will be appreciated.
Rgds
Sumanth.Gururaj

hi,
there is a simple solution to this:
go to SE93: S_ALR_87012178 display it take the program name wich is assigned to it.
copy the logic of the report into a Z report.
because STD SAP code should not be distrubed.
customer description will be in KNA1-NAME1/NAME2
the above is already there in the STD program logic.
customer number will be in KNA1-KUNNR
add the above and give it as FS to the developer.
hope satisfies your requriment.
regars,
balajia

Amending List content (deleteing & renaming) - Effect on previous created work items/reporting

Hi,
I going to be changing the naming and structure of support groups and incident tier groups. I'd like to know what effect this has on all previously created work items and the reporting on those work items.
In addition, I am also adding list items to impact and risk list to change incident prioritisation settings and want to know the effect it will have on the live work items and historical work items.
Cheers,
Pete

When you're thinking about editing enums in a live system, it's important to know a little but about how they work on the back end.
each enumeration entry essentially breaks down into a GUID and a display string; there are other properties, like Parent, Ordinal, InternalName etc, but those don't come in right now. when you use a console form to look at an incident, the control reads
the GUID that is stored on the incident in the property in question, and then goes and collects the list that property references, and shows you the correct display string for your language. the specifics are not important, but the fact that what's stored
on the incident is that system generated GUID is. when you edit a list, each entry has a unique GUID, that can't be changed or seen through the UI.
Adding a new entry will add a new guid and a new display string. this option will be available the next time the form is opened. this works pretty much the way you would expect it to.
Renaming an enumeration keeps the GUID the same, but changes the display string. any incident with that GUID will see the new string, and the data warehouse will be updated with the new string, so
historical incidents that had that value will now have the new display string.
Deleting an enumeration will remove the entry from the list and break the mapping of that guid to the display string, but does nothing to the incidents that have that guid on them. the net-net of this is that any incident with that guid
will have a value (i.e. not null) but it won't have anything to show to analysts, so it will look like it isn't set. the datawarehouse keeps those mappings even after they are deleted, so removing a mapping will not affect reporting.
the end of this is that you should re-classify any items before deleting an enumeration, you should only rename an enumeration if that new name makes sense for all work items for all of history. it is possible to reorder enumerations while keeping their
GUIDs, but it requires some XMLing. I've posted about it elsewhere in this forum, so let me know if you need a link

SQL Report Region

Hi,
I am using apex 4.0.1 and I have a page with several SQL Report regions. The user can edit the data in the report regions by clicking a column that uses a href link to open a DML page in a modal window. The user can then amend some data in the modal window, press save which closes the modal window and uses the partial page refresh process to refresh the SQL report region. (Using apex.event.trigger('#SOME_REGION'),'apexrefresh')).
If I navigate through the report to show rows 31-45 and then click on a href to edit a record. On pressing save, the report is refreshed but the rows displayed goes back to 1-15.
How can I get the report to stay showing the rows 31-45?
Cheers
Paul.

I believe this answers my question
http://monkeyonoracle.blogspot.com/2010/11/refresh-report-region-and-pagination.html
Edited by: pjturley on Jan 10, 2012 1:14 PM

In report painter GRR3 1VK Actual Value picked up from previous year

Dear Experts,
In report painter GRR3 > 1VK
1. Column of Actual Quantity to take in Basic Key Figure from Statistical Quantity
2. The value is 4 (Actual) and Version is 0
I found that the Actual value appeared are actually taken from the previous fiscal year. I have checked the line items and their document posting date it shown as last fiscal year.
In this case, where should I amend to have the report pick up only actual value of this fiscal year? or Is there any value to maintain for GRR3 to pickup the current fiscal year actual posting?
Thank you very much and Best Regards,
Anne

hi..
Goto GRR3 > click on Lib 1VK it will show you all the report in 1VK library > select your report & double click on it
It will display the report format. Then go to Edit at the top. you will find General data selection.click on it you will find available characteristics. Then goto GRR2 for making any change/selection for Fiscal year char
If your report is a standard one you can not change. then copy the report from GRR1 and make the changes.
You can also see the char in GR23 by selecting 1VK lib.
kkumar
Edited by: kkbdsp on Mar 11, 2011 9:21 AM

Fields missing in MPD report after change to structure and program

I have been working on a consistency report for transaction MPD.
I had created a structure in SE11 for handling the data. it was all working, but then i had to go and change the name of the fields in the structure. Now those fields are missing from the report.
When i step through the debugger, all the fields are being populated correctly, but these fields are not displayed on screen. if i change the field names back in the structure and change the code for populating these fields, they appear okay.
i have created a custom implementation within BAdi MPD_WKB_REPORTING.
i have checked the config and it all points to my Z Structure and Z Table Type. I have logged off and logged back on! made sure my code is saved and activated...
any ideas on how i can display these new fields names/values?
Just for clarity, the field name has changed. not the linked data type.

thanks for your response, however those notes and program have not done anything to assist my issue.
i have found the anwser now!
within the BAdi was a method i had to amend: IF_EX_MPD_WKB_REPORTING~GET_ALV_PARAMETERS
all fixed now!

Reporting In Service Manager 2012 - How To Get A List Of All Service Requests Regardless of Status

Within the Custom Reporting Options available to users of Ssystem Center Service Manager 2012, which would one use to create reports that do not contain any agregated data but are instead detail level info such as a list of all Service Requests reardless
of status? I want to include within the report the same data you see on the main page of a Service Request when you double-click a Service Request within Service Manager and it pops opne the details of the Service Request.
I'm trying to get the following info for each Service Requests
SR ID (i.e. SR1234)
Affected User
Title
Description
Priority
Source
Area
Support Group
Assigned To
Created By and Created On
I know the cubes w/Excel offer a great way to get data for a **piece meal report or for getting agregated data (I.E. counts, sums, avergares, Max's & Mins) but I need a report that has zero totals and no agregations.
Thanks
** A piece meal report is a report that has to be manually pieced together by combining data from others reports and other sources because no single report can be constructed to bring all the data togethere into a single report. If you've ever
worked with an accountant taht uses Excel for everything but who has no idea how SQL or databases in general are deisgned then chances are you've either been asked to create a piece meal report for them and or seen them do one them selves when they open a
spreadshet and dump into it disperate data from a variety of sources and then ask you why you can't automate that same report for them.

the following thread covers some good SQL queries to get details about the Incident Request, just amend them to cover the Service Request
http://social.technet.microsoft.com/Forums/systemcenter/en-US/e703641d-3e05-4df4-be2b-bf9bd62534f8/how-to-generate-incident-report-with-incident-description-field-in-scsm-2012-sp1

Ageing Report

Dear Experts
can anybody please help me in getting ageing report project wise . We already have the ageing report Debtors or Creditors wise
in the system but i want the ageing report project wise
warm regards
anand

Hi Rajshree
Try this One for customers, hopefully you should then be able to amend it to the Supplier Version
select T0.shortname,T2.cardcode 'Customer Code',T2.cardname 'Name', sysdeb 'Debit Amount',syscred 'Credit Amount',
case T0.transtype
when '13' then 'INV'
when '14' then 'AR CN'
when '24' then 'INCOMING'
else 'Other'
end 'Type',
T1.BaseRef'Trans #',
case T0.transtype
when '13' then
(Select Comments from OINV where OINV.Transid=T1.Transid)
else '-'
end 'Inv.Rem.',
(Select SeriesName From NNM1 Where Series=T1.DocSeries and ObjectCode=T0.TransType)'Series',
T0.Ref1,
fccurrency 'BP Currency',
CONVERT(VARCHAR(10), T0.refdate, 103)'Posting Date' ,
CONVERT(VARCHAR(10), T0.duedate, 103) 'Due Date',
CONVERT(VARCHAR(10), T0.taxdate, 103) 'Doc Date' ,
CASE
when (DATEDIFF(dd,T0.refdate,current_timestamp))+1 < 31
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "0-30 days",
case when ((datediff(dd,T0.refdate,current_timestamp))+1 > 30
and (datediff(dd,T0.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,T0.refdate,current_timestamp))+1 > 60
and (datediff(dd,T0.refdate,current_timestamp))+1< 91)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "60 to 90 days",
case when ((datediff(dd,T0.refdate,current_timestamp))+1 > 90
and (datediff(dd,T0.refdate,current_timestamp))+1< 121)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "91 to 120 days",
case when ((datediff(dd,T0.refdate,current_timestamp))+1 > 120
and (datediff(dd,T0.refdate,current_timestamp))+1< 151)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "121 to 150 days",
case when ((datediff(dd,T0.refdate,current_timestamp))+1 > 150
and (datediff(dd,T0.refdate,current_timestamp))+1< 181)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "151 to 180 days",
case when ((datediff(dd,T0.refdate,current_timestamp))+1 > 180
and (datediff(dd,T0.refdate,current_timestamp))+1< 221)
then
case
when syscred <> 0 then syscred * - 1
else sysdeb
end
end "181 to 220 days",
CASE
when (DATEDIFF(dd,T0.refdate,current_timestamp))+1 > 220
then
case
when syscred= 0 then sysdeb
when sysdeb= 0 then syscred * - 1
end
end "220 + days"
from JDT1 T0
Inner Join OJDT T1 On T1.TransId=T0.TransId
left outer join
OCRD T2 ON T2.cardcode =T0.shortname where
T2.cardtype = 'c' and T0.intrnmatch = '0'
and (T0.BalDueCred + T0.BalDueDeb) > 0
ORDER BY T2.CARDCODE, T0.taxdate
Kind regards
Sean

Period Balance Report for Actual/ Commitment only

Hi,
Do we have any report for getting Periodic balance for cost Centre Actual and commitment Balances.
Regards,
Venkat

If there is not a specific YtD report, then it is easy to create one: Using the report painter, copy the existinf report, and amend the columns to reflect not the current month, but from the 1st period to the current month.

Crystal Report can't export after OS change from 32 to 64 bit

Hello,
Now we have lots of reports develop under WINXP (32 bit), we use crystal report 9.2.xx.x and VS2008. But we need to apply all of these to production server which use WIN SERVER 2003 64 bit.
I have read some documents but some points still not clear.
1. Do we need to upgrade all of these reports to use 64 bit ODBC driver? is it possible to use 32 bit ODBC driver to export in WIN SERVER 2003 64 bit? the target DB is oracle client 10g 64 bit.
2. Do we need to amend the program code to fit the 64 bit OS. (I have tried to run our program in this server, but failed at the method of reportdocument.export), we use VB.NET 2008.
Many thanks.

You need to create a 32 bit ODBC datasource. See [this|https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/oss_notes_boj/sdn_oss_boj_bip/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/scn_bosap/notes.do] note and [this|https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/oss_notes_boj/sdn_oss_boj_bip/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/scn_bosap/notes.do] for more details.
Of course, you need to have a 32 bit client.
You should be able to create 64 bit apps using the Crystal Reports that bundles with .NET 2008 (Crystal Reports Basic for Visual Studio 2008). This version of CR and CR 10.2 (bundles with .NET 2005) are the only 64 bit versions of CR.
If you want to pursue the error on reportdocument.export, please create a new thread.
For more information re. Crystal Reports and 64 bit support see [this|https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/10d5fa88-2013-2c10-c9a5-f11963607d4e] article.
Ludek

Problem in ALV report o/p to Excel

Hi to all
I have developed an ALV report, which is showing correct display and out put.
But when I am downloading it to excel, o/p is not coming in proper way. Fields are misplaced from there actual place and not in readable condition.
Please guide me..
Regards
Anubhav

Hello Lakshmiraj
I am sending you the coding of my ALV report program.
Please check.
REgards
Anubhav
*& Report YRMR033_AMENDMENT_ORDER_LIST
*& DEVELOPER : ANUBHAV GUPTA
*& DATE : 21.03.2008
*& REPORT DESCRIPTION : REPORT TO DISPLAY AMENDMENTS IN PURCDHASE ORDERS
                        WITH OLD VALUES AND NEW VALUES.
REPORT YRMR033_AMENDMENT_ORDER_LIST LINE-SIZE 132 NO STANDARD PAGE HEADING
LINE-COUNT 065(001)
MESSAGE-ID VR.
TABLES: DD04T,
CDHDR,
CDPOS,
DD03L,
DD41V,
T685T,
VBPA,
TPART,
KONVC,
EKKO.
TABLES : NAST, LFA1,ekpo.
SELECT-OPTIONS: "XUDATE FOR nast-erdat OBLIGATORY, "Created on date
                XUDATE FOR CDHDR-UDATE OBLIGATORY, "Amendment date
                S_EKGRP FOR EKKO-EKGRP,
                s_lifnr for ekko-lifnr.
SELECTION-SCREEN SKIP.
DATA: WFLAG,
WCHANGENR LIKE CDHDR-CHANGENR.
DATA: INDTEXT(60) TYPE C.
DATA: BEGIN OF ICDHDR OCCURS 50.
        INCLUDE STRUCTURE CDHDR.
DATA: END OF ICDHDR.
DATA: BEGIN OF ICDSHW OCCURS 50.
        INCLUDE STRUCTURE CDSHW.
DATA: END OF ICDSHW.
DATA: BEGIN OF EKKEY,
EBELN LIKE EKET-EBELN,
EBELP LIKE EKET-EBELP,
ETENR LIKE EKET-ETENR,
END OF EKKEY.
DATA: BEGIN OF ITAB OCCURS 50,
BEGIN OF EKKEY,
EBELN LIKE EKET-EBELN,
EBELP LIKE EKET-EBELP,
ETENR LIKE EKET-ETENR,
END OF EKKEY,
ebeln like ekko-ebeln,
ebelp like ekpo-ebelp,
CHANGENR LIKE CDHDR-CHANGENR,
UDATE LIKE CDHDR-UDATE,
UTIME LIKE CDHDR-UTIME,
USERNAME LIKE CDHDR-USERNAME,
CHNGIND LIKE CDSHW-CHNGIND,
FNAME LIKE CDSHW-FNAME,     "ADDED BY ANUBHAV
FTEXT LIKE CDSHW-FTEXT,
OUTLEN LIKE CDSHW-OUTLEN,
F_OLD LIKE CDSHW-F_OLD,
F_NEW LIKE CDSHW-F_NEW,
END OF ITAB.
DATA : BEGIN OF ITAB1 OCCURS 0,
        EBELN LIKE EKET-EBELN,
        bedat like ekko-bedat,
        EBELP LIKE EKET-EBELP,
        txz01 like ekpo-txz01,
        lifnr like ekko-lifnr,
        name1 like lfa1-name1,
        UDATE LIKE CDHDR-UDATE,
        FTEXT LIKE CDSHW-FTEXT,
        F_OLD LIKE CDSHW-F_OLD,
       ekgrp like ekko-ekgrp,
       F_NEW LIKE CDSHW-F_NEW,
       CHANGENR LIKE CDHDR-CHANGENR,
UTIME LIKE CDHDR-UTIME,
USERNAME LIKE CDHDR-USERNAME,
CHNGIND LIKE CDSHW-CHNGIND,
FNAME LIKE CDSHW-FNAME,     "ADDED BY ANUBHAV
OUTLEN LIKE CDSHW-OUTLEN,
AMDNO TYPE CHAR4,
END OF ITAB1.
DATA: OLD_OBJECTID LIKE CDHDR-OBJECTID.
      INTERNAL TABLES
----"modification
DATA: BEGIN OF I_NAST OCCURS 0,
       OBJKY TYPE NAST-OBJKY,
       ERDAT TYPE NAST-ERDAT,
       KAPPL TYPE NAST-KAPPL,
       KSCHL TYPE NAST-KSCHL,
       PARVW TYPE NAST-PARVW,
       PARNR TYPE NAST-PARNR,
       ERUHR TYPE NAST-ERUHR,
       AMDNO TYPE CHAR4,
       EBELN TYPE EKKO-EBELN,
      END OF I_NAST.
DATA : I_NAST1 LIKE TABLE OF I_NAST WITH HEADER LINE.
DATA: BEGIN OF I_TAB OCCURS 0,
       OBJKY TYPE NAST-OBJKY,
       ERDAT TYPE NAST-ERDAT,
       KAPPL TYPE NAST-KAPPL,
       KSCHL TYPE NAST-KSCHL,
       PARVW TYPE NAST-PARVW,
       PARNR TYPE NAST-PARNR,
       ERUHR TYPE NAST-ERUHR,
      END OF I_TAB.
DATA: INDEX TYPE I.
TYPE-POOLS : SLIS.
          ALV Declarations                                          *
DATA: W_REPID            LIKE      SY-REPID,
      P_I_FIELDCAT       TYPE      SLIS_T_FIELDCAT_ALV,
      P_I_HEADING        TYPE      SLIS_T_LISTHEADER,
      I_LAYOUT           TYPE      SLIS_LAYOUT_ALV,
      I_EVENTS           TYPE      SLIS_T_EVENT,
      I_HEADING          TYPE      SLIS_T_LISTHEADER.
DATA: WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      SR TYPE I.
INITIALIZATION----
INITIALIZATION.
CLEAR I_NAST.
CLEAR I_TAB.
REFRESH I_NAST.
REFRESH I_TAB.
AT SELECTIN SCREEN----
AT SELECTION-SCREEN.
PERFORM DATA_VALIDATION.
TOP OF PAGE----
TOP-OF-PAGE.
PERFORM TOP_OF_PAGE.
END OF PAGE----
END-OF-PAGE.
START OF SELECTION----
START-OF-SELECTION.
PERFORM BUILD_COMMENT USING I_HEADING.
PERFORM EVENT_BUILD CHANGING I_EVENTS.
SELECT * FROM EKKO . " WHERE EBELN IN XEBELN AND
*LIFNR IN XLIFNR.
    CLEAR CDHDR.
    CLEAR CDPOS.
    CDHDR-OBJECTCLAS = 'EINKBELEG'.
    CDHDR-OBJECTID = EKKO-EBELN.
    PERFORM GETCHGDOCS.
ENDSELECT.
DELETE ITAB WHERE ( FNAME NE 'NETPR'
                   AND FNAME NE 'NETWR'
                   AND FNAME NE 'MENGE' ).
loop at itab.
    read table itab.
    itab-ebeln = itab-ekkey+0(10).
    itab-ebelp = itab-ekkey+11(4).
    modify itab.
endloop.
LOOP AT ITAB.
    MOVE-CORRESPONDING ITAB TO ITAB1.
    APPEND ITAB1.
ENDLOOP.
LOOP AT ITAB1.
    SELECT OBJKY ERDAT KAPPL KSCHL PARVW PARNR ERUHR
     FROM NAST
     INTO CORRESPONDING FIELDS OF TABLE I_NAST
     WHERE OBJKY = ITAB1-EBELN
       AND KAPPL = 'EF'
       AND KSCHL = 'ZNEU'
       AND PARVW = 'LF'
       AND SPRAS = SY-LANGU.
    IF SY-SUBRC NE 0.
      DELETE ITAB1.
    ENDIF.
    LOOP AT I_NAST.
      MOVE-CORRESPONDING I_NAST TO I_NAST1.
      APPEND I_NAST1.
    ENDLOOP.
ENDLOOP.
SORT I_NAST1 BY OBJKY ASCENDING ERDAT DESCENDING ERUHR DESCENDING.
DELETE ADJACENT DUPLICATES FROM I_NAST1 COMPARING OBJKY.
* Select data from TABLE NAST to get ebeln before selected date
IF I_NAST1[] IS NOT INITIAL.
    SELECT OBJKY ERDAT KAPPL KSCHL PARVW PARNR ERUHR
    FROM NAST
    INTO CORRESPONDING FIELDS OF TABLE I_TAB
    FOR ALL ENTRIES IN I_NAST1
    WHERE OBJKY = I_NAST1-OBJKY
      AND ERDAT <= I_NAST1-ERDAT
      AND PARNR = I_NAST1-PARNR
      AND KAPPL = 'EF'
      AND KSCHL = 'ZNEU'
      AND PARVW = 'LF'
      AND SPRAS = SY-LANGU.
ENDIF.
Logic to get no of amendments for one po
LOOP AT I_NAST1.
    CLEAR INDEX.
    LOOP AT I_TAB WHERE OBJKY = I_NAST1-OBJKY.
      INDEX = INDEX + 1.
    ENDLOOP.
    I_NAST1-AMDNO = INDEX - 1.
    I_NAST1-EBELN = I_NAST1-OBJKY.
    MODIFY I_NAST1 TRANSPORTING AMDNO EBELN.
ENDLOOP.
*LOOP AT I_NAST1.
*READ TABLE ITAB1 WITH KEY EBELN = I_NAST1-EBELN.
*IF SY-SUBRC = 0.
*ITAB1-AMDNO = I_NAST1-AMDNO.
*MODIFY ITAB1 TRANSPORTING AMDNO .
*ENDIF.
*ENDLOOP.
DELETE I_NAST1 WHERE AMDNO = 0. "ADDED BY ANUBHAV
LOOP AT ITAB1.
READ TABLE I_NAST1 WITH KEY EBELN = ITAB1-EBELN.
IF SY-SUBRC NE 0.
DELETE ITAB1.
ENDIF.
ENDLOOP.
loop at itab1.
    select single *
                              from ekko
                              into ekko
                              where ebeln = itab1-ebeln.
    if sy-subrc = 0.
      itab1-bedat = ekko-bedat.
      itab1-lifnr = ekko-lifnr.
      itab1-ekgrp = ekko-ekgrp.
      modify itab1.
    endif.
endloop.
DELETE ITAB1 WHERE EKGRP NOT IN S_EKGRP.
DELETE ITAB1 WHERE LIFNR NOT IN S_LIFNR.
loop at itab1.
    select single *
                  from lfa1
                  into lfa1
                  where lifnr = itab1-lifnr.
    if sy-subrc = 0.
      itab1-name1 = lfa1-name1.
      modify itab1.
    endif.
endloop.
loop at itab1.
    select single *
                  from ekpo
                  into ekpo
                  where ebeln = itab1-ebeln
                  and ebelp = itab1-ebelp.
    if sy-subrc = 0.
      itab1-txz01 = ekpo-txz01.
      modify itab1.
    endif.
endloop.
sort itab1 by udate descending ebeln ebelp.
building field catelogue
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'Itab1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_L = 'PO NO '.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'Itab1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'BEDAT'.
WA_FIELDCAT-SELTEXT_L = 'PO DATE '.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'Itab1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_L = 'Item No '.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'Itab1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'TXZ01'.
WA_FIELDCAT-SELTEXT_L = 'Item Description'.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'Itab1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-SELTEXT_L = 'Vendor NO '.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'Itab1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'NAME1'.
WA_FIELDCAT-SELTEXT_L = 'Vendor Name'.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'ITAB1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'UDATE'.
WA_FIELDCAT-SELTEXT_L = 'Amendment Date'.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'ITAB1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'FTEXT'.
WA_FIELDCAT-SELTEXT_l = 'Change Field Description'.
WA_FIELDCAT-just = 'L'.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'ITAB1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'F_OLD'.
WA_FIELDCAT-SELTEXT_L = 'Old Value '.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
ADD 1 TO SR.
WA_FIELDCAT-COL_POS    = SR.
WA_FIELDCAT-ROW_POS    = 1.
WA_FIELDCAT-TABNAME    = 'ITAB1'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-FIELDNAME = 'F_NEW'.
WA_FIELDCAT-JUST       = 'L' .
WA_FIELDCAT-SELTEXT_L = 'New Value '.
APPEND WA_FIELDCAT TO P_I_FIELDCAT.
CLEAR WA_FIELDCAT.
DATA : L_REPID TYPE SYREPID,
         L_REPID1 LIKE DISVARIANT.
L_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
     I_BUFFER_ACTIVE                   = 'X'
     I_CALLBACK_PROGRAM                = L_REPID
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
I_CALLBACK_TOP_OF_PAGE            = ' '
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
     IS_LAYOUT                         = I_LAYOUT
     IT_FIELDCAT                       = P_I_FIELDCAT[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
     I_SAVE                            = 'X'
     IS_VARIANT                        = L_REPID1
     IT_EVENTS                         = I_EVENTS
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = ITAB1[]
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*&      Form GETCHGDOCS
      text
FORM GETCHGDOCS.
CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
    EXPORTING
      DATE_OF_CHANGE    = CDHDR-UDATE
      OBJECTCLASS       = CDHDR-OBJECTCLAS
      OBJECTID          = CDHDR-OBJECTID
      TIME_OF_CHANGE    = CDHDR-UTIME
      USERNAME          = CDHDR-USERNAME
    TABLES
      I_CDHDR           = ICDHDR
    EXCEPTIONS
      NO_POSITION_FOUND = 1
      OTHERS            = 2.
CHECK SY-SUBRC EQ 0.
DELETE ICDHDR WHERE CHANGE_IND EQ 'I'.
CHECK NOT ICDHDR[] IS INITIAL.
LOOP AT ICDHDR.
    CHECK ICDHDR-UDATE IN XUDATE.
   CHECK ICDHDR-USERNAME IN XNAME.
    CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
      EXPORTING
        CHANGENUMBER      = ICDHDR-CHANGENR
      IMPORTING
        HEADER            = CDHDR
      TABLES
        EDITPOS           = ICDSHW
      EXCEPTIONS
        NO_POSITION_FOUND = 1
        OTHERS            = 2.
    CHECK SY-SUBRC EQ 0.
    DELETE ICDSHW WHERE ( CHNGIND NE 'U' OR TABNAME NE 'EKPO' ).
    LOOP AT ICDSHW.
      CHECK ICDSHW-TEXT_CASE EQ SPACE.
      MOVE-CORRESPONDING ICDSHW TO ITAB.
      MOVE-CORRESPONDING ICDHDR TO ITAB.
      MOVE ICDSHW-TABKEY+3 TO ITAB-EKKEY.
      APPEND ITAB.
    ENDLOOP.
ENDLOOP.
ENDFORM.                    "GETCHGDOCS
*&      Form BUILD_COMMENT
      text
     -->P_I_HEADING text
FORM BUILD_COMMENT USING P_I_HEADING TYPE SLIS_T_LISTHEADER.
DATA: WA_LINE TYPE SLIS_LISTHEADER,
          TEXT1(50) TYPE C,
          TEXT2(40) TYPE C,
          W_DATE1(10) TYPE C,
          W_DATE2(10) TYPE C.
CONCATENATE ' CHAMBAL FERTILISERS AND CHEMICALS LIMITED' ' ' INTO TEXT1.
WA_LINE-TYP = 'H'.
WA_LINE-INFO = TEXT1.
APPEND WA_LINE TO P_I_HEADING.
CLEAR TEXT1.
CONCATENATE ' AMENDED ORDERS' ' ' INTO TEXT1.
WA_LINE-TYP = 'S'.
WA_LINE-INFO = TEXT1.
APPEND WA_LINE TO P_I_HEADING.
write xudate-low to w_date1 DD/MM/YYYY .
write xudate-high to w_date2 DD/MM/YYYY .
concatenate 'PERIOD FROM : ' W_DATE1 ' TO ' W_DATE2 INTO TEXT2 SEPARATED BY SPACE.
WA_LINE-TYP = 'S'.
WA_LINE-INFO = TEXT2.
APPEND WA_LINE TO P_I_HEADING.
ENDFORM.                    " build_comment
*&      Form EVENT_BUILD
      text
     -->P_I_EVENTS text
FORM EVENT_BUILD CHANGING P_I_EVENTS TYPE SLIS_T_EVENT.
DATA: W_EVENT TYPE SLIS_ALV_EVENT.
CONSTANTS:
GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = P_I_EVENTS.
READ TABLE P_I_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO W_EVENT.
IF SY-SUBRC = 0.
    MOVE GC_FORMNAME_TOP_OF_PAGE TO W_EVENT-FORM.
    APPEND W_EVENT TO P_I_EVENTS.
ENDIF.
ENDFORM.                    " event_build
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE .
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = I_HEADING
      I_LOGO             = 'CFCLLOGO'.
ENDFORM.                    " top_of_page

Po amendment report

Similar Messages

Maybe you are looking for