AR Invoice Remaining Amount on a particular date

Hi All,
Can anyone of you plz tell me how to get the remaining amount on an invoice on a particular date.
In AR_PAYMENT_SCHEDULES_ALL, we get the current remaining amount..
Any help will be greatly appreciated..
Thanks
gt1982

Hi Rahul
Yes, I thought about the way of hiding/deactivating columns. The problem is that, potentially, a user can unhide and reactivate columns back... Looks like it is not safe 100%.
As a result the only thing we can do is remove "Form Settings" authorizations from ALL users, which is rather inconvinient, because some users would lie to play with the way documents look like, reports , etc...
The point here is "Change row amount" suddenly becomes not totally reliable authorizatioon.
Thank you
Rakhim

Similar Messages

Why invoice aging report only display invoice remaining amount?

I setup aging period 0~30, 31~60,61~90,90~9999.
When I submit invoice aging report,Only Remaining Amount Display. The period column-label is null and the value is zero.
Why?

sounds like intented functionality. Are you using the correct version and not an older version of the report?

Closing Stock of a particular date:Function Module

Hello Experts,
I m developig a report in which I want Closing Stock amount of a particular date.
Is there any funtion module for this, as in tables S031, mard I m getting Closing Stock as on date.
Pls suggest
Priyanka

Hi Priyanka,
I didnt find any function module for this purpose.
You can create your FM for this purpose.
You can refer following thread for the reference:
Re: closing stock of a particular date
Closing Stock of a Material
Re: Stock on a particulare date
Hope this will help.
Regards,
Nitin.

AR - Due amount for the particular Invoice on particulardate

Hi,
I want to know, how we can know for particular invoice, what is the due Item (Amount) on particular day.
Example:
Invoice:
Posting date: 01/06/2009
Due Date:30/06/2009
Amount: 100
Payment Term: 2 % 30 Days, Net 45 Days.
When I am posting payment (F-28), how can I know how much amount customer need to pay for the invoice, without calculating the discount percentage, means wothout going to the invoice.
Is there any report / Table which gives results for customer due on particular date?
please revert back if need more clarification for the query.
Regards,
Pankaj

Hi
1. Create the Line layout at the time of processing open items from the following path
SPRO-Financial Accounting (New)-Accounts Receivable and Accounts Payable-Business Transactions-Outgoing Payments-Manual Outgoing Payments-Make Settings for Processing Open Items-Define Line Layout
Transaction Code -O7Z4S
Create your own layout with required fields like document number(BELNR), doc. date(BLDAT), Document type(BLART), net due date(NETDT), days in arrears(VERZG)
2. after creation of your layout assign your layout to Post with Clearing Customer payments(F-28) from the following path
SPRO-Financial Accounting (New)-Accounts Receivable and Accounts Payable-Business Transactions-Outgoing Payments-Manual Outgoing Payments-Make Settings for Processing Open Items- Choose Standard Line Layout
Transaction Code -O7V3
double click on FB05-Post with clearing, select the customer radio button and enter.
assign line layout created/modified by you.
when u posting the payments, u can get your layout at the time of process open items tab click.
or
From FBL5N u can create your own layout with net due date.
hope above may resolve your query

Remaining amount in forward contract

Dear Experts,
How to identify the remaining amount in the original contract after making premature settlement?
For example:
We have USD 10000 in original contract. We have done a premature settlement for USD 2000. The system should display the remaining amount while making subsequent premature settlement. How this can be achieved? This seems to be very basic requirement but the system does not seem to have any option in this regard.
Thanks,
Vinod P

Dear Manish,
Thanks for your reply!
Here our requirement is, everytime we need to check for the remaining balance in the original contract in TX06. But can this be achieved by creation of a field in the original contract - structure tab?
I understand that the remaining balance in the contract is calculated in the background and stored somewhere in the table, may be I am wrong. Hence, the system throws an error message when making a premature settlement for excess amount than what is available in the original contract.
Further the requirement is, when we rollover the original contract on expiry date. The remaining balance in the original contract has to be settled at a particular rate. Hence, making a field available in the original contract and making a cash settlement for that remaining amount should be made possible. Is this scenario possible?
Thanks,
Vinod

T510 entry not present on particular date

Hi all,
I have created paysacle type , pay Scale Are , Pay Scale Group and it level and has assigned it in PA30 for infotype 0008 along with the country grouping .
But i am getting an error saying ' No table Entry inTable T510 for the Key county grouping Pay Scale Type PayScale Area Pay Scale Grouping and Level on particular date.
When i looked at T510 entry , I can see those Records .
Can you please suggest what i am missing here .
Thanks in Advance,
Regards,
Ry

Hi,
Maintain the T510 table with wage type and along with amounts.
Like
Grouping PS group level wage type start end amount cur
3 TOP 1 1011 10,000 inr
In this way maintain the grouping and values. after matain the IT0008. If it is coming same error directly maintain the amounts for that each wage types. That's good.
Good luck
Devi

How to calculate Opening Stock for a particular date.

Hi Experts,
I have a sitution to calculate Opening stock for a particular date.
please help me with the necessary Fields & Tables required.
Appriciate If any Sample coding available.
Thanks & regards,
Venkat.

Hi Venkat,
To Calculate Opening Stock & Closing stock there are different procedures.
It just depends of\n the client requirements & usage of the material.
For example, we have different types of stocks, like, Through Pipeline, Special, Unristricted, quality, safety,
and many types of stocks.... so all these types are indicated in MSEG tabe in SOBTZ field,...
Now Comimg to your Query, You need to calculate OPENING & CLOSING STOCK.
We have a similiar standard report in MB5B Tcode..
to get the same results in your report do like this...
For valuated stock go to the MARDH, MBEWH, MCHBH tables But I Prefer MBEWH.
here in MBEWH give the month & year and you get the result in LBKUM field...
For Special stock, You need to go to another table like MKOLH,,(I forgot still 2 more) and
give the month & year inputs and you will get the result in SLABS field.
and remaining MB5B refers to its deetails lists with different Movement types,
whcih you can get clearly from MSEG Table...
Hope you can write the select Queries accordingly.
Thanks & Regards,
Dileep .C

Open PO List as on particular date

Hi all,
I need a report which will give me the Open purchase orders as on particular date.
For example: the report of open PO as on 31st March shold be viewed on 25th April.
Is there any standard reports which will fulfill this requirement. I already checked with ME2L/ME2M where you have the option of giving delivery date. That won't meet my requirement.
Please help me out.
Thanks in advance,
Manju

Assume you have a PO that was created in April, received in June, invoiced in July.
today is August and you want list open POs of May.
So you have to read POs that where created before May, and have to check whether they are still open.
if so you can directly list.
if not open, then you have to find the documents that closed the PO, have to find the date when they got createdor changed and have to compare this with the date you want see the open POs. Depending they were created after this date you can consider the PO as open, ................
For what reason do you need such a report, what benefit will this report give to anybody?

PO OPEN QTY AT PARTICULAR DATE

Hi Experts
I need to check the open qty of purchase order bcoz i have to upload the PO from old system to new system.
so i want to get the Open Purchase order qty from particular date say 1st april .
so that i can upload the same into new System with upload programme.
Thanks
Pankaj Agarwal

If the legacy system is also a SAP system, you may refer to ME2* series reports (eg: ME2M, ME2N, etc).
As regards to open, it depends on the definition of open PO, so PO's which are not delivered, those delivered but not invoiced etc. So use the selection parameter eg: WE101 to get the relevant data.
If you wish to do the same at table level, then some of the tables which should help are EKKO,EKPO,EKBE,EKET,MSEG.
However if the legacy system is not a SAP system, then get in touch with the client's IT team to do the extraction.
Also do search in MM forum to find similar threads.

AR Invoice rounding amount

Hi all
AR Invoice rounding amount becomes Discount amount after copied to AR Credit Note.
Please advise any way to let AR Invoice rounding amount automatically remained as rounding amount in AR Credit Note?
Kedalene

Hi Kedalene,
If SAP B1 automatically calculates round off based on the settings (Rounding based on Document / Based on Currency), then AR Invoice Round off value will be automatically comes in AR Credit Memo Round off field.
If user manually changes in Round off field in AR Invoice, that value wont carry forward to target document (in this case AR Credit Memo).
So the Conclusion is, if user manually changes round off value in One document, user has to manually change in target document also.
This is SAP B1 System behaviour
Thanks
unnikrishnan

Closing Stock on Particular Date(MB5B Tcode)

Hi Experts,
I need closing stock as on some particular date. For e.g. closing stock as on 28.02.2014.
In my requirement i have to use that closing stock value for further calculations in a new customized report.I can see closing stock value by using MB5B tcode.
Please suggest some way to get closing stock as on some date so that i can use that in my Report.
Can i directly call MB5B transaction in my Report and get closing stock value?
Thanks & Regards,
Pankaj

Hello Pankaj,
In your Customised Report use MKPF and MSEG table
MKPF -----> Material and date range as the input
Then Pass Material document number from MKPF to MSEG table
MSEG -----> based on material document number from mkpf
Create Temporary variable
values comes from the mseg where have credit and debit entries
if debit entry "S" then subtract the values of the Mseg table from the temporary variable1
if credit entry "H" then Add the values of the mseg table to the temporary variable2
finally Add the temporary variable1 and temporary variable 2 and get the total stock.

Functional Specification For Opening And closing stock On Particular Date

Dear Gurus,
I am creating report for opening and closing stock on particular date in which batch and storage location should also be included. I want to know the tables and fields for the same.I have searched the forum and got report on month basis but I want this report on posting day basis.kindly suggest tables and fields. Thanks in Advance

Dear sir,
There are many other colums that client wants to add which are not present in MB5B transaction.columns which client wants to add are as follows...
Material Number
Material Description
Material Type
Material Group
External material Group
Movement Type
Plant
Storage Location
Customer Number
Customer Name
Vendor Number
Vendor Name
Posting Date     Receipt Doc. Number
Issue Doc. Number
Reference Issue Document Number
Opening Stock Quanity
Material Receipt Quantity
Material Issue Quantity
Material Closing Stock Quantity
Value Of Closing Stock
And for this I want tables and logic for the same. kindly provide the solution for the same.

Closing stock of a particular date

how to get plant wise material closing stock on any particular date. say previous months end date. I am calculating that from MSEG table with the help of MSEGINSMK and MSEGSHKZG field. (with date filtaration by joining MBLNR of MKPF table) But stock is showing different with the closing stock showing in MB5B report for that date. I don't know which BWART of MSEG table to be excluded. My email id is [email protected]

Hi,
This is a stock aging report, you can use this for reference.
Logic: Based on current stock and value from MBEW table. The latest receipt dates were taken till the qty tallies off.Rejections and reversals are considered.
The movement types considered are ('101','102','105','106','122','123','131','132','301','302','309','310','501','502','531','532','561','562','701','702').
*& Report ZMM03_TRY                                                 *
REPORT ZMM03 LINE-SIZE 226
               LINE-COUNT 35(2)
                NO STANDARD PAGE HEADING..
TABLES : S032, "Current Stock And Grouping Terms
         MBEW, "Material Valuation
         T023T, "Material Group Desc.
         MAKT, "Material Description
         EKPO. "Purchasing Document Item.
DATA : BEGIN OF T_HEADER OCCURS 0,
       MTART LIKE MARA-MTART,
       MATNR LIKE MBEW-MATNR,
       BWKEY LIKE MBEW-BWKEY,
       MATKL LIKE MARA-MATKL,
       MAKTX LIKE MAKT-MAKTX,
       MEINS LIKE MARA-MEINS,
       LBKUM LIKE MBEW-LBKUM,
       SALK3 LIKE MBEW-SALK3,
       VERPR LIKE MBEW-VERPR,
       CLSTK LIKE MBEW-LBKUM,
       CLVAL LIKE CKMLCR-SALK3,
       UNIT LIKE CKMLCR-PVPRS,
       END OF T_HEADER.
DATA : BEGIN OF T_MSEG OCCURS 0,
       MATNR LIKE MSEG-MATNR,
       WERKS LIKE MSEG-WERKS,
       BUDAT LIKE MKPF-BUDAT,
       MBLNR LIKE MKPF-MBLNR,
       MJAHR LIKE MKPF-MJAHR,
       ZEILE LIKE MSEG-ZEILE,
       LFBNR LIKE MSEG-LFBNR,
       LFBJA LIKE MSEG-LFBJA,
       LFPOS LIKE MSEG-LFPOS,
       BWART LIKE MSEG-BWART,
       MENGE LIKE MSEG-MENGE,
       EBELN LIKE MSEG-EBELN,
       EBELP LIKE MSEG-EBELP,
       XAUTO LIKE MSEG-XAUTO,
       UMMAT LIKE MSEG-UMMAT,
       UMWRK LIKE MSEG-UMWRK,
       MARK(1),
       END OF T_MSEG.
TYPE-POOLS : SLIS.
DATA : L_STOCK TYPE MSEG-MENGE.
DATA : WA_MSEG LIKE T_MSEG.
DATA : WA_MSEG1 LIKE T_MSEG.
DATA : T_ITEMS LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : T_CUR_STOCK LIKE T_MSEG OCCURS 0 WITH HEADER LINE.
DATA : L_LBKUM TYPE MBEW-LBKUM.
DATA : BEGIN OF T_OUTPUT OCCURS 0,
         WERKS LIKE MSEG-WERKS,
         MATNR LIKE MSEG-MATNR,
         BUDAT LIKE MKPF-BUDAT,
         MENGE LIKE MSEG-MENGE,
         PDAYS TYPE I,
         PVAL TYPE MSEG-MENGE,
         MAKTX LIKE MAKT-MAKTX,
         CQTY LIKE MSEG-MENGE,
         CPRC LIKE MBEW-SALK3,
       END OF T_OUTPUT.
DATA: GRID_TAB TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DATA : T_SORT TYPE SLIS_T_SORTINFO_ALV,
       WA_SORT TYPE SLIS_SORTINFO_ALV.
*AT SELECTION-SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-014.
SELECTION-SCREEN SKIP 1.
PARAMETERS : P_DATE LIKE S032-LETZTABG OBLIGATORY DEFAULT SY-DATUM.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN END OF BLOCK 1.
SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE TEXT-015.
PARAMETERS     : P_WERKS    TYPE S032-WERKS OBLIGATORY.
SELECT-OPTIONS : S_LGORT    FOR S032-LGORT,
                 S_MATNR    FOR S032-MATNR.
SELECTION-SCREEN END OF BLOCK 2.
SELECTION-SCREEN BEGIN OF BLOCK 3 WITH FRAME TITLE TEXT-016.
SELECT-OPTIONS : S_MTART    FOR S032-MTART,
                 S_MATKL    FOR S032-MATKL.
SELECTION-SCREEN END OF BLOCK 3.
IF P_DATE IS INITIAL AND
    P_WERKS IS INITIAL AND
    S_LGORT IS INITIAL AND
    S_MATNR IS INITIAL AND
    S_MTART IS INITIAL AND
    S_MATKL IS INITIAL.
MESSAGE I398(00) WITH 'Enter Selection Critirea'(019).
SY-SUBRC = '1'.
ELSE.
SELECT AMATNR ABWKEY BMATKL BMTART CMAKTX BMEINS A~LBKUM
         A~SALK3
       INTO CORRESPONDING FIELDS OF TABLE T_HEADER
       FROM MBEW AS A INNER JOIN MARA AS B ON AMATNR = BMATNR
                      INNER JOIN MAKT AS C ON AMATNR = CMATNR
                                        WHERE A~MATNR IN S_MATNR
                                          AND A~BWKEY EQ P_WERKS
                                          AND MATKL IN S_MATKL
                                          AND MTART IN S_MTART
                                          AND BWTAR EQ ' '
                                          AND C~SPRAS = SY-LANGU.
IF SY-SUBRC EQ 0.
    SELECT ABUDAT AMBLNR AMJAHR BZEILE BMATNR BWERKS B~BWART
           BMENGE BLFBNR BLFBJA BLFPOS BEBELN BEBELP B~XAUTO
           BUMMAT BUMWRK
        INTO CORRESPONDING FIELDS OF TABLE T_MSEG
        FROM MKPF AS A INNER JOIN MSEG AS B ON AMBLNR = BMBLNR
                                           AND AMJAHR = BMJAHR
         FOR ALL ENTRIES IN T_HEADER
                                         WHERE A~BUDAT <= P_DATE
                                           AND B~MATNR = T_HEADER-MATNR
                                           AND B~WERKS = T_HEADER-BWKEY
                                           AND B~BWART IN ('101',
                                                           '102',
                                                           '105',
                                                           '106',
                                                           '122',
                                                           '123',
                                                           '301',
                                                           '302',
                                                           '701',
                                                           '702',
                                                           '131',
                                                           '132',
                                                           '309',
                                                           '310',
                                                           '501',
                                                           '502',
                                                           '531',
                                                           '532',
                                                           '561',
                                                           '562').
    PERFORM GET_DEAD_STOCK.
    PERFORM DISPLAY_OUTPUT.
ELSE.
    MESSAGE S398(00) WITH 'No Data found for'(013)
    'Given Selection Critirea'(017).
    LEAVE LIST-PROCESSING.
ENDIF.
ENDIF.
*&      Form get_dead_stock
      text
FORM GET_DEAD_STOCK .
LOOP AT T_HEADER.
    SORT T_MSEG BY MATNR WERKS BUDAT DESCENDING MBLNR DESCENDING.
    LOOP AT T_MSEG WHERE MATNR = T_HEADER-MATNR
                     AND WERKS = T_HEADER-BWKEY
                     AND ( BWART = '101' OR
                           BWART = '105' OR
                           BWART = '501' OR
                           BWART = '531' OR
                           BWART = '561' OR
                           BWART = '701' OR
                           BWART = '309' OR
                           BWART = '301' OR
                           BWART = '131' ).
      IF T_MSEG-BWART = 101.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 102.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 122.
        IF SY-SUBRC = 0.
          READ TABLE T_MSEG INTO WA_MSEG1 WITH KEY LFBNR = WA_MSEG-MBLNR
                                     LFBJA = WA_MSEG-MJAHR
                                     LFPOS = WA_MSEG-ZEILE
                                     BWART = 123.
          IF SY-SUBRC EQ 0.
            WA_MSEG-MARK = 'X'.
            MODIFY T_MSEG FROM WA_MSEG.
            CONTINUE.
          ELSE.
            IF T_MSEG-MENGE EQ WA_MSEG-MENGE.
              T_MSEG-MARK = 'X'.
              MODIFY T_MSEG.
              CONTINUE.
            ELSE.
              T_MSEG-MENGE = T_MSEG-MENGE - WA_MSEG-MENGE.
              MODIFY T_MSEG.
            ENDIF.
          ENDIF.
        ENDIF.
      ELSEIF T_MSEG-BWART = 105.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 106.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 131.
        READ TABLE T_MSEG INTO WA_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 132.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 501.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 502.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 301.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 302.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 531.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 532.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 561.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 562.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 701.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 702.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ELSEIF T_MSEG-BWART = 309.
        READ TABLE T_MSEG WITH KEY LFBNR = T_MSEG-MBLNR
                                   LFBJA = T_MSEG-MJAHR
                                   LFPOS = T_MSEG-ZEILE
                                   BWART = 310.
        IF SY-SUBRC = 0.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-XAUTO = ' '.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ELSEIF T_MSEG-MATNR EQ T_MSEG-UMMAT.
          T_MSEG-MARK = 'X'.
          MODIFY T_MSEG.
          CONTINUE.
        ENDIF.
      ENDIF.
      SELECT SINGLE EBELN INTO EKPO-EBELN FROM EKPO
                         WHERE EBELN = T_MSEG-EBELN
                           AND EBELP = T_MSEG-EBELP
                           AND KNTTP = 'K'.
      IF SY-SUBRC = 0.
        T_MSEG-MARK = 'X'.
        MODIFY T_MSEG.
        CONTINUE.
      ENDIF.
     TMENGE = TMENGE - t_mseg-MENGE.
    ENDLOOP.
ENDLOOP.
DELETE T_MSEG WHERE MARK = 'X'.
DELETE T_MSEG WHERE ( BWART = '102' OR
                        BWART = '106' OR
                        BWART = '502' OR
                        BWART = '532' OR
                        BWART = '562' OR
                        BWART = '702' OR
                        BWART = '310' OR
                        BWART = '302' OR
                        BWART = '123' OR
                        BWART = '122' OR
                        BWART = '132' ).
SORT T_HEADER BY MATNR BWKEY.
DELETE ADJACENT DUPLICATES FROM T_HEADER COMPARING MATNR BWKEY.
T_CUR_STOCK[] = T_MSEG[].
SORT T_CUR_STOCK BY MATNR WERKS.
LOOP AT T_CUR_STOCK.
    WA_MSEG = T_CUR_STOCK.
    AT END OF WERKS.
    ENDAT.
ENDLOOP.
LOOP AT T_HEADER.
    CLEAR L_LBKUM.
    L_LBKUM = T_HEADER-LBKUM.
    REFRESH T_ITEMS.
    CLEAR T_ITEMS.
    LOOP AT T_MSEG WHERE MATNR EQ T_HEADER-MATNR
                     AND WERKS EQ T_HEADER-BWKEY.
      T_ITEMS = T_MSEG.
      APPEND T_ITEMS.
      CLEAR T_ITEMS.
    ENDLOOP.
    SORT T_ITEMS BY BUDAT DESCENDING
                    MBLNR DESCENDING.
    CLEAR L_LBKUM.
    LOOP AT T_ITEMS.
      L_LBKUM = T_ITEMS-MENGE - T_HEADER-LBKUM.
      IF L_LBKUM GE 0.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_HEADER-LBKUM.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        EXIT.
      ELSE.
        T_HEADER-LBKUM = T_HEADER-LBKUM - T_ITEMS-MENGE.
        T_OUTPUT-MATNR = T_HEADER-MATNR.
        T_OUTPUT-WERKS = T_HEADER-BWKEY.
        T_OUTPUT-BUDAT = T_ITEMS-BUDAT.
        T_OUTPUT-MENGE = T_ITEMS-MENGE.
        APPEND T_OUTPUT.
        CLEAR T_OUTPUT.
        CONTINUE.
      ENDIF.
    ENDLOOP.
ENDLOOP.
ENDFORM.                    " get_dead_stock
*&      Form DISPLAY_OUTPUT
      text
FORM DISPLAY_OUTPUT .
DATA: L_DAYS TYPE I.
DATA : WA_OUTPUT LIKE T_OUTPUT.
DATA : T_FINAL LIKE T_OUTPUT OCCURS 0 WITH HEADER LINE.
DATA : WA_FINAL LIKE T_OUTPUT.
DATA : L_CQTY TYPE MSEG-MENGE,
         L_CPRC TYPE MBEW-SALK3.
DATA : L_TITLE TYPE LVC_TITLE.
DATA : L_NAME1 TYPE T001W-NAME1.
*C-- Not to output when the quantity is zero.
DELETE T_OUTPUT WHERE MENGE EQ 0.
SORT T_OUTPUT BY WERKS MATNR BUDAT.
LOOP AT T_OUTPUT.
    T_FINAL = T_OUTPUT.
    AT NEW MATNR.
      CLEAR T_HEADER.
      READ TABLE T_HEADER WITH KEY MATNR = T_OUTPUT-MATNR
                                   BWKEY = T_OUTPUT-WERKS.
    ENDAT.
    T_FINAL-MAKTX = T_HEADER-MAKTX.
    IF T_HEADER-LBKUM GT 0.
      T_FINAL-PVAL = ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ELSE.
      CLEAR T_FINAL-PVAL.
    ENDIF.
    L_CQTY = L_CQTY + T_OUTPUT-MENGE.
    IF T_HEADER-LBKUM GT 0.
      L_CPRC = L_CPRC + ( T_OUTPUT-MENGE * T_HEADER-SALK3 / T_HEADER-LBKUM ).
    ENDIF.
    CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
      EXPORTING
        BEG_DA        = T_OUTPUT-BUDAT
        END_DA        = P_DATE
      IMPORTING
        NO_CAL_DAY    = L_DAYS
      EXCEPTIONS
        DATEINT_ERROR = 1
        OTHERS        = 2.
    IF SY-SUBRC <> 0.
      WRITE : 70 'Error While Calculating days'(018) .
    ELSE.
      T_FINAL-PDAYS = L_DAYS.
    ENDIF.
    T_FINAL-CQTY = L_CQTY.
    T_FINAL-CPRC = L_CPRC.
    APPEND T_FINAL.
    AT END OF MATNR.
      CLEAR : L_CPRC, L_CQTY.
    ENDAT.
ENDLOOP.
PERFORM BUILD_FIELD_CATALOG.
WA_SORT-FIELDNAME = 'MATNR'.
WA_SORT-SPOS = '1'.
APPEND WA_SORT TO T_SORT.
SELECT SINGLE NAME1 FROM T001W INTO L_NAME1
WHERE WERKS = P_WERKS.
CONCATENATE 'Plant: ' P_WERKS ',' L_NAME1 INTO L_TITLE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      I_GRID_TITLE       = L_TITLE
      IT_FIELDCAT        = GRID_TAB[]
      IT_SORT            = T_SORT
      I_SAVE             = 'A'
    TABLES
      T_OUTTAB           = T_FINAL[].
SORT T_FINAL BY WERKS MATNR BUDAT.
LOOP AT T_FINAL.
   WRITE : /10 T_FINAL-MATNR.
   WRITE : 30 T_FINAL-WERKS.
   WRITE : 40 T_FINAL-BUDAT.
   WRITE : 50 T_FINAL-MENGE.
**C-- FM to find the number of days between
**C-- todays date and the posting date
   CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
     EXPORTING
       BEG_DA        = T_FINAL-BUDAT
       END_DA        = P_DATE
     IMPORTING
       NO_CAL_DAY    = L_DAYS
     EXCEPTIONS
       DATEINT_ERROR = 1
       OTHERS        = 2.
   IF SY-SUBRC <> 0.
     WRITE : 70 'Error While Calculating days'(018) .
   ELSE.
     WRITE : 70 L_DAYS.
   ENDIF.
   AT END OF MATNR.
     ULINE.
     READ TABLE T_HEADER WITH KEY MATNR = T_FINAL-MATNR
                                  BWKEY = T_FINAL-WERKS.
     IF SY-SUBRC EQ 0.
       WRITE : /1 'Total Valuated Stock', T_HEADER-LBKUM.
       WRITE : /1 'Value of total valuated Stock', T_HEADER-SALK3.
       ULINE.
     ENDIF.
   ENDAT.
ENDLOOP.
ENDFORM.                    " DISPLAY_OUTPUT
*&      Form BUILD_FIELD_CATALOG
      text
--> p1        text
<-- p2        text
FORM BUILD_FIELD_CATALOG .
DATA : CNT1 TYPE I.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material'.
GRID_TAB-FIELDNAME = 'MATNR'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Material Description'.
GRID_TAB-FIELDNAME = 'MAKTX'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Date of Reciept'.
GRID_TAB-FIELDNAME = 'BUDAT'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Quantity'.
GRID_TAB-FIELDNAME = 'MENGE'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Pending Days'.
GRID_TAB-FIELDNAME = 'PDAYS'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value'.
GRID_TAB-FIELDNAME = 'PVAL'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Cumulative Quantity'.
GRID_TAB-FIELDNAME = 'CQTY'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
CLEAR GRID_TAB.
CNT1 = CNT1 + 1.
GRID_TAB-COL_POS = CNT1.
GRID_TAB-SELTEXT_L = 'Value of Cumulative Quantity'.
GRID_TAB-OUTPUTLEN = '30'.
GRID_TAB-FIELDNAME = 'CPRC'.
GRID_TAB-KEY = 'X'.
GRID_TAB-NO_ZERO = 'X'.
GRID_TAB-TABNAME = 'T_FINAL'.
APPEND GRID_TAB.
ENDFORM.                    " BUILD_FIELD_CATALOG

Stock on a particular date

Dear All,
I am creating a customised report for showing all the importatnt data (like stock, consumption, production, sale in one report) at client level.
In this report I am required to show the stock of material on a particular date, entered by the user in the selection screen.
(In stanard SAP, report MB5B servers the purpose.)
Can you please suggest how can I get the same information in the customised report.?
(I do not prefer using method: month opening stock + total receipts - total consumption)
Is there any alternative way?
Thanks and regards
Sarang

Hi
The MB5B report gives you all the data, if you donot want some of the data, copy the Report, & from the Output Parameters remove the Fields which you dont want.
if you want the ALV functionality add the same to that.
Thanks & Regards
Kishore

Stock on particular date (performance issue)

Hi Folks,
I m calculating stock at all vendor on a particular date.
But it takes very long and time_out occurs.
I m calculating opening closing provided return and rejection based on movement types.
The report hangs up at following particular Join.
SELECT MKPFBUDAT MSEGBWART MSEGMATNR MSEGLIFNR SUM( MSEG~MENGE )
              AS MENGE
                  INTO CORRESPONDING FIELDS OF TABLE IT_OPEN
                  FROM
                     MKPF INNER JOIN MSEG ON
                           MKPFMBLNR = MSEGMBLNR AND
                           MKPFMJAHR = MSEGMJAHR
                   WHERE MKPF~MJAHR = D_YEAR AND
                         MKPF~BUDAT GE D_DATE AND
                         MKPF~BUDAT LT S_BUDAT-LOW AND
                MSEG~BWART IN ('541','542','543','544','551','702') AND
                         MSEG~XAUTO NE 'X' AND
                         MSEG~MATNR IN S_MATNR AND
                         MSEG~WERKS IN P_WERKS AND
                         MSEG~LIFNR IN P_LIFNR
              GROUP BY LIFNR MATNR BUDAT BWART.
Is there any way to increase performance by breaking this inner join into select statements or anyhow.
Regards
Sachin

HI,
On seeing your code, it seems like,
SELECT MKPFBUDAT MSEGBWART MSEGMATNR MSEGLIFNR SUM( MSEG~MENGE )
AS MENGE
INTO CORRESPONDING FIELDS OF TABLE IT_OPEN
FROM
MKPF INNER JOIN MSEG ON
MKPFMBLNR = MSEGMBLNR AND
MKPFMJAHR = MSEGMJAHR
WHERE MKPF~MJAHR = D_YEAR AND
MKPF~BUDAT GE D_DATE AND
MKPF~BUDAT LT S_BUDAT-LOW AND
MSEG~BWART IN ('541','542','543','544','551','702') AND
MSEG~XAUTO NE 'X' AND
MSEG~MATNR IN S_MATNR AND
<b>MSEG~WERKS EQ P_WERKS</b> AND
<b>MSEG~LIFNR EQ P_LIFNR</b>
GROUP BY LIFNR MATNR BUDAT BWART.
Please see the code marked with bold as parameter passing in the select statement must be EQ and not IN.
Secondly, remove the aggregate function SUM from the select. First select all the records into an internal table and either use control break statements or Collect to sum up the entries.
Next, while selecting from the database use INTO TABLE IT_OPEN rather than into corresponding fields of table.
Also remove the movement types from the select and restrict it inside the Loop and Endloop.
Lakshminarayanan
Please mark all helpful answers for points

AR Invoice Remaining Amount on a particular date

Similar Messages

Maybe you are looking for