Fields only to be displayed for last line item

I copied WESCHEINVERS3( goods receipt form) script to zxxxx and placed some fields in Main window using Perform statement. When i am displaying the output these fields are getting displayed under each line item. but i want them to be displayed under last line item.Please suggest how can i do this.
Thanks
K Srinivas

data: v_cnt1 type i, v_cnt2 type i.
count the number line item using describe lines statement in V_cnt1
and in the table loop count the number of item into V_cnt2.
place the field that you want at the end of all line item in the footer of the table and put a condition in the condition tab v_cnt1 = v_cnt2.

Similar Messages

Capture last line item

I have a requirement where in i have to display a pop up with all the line items given by user in ME21N . The pop up has to display when user presses CHECK .
I written the code in the exit EXIT_SAPMM06E_017 . its working fine for single line item.
In case of multiple line items the popup appears for every line item instead of showing all the line items in a single pop up since in the user exit there is no provision of capturing the LAST LINE ITEM . The field EKKO-LPONR which captures the last line item , is populated only after the exit is triggered which captures the value of EKPO-EBELP( line-item). I manage to capture the line items in internal table but unable to capture last line item and then display the internal table in pop up .
If the user gives two line items say 10 , 20 .
Line item 10 is populated to field EKPO-EBELP . After the control comes out of the exit the value of EBELP is assigned to LPONR . At next control LPONR = 10 and EBELP = 20.
Thanks .

Hi Priya,
To show popup for the last line item, try with this logic:
You have an internal table with all line items, take an internal table with same structure. Take the number of lines and read the line iten into work area and append this work area into another table. after that read this second internal table with EBELN and EBELP, if it is matching then show the popup for all line items from first internal table.
Put this code:
<b>dsescribe int_first into ws_lines.
if ws_lines gt 0.
read table int_first into wa_first index ws_lines.
if sy-subrc eq 0.
append wa_first to int_second.
endif.
endif.
if not int_second is initial.
read int_second into wa_first with key EBELN = 'structure ebeln value'
EBELP = 'structure ebelp value'
if sy-subrc eq 0.
" put POPUP code
endif.
endif.</b>
Hope it will solve ur problem.

How to find out Last Changed Fields for a line item of a PO

Dear All,
Pls let me know is there any FM or procedure to find the last changed fields for each line item of a PO. I should be able to get the details on the basis of Last changed Date. Can u pls guide me in this?

Hello,
Check the table CDHDR,CDPOS for PO items,
Check this code:
REPORT ZV_GET_LATEST_SO .
DATA: BEGIN OF ITAB OCCURS 0,
        OBJECTCLAS TYPE CDHDR-OBJECTCLAS,
        OBJECTID TYPE CDHDR-OBJECTID,
        CHANGENR TYPE CDHDR-CHANGENR,
        USERNAME TYPE CDHDR-USERNAME,
        UDATE TYPE CDHDR-UDATE,
        UTIME TYPE CDHDR-UTIME,
        TCODE TYPE CDHDR-TCODE,
        TABNAME TYPE CDPOS-TABNAME,
        TABKEY TYPE CDPOS-TABKEY,
        FNAME TYPE CDPOS-FNAME,
        CHNGIND TYPE CDPOS-CHNGIND,
      END OF ITAB.
TABLES: CDHDR,CDPOS.
DATA: LT_CDHDR LIKE CDHDR OCCURS 0 WITH HEADER LINE,
LT_CDPOS LIKE CDPOS OCCURS 0 WITH HEADER LINE.
*REFRESH AUSG.
CLEAR CDHDR.
CLEAR CDPOS.
CDHDR-OBJECTCLAS = 'EINKBELEG'.
CDHDR-OBJECTID   = '0000001784'. " Purchase order number
**SELECT A~OBJECTCLASS A~OBJECTID A~CHANGENR A~USERNAME A~UDATE A~UNAME
**B~TCODE
**B~TABNAME B~TABKEY B~FNAME B~CHNGIND INTO TABLE ITAB FROM CDHDR AS A
**INNER JOIN CDPOS AS B ON A~OBJECTCLASS = B~OBJECTCLASS
**                         A~OBJECTID    = B~OBJECTID
**                         A~CHANGENR    = B~CHANGENR
**                    WHERE OBJECTCLAS = 'VERKBELEG'
**                      AND OBJECTID = '0000001784'.
*SELECT * FROM CDPOS INTO TABLE LT_CDPOS WHERE OBJECTCLAS = 'VERKBELEG'
*                                    AND OBJECTID = '0000001784'.
*IF NOT LT_CDPOS[] IS INITIAL.
* SELECT *
* INTO   TABLE LT_CDHDR
* FROM   CDHDR
* FOR    ALL ENTRIES IN LT_CDPOS
* WHERE OBJECTCLAS = LT_CDPOS-OBJECTCLAS
* AND    OBJECTID = LT_CDPOS-OBJECTID
* AND    CHANGENR = LT_CDPOS-CHANGENR.
*ENDIF.
** SORT ITAB BY OBJECTCLAS ODJECTID DESCENDING.
*LOOP AT ITAB.
* WRITE: ITAB-UDATE."ITAB-UNAME.
*ENDLOOP.
*--- Interne Tabellen -------------------------------------------------
DATA: BEGIN OF ICDSHW OCCURS 50.       "Ausgabeaufbereitung
        INCLUDE STRUCTURE CDSHW.       "Zwischendatei
DATA: END OF ICDSHW.
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           = LT_CDHDR
     EXCEPTIONS
          NO_POSITION_FOUND = 1
          OTHERS            = 2.
LOOP AT LT_CDHDR.
CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
    EXPORTING
*   ARCHIVE_HANDLE                = 0
      CHANGENUMBER                  = LT_CDHDR-CHANGENR
*   TABLEKEY                      = '00000000 '
*   TABLENAME                     = ' '
* IMPORTING
*   HEADER                        =
   TABLES
     EDITPOS                       = ICDSHW
*   EDITPOS_WITH_HEADER           =
* EXCEPTIONS
*   NO_POSITION_FOUND             = 1
*   WRONG_ACCESS_TO_ARCHIVE       = 2
*   OTHERS                        = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT ICDSHW.
    IF ICDSHW-TABKEY+3(10) = '0000001784'
       AND ICDSHW-TABKEY+13(6) = '000001'.
    ENDIF.
ENDLOOP.
ENDLOOP.
Vasanth

Header Details to be Printed only for the line item details.

Hi All,
I have the following requirement.
I have Page1 with the Logo, Header Window, Vendor Window, Send Invoice To, Delivere Invoice To and Main Window. Main Window Starts from the middle of the page. In the Page2 i have Logo, Header window and Main Window. In the Page3 i have only Main Window.
In the Footer of the Main Window i have Placed the Terms and conditions which should always be Printed in the New Page. So in the footer i have given a command "Go to New Page " and given the page as Page3.
The requirement is Logo,and Header Window should appear only for the Line items and not for the Terms and conditions.
For the Page1 i have given the Next Page as Page2. Suppose if there is only one line item then it Prints in the first Page itslef and the control flows to the Page2 and since in the page2 i have given the condition for the Logo and header window to print only if line item is more than 1 and since Main Window is starting from the middle there is a blank Space appearing in the start of the page.
The command i have given in the footer to trigger new page that is page3 is not getting triggered. If there are more than one line item then its printing the logo and header window and so there is no blank space appearing and it is working fine.
Please let me know how to avoid this blank space and move my main window to the start of the Page if there is only one line item.
Thank you.

Dear Vasudha,
I am a little bit confused regarding your query,
"In the Footer of the Main Window i have Placed the Terms and conditions which should always be Printed in the New Page. So in the footer i have given a command "Go to New Page " and given the page as Page3. "
When you say footer of main window does it mean , that you are using a table inside your main window and the command node your have inserted is in the footer of the table ?.I hope it is, because my suggestion is based on this assumption.
Well my suggestion for your issue is,
1.I hope you are aware we can trigger a next page in two ways, one by setting the next page static attribute & second using the command node which you have used.In your case you will have to use a combination of both.
2.I feel your First page design is ok. Set its static next page attribute to PAGE2. Similarly set the static next page attribute for PAGE2 as PAGE2 itself. This should take care of your table which you have placed in the main window. If the table contains only one lineitem it will get over in the first page itself. If the lineitems are more in the table, it will automatically triggerPAGE2 (since static next page attribute for PAGE1 is PAGE2) and the remaining line items will be displayed. Now no matter how many lineitems you have ,PAGE2 will be triggered repeatedly(since static next page for PAGE2 is PAGE2 itself) until the entire data in your table is displayed.
In this way your requirement of printing the logo and header windows for the data lineitems only will be fulfilled.
3.Now the last catch in your case is the printing of PAGE3(The terms and condition page) on an entirely new blank page.
In the footer section of the table which you have used, use a command node set to PAGE3. After the command node and under the same footer section now insert your terms and condition lineitem.
Also Check the "at End of table" checkbox and uncheck " AT PAGE BREAK" under OUTPUT OPTIONS tab for the footer section.
So now this footer section will be triggered only once after all the data in the table is displayed
4. So now if there is only one lineitem, before the default second page is triggered the command node will trigger the PAGE3 and the terms and condition will be displayed.Else if there are more lineitems the page2 will be triggered again and again and finally when all the lineitems are over, the footer of the table will get triggered. So the command node will take you to the PAGE3 wherin the terms and condition will only be displayed.
Hope this helps.
Regards,
Riju

Vendor field empty for RE line items in FBL3N

dear all-
I'm experiencing a strange situation. Instead of using the MM-report, I want to do a GRIR analysis in FI. When I run FBL3N for the GRIR account I see that for the goods-receipt related documents (doc type WE) field like puchase order and vendor number are populated (and contain a value). However for the line items that come from the invoice the field purchase order is filled but the field vendor is blank.
I did have a look at the BSEG table for the WE- and RE-related documents: for all line items of the WE document (goods receipt) the fields purchase order and vendor contained a value, for the RE document (invoice receipt) all line items have a value for purchase order but only the first line item (vendor line) has a value for the field vendor. On all the other line items the vendor field is blank.
Looks pretty strange to me, who has a good solution?
thx
Ben

hi Vishal-
Thanks for the BSIK, BSIS tip!
In the meantime I did find report RFWERE00. I was able to generate a list that indeed showed the vendor number on the GRIR account both from the GR- and RE-document. Didn't have time yet to go over the code to figure out where this report gets its data from.
The report offers options to do actual clearing and do postings ... I'm not interested in that. Only in the list. I have a start now ...
... If you have another I idea that prevents me from creating a customer report ... I'm eager to hear it!
rgds
Ben

Fbl1n and fbl5n display at time line item wise name for vendor and customer

Hi
Could you tell me how can I include Customer or Vendor names for each line items in transaction FBL5N and FBL1N, please? Customer Accounts are displayed well, but in several cases we also need the name of the certain Customer or Vendor account names. This would be important for consolidation of customer accounts of the same customers.
It is possible to include in these reports the u201EName1u201D, but they are empty in all cases. Could you tell me how it is possible to correct this problem, please?
ysr

hi YSR,
See if you want to have the Vendor/ Customer name or number to be displayed when you execute it. I mean on the Vendor/Customer Line Item Display.
THEN follow the below steps........
After executing the FBL1N or FBL5N Click CTRL+F8 or Change Layout. From the Pop screen select the Vendor from the Right side of the screen and then drag to the Left side of the screen, then click on Copy as.
Then Save the Layout or CTRL F12, save the layout with the new name that you want.
When you want this Layout as the default each and every time then u have to do 1 more step....
After executing the same layout go the
MENU> Settings>Layout-->Administration...
there you select the layout that u have created and then set that layout as the Default settings Check mark on DS.
So that each and every time when u execute it the same layout will be displayed with the fields that u have selected....
Hope this will solve ur issue......
Kumar........

KOB1 - Display Actual cost line items for Orders

Hi All
A production order has been settled. When the actual cost line items are displayed for the said production order in KOB1, there are multiple line items related to the production order that gets displayed.
The issue we are facing is, in one of the line item, the accounting document has one credit (Consumption a/c) and two debits (one debit is to inventory a/c and another debit is to price difference a/c). However in the report, in the offsetting GL column only one GL code (price difference gl account a/c) but appears with the entire amount.
Ideally two separate line items needs to be displayed with respective line items. Is this a flaw in SAP.
Can anybody throw some light on this and help me.
Regards
Prasanna

this is may be config issue.
can you explain with accounting entries for said line items and offsetting GL for each line?
regards.
ashok

Open field for customer line item

Hi Guru
I have some problem about open field for customer line item post with posting key 09 and special GL , I open field at posting key 09 but the field still hidden . How I can open field for used . Thank you

Dear,
Use transaction FBL5N and select Special G/L Transactions only and execute.....here bring posting key and filter the posting with 09.
REgards,
Chintan Joshi

Only the last line item is shown in main window...

Hello Experts,
I created a custom form for the standard checque program RFFOUS_C. Now, in my MAIN window, I
called a subroutine in a custom program which loops through the line items but the problem is
only the last line item is being shown. I tried using CONTROL_FORM to create a new line
but it does not work. Note that I did not customize RFFOUS_C since it is being used by
multiple companies. Below is my code:
SAPSCRIPT:
510-C
Begin of insertion DEVK940799 11/10/2008 DEL_HIDALGO
DEFINE &LTYC_XBLNR& = ''
DEFINE &LTYC_BLDAT& = ''
DEFINE &LTYC_SGTXT& = ''
DEFINE &LTYC_DMBTR& = ''
PERFORM WRITE_LINE_ITEMS IN PROGRAM Z9999RFI_Z2574FFI_RA
USING &REGUH-LAUFD&
USING &REGUH-LAUFI&
USING &REGUH-XVORL&
USING &REGUH-ZBUKR&
USING &REGUH-LIFNR&
USING &REGUH-VBLNR&
CHANGING &LTYC_XBLNR&
CHANGING &LTYC_BLDAT&
CHANGING &LTYC_SGTXT&
CHANGING &LTYC_DMBTR&
ENDPERFORM
PROTECT
     &LTYC_XBLNR&     &LTYC_BLDAT&     &LTYC_SGTXT&     &LTYC_DMBTR&
ENDPROTECT
End of insertion DEVK940799 11/10/2008 DEL_HIDALGO
PROGRAM:
IF gt_regup[] IS NOT INITIAL.
    CALL FUNCTION 'OPEN_FORM'
       EXPORTING
*         APPLICATION                       = 'TX'
*         ARCHIVE_INDEX                     =
*         ARCHIVE_PARAMS                    =
*         DEVICE                            = 'PRINTER'
*         DIALOG                            = 'X'
         form                              = lcc_z2574ffi_ra
*         LANGUAGE                          = SY-LANGU
*         OPTIONS                           =
*         MAIL_SENDER                       =
*         MAIL_RECIPIENT                    =
*         MAIL_APPL_OBJECT                  =
*         RAW_DATA_INTERFACE                = '*'
*         SPONUMIV                          =
*       IMPORTING
*         LANGUAGE                          =
*         NEW_ARCHIVE_PARAMS                =
*         RESULT                            =
       EXCEPTIONS
         canceled                          = 1
         device                            = 2
         form                              = 3
         OPTIONS                           = 4
         unclosed                          = 5
         mail_options                      = 6
         archive_error                     = 7
         invalid_fax_number                = 8
         more_params_needed_in_batch       = 9
         spool_error                       = 10
         codepage                          = 11
         OTHERS                            = 12.
    IF sy-subrc <> 0.
*        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    LOOP AT gt_regup INTO lw_regup.
      m_line_items 'LTYC_XBLNR' lw_regup-xblnr.
      m_line_items 'LTYC_BLDAT' lw_regup-bldat.
      m_line_items 'LTYC_SGTXT' lw_regup-sgtxt.
      m_line_items 'LTYC_DMBTR' lw_regup-dmbtr.
      DELETE ex_output WHERE value IS INITIAL.
      CALL FUNCTION 'WRITE_FORM'
       EXPORTING
         element                        = '510-C'
         function                       = 'APPEND'
*         TYPE                           = 'BODY'
         window                         = 'MAIN'
*       IMPORTING
*         PENDING_LINES                  =
       EXCEPTIONS
         element                        = 1
         function                       = 2
         type                           = 3
         unopened                       = 4
         unstarted                      = 5
         window                         = 6
         bad_pageformat_for_print       = 7
         spool_error                    = 8
         codepage                       = 9
         OTHERS                         = 10.
      IF sy-subrc <> 0.
*        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      CALL FUNCTION 'CONTROL_FORM'
        EXPORTING
          command   = 'NEW-LINE'
        EXCEPTIONS
          unopened = 1
          unstarted = 2
          OTHERS    = 3.
      IF sy-subrc <> 0.
*        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDLOOP.
    CALL FUNCTION 'CLOSE_FORM'
*       IMPORTING
*         RESULT                         =
*         RDI_RESULT                     =
*       TABLES
*         OTFDATA                        =
       EXCEPTIONS
         unopened                       = 1
         bad_pageformat_for_print       = 2
         send_error                     = 3
         spool_error                    = 4
         codepage                       = 5
         OTHERS                         = 6.
    IF sy-subrc <> 0.
*        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
*                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
ENDIF.

Hi,
Write the at last event in the program and check if it works
At last.
       CALL FUNCTION 'CONTROL_FORM'
        EXPORTING
          command   = 'NEW-LINE'
        EXCEPTIONS
          unopened = 1
          unstarted = 2
          OTHERS    = 3.
      IF sy-subrc 0.
       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
Regards,
Sravanthi

Printing in only last line item printing in main window

Hi All,
My requiremnet is to print same data in two blocks for F110 payment cheque
Iam using 2 main windows to print same data if block exceeds it will go to next page
iam calling the windows as shown below
CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window   = 'MAIN00'
        element = hlp_ep_element
        function = 'APPEND'
      EXCEPTIONS
        window   = 1
        element = 2.
    IF sy-subrc EQ 2.
      err_element-fname = t042e-zforn.
      err_element-fenst = 'MAIN00'.
      err_element-elemt = hlp_ep_element.
      err_element-text = text_525.
      COLLECT err_element.
    ENDIF.
    CALL FUNCTION 'WRITE_FORM'
      EXPORTING
        window   = 'MAIN01'
        element = hlp_ep_element
        function = 'APPEND'
      EXCEPTIONS
        window   = 1
        element = 2.
    IF sy-subrc EQ 2.
      err_element-fname = t042e-zforn.
      err_element-fenst = 'MAIN01'.
      err_element-elemt = hlp_ep_element.
      err_element-text = text_525.
      COLLECT err_element.
    ENDIF.
Iam getting only last line item printing in main window
Please provide the inputs.
Thanks,
Kamalakar.
Please use code tags.
Edited by: Rob Burbank on Nov 25, 2011 11:51 AM

Hi,
My requirement was to print same block twice in cheque printing of F110.
I have used the function module 'WRITE_FORM_LINES' to print more than one line item in secondary window in the script .
fill the Lines internal table as shown below.
Example :
    lines-tdformat = 'TM'.
    CONCATENATE regup-xblnr ',,' w_date ',,' w_bsak-sgtxt ',,' w_gross ',,' w_dis ',,'
    w_net INTO lines-tdline.
APPEND lines.
CALL FUNCTION 'WRITE_FORM_LINES'
      EXPORTING
       function                       = 'APPEND'
       header                         = header_t
       type                           = 'BODY'
       window                         = 'MAIN01'
    IMPORTING
      FROMPAGE                       =
      PENDING_LINES                  =
      TABLES
        lines                          = lines
     EXCEPTIONS
       function                       = 1
       type                           = 2
       unopened                       = 3
       unstarted                      = 4
       window                         = 5
       bad_pageformat_for_print       = 6
       spool_error                    = 7
       codepage                       = 8
       OTHERS                         = 9
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDIF.

Transaction KSB1 - Display Actual Cost Line Items for Cost Centers

Hi,
When I run transaction KSB1 - Display Actual Cost Line Items for Cost Centers, all my offsetting accounts (accumulated depreciation accounts) are shown except for the ones for asset classes:
- Buildings
- PC & Small Applications
On the FI side, I can see transactions being posted to their relative accumulated depreciation accounts but I do not see this on the CO side when transaction KSB1 is executed. I have checked the config and the account assignments look correct. Also, the assets created have cost centers assigned to them.
Could you please help!
Thanks,
- Deki

Hi Murali,
I have one depreciation expense account (P/L Account) which is also a cost element.
During depreciation run, the different asset classes are supposed to hit the depreciation account above and their corresponding accumulated depreciation accounts (These are Balance Sheet Accounts and I have separate accounts for each asset class .. ie: Accumulated Depreciation for Furniture and Fixture for asset class Furniture and Fixture).
Now when I run transaction KSB1 - Display Actual Cost Line Items for Cost Centers, all my accumulated depreciation accounts are shown except for the ones for these asset classes:
- Buildings
- PC & Small Applications
Any thoughts on why the above aren't showing?
Thanks! I really appreciate your help!
- Deki

ME21N - new field added and same value posted to it for all line items

hi all
i have added new field under item level in me21n screen.
data for new filed fetched from tables with values entered in header level material number.
For one record, it is ok
but for multiple records, same value is fetched for all line items
i have written coding in screen exit for 0111
and function exits EXIT_SAPMM06E_016 and EXIT_SAPMM06E_018
how to solve
pl help
regards
senthil

MODULE STATUS_0111 OUTPUT.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
if sy-tcode eq 'ME23N' or sy-tcode eq 'ME23'.
    LOOP at SCREEN.
      if screen-group1 ne 'PCS'.
        screen-input = 0.
        MODIFY SCREEN.
      endif.
    ENDLOOP.
ENDIF.
TYPES : BEGIN OF ty_cabn1,
         atnam TYPE cabn-atnam,
       end of ty_cabn1.
DATA : itab_cabn1 TYPE STANDARD TABLE OF ty_cabn1 INITIAL SIZE 0,
         wa_cabn1 TYPE ty_cabn1.
TYPES : BEGIN OF ty_cawn1,
    atinn TYPE cawn-atinn,
    atzhl TYPE cawn-atzhl,
    atwrt TYPE cawn-atwrt,
    end of ty_cawn1.
DATA : itab_cawn1 TYPE STANDARD TABLE OF ty_cawn1 INITIAL SIZE 0,
         wa_cawn1 TYPE ty_cawn1.
TYPES : BEGIN OF ty_cawnt1,
   pcs TYPE cawnt-atwtb,
    atinn TYPE cawnt-atinn,
    atzhl TYPE cawnt-atzhl,
    atwtb TYPE cawnt-atwtb,
      end of ty_cawnt1.
DATA : itab_cawnt1 TYPE TABLE OF ty_cawnt1,
         wa_cawnt1 TYPE ty_cawnt1.
TYPES : BEGIN OF ty_pcs1,
pcs TYPE cawnt-atwtb,
atwrt TYPE cawn-atwrt,
atwtb TYPE cawnt-atwtb,
    end of ty_pcs1.
DATA : itab_pcs3 TYPE TABLE OF ty_pcs1,
         itab_pcs4 TYPE TABLE OF ty_pcs1,
         wa_pcs1 TYPE ty_pcs1.
TYPES : BEGIN OF ty_pcsn,
matnr TYPE ausp-objek,
ebelp TYPE dynpread-stepl,
atwrt TYPE cawn-atwrt,
atwtb TYPE cawnt-atwtb,
END OF ty_pcsn.
DATA : itab_pcsn TYPE TABLE OF ty_pcsn,
         wa_pcsn TYPE ty_pcsn.
TYPES : BEGIN OF ty_ausp1,
     objek TYPE ausp-objek,
     atinn TYPE ausp-atinn,
     atwrt TYPE ausp-atwrt,
   END OF ty_ausp1.
DATA : itab_ausp1 TYPE STANDARD TABLE OF ty_ausp1 INITIAL SIZE 0,
         wa_ausp1   TYPE ty_ausp1.
DATA : param_name1(35) TYPE c.
DATA: progname1      TYPE sy-repid,
        dynnum1        TYPE sy-dynnr,
        dynpro_values1 TYPE TABLE OF dynpread,
        dynpro_values2 TYPE TABLE OF dynpread,
        field_value1   LIKE LINE OF dynpro_values1,
        ematn1         TYPE mara-matnr.
if sy-tcode ne 'ME23N' and sy-tcode ne 'ME23'. "psk
    clear : itab_cabn1,itab_cawn1,itab_cawnt1,itab_pcs3,itab_pcs4,itab_pcsn,itab_ausp1.
    clear : wa_cawn1,wa_cawnt1,wa_pcs1,wa_ausp1.
    if sy-uname eq 'IBM_ABAP'.
      param_name1 = '000000001'.
    else.
      param_name1 = '000000013'.
    endif.
    SELECT atnam
    FROM cabn
    INTO CORRESPONDING FIELDS OF TABLE itab_cabn1
    WHERE atinn = param_name1.
    select *
    FROM cawn
    into CORRESPONDING FIELDS OF TABLE itab_cawn1
    WHERE atinn = param_name1.
    if itab_cawn1[] is NOT INITIAL.
      SELECT atinn atzhl atwtb
      FROM cawnt
      INTo CORRESPONDING FIELDS OF TABLE itab_cawnt1
      FOR ALL ENTRIES IN itab_cawn1
      WHERE atinn = itab_cawn1-atinn
      AND atzhl = itab_cawn1-atzhl.
    endif.
    if itab_cawnt1[] is NOT INITIAL.
      sort itab_cawnt1 by atinn atzhl.
      loop at itab_cawnt1 INTO wa_cawnt1.
        READ TABLE itab_cawn1 INTO wa_cawn1 with key atinn = wa_cawnt1-atinn
                                                     atzhl = wa_cawnt1-atzhl BINARY SEARCH.
        if sy-subrc eq 0.
       CONCATENATE wa_cawn-atwrt '->' wa_cawnt-atwtb INTO wa_cawnt-pcs.
       MODIFY itab_cawnt FROM wa_cawnt TRANSPORTING pcs.
       wa_pcs-pcs = wa_cawnt-pcs.
          wa_pcs1-atwrt = wa_cawn1-atwrt.
          wa_pcs1-atwtb = wa_cawnt1-atwtb.
          append wa_pcs1 to itab_pcs3.
        ENDIF.
        CLEAR : wa_cawnt1,wa_cawn1, wa_pcs1.
      ENDLOOP.
    ENDIF.
    CLEAR: dynpro_values1, field_value1.
dynpro_values-FIELDNAME = 'MEPO1211-EMATN'.
APPEND dynpro_values.
    field_value1-fieldname = 'MEPO1211-ematn'.
    APPEND field_value1 TO dynpro_values1.
    progname1 = 'SAPLMEGUI'.
    dynnum1 = '1211'.
    CALL FUNCTION 'DYNP_VALUES_READ'
      EXPORTING
        DYNAME                               = progname1
        DYNUMB                               = dynnum1
TRANSLATE_TO_UPPER                   = ' '
     REQUEST                                = 'A'
PERFORM_CONVERSION_EXITS             = ' '
PERFORM_INPUT_CONVERSION             = ' '
DETERMINE_LOOP_INDEX                 = ' '
START_SEARCH_IN_CURRENT_SCREEN       = ' '
START_SEARCH_IN_MAIN_SCREEN          = ' '
START_SEARCH_IN_STACKED_SCREEN       = ' '
START_SEARCH_ON_SCR_STACKPOS         = ' '
SEARCH_OWN_SUBSCREENS_FIRST          = ' '
SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
      TABLES
        DYNPFIELDS                           = dynpro_values1
   EXCEPTIONS
     INVALID_ABAPWORKAREA                 = 1
     INVALID_DYNPROFIELD                  = 2
     INVALID_DYNPRONAME                   = 3
     INVALID_DYNPRONUMMER                 = 4
     INVALID_REQUEST                      = 5
     NO_FIELDDESCRIPTION                  = 6
     INVALID_PARAMETER                    = 7
     UNDEFIND_ERROR                       = 8
     DOUBLE_CONVERSION                    = 9
     STEPL_NOT_FOUND                      = 10
     OTHERS                               = 11
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
READ TABLE dynpro_values1 INTO field_value1 with KEY fieldname = 'MEPO1211-EMATN'.
    LOOP at dynpro_values1 INTO field_value1 WHERE fieldname = 'MEPO1211-EMATN'.
      clear ematn1.
      if sy-subrc eq 0.
        ematn1 = field_value1-fieldvalue.
      endif.
      if ematn1 is not INITIAL.
        clear : wa_cawn1,wa_cawnt1,wa_pcs1,wa_ausp1.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT = ematn1
          IMPORTING
            OUTPUT = ematn1.
        select *
        FROM ausp
        INTO CORRESPONDING FIELDS OF TABLE itab_ausp1
        WHERE objek = ematn1
        and atinn = param_name1.
        CLEAR itab_pcs4.
        if itab_ausp1[] is not INITIAL.
          sort itab_ausp1 by atinn atwrt.
          sort itab_cawn1 by atinn.
          READ TABLE itab_ausp1 INTO wa_ausp1 INDEX 1.
          loop at itab_cawn1 INTO wa_cawn1 WHERE atinn = wa_ausp1-atinn AND atwrt = wa_ausp1-atwrt.
            READ TABLE itab_cawnt1 INTO wa_cawnt1 WITH KEY atinn = wa_cawn1-atinn
                                                            atzhl = wa_cawn1-atzhl.
            if sy-subrc eq 0.
              wa_pcs1-atwrt = wa_cawn1-atwrt.
              wa_pcs1-atwtb = wa_cawnt1-atwtb.
              append wa_pcs1 to itab_pcs4.
              wa_pcsn-matnr = wa_ausp1-objek.
              wa_pcsn-ebelp = field_value1-stepl.
              wa_pcsn-atwrt = wa_cawn1-atwrt.
              wa_pcsn-atwtb = wa_cawnt1-atwtb.
              APPEND wa_pcsn to itab_pcsn.
            ENDIF.
            clear : wa_ausp1,wa_cawn1,wa_cawnt1.
          ENDLOOP.
        ENDIF.
       clear wa_pcs1.
       read TABLE itab_pcs4 into wa_pcs1 index 1.
       if sy-subrc eq 0.
         EKPO_CI-ZPCS = wa_pcs1-atwrt.
       endif.
      ENDIF.
    ENDLOOP.
    CLEAR: field_value1.
    LOOP at dynpro_values1 INTO field_value1 WHERE fieldname = 'MEPO1211-EMATN'.
      clear wa_pcsn.
      if field_value1-fieldvalue is not INITIAL.
        read TABLE itab_pcsn INTO wa_pcsn with key matnr = field_value1-fieldvalue
                                                    ebelp = field_value1-stepl.
        if sy-subrc eq 0.
          clear EKPO_CI-ZPCS.
*EKPO_CI-ZPCS = wa_pcs1-atwrt.
          EKPO_CI-ZPCS = wa_pcsn-atwrt.
        endif.
      endif.
    ENDLOOP.
   CLEAR: field_value1, dynpro_values1.
   progname1 = 'SAPLXM06'.
   dynnum1   = '0111'.
   field_value1-fieldname = 'EKPO_CI-ZPCS'.
   APPEND field_value1 TO dynpro_values1.
   if ematn1 is not INITIAL.
     clear wa_pcs1.
     read TABLE itab_pcs4 into wa_pcs1 index 1.
     if sy-subrc eq 0.
       EKPO_CI-ZPCS = wa_pcs1-atwrt.
     endif.
   ENDIF.
endif.
ENDMODULE.                 " STATUS_0111 OUTPUT
Function exits:
^^^^^^^^^^^^^^^^^
EXIT_SAPMM06E_016
^^^^^^^^^^^^^^^^^
INCLUDE ZXM06U41 .
DATA XFISTL LIKE EKPO-FISTL.
TABLES: ADRC, T001W.
DATA: PLANT LIKE T001W-WERKS.
SELECT SINGLE * FROM T001W WHERE WERKS = I_EKPO-WERKS.
SELECT SINGLE * FROM ADRC WHERE ADDRNUMBER = T001W-ADRNR.
XFISTL = ADRC-SORT2.
SET PARAMETER ID 'FIS' FIELD XFISTL.
* Added For PCS 12.11.2010
DATA : fs_ekpo type EKPO_CI.
if sy-tcode = 'ME22N' or sy-tcode = 'ME23N'.
*  if tekpo-zpcs is INITIAL.
*    message e000(zmm) with 'PCS Type should be chosen'.
*  endif.
  loop at tekpo.
    if ( tekpo-ebeln eq i_ekpo-ebeln and tekpo-ebelp eq i_ekpo-ebelp ).
      ekpo_ci-zpcs = tekpo-zpcs.
    endif.
  ENDLOOP.
endif.
^^^^^^^^^^^^^^^^^
EXIT_SAPMM06E_018
^^^^^^^^^^^^^^^^^
INCLUDE ZXM06U40 .
E_CI_EKPO-ZPCS = EKPO_CI-ZPCS.
E_CI_UPDATE = 'X'.

Not displaying Actual cost Line Items for Order

Hi Gurus,
Recently we did patching from SPC6 to SPC8. After patching we noticed that could not able to see displaying Actual cost Line Items for Order from work order.
System is not throughing error message when I double cline on line item at Plan/Actual Comparison screen in work order cost tab.
We can able to see the same from KB01 with out any problem. I have attached the details.
Could any one suggest me please. Appreciate your thoughts
Regards,
Srini

Hi Paul,
I have implemented this note and get it sorted out.
Thank you for support.
Regards,
Srini

T.code required for Vendor line item display and Customer line item display

Hi Gurus,
Pl provide me transaction code for "Vendor line item display and " Customer line item display apart from FBL1n for vendor and FBL5n for customers.
Kindly advise.
Regards,
Samar

Hi,
You could use these, for example:
S_ALR_87012103 - List of Vendor Line Items
S_ALR_87012197 - List of Customer Line Items
Just curious: what's wrong with FBL1(5)N?
Regards,
Eli

Not displaying ship to party for second line item

Hi All,
When I am creating Sales order, I entered sold to pary,PO number,PO date,material (first line item)and qty.In partner functions for first line item it is displaying ship to party.But whaen I entered second line item & qty,ship to party is not displaying .
Please guide.
Thanks,
GTNR

Couple of questions !!!!
a) Was system allowing you to save
b) has the data properly configured in Set Up Partner Determination for Sales Document Item
c) is the ship to party different for first line item
d) did you check in incompletion log
G. Lakshmipathi

Fields only to be displayed for last line item

Similar Messages

Maybe you are looking for