Report for md04

Hi all,
My requirement is as follows for a small report. When we open transacion md04, give material and plant, and execute the transaction, then click on lense beside any mrp element and click on the pegged documents button in the pop up - (shift + f5), it shows the pegged requirements report. report - the one with date, requirements, required quantity and requirements quantity.
I want to create a similar report - where the user would give the material. plant and plant order number and he would get the details similar to that of the pegged requirements. Please suggest if anyone have a report with similar requirements.
Regards,
Ronnie

Helloz,
when I run md04 and click the pegged documents, I see the output as below:
Date       Requirements                                                    Reqmts quantity                 Required quanti
17.06.2008 Order      PL-310800073-10-03 AEIW 3108700073/000300/0001               1 NO             3
Now, other details, i would be able to get but this entry - 3108700073/000300/0001    i am not able to find any place, where is stored?
Please suggest.

Similar Messages

Error in the explosion of "order report for element" in MD04

Hi gurus,
On the report MD04, I try to explode the "order report for element", where you can find the tree of the bom with the mrp results to cover the materials needs, but the following error occurs:
"Order 000001008418 possibly contains recursive BOM components
Message no. MF331
Diagnosis
The order contains component reservations that could have a higher low-level code than that of the order material.
To avoid an endless loop the requirement for this component is not included."
As one of you suggested, I tryed to install the Snote: 10000698, but the systeme tell me that there are no valid input to manage.
The error related is the follow:
"SAP Note does not contain valid correction instructions
Message no. SCWN002
Diagnosis
You tried to implement corrections that are contained in an SAP Note.
The corrections in this SAP Note are, however, not valid for the release and Support Package level of your system. This means that the error that is described in the SAP Note either did not occur in your system, or it has already been corrected by a Support Package.
In certain cases the error cannot be corrected by an SAP Note correction.
System Response
The system cannot implement the SAP Note.
Procedure
Follow the recommendations in the SAP Note text."
..now, what can I do?I can find No significative instruction on the note!!
Please help me: our client is very annoyed by this problem!
Thanks,
Valentina

Dear,
Error message MF331 'Order & possibly contains recursive BOM components' is generated in the order report.
If the header BOM material same you are using as a component then BOM become Recursive.
If you create a recursive BOM, you must decide whether you want to allow recursiveness or delete the component that caused the recursiveness,
Go to CS02 BOM of that material and check the sets recursive indicator.
Also refer the OSS Note 839879. 161742 - Consulting note:
Regards,
R.Brahmankar

Report for planned or prodcution order for production in Alternate plants

Hai gurus,
I have two plants - X and Y
Plant x have finished goods A and B to be produced and procured from plant - Y
plant Y have finished goods C and D to be produced and procured from plant - X
The production in alternate plant concept is used in plant X for Product A and B
The production in alternate plant concept is used in Plant Y for Product C and D.
Now my requirement is how to get the report for the Purchase order raised by the
plant X for the Finished product A and B , also how to know the planned order
and production order with reference to purchase order for Finished product A and B
under plant - Y
and VIce versa for the Finished product C and B in plant X and Y
Waiting for the positive reply.
Regards,
Sekar chand

There are a few reports that you can use to display STO requisitions and orders, by supplying plant, material, or MD04 like was mentioned.
The only thing that you don't have in a report is the link to the production order. In SAP in a MTS situation there's no fixed link (pegging) between the requirement (STO) and the supply (prod Ord).
You can view the pegging dynamically, for example in MD04.
Edited by: Mario Adler on Oct 27, 2011 12:13 PM

PR and PO should be display in IWBK report for stock item.

Hi Exterts,
Our client requirement is to display PR and PO number in IWBK report for stock item as well.
I know PR and PO can be display in IWBK report for non-stock item but how we can display PR and PO for stock item,as PR is generated through MRP for stock item.
Please share your ideas on this.
Regards
Vishu

Vishu,
In typical MRP settings you "procure to stock" not "procure to order".
This means that there is no direct link between the PM/CS orders and any PR/POs created via MRP.
Subsequently you will not be able to show this data in IWBK.
However, we are currently designing a customer-specific report similar to IWBK that also counts the number of open POs for a given material on a PM/CS work order. The user can then navigate to ME2M (PO list) or MD04 (stock requirements list) to get further details.
PeteA

MD4C order report for shipping notification doesnu2019t display any component

Dear guru ,
I have created a shipping notification for a subcontract order.
If I run order report (using MD04 or MD4C) for shipping notification doesnu2019t display any component.
I have seen note 498217.
Any workaround does exist ? What do you suggest ?
I need to have a confirmation date from vendor but also to have a pegging of the requirements.
Thanks in advance.

Any suggestions to this? I have the same problem
rgds
GAR

Report for Qty Contract and Value Contract with PO release exceeding limits

Hi All,
Is there a std report in SAP that the users can use to view Qty and Val Contracts that has exceed in Qty (in case of Qty Contracts) or Val (in case of Val Contracts) ?
Thanks in advance!

hi Duke,
If thinking logically, then there is no report for the same..this may be because you enter the qty or value limits in the contract doc itself....So, when you make the PO for the same, and if the qty or value exceeds the system automatically provides the message..stating that the qty or value has exceeded....
So, there is no report for the same...
Hope it helps...
Regards
Priyanka.P

PS report for Actual and commitment Balance

Dear experts,
Is there any report in PS where i can see list of projects has actual balance and commitment balance?
Note: I want to see only the balance of actual cost ( which is not settled) and commitment balance (Open PO, PR etc..)
Regard
Vetrivelan

Hi,
For commitment- CJI5
actual - CJI3 with correct layout as per you requirement.
also try S_ALR_87013558 report & go to line item report for detail actuals(& you have to change the layout accordingly) & commitment.
hope this would help you...
regards,
SL

Simulair report for FBL5N and FBL1N for new general ledger on segment level

We are working with segments in new G/L ledger. We want to run a open item report where we can combine customers and vendors by segment. The vendors and customers are linked in the master data. In the "old" reports FBL5N and FBL1N you can do this but not by segment.I found the following report on segment level:
- S_PCO_36000218 - Receivables: Segment
- S_PCO_36000219 - Payables: Segment
What I'm missing is to run 1 report for Customers and vendors. What I'm missing to is that there are only some fields available on line item level. (I like to have invoice number, documentype,.......)
Is there a standard report for this in new genaral leger?
Is it possible to ad additional field to th list viewer.

What is this user license type? All financial transactions need professional license.
Thanks,
Gordon

How to create a report for open sales orde documents which are not invoiced

Hi Experts this is urgent,
+pls give the Logic for document flow+
My requirement is create a report for sales orders which are not invoiced using the following table.
VBAK : sales order header
VBAP : sales order item
VBFA : sales document flow
VBUK for processing status
KOMV for duties value and sales order value
LIKP : delivery not header
LIPS :delivery note item
For information : In the header level the processing Status is indicated in the table VBUK field LFSTK for one sales order number. A,B , C are the possible entries.
Case A : When a sales order is invoiced we can display information on the header status :
Overall status : Completed and display a invoice number in the document flow. When the items of the sales orders are invoiced the process status is the following : Overall status Completed
Delivery status Fully delivered
Case B : An open sales order not delivered and not invoiced will have overall status : Open on the header and item level and will not have subsequent documents.
Case C :
When the items for the sales order are delivered but not invoiced the status will be u201Cfully deliveredu201D
And the subsequent documents will be delivery notes and good issue if the delivery note is issued.
With regards
ravi
Edited by: ravik ravik on Jun 25, 2008 3:29 PM

Hello Ravi,
U neednot develop any report..
there is std report with txn V.02
or copy this and make necessary changes.
Reward, if helpful.
Rgds,
Raghu.

Aging report for Open Invoice

Hi All,
I need to develop an Aging report for open invoice, there is no indication for open invoice or close invoice since we are using customise DS and DS from third party system. only one key flag we have is clearing date. so kindly let me know how to write the logic for this requirement.. can I use Customer exit for this? I have an Idea to do like
first logic is
*If Clearing date = blank than invoice is = open (by using of this logic we can get all open invoice).
second logic
total number of invoice = current date - document date.
but I do not know how to implement this logic in BEx hnece kinnly advice me whether this logic can be work or suggest with different solution ples..
Regards,

hi,
You can check few default PO reports wid proper paramater in it
or
Can check table EKBE
or
Check PO history in the PO doc
Or
Check the ME80FN
Regards
Priyanka.P

Report for material with sloc,qty available, and production order

hi friends, i need advice on getting this report for material with qty and specific sloc with the corresponding Prodn order numbers. in mb51 i could get all these details except the prodn order no. could you advice me please?

to make sure you know how to do this.
In the material document list, hit "Ctrl+F8" on your keyboard.
A window will pop up. Click on the button position and look for "order" in the list of available fields. That should do it.
Rgds.

Report for Comparison of Material Qty

Hi All,
I need to Develop an Interactive report for Comparison of Material Qty. ordered through Purchase requisition, ordered material through PO and corresponding Material Receipt report.
Can Someone Give a brief description about this & fields tcode & tables regarding this report.A sample code would be much appreciated.
Thanks & regards,
Ravi S

To get the material number combined with the PO text you will need the help of an ABAP programmer. The programmer can create a report for you using the function module READ_TEXT in the function group STXD. The tables to use are:
STXH - STXD SAPscript text file header
STXL - STXD SAPscript text file lines
The selection screen should have at least the following:
OBJECT - STXH-TDOBJECT
NAME - STXH-TDNAME
LANGUAGE - STXH-TDSPRAS
TEXTID - STXH-TDID
You find the information for these fields by going to the PO text entry screen and displaying the header information under Goto -> Header. For materials, the object is MATERIAL, the name is "material number", the language is "EN", and the text ID is BEST. You can use this program to get long text in lots of places like information records, purchase order texts, etc.
Hope this helps.

Report for open process orders

Dear SAP experts,
As the period of the process order from open to close is not short, will take 1 or 2 months in our business case, so we want to find a report which can get the information just like the output of KSPP(for planned orders) .
I tried to analysis the logic of program KSPP, and it seems the function modules based on the planned orders only.
Is there any way to get the similar report for open process orders?
Many Thanks,
Lisa Yao

Is there any clues?

Report for open order and shipped qty summary

Dear Folks,
           Can any one please help me.
Report for open order summary Vs shipped quantity
what are the related programs to it.
throw some light on it.

>
arpita b wrote:
> Dear rohit
>
>     Iam asking about any report which compares or give details of open order vs shipped qty.
>
> Any sis report is available for this?
Hi Arpita,
There is no such sis report available. You will have to configure and create two seperate reports and do the comparison.
If you want, I will send you the list of all T.codes used to generate reports in SD.
Revert back to me if you need the same.
Regards,
Swapna D.

Report for stock statement

hi guy's,
   i am doing report for the stock statement .... my issue is in MB5B if i reverse some document it shows as it move's to issue QTY and my receipt is same but my closing stock is correct ...is there any std report avalible ....
thank's in advance

Use this code :
TABLES : MSEG,MKPF,MARA,MAKT,BEWART,MSLB,BSIM.
TYPE-POOLS : SLIS.
DATA : IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
       IT_LIST_HEADER TYPE SLIS_T_LISTHEADER,
       IT_EVENTS TYPE SLIS_T_EVENT,
       GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
       WA_SORT TYPE SLIS_SORTINFO_ALV,
       IT_SORT TYPE SLIS_T_SORTINFO_ALV,
       REPID LIKE SY-REPID,
       FRM_DATE(10),TO_DATE(10),
       DISPTEXT(255),DISPTEXT2(255).
TYPES : BEGIN OF ST_OPBAL,
         MATNR LIKE MSEG-MATNR,
         MAKTX LIKE MAKT-MAKTX,
         BATCH LIKE MSEG-CHARG,
         BWART LIKE MSEG-BWART,
         MENGE LIKE MSEG-MENGE,
         ZEILE LIKE MSEG-ZEILE,
         WERKS LIKE MSEG-WERKS,
         SOBKZ LIKE MSEG-SOBKZ,
         BUDAT LIKE MKPF-BUDAT,
         SHKZG LIKE MSEG-SHKZG,
         DMBTR LIKE MSEG-DMBTR,
         MBLNR LIKE MSEG-MBLNR,
         LGORT LIKE MSEG-LGORT,
       END OF ST_OPBAL.
DATA : OPBAL TYPE ST_OPBAL OCCURS 0 WITH HEADER LINE,
       TMP_OPBAL TYPE ST_OPBAL OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF BAL_NOREF OCCURS 0,
          MATNR LIKE MARA-MATNR,
          SHKZG LIKE MSEG-SHKZG,
          DMBTR LIKE MSEG-DMBTR,
       END OF BAL_NOREF.
DATA : BEGIN OF OPBAL2 OCCURS 0,
         SNO(3)      TYPE N,
         MATNR       LIKE MSEG-MATNR,
         MAKTX       LIKE MAKT-MAKTX,
         OP_BAL      LIKE MSEG-MENGE,
         OP_STKVAL   LIKE MSEG-DMBTR,   "NEW
         REC         LIKE MSEG-MENGE,
         T_OPBAL_REC LIKE MSEG-MENGE,
         REC_STKVAL LIKE MSEG-DMBTR,   "NEW
         ISS         LIKE MSEG-MENGE,
         ISS_STKVAL LIKE MSEG-DMBTR,   "NEW
         SALES       LIKE MSEG-MENGE,
         T_ISS       LIKE MSEG-MENGE,
         CL_BAL      LIKE MSEG-MENGE,
         BATCH       LIKE MSEG-CHARG,
         SUBCON      LIKE MSEG-MENGE,
         CL_STKVAL   LIKE MSEG-DMBTR,
       END OF OPBAL2.
DATA SERNO(4) TYPE C.
DATA OPTOT TYPE P DECIMALS 3.
DATA RECTOT TYPE P DECIMALS 3.
DATA ISSTOT TYPE P DECIMALS 3.
DATA TOTALL TYPE P DECIMALS 3.
DATA FLG        TYPE N.
DATA FLAG       TYPE N.
DATA STOCKVAL        TYPE MSEG-DMBTR.
DATA REC_STOCKVAL    TYPE MSEG-DMBTR.
DATA ISS_STOCKVAL    TYPE MSEG-DMBTR.
DATA CL_STKVAL       TYPE MSEG-DMBTR.
SELECTION-SCREEN BEGIN OF BLOCK X WITH FRAME.
     SELECT-OPTIONS: P_MATNR FOR MSEG-MATNR,
                     P_MGRP FOR MARA-MATKL,
                     P_DATE FOR MKPF-BUDAT,
     P_PLANT FOR MSEG-WERKS DEFAULT 'NB01' OBLIGATORY NO INTERVALS
                                                NO-EXTENSION .
     SELECT-OPTIONS: P_STLOC FOR MSEG-LGORT NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK X.
INITIALIZATION.
   REPID = SY-REPID.
   PERFORM FILL_FLDCAT USING IT_FLDCAT.
   PERFORM FILL_EVENTS USING IT_EVENTS.
   PERFORM FILL_LAYOUT USING GS_LAYOUT.
START-OF-SELECTION.
CONCATENATE P_DATE-LOW6(2) '.' P_DATE-LOW4(2) '.' P_DATE-LOW+0(4)
INTO FRM_DATE.
CONCATENATE P_DATE-HIGH6(2) '.' P_DATE-HIGH4(2) '.' P_DATE-HIGH+0(4)
INTO TO_DATE.
CONCATENATE TEXT-003 FRM_DATE' TO : ' TO_DATE INTO DISPTEXT.
CONCATENATE TEXT-004 P_PLANT-LOW ' Storage Location : ' P_STLOC-LOW
INTO DISPTEXT2.
PERFORM FILL_HEADER USING IT_LIST_HEADER.
SELECT A~MATNR
          F~MAKTX
          A~CHARG
          A~BWART
          A~MENGE
          A~ZEILE
          A~WERKS
          A~SOBKZ
          D~BUDAT
          A~SHKZG
          A~DMBTR
          A~MBLNR
          A~LGORT
          INTO TABLE OPBAL
   FROM MKPF AS D JOIN MSEG AS A
           ON DMBLNR = AMBLNR AND
              DMJAHR = AMJAHR
        JOIN MARA AS E
           ON EMATNR = AMATNR
        JOIN MAKT AS F
           ON FMATNR = AMATNR
   WHERE   A~MATNR IN P_MATNR
     AND   A~WERKS IN P_PLANT
     AND   A~KZBEW IN (' ','B')
     AND   E~MATKL IN P_MGRP
     AND   A~BWART NOT IN ('541','542','321','322','121')
     AND   A~KZVBR NOT IN ('A')
     AND   D~BUDAT LE P_DATE-HIGH.
LOOP AT OPBAL WHERE BWART EQ '544' AND LGORT EQ ''.
   TMP_OPBAL = OPBAL.
   APPEND TMP_OPBAL.
ENDLOOP.
DELETE OPBAL WHERE ( BWART EQ '309' AND DMBTR EQ 0 ).
DELETE OPBAL WHERE ( BWART NE '543' AND LGORT EQ '' ).
LOOP AT TMP_OPBAL.
   OPBAL = TMP_OPBAL.
   APPEND OPBAL.
ENDLOOP.
STOCKVAL = 0.
SORT OPBAL BY MATNR BATCH BUDAT.
LOOP AT OPBAL.
SELECT SINGLE LBLAB INTO MSLB-LBLAB FROM MSLB
                        WHERE MATNR = OPBAL-MATNR.
IF OPBAL-BUDAT LT P_DATE-LOW.
     IF OPBAL-SHKZG = 'H'.
        OPTOT = OPTOT - OPBAL-MENGE.
     ELSEIF OPBAL-SHKZG = 'S'.
        OPTOT = OPTOT + OPBAL-MENGE.
     ENDIF.
For the duration   II part *****************
ELSEIF OPBAL-BUDAT IN P_DATE.
     IF OPBAL-SHKZG = 'H'.
        ISSTOT      = ISSTOT + OPBAL-MENGE.
     ELSEIF OPBAL-SHKZG = 'S'.
        RECTOT = RECTOT + OPBAL-MENGE.
     ENDIF.
ENDIF.
AT END OF BATCH. " modified for chek
   READ TABLE OPBAL INDEX SY-TABIX.
   CLEAR BAL_NOREF. REFRESH BAL_NOREF.
   SELECT MATNR SHKZG SUM( DMBTR )
     INTO TABLE BAL_NOREF
     FROM BSIM
    WHERE BUDAT LT P_DATE-LOW AND
          MATNR EQ OPBAL-MATNR AND
          BWTAR EQ OPBAL-BATCH AND
          BWKEY IN P_PLANT     AND
          BLART IN ('RE','WE','WA','PR')
    GROUP BY MATNR SHKZG.
   LOOP AT BAL_NOREF.
      IF BAL_NOREF-SHKZG = 'H'.
         STOCKVAL = STOCKVAL - BAL_NOREF-DMBTR.
      ELSE.
         STOCKVAL = STOCKVAL + BAL_NOREF-DMBTR.
      ENDIF.
   ENDLOOP.
   CLEAR BAL_NOREF. REFRESH BAL_NOREF.
   SELECT MATNR SHKZG SUM( DMBTR )
     INTO TABLE BAL_NOREF
     FROM BSIM
    WHERE BUDAT IN P_DATE AND
          MATNR EQ OPBAL-MATNR AND
          BWTAR EQ OPBAL-BATCH AND
          BWKEY IN P_PLANT     AND
          BLART IN ('RE','WE','WA','PR')
    GROUP BY MATNR SHKZG.
   LOOP AT BAL_NOREF.
      IF BAL_NOREF-SHKZG = 'H'.
         ISS_STOCKVAL = ISS_STOCKVAL + BAL_NOREF-DMBTR.
      ELSE.
         REC_STOCKVAL = REC_STOCKVAL + BAL_NOREF-DMBTR.
      ENDIF.
   ENDLOOP.
   " MSLB-LBLAB (STOCK WITH SUBCONTRACTOR).
   CL_STKVAL       = STOCKVAL + REC_STOCKVAL - ISS_STOCKVAL.
   TOTALL = OPTOT + RECTOT - ISSTOT.
   IF OPTOT = '0'   AND RECTOT = '0' AND ISSTOT = '0'.
      FLG = 1.
   ENDIF.
   IF FLG = 1.
      CLEAR FLG.
   ELSE.
      SERNO = SERNO + 1.
      OPBAL2-SNO         = SERNO.
      OPBAL2-MATNR       = OPBAL-MATNR.
      OPBAL2-MAKTX       = OPBAL-MAKTX.
      OPBAL2-OP_BAL      = OPTOT.
      OPBAL2-REC         = RECTOT.
      OPBAL2-T_OPBAL_REC = OPTOT + RECTOT.
      OPBAL2-ISS         = ISSTOT.
      OPBAL2-T_ISS       = ISSTOT.
      OPBAL2-CL_BAL      = TOTALL.
      OPBAL2-BATCH       = OPBAL-BATCH.
      OPBAL2-SUBCON      = MSLB-LBLAB.
      OPBAL2-OP_STKVAL   = STOCKVAL.
      OPBAL2-ISS_STKVAL = ISS_STOCKVAL.
      OPBAL2-REC_STKVAL = REC_STOCKVAL.
      OPBAL2-CL_STKVAL   = CL_STKVAL.
      APPEND OPBAL2.
   ENDIF.
OPTOT = 0.
RECTOT = 0.
ISSTOT = 0.
STOCKVAL = 0.
ISS_STOCKVAL = 0.
REC_STOCKVAL = 0.
CL_STKVAL    = 0.
ENDAT.
ENDLOOP.
WA_SORT-SPOS = 1.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = REPID
      IT_FIELDCAT        = IT_FLDCAT
      IT_EVENTS          = IT_EVENTS
      IS_LAYOUT          = GS_LAYOUT
      IT_SORT            = IT_SORT
    TABLES
      T_OUTTAB           = OPBAL2.
FORM FILL_FLDCAT USING P_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
   PERFORM FILL_PARAM_FLDCAT USING 1 'SNo'          'SNO'       ' ' 'X'
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 2 'Material No.' 'MATNR'     ' ' 'X'
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 3 'Description' 'MAKTX'     ' ' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 4 'Op.Bal'      'OP_BAL'     'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 5 'Op.Stock Val' 'OP_STKVAL' 'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 6 'Receipts'     'REC'       'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 7 'Total'     'T_OPBAL_REC' 'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 8 'Rect.Val.' 'REC_STKVAL'   'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 9 'Issues'    'ISS'          'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 10 'Iss. Val.' 'ISS_STKVAL'   'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 11 'Cl. Bal.'     'CL_BAL'    'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 12 'Cl.Stock Val' 'CL_STKVAL' 'X' ' '
   'OPBAL2' P_FLDCAT.
   PERFORM FILL_PARAM_FLDCAT USING 13 'BATCH '       'BATCH'     ' ' ' '
   'OPBAL2' P_FLDCAT.
ENDFORM.
FORM FILL_PARAM_FLDCAT USING VALUE(P_COL) VALUE(P_TEXT) VALUE(P_FLDNAME)
                       VALUE(P_DOSUM) VALUE(P_NOZERO) VALUE(P_TABNAME)
                       PP_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
   DATA : WA_FLDCAT TYPE SLIS_FIELDCAT_ALV.
   CLEAR WA_FLDCAT.
     WA_FLDCAT-COL_POS   = P_COL.
     WA_FLDCAT-SELTEXT_M = P_TEXT.
     WA_FLDCAT-FIELDNAME = P_FLDNAME.
     WA_FLDCAT-TABNAME   = P_TABNAME.
     WA_FLDCAT-DO_SUM    = P_DOSUM.
     WA_FLDCAT-NO_ZERO   = P_NOZERO.
   APPEND WA_FLDCAT TO PP_FLDCAT.
ENDFORM.
FORM FILL_HEADER USING P_IT_LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = TEXT-002.
APPEND LS_LINE TO P_IT_LIST_HEADER.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = DISPTEXT.
APPEND LS_LINE TO P_IT_LIST_HEADER.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-INFO = DISPTEXT2.
APPEND LS_LINE TO P_IT_LIST_HEADER.
ENDFORM.
FORM FILL_EVENTS USING P_IT_EVENTS TYPE SLIS_T_EVENT.
   DATA LS_EVENT TYPE SLIS_ALV_EVENT.
   MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
   MOVE 'TOP_OF_PAGE' TO LS_EVENT-NAME.
   APPEND LS_EVENT TO P_IT_EVENTS.
ENDFORM.
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
   EXPORTING
     IT_LIST_COMMENTARY       = IT_LIST_HEADER.
ENDFORM.
FORM FILL_LAYOUT USING P_GS_LAYOUT TYPE SLIS_LAYOUT_ALV.
   P_GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
   P_GS_LAYOUT-ZEBRA             = 'X'.
   P_GS_LAYOUT-FLEXIBLE_KEY      = 'X'.
ENDFORM.
FOR TESTING PURPOSE.
*SORT OPBAL BY BUDAT.
*CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM = REPID
     IT_FIELDCAT        = IT_FLDCAT
     IT_EVENTS          = IT_EVENTS
   TABLES
     T_OUTTAB           = OPBAL.
*FORM FILL_FLDCAT USING P_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
PERFORM FILL_PARAM_FLDCAT USING 1 'MBLNR'        'MBLNR'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 2 'CREDIT/DEBIT' 'SHKZG'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 3 'MOV.TYP.'     'BWART'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 4 'ST.LOC.'     'LGORT'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 5 'STOCK VAL'    'DMBTR'
'OPBAL' P_FLDCAT.
PERFORM FILL_PARAM_FLDCAT USING 6 'POS.DATE'     'BUDAT'
'OPBAL' P_FLDCAT.
*ENDFORM.

Report for md04

Similar Messages

Maybe you are looking for