Tcode VT02N -- ShipmentNo-- Output-- Screen, O/P Type Y141, Y011

System has been upgraded from 4.7 to 6.0
It prints the lines in DE and NL but not in EN. After analyzing it was found that the FMs HAZMATEDI_READ_DG_DATA_ have been upgraded and it's behaving differently. There is an FM READText_ which reads the Texts based on HEADER_TEXT-LANGU. This HEADER_TEXT-LANGU is being populated somehow through the FM HAZMATEDI_READ_DG_DATA_.
Please help with the possible causes and remedies.
Thanks
Animesh.

FYI.. In fact, the whole function Group of the FM 'HAZMAT_EDI_READ_DG_DATA' has been upgraded by SAP itself.

Similar Messages

Mimic SAP Tcode PT03 output screen for work schedule

Hello
I have a requirement to create a web dynpro java application which can mimic standard SAP transaction "PT03" output screen.
i.e. View employee work Schedules..
Now I do not have any Calender UI element which I can use.
What could be best approach going forward.
Please note that creating an IAC iview or SAP Transaction Iview is already out of scope for us because of client constraints...
Please manage some time to look into this HCM transaction PT03 and advice me how can I mimic this in web dynpro.
I am concerned about the "View Work Schedule" screen which has a calender type display where information about employee is getting displayed in individual cell of calender.
Below is screenshot for page I need to Mimic..
[Screenshot|http://www.freeimagehosting.net/image.php?e387a02d16.png]
Thanking you in anticipation.

I didnt' got you Sir....
You are refering to Java Calender API !
http://download.oracle.com/javase/1.4.2/docs/api/java/util/Calendar.html
or there is some webdynpro calender API also...!!
Well the whole scenario has to work as below...
1. User will fill in some input form from portal (Web Dynpro java view)
2. Clicks on submit button...
3. Webdynpro java application calls an RFC....
4. Output is rendered in calender format .....or any other format......which is informative enough to user.
I am not using CE....

ADDING A DATE FIELD IN THE OUTPUT SCREEN OF Tcode FBL1N

Hi guys..I want to add a From-->To 'DATE' field in the output screen of Tcode 'FBL1N' in the line items header part....Please tell me how to do this..??

Hi,
Unfortunately you can't add these fileds using with Settings>Layouts>Current header rows, you can only add the field Open items as on date.
Rgds
Murali. N

How to display the output screen when I use bdc.

hey expert,
I want to display the output screen when i use bdc without using mode 'A'.
thank you.

Hi,
You can go for mode 'E'.. it will display the output screen directly and if there is any error in the transaction you would get that particular screen and you can correct and continue after which you will get the final screen if anything goes fine...
check this sample code....
I had a program if you execute below program it automatically creates a new zprogram.
REPORT zprogram_create_recording.
PARAMETER:
p_prog    TYPE sy-repid OBLIGATORY,
p_shtxt TYPE repti OBLIGATORY,
p_pack TYPE devclass DEFAULT '$tmp'.
DATA:
t_bdcdata LIKE
   STANDARD TABLE
         OF bdcdata.
DATA:
wa_bdcdata LIKE LINE OF t_bdcdata.
REFRESH t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLWBABAP'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'RS38M-PROGRAMM'.
wa_bdcdata-fval       = p_prog.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'NEW'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSEDTATTR'.
wa_bdcdata-dynpro     = '0200'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'RS38M-REPTI'.
wa_bdcdata-fval       = p_shtxt.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'TRDIR-SUBC'.
wa_bdcdata-fval       = '1'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'CONT'.
APPEND wa_bdcdata TO t_bdcdata.
IF p_pack EQ '$TMP'.
*local object
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO007-L_DEVCLASS'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'TEMP'.
APPEND wa_bdcdata TO t_bdcdata.
ELSE.
*package assignment with request
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO007-L_DEVCLASS'.
wa_bdcdata-fval       = p_pack.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'ADD'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0300'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO008-TRKORR'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'KO008-AS4TEXT'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'LOCK'.
APPEND wa_bdcdata TO t_bdcdata.
ENDIF.                                 " IF P_PACK EQ '$TMP'
CALL TRANSACTION 'SE38' USING t_bdcdata MODE 'E'.
Hope this would help you..
Regards
Narin Nandivada

Tcode to view output of script RT_CHECK_LIST (in. delivery checklist)

Hi All,
   I want to see the output of script RT_CHECK_LIST which is assigned in NACE transaction.
Details are as follows:
Output type : CHKL (Count list)
Application   : E1      (Inbound delivery)
Medium        : Print output
Program        : RTCHECKL
Form routine : ENTRY_CHECKLIST_LIEF
Form              : RT_CHECK_LIST
As it shows that it is relared to Inbound delivery , so I tried to see it by VL33 (delivery no ) ->(menu)inbound delivery -> output -> printer.
But it is giving message that "No output has been selected".
Tell me if any other way to view the output.
Regards,
Rajeev Goswami

Hi
Go through VL32n....and add new entry for your output type.
Also press Information button on output screen and check your output type if it is allowed.
If not ask functional consultant to configure it for you
Edited by: Vinit Joshi on Mar 5, 2012 11:25 AM

I want push button on output screen

Hi friends,
               I want push button on toolbar output screen. After choosing this push button it will display one screen it having data below like this.
          .Division channel
          .Division
          .Sales organization
          .Sales Document
          .Sales Document Type
          .Sales Group
          .Sales office
          .Month
Plz help me

hi sreerama,
to have a push button in ur report, u have to create a GUI status with command.
u can create gui status using command SET PF-STATUS 'XXXX'.
Create a button in GUI status, assign the function code for that button. Example FCODE.
After creating GUI status, u have to use AT USER-COMMAND event for button of GUI status in report program.
Then in ur report program, write like this.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'FCODE'.
........................... " Your Logic to display what ever u want
ENDCASE.
sy-ucomm catches all the function codes of the system.
For further reference, check these links.
To create GUI status:
http://help.sap.com/saphelp_47x200/helpdata/en/d1/801d43454211d189710000e8322d00/frameset.htm
For List Events:
http://help.sap.com/saphelp_47x200/helpdata/en/9f/dba3ae35c111d1829f0000e829fbfe/frameset.htm
http://help.sap.com/saphelp_47x200/helpdata/en/9f/dba2c435c111d1829f0000e829fbfe/frameset.htm
<b><REMOVED BY MODERATOR></b>
Harimanjesh AN
Message was edited by:
        Alvaro Tejada Galindo

FI Report Painter (FGI1) - add new button in output screen

Hi all,
I have a report created by tcode FGI1 (Create Drill-down Report) which bases on form 0SAPBSPL-01 (Fin. Statement: Actual/Actual Comparison). I wanna know if there are any ways to add a new button in output screen after report execution (i.e to print the content into smartforms).
Thanks in advance.
Solaris.

Instead of creating after the output you can add the button to create the form on the main screen itself i.e. program SAPMKCEE screen1125. Either on the application tool bar or on the screen 1125.

How to add user command to drop down list in output screen for OALV Report

Hi Experts,
I have created a report by using OALV.
in Output screen i have added drop down for one filed with 2 values.
when i select value from the drop down list the program should trigger and the next field should be update.
so it is possiable to add a user command for the drop down list in output screen.
if so please help me .
Regards,
Rathan

HI,
Check the Demo program BCALV_EDIT_06 with having the DATA_CHANGED event still you can capture the changed data. This event will help you.
or you can go for this code..
data: it_f4 type lvc_t_f4,
        wa_f4 type lvc_s_f4.
        wa_f4-FIELDNAME = 'CONNID'.
        wa_f4-REGISTER = 'X'.
        wa_f4-GETBEFORE = 'X'.
        wa_f4-CHNGEAFTER = 'X'.
        append wa_f4 to it_f4.
"register F4 event
CALL METHOD g_alv_grid_ref->register_f4_for_fields
    EXPORTING
      it_f4 = it_f4.
"Once you try to pick the value HANDLE_DATA_CHANGED event will be triggered
"Definition
     methods:
     handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid
                              IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after,
"Implementation
METHOD handle_data_changed .
    DATA: ls_mod_cells TYPE lvc_s_modi.
    IF e_onf4_before = 'X'.
      MESSAGE 'Data changed before F4' TYPE 'I'.
    ENDIF.
    IF e_onf4 = 'X'.   "if event triggered by F4
      MESSAGE 'Data changed on F4' TYPE 'I'.
    ENDIF.
    IF e_onf4_after = 'X'.
      MESSAGE 'Data changed after F4' TYPE 'I'.
    ENDIF.
   "here you know which cell was modified
    LOOP AT er_data_changed->mt_mod_cells INTO ls_mod_cells.
     "just example test case, here you can implement your code for modified cells
      IF ls_mod_cells-value >=5.
        CALL METHOD er_data_changed->add_protocol_entry
          EXPORTING
            i_msgid     = 'SABAPDOCU'
            i_msgty     = 'E'
            i_msgno     = '888'
            i_msgv1     = 'Only numbers below 5 are possibe'
            i_msgv2     = 'Please correct'
            i_fieldname = ls_mod_cells-fieldname
            i_row_id    = ls_mod_cells-row_id.
        CALL METHOD er_data_changed->modify_cell
          EXPORTING
            i_fieldname = ls_mod_cells-fieldname
            i_row_id    = ls_mod_cells-row_id
            i_value     = space.
      ENDIF.
    ENDLOOP.
ENDMETHOD.                    "handle_data_changed
Edited by: sum_it2 on Nov 21, 2011 10:07 AM

Output screen basic list buttons

Hi frnds,
               what are the steps to create buttons in the application toolbar in our output screen.
like i m getting sales header data in my basic list so in the output i m having a button which i press then i will get sales item details.
so can anyone help me how to create that button there in the ouput screen.
regards,
sanjay

Hi,
You can copy the GUI STATUS STANDARD of the program SAPLKKBL in SE41 and create a new one..
in that add a button in the application toolbar section..
Then use call back pf status parameter to pass the subroutine to display the gui status..
Then use call back subroutine parameter in the alv function module to give the subroutine name..
check this example for using double click to get the item details.
TYPE-POOLS: slis.
DATA: BEGIN OF itab1 OCCURS 0,
        vbeln TYPE vbeln,
        bstnk TYPE vbak-bstnk,
        erdat TYPE vbak-erdat,
        kunnr TYPE vbak-kunnr,
      END OF itab1.
DATA: BEGIN OF itab2 OCCURS 0,
        vbeln TYPE vbeln,
        matnr TYPE vbap-matnr,
        netpr TYPE vbap-netpr,
        kwmeng TYPE vbap-kwmeng,
      END OF itab2.
DATA: t_fieldcatalog1 TYPE slis_t_fieldcat_alv.
DATA: t_fieldcatalog2 TYPE slis_t_fieldcat_alv.
DATA: v_repid         TYPE syrepid.
v_repid = sy-repid.
* Get the fieldcatalog1
PERFORM get_fieldcat1.
* Get the fieldcatalog2
PERFORM get_fieldcat2.
SELECT vbeln bstnk erdat kunnr UP TO 10 ROWS
       INTO TABLE itab1
       FROM vbak.
IF NOT itab1[] IS INITIAL.
SELECT vbeln matnr netpr kwmeng UP TO 10 ROWS
         INTO TABLE itab2
         FROM vbap
         FOR ALL ENTRIES IN itab1
         WHERE vbeln = itab1-vbeln.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          i_callback_user_command = 'DISPLAY_DETAIL'
          it_fieldcat             = t_fieldcatalog1
     TABLES
          t_outtab                = itab1.
*       FORM display_detail                                           *
* --> UCOMM                                                         *
* --> SELFIELD                                                      *
FORM display_detail USING ucomm LIKE sy-ucomm
                        selfield TYPE slis_selfield.
DATA: itab2_temp LIKE itab2 OCCURS 0 WITH HEADER LINE.
IF ucomm = '&IC1'.
    READ TABLE itab1 INDEX selfield-tabindex.
    IF sy-subrc = 0.
      LOOP AT itab2 WHERE vbeln = itab1-vbeln.
        MOVE itab2 TO itab2_temp.
        APPEND itab2_temp.
      ENDLOOP.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
           EXPORTING
                i_callback_program = v_repid
                it_fieldcat        = t_fieldcatalog2
           TABLES
                t_outtab           = itab2_temp.
    ENDIF.
ENDIF.
ENDFORM.
*       FORM GET_FIELDCAT1                                            *
FORM get_fieldcat1.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'VBELN'.
s_fieldcatalog-hotspot   = 'X'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BSTNK'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'BSTNK'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ERDAT'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'ERDAT'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'KUNNR'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'KUNNR'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
ENDFORM.
*       FORM GET_FIELDCAT2                                            *
FORM get_fieldcat2.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'VBELN'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'MATNR'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'MATNR'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'NETPR'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'NETPR'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'KWMENG'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'KWMENG'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
ENDFORM.
Thanks
Naren

TCode VT02n need to papulate mat.description in std. report

Hi,
Tcode Vt02n:
Give shipment no and press enter, from menu GOTO--> Shipment and Deliveries populates report with split deleveries button.. etc,
when place cursor on deliveri no and press split button will populate report, In this report, Material description is not poulating, I want to know how to popualate material description in this report.
thanks in advance
Srinivas M

Hi Experts,
This info really helped and now I am stuck in Transports.
I went to GRR1, created new u2018Z_report_pgmu2019 by copying from relevant Library and Report program. Added Company Code in Report Painter & save.
In GR22, choose relevant Report Group and maintain header text Report
In SE93, created Transaction code u2018Z_std_pgm*u2019 with u2018D_SREPOVARI-REPORTTYPEu2019 and value u2019RWu2019 & u2018D_SREPOVARI-REPORTu2019 and value u2018Reportgroup nameu2019.
To Transport this report group,GR52, goto Utilities->Transport->Transport Request Select 'Report Group' radio button click 'Execute'. In the next screen enter report group and execute, In the next screen select the check box for the report group and click execute Then it asked for the transport request.
But there was an error in the QA system. May be I missed transporting the 'Z_Report name'.
Should i do it from GR52 ? if not kindly advise.
Please help me in this final step

Jump to transaction me21n from output screen.

hi,
   I am displaying PO ,item no from ekpo table.On the output screen where data is displayed , when i click on PO no i need to go to transaction me21n.Can anyone plz help me and tell me the mechanism.

you can go to ME23N where it will display the particular PO.
Check this alv report.
REPORT ZMM_PO_TEXT
        no standard page heading
        line-size 300
        message-id zmsg.
                        Tables                                         *
TABLES : EKKO,         "Purchasing Document Header
         EKPO,         "Purchasing Document Item
         EKBE.         "History per Purchasing Doc
    Internal table   for display                                *
DATA : begin of it_item occurs 0 ,
       ebeln like ekpo-ebeln,        "pur doc no
        ebelp   like ekpo-ebelp,        "pur doc no item
        matnr   like ekpo-matnr,        "material no
        werks   like ekpo-werks,        "Plant
        bedat   like ekko-bedat,        "pur doc date
        banfn   like eban-banfn,        "Purchase requisition number
        bnfpo   like eban-bnfpo,        "Item number of purchase requisition
        charg like ekbe-charg ,       "Batch Number
        end of it_item.
DATA it_temp like table of it_item with header line.
ALV VARIABLES AND INTERNAL TABLES
TYPE-POOLS: slis.
DATA:st_layout      TYPE slis_layout_alv,
       it_fieldcat    TYPE slis_t_fieldcat_alv,
       it_listheader TYPE slis_t_listheader,
       it_event       TYPE slis_t_event,
       keyinfo        TYPE slis_keyinfo_alv.
DATA:ls_selfield TYPE slis_selfield.
                   VARIABLES                                     *
DATA:
        v_repid       LIKE sy-repid,
        name like thead-tdname,
        lines like tline occurs 0 with header line.
*SELECTION SCREEN DEFINITIONS
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME    TITLE     TEXT-001.
    SELECT-OPTIONS:
                     so_plant FOR ekpo-werks,
                     so_date FOR ekko-bedat OBLIGATORY,
                     so_matnr for ekpo-matnr,
                     so_ebeln for ekko-ebeln,
                     so_ekorg for ekko-ekorg,
                     so_ekgrp for ekko-ekgrp.
SELECTION-SCREEN: END OF BLOCK a1.
                  INITIALIZATION                                *
INITIALIZATION.
      v_repid = sy-repid.
*START-OF-SELECTION
START-OF-SELECTION.
      PERFORM get_data.
      IF it_item[] IS NOT INITIAL.
         PERFORM display_data.
      ELSE.
         MESSAGE i012(zmsg).
      ENDIF.
                    END-OF-SELECTION                                 *
END-OF-SELECTION.
*START-OF-SELECTION.
*perform get_data.
*perform display_data .
*******AT LINE-SELECTION.
******if it_data-banfn is initial.
******SET PARAMETER ID 'BES' FIELD it_data-EBELN.
******CALL TRANSACTION 'ME23N'.
******else.
******SET PARAMETER ID 'BAN' FIELD it_data-Banfn.
******CALL TRANSACTION 'ME53N'.
******endif.
          Form get data                        ******************
FORM get_data.
if so_date-high is initial.
so_date-high = sy-datum.
endif.
select aebeln aebelp amatnr awerks
          b~bedat
          c~charg
          into corresponding fields of table it_item
          from ekpo as a inner join ekko as b
          on aebeln = bebeln
          inner join eket as c on aebeln = cebeln and aebelp = cebelp
          where a~werks in so_plant
          and   a~matnr in so_matnr
          and   a~ebeln in so_ebeln
          and   b~bedat between so_date-low and so_date-high
          and   b~ekorg in so_ekorg
          and   b~ekgrp in so_ekgrp .
DELETE ADJACENT DUPLICATES FROM it_item.
SORT it_item by ebeln bedat.
loop at it_ITEM.
select single banfn bnfpo into (it_ITEM-banfn,it_ITEM-bnfpo) from eban where ebeln = it_ITEM-ebeln
                                                                          and ebelp = it_ITEM-ebelp.
*select single charg into (it_ITEM-charg) from ekbe where ebeln = it_ITEM-EBELP.
    if sy-subrc IS INITIAL.
CONCATENATE it_item-banfn it_item-bnfpo INTO NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = 'B06'
    LANGUAGE                      = sy-langu
    NAME                          = NAME
    OBJECT                        = 'EBAN'
TABLES
    LINES                         = lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
MODIFY IT_ITEM.
else.
CONCATENATE it_item-EBELN it_item-EBELP INTO NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = 'F10'
    LANGUAGE                      = sy-langu
    NAME                          = NAME
    OBJECT                        = 'EKPO'
TABLES
    LINES                         = lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
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.
IF LINES[] IS INITIAL.
DELETE IT_ITEM.
ENDIF.
CLEAR: IT_ITEM, LINES.
REFRESH : LINES.
endloop.
ENDFORM.                    " display_data
*FORM FOR DISPLAY DATA
FORM display_data .
          PERFORM fill_layout_structure.
          PERFORM fill_field_catalog_table.
          PERFORM get_event USING it_event.
          PERFORM fill_listheader USING it_listheader.
          perFORM call_alv_function.
ENDFORM.                    " display_data
*&      Form fill_layout_structure
      text
--> p1        text
<-- p2        text
FORM fill_layout_structure .
    st_layout-zebra = 'X'.
ENDFORM.                    " fill_layout_structure
*&      Form fill_field_catalog_table
      text
--> p1        text
<-- p2        text
FORM fill_field_catalog_table .
PERFORM fill_field_catalog USING :
           'EBELN'    'P.O Number'       'IT_ITEM' 'X'      space '10' 'X',
           'EBELP'    'P.O. Item No' 'IT_ITEM' space    space '10'    space,
           'BEDAT'     'P.O. Date'     'IT_ITEM' space    space '10'    space,
           'WERKS'     'Plant'            'IT_ITEM' space    space '10'    space,
           'MATNR'     'Material no'      'IT_ITEM' space    space '18'    space,
           'BANFN'     'P.R. Number'   'IT_ITEM'     space    space '18'    space,
           'CHARG'     'Batch Number' 'IT_ITEM' space space '10'    'space'    .
ENDFORM.                    " fill_field_catalog_table
*FORM FOR FILLING FIELD CATALOG
FORM fill_field_catalog USING f d t p S o h.
      DATA: wa_fieldcat TYPE slis_fieldcat_alv.
      STATICS v_pos TYPE i VALUE 1.
      wa_fieldcat-row_pos    = 1.
      wa_fieldcat-col_pos    = v_pos.
      wa_fieldcat-fieldname = f.
      wa_fieldcat-seltext_m = d.
      wa_fieldcat-tabname    = t.
       wa_fieldcat-hotspot = h.
      APPEND wa_fieldcat TO it_fieldcat.
      v_pos = v_pos + 1.
ENDFORM.                    "fill_field_catalog
*&      Form fill_listheader
      text
     -->P_IT_LISTHEADER text
FORM fill_listheader USING    P_IT_LISTHEADER TYPE   slis_t_listheader.
DATA : wa_listheader TYPE slis_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info ='PURCHASE ORDER TEXTS '.
APPEND wa_listheader TO it_listheader.
ENDFORM.                    " fill_listheader
*&      Form get_event
      text
     -->P_IT_EVENT text
FORM get_event USING    P_IT_EVENT    TYPE slis_t_event.
   DATA : wa_event TYPE slis_alv_event.
   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE           = 0
    IMPORTING
      ET_EVENTS             = it_event.
      READ TABLE it_event WITH KEY name = slis_ev_top_of_page INTO wa_event.
       IF SY-SUBRC = 0.
       MOVE 'TOP_OF_PAGE' to wa_event-form.
       APPEND wa_event to it_event.
   ENDIF.
ENDFORM.                    " get_event
*FORM FOR TOP_OF_PAGE(to assign form for the top-of-page event)
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader.
ENDFORM.                    "top_of_page
*FORM FOR ALV FUNCTIONS
FORM call_alv_function.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
      I_CALLBACK_PROGRAM             = v_repid
    I_CALLBACK_PF_STATUS_SET       = ' '
     I_CALLBACK_USER_COMMAND        = 'CALL_TCODE'
    I_STRUCTURE_NAME               =
     IS_LAYOUT                      = st_layout
     IT_FIELDCAT                    = it_fieldcat[]
    IT_EXCLUDING                   =
    IT_SPECIAL_GROUPS              =
    IT_SORT                        =
    IT_FILTER                      =
    IS_SEL_HIDE                    =
    I_DEFAULT                      = 'X'
    I_SAVE                         = ' '
    IS_VARIANT                     =
     IT_EVENTS                      = it_event[]
    IT_EVENT_EXIT                  =
    IS_PRINT                       =
    IS_REPREP_ID                   =
    I_SCREEN_START_COLUMN          = 0
    I_SCREEN_START_LINE            = 0
    I_SCREEN_END_COLUMN            = 0
    I_SCREEN_END_LINE              = 0
IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = it_item
EXCEPTIONS
    PROGRAM_ERROR                  = 1
    OTHERS                         = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.
*FORM FOR ALV CALL_TCODE
FORM call_tcode USING r_ucomm ls_selfield LIKE ls_selfield.
    CASE r_ucomm.
      WHEN '&IC1'.
        IF ls_selfield-fieldname = 'EBELN'.
          SET PARAMETER ID 'BES' FIELD ls_selfield-value.
          CALL TRANSACTION 'ME23N'.
        ENDIF.
        IF ls_selfield-fieldname = 'BANFN'.
          SET PARAMETER ID 'BAN' FIELD ls_selfield-value.
          CALL TRANSACTION 'ME53N' AND SKIP FIRST SCREEN.
        ENDIF.
    ENDCASE.
For classical
use HIDE statement, AT LINE SELECTION event and CALL TRANSACTION Statement.
regards,
Prabhu
Reward if it is helpful.

I am displaying status (traffic signal ) in output screen in tree display

hi all,
i am displaying status (traffic signal ) in output screen in tree display but instead its displaying <b>@08@</b> like text format....is there any need of conversion....
but it works in normal ALV grid layout.
please suggest a solution....... !
regards.
sivaram.

You need to do the following three steps in order to have "status" indicators on your ALV list:
(1) Add a status or exception field to your itab definition, e.g.
TYPES: BEGIN OF ty_s_outtab.
TYPES: status(4)    TYPE c.      " status field for LED / traffic light
INCLUDE TYPE KNB1.
TYPES: END OF ty_s_outtab.
DATA:
gt_outtab TYPE STANDARD TABLE OF ty_s_outtab
                           WITH DEFAULT KEY.
(2) Define the status field in the layout (LVC_S_LAYO):
gs_layout-excp_fname = 'STATUS'. " name of the status/exception field
gs_layout-excp_led = 'X'. " display LEDs, else traffic lights
(3) Loop over the itab and set the appropriate status:
LOOP AT gt_outtab INTO ls_outtab.
    IF ( <condition is fulfilled> ).
      ls_outtab-status = '3'.   " green
   ELSEIF ( <condition partially fulfilled> ).
      ls_outtab-status = '2'.   " yellow
   ELSE.
      ls_outtab-status = '1'.   " red
   ENDIF.
    MODIFY gt_outtab FROM ls_outtab.
ENDLOOP.
reward points if it is usefull....
Girish

Regarding Push Buttons in Output Screen

Hi All,
I want to add to buttons in the output screen(not in the selection-screen). I used the below code, but it was showing those buttons in selection screen. can any one help me how to get these two buttons in the output screen.
INITIALIZATION.
sscrfields-functxt_01 = 'AUTO POPULATE'.
sscrfields-functxt_02 = 'SAVE'.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
WHEN 'FC02'.
ENDCASE.
Thanks in advance.
Regards,
Ramana Prasad. T

hi
good
go through this code,which ll give you brief idea about create the button in output screen
*& Report ZSSCRBUTTON *
*& Adds buttons to selection screen. *
*& Demonstrates alteration of selection screen layout depending on *
*& which button is pressed. *
REPORT zsscrbutton NO STANDARD PAGE HEADING.
TABLES: t030, skat, sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
TITLE text-001.
SELECT-OPTIONS: p_ktopl FOR t030-ktopl,
p_komok FOR t030-komok,
p_ktosl FOR t030-ktosl.
SELECTION-SCREEN SKIP.
*SELECTION-SCREEN FUNCTION KEY 1. Adds button to application toolbar
Declaration of sel screen buttons
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_button USER-COMMAND BUT1.
SELECTION-SCREEN PUSHBUTTON (25) w_but2 USER-COMMAND BUT2.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS: p_konts FOR t030-konts,
p_bklas FOR t030-bklas.
PARAMETER: gd_ucomm like sy-ucomm default BUT1′ no-display.
SELECTION-SCREEN END OF BLOCK block1.
TYPES: BEGIN OF t_t030,
ktopl TYPE t030-ktopl,
konts TYPE t030-konts,
txt20 TYPE skat-txt20,
bklas TYPE t030-bklas,
bkbez TYPE t025t-bkbez,
END OF t_t030.
DATA: it_t030 TYPE STANDARD TABLE OF t_t030 INITIAL SIZE 0,
wa_t030 TYPE t_t030.
DATA: gd_repsize TYPE i VALUE 83′.
*INITIALIZATION.
INITIALIZATION.
Add displayed text string to buttons
w_button = GL account selection.
w_but2 = Valuation class selection.
*AT SELECTION-SCREEN.
AT SELECTION-SCREEN.
Check if buttons have been
if sscrfields-ucomm eq BUT1′.
gd_ucomm = BUT1′.
clear: p_BKLAS.
refresh: p_BKLAS.
elseif sscrfields-ucomm eq BUT2′.
clear: p_KONTS.
refresh: p_KONTS.
gd_ucomm = BUT2′.
endif.
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
if gd_ucomm eq BUT1′.
loop at screen.
if screen-name CS P_KONTS.
screen-active = 1.
elseif screen-name CS P_BKLAS.
screen-active = 0.
endif.
modify screen.
endloop.
elseif gd_ucomm eq BUT2′.
loop at screen.
if screen-name CS P_KONTS.
screen-active = 0.
elseif screen-name CS P_BKLAS.
screen-active = 1.
endif.
modify screen.
endloop.
endif.
thanks
mrutyun^

Need push button in output screen

Hi Friends,
I need to have a pushbutton in the output screen,how can i display it ? and if that push button is pressed ,it should perform an operation and display the output in next screen.
I have a condition that the select-option should act as parameter,How can I get it.
Thank you.
I Promise to Reward.

Hi
See this code.
SELECTION-SCREEN BEGIN OF SCREEN 1001.
SELECTION-SCREEN: BEGIN OF BLOCK BL WITH FRAME TITLE TIT,
                  COMMENT /30(30) WEL,
                  SKIP 3.
PARAMETERS : FLIGHTNO LIKE ZFLIGHT-FNO,
               FNAME LIKE ZFLIGHT-FNAME.
SELECTION-SCREEN: SKIP 2,
END OF BLOCK BL.
SELECTION-SCREEN : PUSHBUTTON 15(10) SH USER-COMMAND SHOW1,
                     PUSHBUTTON 30(10) IN USER-COMMAND INS1,
                     PUSHBUTTON 45(10) CL USER-COMMAND CLR1,
                    PUSHBUTTON 60(10) EX USER-COMMAND EX1,
                    PUSHBUTTON 73(10) NE USER-COMMAND NE1,
    END OF SCREEN 1001.
INITIALIZATION.
TIT = 'WELCOME TO BLOCK'.
WEL = 'WELCOME TO SELECTION SCREEN'.
SH = 'SHOW'.
IN = 'INSERT'.
CL = 'CLEAR'.
EX = 'EXIT'.
NE = 'NEXT SCREEN'.
NEX = 'NEXT SCREEN1'.
CALL SELECTION-SCREEN 1001.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
   WHEN 'SHOW1'.
          SELECT * FROM ZFLIGHT WHERE FNO = FLIGHTNO.
          FNAME = ZFLIGHT-FNAME.
          ENDSELECT.
   WHEN 'INS1'.
         ZFLIGHT-FNO = FLIGHTNO.
         ZFLIGHT-FNAME = FNAME.
         INSERT ZFLIGHT.
         MESSAGE 'RECORD INSERTED' TYPE 'S'.
   WHEN 'CLR1'.
         FLIGHTNO = ' '.
         FNAME = ' '.
   WHEN 'EX1'.
       LEAVE PROGRAM.
   WHEN 'NE1'.
        CALL SELECTION-SCREEN 1002.
   WHEN 'NE2'.
        CALL SELECTION-SCREEN 1001.
    ENDCASE.

Dynamic field on the output screen

Hi All,
I have a requirement to create the dynamic field on the output screen.
In the basic list I am displaying the production order details like
check box, production order , materials, quantity, etc.
If I select the particular check box , the quantity pertaining to that check box line as to display on the dynamic field. If I select more than one check box, then the cummilative quantity of all the production orders has to display on the dynamic field.
Thanks in advance.
Ramesh.

hi,
you can define a dinamic fields depending on selection of check box.
Go through the below code. I think it may help you.
PARAMETERS:
P_CB1 AS CHECKBOX,
P_CB2 AS CHECKBOX,
P_A TYPE I MODIF ID XXX DEFAULT ' ',
P_B TYPE I MODIF ID YYY DEFAULT ' '.
DATA:
W_C1,
W_C2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF SCREEN-GROUP1 = 'XXX'.
      SCREEN-ACTIVE = 0.
      MODIFY SCREEN.
    ELSEIF SCREEN-GROUP1 = 'YYY'.
      SCREEN-ACTIVE = 0.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
IF P_CB1 EQ 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'XXX'.
        SCREEN-ACTIVE = 1.
        SCREEN-INPUT = 1.
        SCREEN-OUTPUT = 1.
        SCREEN-INVISIBLE = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
IF P_CB2 EQ 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'YYY'.
        SCREEN-ACTIVE = 1.
        SCREEN-INPUT = 1.
        SCREEN-OUTPUT = 1.
        SCREEN-INVISIBLE = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.

Tcode VT02N -- ShipmentNo-- Output-- Screen, O/P Type Y141, Y011

Similar Messages

Maybe you are looking for