SAP knowledge - ABAP Freak

DYnamic structure and table ceration

2015-06-12T19:38:00.002-07:00

*** Test - TBDeleted
data: ls_segstruc TYPE REF TO cl_abap_structdescr,
      r_data_str TYPE REF TO data.

FIELD-SYMBOLS: <fs> TYPE ANY.

ls_segstruc ?= cl_abap_typedescr=>DESCRIBE_BY_NAME( 'MARA' ).

CREATE DATA:
      r_data_tab TYPE HANDLE r_type_table,
             r_data_str TYPE HANDLE ls_segstruc.

FIELD-SYMBOLS: <fs_table> TYPE INDEX TABLE,
               <fs_wa>    TYPE ANY.

ASSIGN:
r_data_tab->* TO <fs_table>,
        r_data_str->* TO <fs_wa>.

Table EVENTS in Table Maintenance Generator in SE11

2014-10-19T20:40:00.001-07:00

Events can be created inside Table maintenence generator using Environment and modification.

Use TOTAL table which is available in the GLOBAL fields of the EVENTS routine to access all the existing data of the current ZTable.

*---------------------------------------------------------------------*
* Handle Table events to restrict user from entering wrong SH and     *
* In-Transit location if 1 entry is already maintained in the table   *
*---------------------------------------------------------------------*
*  P R O G R A M   C H A N G E   H I S T O R Y                        *
*---------------------------------------------------------------------*
* ##) Correction  Date......  SAP User ID.  Description.............. *
*---------------------------------------------------------------------*
  DATA: ls_currrent_entry TYPE zfi_pri_gethub,
        ls_existing_entry TYPE zfi_pri_gethub.

  MOVE zfi_pri_gethub TO ls_currrent_entry.

  LOOP AT total INTO ls_existing_entry.
    IF ls_existing_entry-ship_to EQ ls_currrent_entry-ship_to.
      IF ls_existing_entry-in_transit_sloc EQ ls_currrent_entry-in_transit_sloc.
        MESSAGE '1 Ship-to can have only 1 In-transit Location' TYPE 'E'.
      ENDIF.
    ENDIF.
  ENDLOOP.

ENDFORM.                    "new_entry

Easy way of passing values from custom program to Exits - without IMPORT/EXPORT or memory id

2014-08-13T20:07:00.001-07:00

Often its required to transfer values from custom program to EXITS while calling any Object creation BAPi.
Using IMPORT/EXPORT to memory or INDX is not very reliable especially when the custom programs are ran in background mode.

One of the easy way is to :
- use SAVE_TEXT to update the value to the Biz object in the custom program
_ call the creation BAPI for Deivery, order, billing etc.
- during the creation process, find an exit where the VALUEs can be impported using READ_TEXT.
- after creation process , once control comes back to the custom program, delete the value from the object using DELETE_TEXT.

custom program

DATA: lt_range TYPE TABLE OF zrange.
FIELD-SYMBOLS:  TYPE zrange,
                LIKE xvbpa.

DATA: lv_name TYPE tdobname,
      lt_lines TYPE STANDARD TABLE OF tline,
      ls_lines LIKE LINE OF lt_lines,
      ls_lips  TYPE lips,
      lv_ebelp TYPE ebelp.

CONSTANTS: co_savelang  TYPE thead-tdspras VALUE 'E'.

* check for availability of PO doc
IF ekko-ebeln IS INITIAL.
  RETURN.
ENDIF.

* Read ZRANGE for triggering of below logic
SELECT * FROM zrange INTO TABLE lt_range
  WHERE application  = 'HUBSTOSA' AND
        program_name = 'MV50AFZ1' AND
        identifier  = ekko-ekorg.

IF sy-subrc EQ 0.
  SORT lt_range BY fieldname.
  "Check doc type
  READ TABLE lt_range ASSIGNING  WITH KEY fieldname = 'LFART' BINARY SEARCH.
  IF sy-subrc NE 0 AND  IS NOT ASSIGNED.
    RETURN.
  ELSEIF  IS ASSIGNED.
    IF -low NE likp-lfart.
      RETURN.
    ENDIF.
  ENDIF.
  READ TABLE lt_range ASSIGNING  WITH KEY fieldname = 'BSART' BINARY SEARCH.
  IF sy-subrc NE 0 AND  IS NOT ASSIGNED.
    RETURN.
  ELSEIF  IS ASSIGNED.
    IF -low NE ekko-bsart.
      RETURN.
    ENDIF.
  ENDIF.
ELSE.
  RETURN.
ENDIF.

CHECK sy-tcode EQ 'ZSD_SCHEDULE_HUB' OR sy-batch EQ 'X'.

READ TABLE xvbpa[] ASSIGNING  WITH KEY parvw = 'ZB'."during change this Partner will be there
IF sy-subrc EQ 0.
  RETURN."it means this code has been called during DN creation time. We need thi code during DN change
ENDIF.

********* Read Text *********

SORT xlips[] BY vgpos."text ID will always be there for the 1st item of the delivery as per Report logic
READ TABLE xlips[] INTO ls_lips INDEX 1.
MOVE ls_lips-vgpos+1(5) TO lv_ebelp.

IF sy-subrc EQ 0.

  MOVE ls_lips-vgbel TO lv_name.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
*     client                  = sy-mandt
      id                      = 'L04'
      language                = co_savelang
      name                    = lv_name
      object                  = 'EKPO'
    TABLES
      lines                   = lt_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.
    RETURN.
  ENDIF.

  READ TABLE lt_lines INTO ls_lines INDEX 1.
  IF sy-subrc EQ 0.
    "Loop has been used here, so that in case of data issues, when multiple
    "DNs are created, all DN should have the HUB Partner number
    LOOP AT  xvbpa[] ASSIGNING  WHERE parvw = 'WE'.
      MOVE ls_lines-tdline TO -kunnr.
      SELECT adrnr UP TO 1 ROWS INTO -adrnr
        FROM kna1 WHERE kunnr = -kunnr.
      ENDSELECT.
    ENDLOOP.
  ENDIF.

ENDIF.

------- call BAPI for Outboud delivery creation
Include MV50AFZ1
FORM USEREXIT_SAVE_DOCUMENT_PREPARE.

SORT xlips[] BY vgpos."text ID will always be there for the 1st item of the delivery as per Report logic
READ TABLE xlips[] INTO ls_lips INDEX 1.
MOVE ls_lips-vgpos+1(5) TO lv_ebelp.

IF sy-subrc EQ 0.

  MOVE ls_lips-vgbel TO lv_name.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
*     client                  = sy-mandt
      id                      = 'L04'
      language                = co_savelang
      name                    = lv_name
      object                  = 'EKPO'
    TABLES
      lines                   = lt_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.
    RETURN.
  ENDIF.

  READ TABLE lt_lines INTO ls_lines INDEX 1.
  IF sy-subrc EQ 0.
    "Loop has been used here, so that in case of data issues, when multiple
    "DNs are created, all DN should have the HUB Partner number
    LOOP AT  xvbpa[] ASSIGNING  WHERE parvw = 'WE'.
      MOVE ls_lines-tdline TO -kunnr.
      SELECT adrnr UP TO 1 ROWS INTO -adrnr
        FROM kna1 WHERE kunnr = -kunnr.
      ENDSELECT.
    ENDLOOP.
  ENDIF.

---------------------- return to custom program

    ELSE.
*****
      CALL FUNCTION 'DELETE_TEXT'
        EXPORTING
          client          = sy-mandt
          id              = ls_thead-tdid
          language        = co_savelang
          name            = ls_thead-tdname
          object          = ls_thead-tdobject
          savemode_direct = 'X'
        EXCEPTIONS
          not_found       = 1
          OTHERS          = 2.
      IF sy-subrc <> 0.
* Implement suitable error handling here
      ENDIF.

    ENDIF.

Changing PARTNER details before Outbound delivery commit to system

2014-08-13T19:55:00.000-07:00

By this point OB is already decided for splitting and all validation has happened.
We want to skip the validations and change the Partner numbers.

REMEMEBER: Mandatory partners determined by the TPAER table cannot be changed. Actaully it can be changed but system hangs while ceration of the Delv since it tries to delete the partner from VLPMA table.

Here READ_TEXT is reading the partner numbers passed from the custom Report to generate OB:

DATA: lt_range TYPE TABLE OF zrange.
FIELD-SYMBOLS:  TYPE zrange,
                LIKE xvbpa.

DATA: lv_name TYPE tdobname,
      lt_lines TYPE STANDARD TABLE OF tline,
      ls_lines LIKE LINE OF lt_lines,
      ls_lips  TYPE lips,
      lv_ebelp TYPE ebelp.

CONSTANTS: co_savelang  TYPE thead-tdspras VALUE 'E'.

* check for availability of PO doc
IF ekko-ebeln IS INITIAL.
  RETURN.
ENDIF.

* Read ZRANGE for triggering of below logic
SELECT * FROM zrange INTO TABLE lt_range
  WHERE application  = 'HUBSTOSA' AND
        program_name = 'MV50AFZ1' AND
        identifier  = ekko-ekorg.

IF sy-subrc EQ 0.
  SORT lt_range BY fieldname.
  "Check doc type
  READ TABLE lt_range ASSIGNING  WITH KEY fieldname = 'LFART' BINARY SEARCH.
  IF sy-subrc NE 0 AND  IS NOT ASSIGNED.
    RETURN.
  ELSEIF  IS ASSIGNED.
    IF -low NE likp-lfart.
      RETURN.
    ENDIF.
  ENDIF.
  READ TABLE lt_range ASSIGNING  WITH KEY fieldname = 'BSART' BINARY SEARCH.
  IF sy-subrc NE 0 AND  IS NOT ASSIGNED.
    RETURN.
  ELSEIF  IS ASSIGNED.
    IF -low NE ekko-bsart.
      RETURN.
    ENDIF.
  ENDIF.
ELSE.
  RETURN.
ENDIF.

CHECK sy-tcode EQ 'ZSD_SCHEDULE_HUB' OR sy-batch EQ 'X'.

READ TABLE xvbpa[] ASSIGNING  WITH KEY parvw = 'ZB'."during change this Partner will be there
IF sy-subrc EQ 0.
  RETURN."it means this code has been called during DN creation time. We need thi code during DN change
ENDIF.

********* Read Text *********

SORT xlips[] BY vgpos."text ID will always be there for the 1st item of the delivery as per Report logic
READ TABLE xlips[] INTO ls_lips INDEX 1.
MOVE ls_lips-vgpos+1(5) TO lv_ebelp.

IF sy-subrc EQ 0.

  MOVE ls_lips-vgbel TO lv_name.

  CALL FUNCTION 'READ_TEXT'
    EXPORTING
*     client                  = sy-mandt
      id                      = 'L04'
      language                = co_savelang
      name                    = lv_name
      object                  = 'EKPO'
    TABLES
      lines                   = lt_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.
    RETURN.
  ENDIF.

  READ TABLE lt_lines INTO ls_lines INDEX 1.
  IF sy-subrc EQ 0.
    "Loop has been used here, so that in case of data issues, when multiple
    "DNs are created, all DN should have the HUB Partner number
    LOOP AT  xvbpa[] ASSIGNING  WHERE parvw = 'WE'.
      MOVE ls_lines-tdline TO -kunnr.
      SELECT adrnr UP TO 1 ROWS INTO -adrnr
        FROM kna1 WHERE kunnr = -kunnr.
      ENDSELECT.
    ENDLOOP.
  ENDIF.

ENDIF.

Changing Outbound delivery data before creation

2014-08-13T19:52:00.001-07:00

BADI and User exit for OB before even Delivery data checks starts.
- before delivery split criteria is determined.
- before sending data to GN_DELIVERY_CREATE
- changing data for OB created from STO - BAPI_OUTB_DELIVERY_CREATE_STO

Basic idea is to target the Delivery creation structure - it_komdlgn

inside GN_DELIVERY_CREATE at the beginning it self you have a BADI. But this BADI has all IMPORTING parameters for the Method - IMPORT. SO its not directly possible to change the data.
Use STACK table assignment using Field-symbols to change the data.

BADI - shp_badi_gn_delivery_create
Implementation:
IF_EX_SHP_GN_DELIVERY_CREATE~IMPORT

Requirement - to change the LFDAT field which is read from EKET table and Spitting of MATNR is done based on that.
METHOD if_ex_shp_gn_delivery_create~import.

  DATA: lt_range TYPE TABLE OF zrange.
  FIELD-SYMBOLS:  TYPE zrange,
                  TYPE komdlgn,
                  TYPE ANY TABLE.

  DATA: lv_name TYPE tdobname,
        lt_lines TYPE STANDARD TABLE OF tline,
        ls_lines LIKE LINE OF lt_lines,
        ls_lips  TYPE lips,
        lv_ebeln TYPE ebeln,
        lv_ekorg TYPE ekorg,
        lv_bsart TYPE bsart,
        lv_prog TYPE string VALUE '(SAPLV50S)XKOMDLGN[]'.

  CONSTANTS: co_savelang  TYPE thead-tdspras VALUE 'E'.

*** Dynamic accessing of variables in Stack programs
  ASSIGN (lv_prog) TO .
  CHECK  IS ASSIGNED.

* Read table available in BADI to get SA num
  READ TABLE xkomdlgn ASSIGNING  INDEX 1.
  CHECK sy-subrc EQ 0.
  MOVE -vgbel TO lv_name."for READ_TEXT
  MOVE -vgbel TO lv_ebeln."for SELECT query

* Get SA details for verification with ZRANGE table
  SELECT ekorg bsart UP TO 1 ROWS INTO (lv_ekorg,lv_bsart)
    FROM ekko
    WHERE ebeln EQ lv_ebeln.
  ENDSELECT.

* Read ZRANGE for triggering of below logic
  SELECT * FROM zrange INTO TABLE lt_range
    WHERE application  = 'HUBSTOSA' AND
          program_name = 'MV50AFZ1' AND
          identifier  = lv_ekorg.

  IF sy-subrc EQ 0.
    SORT lt_range BY fieldname.
    READ TABLE lt_range ASSIGNING  WITH KEY fieldname = 'BSART' BINARY SEARCH.
    IF sy-subrc NE 0 AND  IS NOT ASSIGNED.
      RETURN.
    ELSEIF  IS ASSIGNED.
      IF -low NE lv_bsart.
        RETURN.
      ENDIF.
    ENDIF.
  ELSE.
    RETURN.
  ENDIF.
*

  CHECK sy-tcode EQ 'ZSD_SCHEDULE_HUB' OR sy-batch EQ 'X'.

*
  CALL FUNCTION 'READ_TEXT'
    EXPORTING
*     client                  = sy-mandt
      id                      = 'L04'
      language                = co_savelang
      name                    = lv_name
      object                  = 'EKPO'
    TABLES
      lines                   = lt_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.
    RETURN.
  ENDIF.
  READ TABLE lt_lines INTO ls_lines INDEX 2.

  LOOP AT  ASSIGNING .
    MOVE ls_lines-tdline TO -lfdat.
  ENDLOOP.

ENDMETHOD.

field synbols and internal table loops

2014-03-13T23:08:00.002-07:00

* Begin of insert - TIN2841 - def#8785

CHECK sy-uname eq 'TIN2841'.
TYPES : begin of ty_crmtpop,
YYSALES_ORG TYPE char4,
YYSLA TYPE char2,
END OF ty_crmtpop.

TYPES : begin of ty_crmtpopx,
YYSALES_ORG TYPE char1,
YYSLA TYPE char1,
END OF ty_crmtpopx.

data: lwa_crmtpop TYPE ty_CRMTPOP,
lwa_crmtpopx TYPE ty_crmtpopx,
lwa_ship TYPE bad_shipping_mess.
FIELD-SYMBOLS: TYPE table,
TYPE any,
TYPE table,
TYPE any,
TYPE CRMT_SHIP_COND,"shipping cond
TYPE CRMT_SALES_ORG_RESP."sales org

CONSTANTS: lv_ref_kind TYPE char8 VALUE 'REF_KIND'.

ASSIGN COMPONENT 'SHIPPING' OF STRUCTURE IT_BUS_TRANS_MSG to

.

IF sy-subrc = 0 AND IS ASSIGNED.
READ TABLE ASSIGNING WITH KEY (lv_ref_kind)

= 'A'.
ENDIF.

ASSIGN COMPONENT 'ORGMAN' OF STRUCTURE IT_BUS_TRANS_MSG to .

* READ TABLE IT_BUS_TRANS_MSG-ORGMAN ASSIGNING .
IF sy-subrc eq 0 and IS ASSIGNED.
READ TABLE ASSIGNING WITH KEY (lv_ref_kind) =

'A'.
ENDIF.

ASSIGN COMPONENT 'SALES_ORG_RESP' of STRUCTURE to .
ASSIGN COMPONENT 'SHIP_COND' of STRUCTURE to .

CALL METHOD CL_CRM_ORGMAN_SERVICES=>MAP_HROBJECT_TO_R3_SALES_ORG
EXPORTING
HROBJECT =
* DBREAD =
IMPORTING
VKORG = lwa_crmtpop-YYSALES_ORG
EXCEPTIONS
NO_AUTHORIZATION = 1
NOT_FOUND = 2
others = 3.
IF SY-SUBRC <> 0.
CLEAR lwa_crmtpop-YYSALES_ORG.
ENDIF.

lwa_crmtpop-YYSLA = .

CLEAR l_bapiparex.
l_bapiparex-structure = 'BAPI_CRMTPOP_HDR'. "lv_bapi_structure.
MOVE lwa_crmtpop TO l_bapiparex-valuepart1.
INSERT l_bapiparex INTO TABLE ct_bapiparex.

CLEAR l_bapiparex.
MOVE-CORRESPONDING TO i_wa_pofieldsx.
lwa_crmtpopx-yysales_org = 'X'.
lwa_crmtpopx-yysla = 'X'.
l_bapiparex-structure = 'BAPI_CRMTPOP_HDRX'. "lv_bapi_structure.
MOVE lwa_crmtpopx TO l_bapiparex-valuepart1.
INSERT l_bapiparex INTO TABLE ct_bapiparex.

* end of insert - TIN2841 - def#8785

Dynamic field symbol

2013-07-10T01:30:00.001-07:00

*DATA: v_string TYPE string VALUE '(SAPFP50M)PS'.
DATA: v_string TYPE string VALUE '(SAPFP50M)PS[]'." has to be done this way as PS is table with header line
TYPES: BEGIN OF ty_ps.
INCLUDE STRUCTURE prelp AS prelp.
TYPES: opera,
auth.
TYPES: END OF ty_ps.

TYPES: ty_t_ps TYPE STANDARD TABLE OF ty_ps.

FIELD-SYMBOLS: TYPE ty_t_ps,
TYPE ty_ps.

ASSIGN (v_string) TO .

LOOP AT ASSIGNING WHERE infty EQ '0210'.
-begda = sy-datum.
ENDLOOP.

Display Text in Module pool screen

2012-07-10T07:04:00.004-07:00

  DATA: obj_cont1 TYPE REF TO cl_gui_custom_container,
        obj_cont2 TYPE REF TO cl_gui_custom_container,
        obj_cont3 TYPE REF TO cl_gui_custom_container,
        obj_cont4 TYPE REF TO cl_gui_custom_container,
        obj_cont5 TYPE REF TO cl_gui_custom_container,
        obj_editor1 TYPE REF TO cl_gui_textedit,
        obj_editor2 TYPE REF TO cl_gui_textedit,
        obj_editor3 TYPE REF TO cl_gui_textedit,
        obj_editor4 TYPE REF TO cl_gui_textedit,
        obj_editor5 TYPE REF TO cl_gui_textedit.

MODULE fill_text_ycsmg OUTPUT.

  IF obj_editor1 IS NOT BOUND.
    CREATE OBJECT obj_cont1
      EXPORTING
        container_name = 'LINK_CONT'.
    CREATE OBJECT obj_editor1
      EXPORTING
        parent = obj_cont1.

    CALL METHOD obj_editor1->set_selected_textstream
      EXPORTING
        selected_text                 = 'To facilitate manual movements of components within the multilevel structures (Material BOM) of the product. Instead of several-step process with usage of standard transactions such as CS02 or CEWB.'
*       enable_editing_protected_text = false
      EXCEPTIONS
        error_cntl_call_method        = 1
        not_supported_by_gui          = 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.

    CALL METHOD obj_editor1->set_toolbar_mode
      EXPORTING
        toolbar_mode = 0.
    CALL METHOD obj_editor1->set_readonly_mode
      EXPORTING
        readonly_mode = 1.
    CALL METHOD obj_editor1->set_statusbar_mode
      EXPORTING
        statusbar_mode = 0.

  ENDIF.

ENDMODULE.

**************************
  CASE sy-ucomm.
    WHEN 'LINK'.
      CALL TRANSACTION 'YCSMG'."Link Transfer WB
    WHEN 'YCAPPH'."Allocation of S-Note comp
      CALL TRANSACTION 'YCAPPH'.
    WHEN 'YCASNH'."Manage of S-Note Comp
      CALL TRANSACTION 'YCASNH'.
    WHEN 'REPLACE'.
      SUBMIT yrep_kola_modify_linkid VIA SELECTION-SCREEN AND RETURN.
    WHEN 'UNREPLACE'.
      SUBMIT yrep_kola_modify_link_undo VIA SELECTION-SCREEN AND RETURN.
    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.

Dynamic SELECT query

2012-06-25T23:26:00.001-07:00

  DATA: lv_cond TYPE string,
        lv_ecmas TYPE char6,
        lv_kola TYPE char4,
        lv_matmas TYPE char6,
        lv_docmas TYPE char6.

  REFRESH p_idoc.

  IF cb_bom EQ gc_o.
    MOVE 'KOLA' TO lv_kola.
********ECMMAS,MATMAS,DOCMAS****************************************
    IF cb_ecm EQ gc_x AND cb_mat NE gc_x AND cb_doc NE gc_x.
      MOVE 'ECMMAS' TO lv_ecmas.
      CONCATENATE 'mestyp = lv_ecmas'
                  'AND sndprn =' 'lv_kola' 'AND credat IN s_odays'
                  INTO lv_cond SEPARATED BY space.
    ELSEIF cb_ecm EQ gc_x AND cb_mat EQ gc_x AND cb_doc NE gc_x.
      MOVE 'ECMMAS' TO lv_ecmas.
      MOVE 'MATMAS' TO lv_matmas.
      CONCATENATE 'mestyp = lv_ecmas OR mestyp = lv_matmas'
                  'AND sndprn =' 'lv_kola' 'AND credat IN s_odays'
                  INTO lv_cond SEPARATED BY space.
    ELSEIF cb_ecm EQ gc_x AND cb_mat EQ gc_x AND cb_doc EQ gc_x.
      MOVE 'ECMMAS' TO lv_ecmas.
      MOVE 'MATMAS' TO lv_matmas.
      MOVE 'DOCMAS' TO lv_docmas.
      CONCATENATE
      'mestyp = lv_ecmas OR mestyp = lv_matmas OR mestyp = lv_docmas'
      'AND sndprn =' 'lv_kola' 'AND credat IN s_odays'
                  INTO lv_cond SEPARATED BY space.
    ELSEIF cb_ecm NE gc_x AND cb_mat EQ gc_x AND cb_doc EQ gc_x.
      MOVE 'DOCMAS' TO lv_docmas.
      MOVE 'MATMAS' TO lv_matmas.
      CONCATENATE 'mestyp = lv_docmas OR mestyp = lv_matmas'
                  'AND sndprn =' 'lv_kola' 'AND credat IN s_odays'
                  INTO lv_cond SEPARATED BY space.
    ELSEIF cb_ecm NE gc_x AND cb_mat NE gc_x AND cb_doc EQ gc_x.
      MOVE 'DOCMAS' TO lv_docmas.
      CONCATENATE 'mestyp = lv_docmas'
                  'AND sndprn =' 'lv_kola' 'AND credat IN s_odays'
                  INTO lv_cond SEPARATED BY space.
    ELSEIF cb_ecm NE gc_x AND cb_mat EQ gc_x AND cb_doc NE gc_x.
      MOVE 'MATMAS' TO lv_matmas.
      CONCATENATE 'mestyp = lv_matmas'
                  'AND sndprn =' 'lv_kola' 'AND credat IN s_odays'
                  INTO lv_cond SEPARATED BY space.
    ENDIF.

    IF NOT lv_cond IS INITIAL.
      SELECT docnum status credat cretim mestyp
             mescod mesfct upddat updtim
          INTO CORRESPONDING FIELDS OF TABLE p_idoc
          FROM edidc
          WHERE (lv_cond).
    ENDIF.
********CHRMAS,CLSMAS,ECMREV****************************************

Check sessions opened by other Users

2012-05-30T03:25:00.000-07:00

System Monitoring ® User Overview (or transaction SM04)

http://help.sap.com/saphelp_nw70/helpdata/en/69/c24e1d4ba111d189750000e8322d00/content.htm

VELO: Creating vehicle and Sales order in SAP VMS systems

2011-09-26T01:26:00.000-07:00

below code gives an option of creating Vehicles along with SO in VMS system in SAP. User has option o creating multiple Vehicle and SO with multiple or single vehicle. as of now the code has been tested with few Materials which has to be of the Material Group VEHI and configurable (consult your SAP Funct expert).

The below code still gives an Pop-up while creating the SO for the Vehicle. But this Pop-up can be cancelled by the User and it doesnt effect on the Vehicle creation process. I am still working on the pop-up screen and trying to fix it so that the program can run in the background:

**************************************************************************************

*&---------------------------------------------------------------------*
*& Report  YCREATEVEH_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ycreateveh_test.

DATA: gt_vehicle TYPE STANDARD TABLE OF bapivehicle,
      gt_vehicle1 TYPE STANDARD TABLE OF bapivehicle,
      gw_vehicle TYPE bapivehicle,
      gt_config  TYPE STANDARD TABLE OF bapicucfg,
      gt_config1  TYPE STANDARD TABLE OF bapicucfg,
      gw_config  TYPE bapicucfg,
      gt_inst    TYPE STANDARD TABLE OF bapicuins,
      gt_inst1    TYPE STANDARD TABLE OF bapicuins,
      gw_inst    TYPE bapicuins,
      gt_charval TYPE STANDARD TABLE OF bapicuval,
      gt_charval1 TYPE STANDARD TABLE OF bapicuval,
      gw_charval TYPE bapicuval,
      gw_req     TYPE bapirequestedtablesx,
      gt_return  TYPE STANDARD TABLE OF bapiret2,
      gw_edidd   TYPE edidd,
      gt_condkey TYPE STANDARD TABLE OF bapicuvk,
      gt_qual    TYPE STANDARD TABLE OF bapivehiclequalifiers,
      gw_qual     TYPE bapivehiclequalifiers.
TYPES: tt_ret TYPE STANDARD TABLE OF bapiret2.

PARAMETERS: p_veh TYPE i,"no. o veh
            p_mat TYPE mara-matnr DEFAULT 'IT8911',
            p_1 RADIOBUTTON GROUP g1,
            p_2 RADIOBUTTON GROUP g1.

START-OF-SELECTION.

  gw_vehicle-materialnumber = p_mat."'B100'."'IT8911'."'B100'.                       "E1EDP19
  gw_vehicle-plant          = '1000'.
  APPEND gw_vehicle TO gt_vehicle.
  CLEAR: gw_vehicle,gw_edidd.

  gw_config-config_id = '1'."E1CUCFG-CONFIG_ID
  gw_config-root_id   = '1'." E1CUCFG-ROOT_ID
  APPEND gw_config TO gt_config.
  CLEAR: gw_config,gw_config.

  gw_inst-config_id = '1'.
  gw_inst-inst_id   = '1'."E1CUINS-INST_ID
  gw_inst-obj_type  = 'MARA'."E1CUINS-OBJ_TYPE
  gw_inst-class_type = '300'."E1CUINS-CLASS_TYPE
  APPEND gw_inst TO gt_inst.
  CLEAR: gw_inst,gw_edidd.

  gw_charval-charc          = 'B001'."E1CUVAL-CHARC
  gw_charval-value          = '1'."E1CUVAL-VALUE
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'B002'.
  gw_charval-value          = '1'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'B003'.
  gw_charval-value          = '2'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'B005'.
  gw_charval-value          = '1'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'B006'.
  gw_charval-value          = '1'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'B007'.
  gw_charval-value          = '1'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'B008'.
  gw_charval-value          = '1'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.
  gw_charval-charc          = 'VF_TST01'.
  gw_charval-value          = '0001'.
  APPEND gw_charval TO gt_charval.
  CLEAR gw_charval.

  gw_req-extensionout = 'X'.
  gw_req-config_data  = 'X'.

*IF sy-uname EQ 'TIN2841'.
*
*  BREAK-POINT.
*ENDIF.
*
** This BAPI is responsible for creation of Vehicle.
  DO p_veh TIMES.

    CALL FUNCTION 'BAPI_VEHICLE_CREATE'
     EXPORTING
       vehicleaction                 = 'CREA'
       requestedtablex               = gw_req
      TABLES
        vehicle                       = gt_vehicle
        config_data                   = gt_config
        config_instances              = gt_inst
        config_charsvalues            = gt_charval
         vehicle_qualifiers            = gt_qual
*     EXTENSIONIN                   =
       created_vehicle               = gt_vehicle1
       created_config_data           = gt_config1
       created_config_instance       = gt_inst1
       created_config_charsval       = gt_charval1
*     EXTENSIONOUT                  =
       return                        = gt_return
*     CONFIG_CONDKEY                =
       created_config_condkey        = gt_condkey
              .

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
   EXPORTING
     wait          = 'X'
* IMPORTING
*   RETURN        =
              .
  PERFORM write_log USING gt_return.
  ENDDO.

  IF sy-uname EQ 'TIN2841'.

*    BREAK-POINT.
  ENDIF.

  DATA: gw_head TYPE bapivehiactiondata_head,
        gw_head1 TYPE bapivehiactiondata_head,
        gw_headx TYPE bapivehiactiondata_headx,
        gw_id    TYPE bapivehicle_id_type,
        gt_item TYPE STANDARD TABLE OF bapivehiactiondata_item,
        gw_item TYPE bapivehiactiondata_item,
        gt_ref  TYPE STANDARD TABLE OF bapiconfig_references,
        gw_ref TYPE bapiconfig_references,
        gt_ret   TYPE STANDARD TABLE OF bapiret2,
        gw_ret   TYPE bapiret2,
        lv_mess TYPE string,
        gw_itemx TYPE bapivehiactiondata_itemx.

  IF p_1 EQ 'X'." Different SO
    PERFORM differnt_so.
  ELSEIF p_2 EQ 'X'.
    PERFORM same_so.
    PERFORM write_log USING gt_ret.
  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  DIFFERNT_SO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM differnt_so .

  LOOP AT gt_vehicle1 INTO gw_vehicle."for every vehicle created

    gw_head-plant = gw_vehicle-plant.
    gw_head-material = gw_vehicle-materialnumber.
    gw_head-salesorg = '1000'.
    gw_head-distr_chan = '10'.
    gw_head-division = '00'.
    gw_head-doc_type = 'OR'.
    gw_head-sold_to = '0000002200'.
    gw_head-purch_no = 'ABC1234'.
    gw_head-payer = '0000002200'.
    gw_head-req_dat_h = '20110515'.
    gw_head-ship_to = '0000002000'.
    gw_head-material_external = gw_vehicle-materialnumber_external.
    gw_head-material_guid = gw_vehicle-materialnumber_guid.
    gw_head-material_version = gw_vehicle-materialnumber_version.

    MOVE 'X' TO: gw_headx-plant,gw_headx-material,gw_headx-salesorg,
                 gw_headx-distr_chan,gw_headx-division,gw_headx-doc_type,
                 gw_headx-material_external,gw_headx-material_guid,
                 gw_headx-material_version,gw_headx-sold_to,
                 gw_headx-purch_no,gw_headx-req_dat_h,
                 gw_headx-ship_to,gw_headx-ship_to.

    MOVE-CORRESPONDING gw_vehicle TO gw_item.
    gw_item-po_number = 'ABC1234'.
    APPEND gw_item TO gt_item.

    MOVE 'X' TO: gw_itemx-vehicleguid,gw_itemx-vehicleguid32,gw_itemx-vehiclenumber,
                     gw_itemx-po_number.
*  READ TABLE gt_qual INTO gw_qual INDEX 1.
    gw_ref-vehicleidentifier = gw_vehicle-vehicleguid32.
    READ TABLE gt_config1 INTO gw_config INDEX 1.
    gw_ref-config_id = gw_config-config_id.
    gw_ref-inst_id   = gw_config-root_id.
    APPEND gw_ref TO gt_ref.
    gw_id-vehicle_id_type = 'G'.

    CALL FUNCTION 'BAPI_VEHICLE_CHANGE_MULTIPLE'
      EXPORTING
        vehicleaction                     = 'CUOR'
        vehiactiondata_head               = gw_head
   requestedtablex                   = gw_req
     vehiactiondata_headx              = gw_headx
   vehiactiondata_itemx              = gw_itemx
        vehicle_id_type                   = gw_id
* IMPORTING
*   CHANGED_VEHIACTIONDATA_HEAD       = gw_head1
      TABLES
        vehiactiondata_item               = gt_item
        config_references                 = gt_ref
        config_data                       = gt_config1
        config_instances                  = gt_inst1
        config_charsvalues                = gt_charval
*   VEHICLE_QUALIFIERS                =
*   EXTENSIONIN                       =
*   CHANGED_VEHIACTIONDATA_ITEM       =
*   CHANGED_VEHICLE                   =
*   CHANGED_CONFIG_DATA               =
*   CHANGED_CONFIG_INSTANCE           =
*   CHANGED_CONFIG_CHARSVAL           =
*   EXTENSIONOUT                      =
       return                            = gt_ret
       config_varcondnkeys               = gt_condkey
*   CHANGED_CONFIG_VARCONDNKEYS       =
*       vehicle_data                      = gt_vehicle1
              .
    CLEAR: gt_item,gt_ref,gw_itemx,gw_head,gw_headx.

* Write Log
    PERFORM write_log USING gt_ret.

  ENDLOOP.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT          =
* IMPORTING
*   RETURN        =
            .

*IF sy-uname EQ 'TIN2841'.
*
*  BREAK-POINT.
*ENDIF.
ENDFORM.                    " DIFFERNT_SO
*&---------------------------------------------------------------------*
*&      Form  SAME_SO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM same_so .

  LOOP AT gt_vehicle1 INTO gw_vehicle."for every vehicle created
*READ TABLE gt_vehicle1 INTO gw_vehicle INDEX 1.
*    IF sy-subrc EQ 0.

      gw_head-plant = gw_vehicle-plant.
      gw_head-material = gw_vehicle-materialnumber.
      gw_head-salesorg = '1000'.
      gw_head-distr_chan = '10'.
      gw_head-division = '00'.
      gw_head-doc_type = 'OR'.
      gw_head-sold_to = '0000002200'.
      gw_head-purch_no = 'ABC1234'.
      gw_head-payer = '0000002200'.
      gw_head-req_dat_h = '20110515'.
      gw_head-ship_to = '0000002000'.
      gw_head-material_external = gw_vehicle-materialnumber_external.
      gw_head-material_guid = gw_vehicle-materialnumber_guid.
      gw_head-material_version = gw_vehicle-materialnumber_version.

      MOVE 'X' TO: gw_headx-plant,gw_headx-material,gw_headx-salesorg,
                   gw_headx-distr_chan,gw_headx-division,gw_headx-doc_type,
                   gw_headx-material_external,gw_headx-material_guid,
                   gw_headx-material_version,gw_headx-sold_to,
                   gw_headx-purch_no,gw_headx-req_dat_h,
                   gw_headx-ship_to,gw_headx-ship_to.

      MOVE-CORRESPONDING gw_vehicle TO gw_item.
      gw_item-po_number = 'ABC1234'.
      APPEND gw_item TO gt_item.

      MOVE 'X' TO: gw_itemx-vehicleguid,gw_itemx-vehicleguid32,gw_itemx-vehiclenumber,
                       gw_itemx-po_number.
*  READ TABLE gt_qual INTO gw_qual INDEX 1.

      gw_ref-vehicleidentifier = gw_vehicle-vehicleguid32.
      READ TABLE gt_config1 INTO gw_config INDEX sy-tabix."loop pass
      gw_ref-config_id = gw_config-config_id.
      gw_ref-inst_id   = gw_config-root_id.
      APPEND gw_ref TO gt_ref.

    ENDLOOP.

    gw_id-vehicle_id_type = 'G'.

    CALL FUNCTION 'BAPI_VEHICLE_CHANGE_MULTIPLE'
      EXPORTING
        vehicleaction                     = 'CUOR'
        vehiactiondata_head               = gw_head
   requestedtablex                   = gw_req
     vehiactiondata_headx              = gw_headx
   vehiactiondata_itemx              = gw_itemx
        vehicle_id_type                   = gw_id
* IMPORTING
*   CHANGED_VEHIACTIONDATA_HEAD       = gw_head1
      TABLES
        vehiactiondata_item               = gt_item
        config_references                 = gt_ref
        config_data                       = gt_config1
        config_instances                  = gt_inst1
        config_charsvalues                = gt_charval
*   VEHICLE_QUALIFIERS                =
*   EXTENSIONIN                       =
*   CHANGED_VEHIACTIONDATA_ITEM       =
*   CHANGED_VEHICLE                   =
*   CHANGED_CONFIG_DATA               =
*   CHANGED_CONFIG_INSTANCE           =
*   CHANGED_CONFIG_CHARSVAL           =
*   EXTENSIONOUT                      =
       return                            = gt_ret
       config_varcondnkeys               = gt_condkey
*   CHANGED_CONFIG_VARCONDNKEYS       =
       vehicle_data                      = gt_vehicle1
              .

*  ENDLOOP.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
*   WAIT          =
* IMPORTING
*   RETURN        =
              .
*  ENDIF.

*IF sy-uname EQ 'TIN2841'.
*
*  BREAK-POINT.
*ENDIF.

ENDFORM.                    " SAME_SO
*&---------------------------------------------------------------------*
*&      Form  WRITE_LOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM write_log USING pt_ret TYPE tt_ret.
  LOOP AT pt_ret INTO gw_ret.
    CALL FUNCTION 'MESSAGE_TEXT_BUILD'
      EXPORTING
        msgid               = gw_ret-id
        msgnr               = gw_ret-number
        msgv1               = gw_ret-message_v1
        msgv2               = gw_ret-message_v2
        msgv3               = gw_ret-message_v3
        msgv4               = gw_ret-message_v4
      IMPORTING
        message_text_output = lv_mess.
    NEW-LINE.
    WRITE lv_mess.

*WRITE: gw_ret-TYPE, gw_ret-MESSAGE_V1, gw_ret-MESSAGE_V2.
  ENDLOOP.
ENDFORM.                    " WRITE_LOG

**************************************************************************************

Basic IDOC steps for a novice ABAP Developer

2011-09-26T01:14:00.001-07:00

thse have to be done in both the systems with changes only in step:

1: We31- create IDOC segment- release any or 700

2: WE30 Create Idoc type - basic type.... assign segment to this

3: WE81 just define message type.

4: WE82 assign IDOC type to message type.

5: for communication between these 2 systems you need to define Logical System (LS) in SALE

6: SM59 define RFC connection

7: WE21 Configure PORT for RFC destination

8: WE20 define Partner profile-- reciever system name

Note: When configuring in Inbound system ADD Inbound param in WE20-partner type-- you will need to create a process code first for this. wheras when configuring in the Outbound system, create an Outbounf param and mention PORT number-- so for this step you need to create a PORT fisrt.

BD87- run IDOC....

-- changes on reciever side--if u hv to accumulate incoming IDOCs.. set in WE20 trigger by background job (in Inbound parameter process code)

we41 - Outbound process code
WE42 - Inbound Process Code
Check EDIMSG table for MSG type for an IDOC
WE19 - for testing IDOcs

while doing for standard IDOC:
1: create a msg type - WE81
2: Assign msg typ to IDOC type - WE81
3: if LS system is already created (BD54) then create partnr profile

using WE20 and use LS system name.

Seperate doc on segment editor nd addtion of segments

* Reprocess for a specific output type - WE15. check the output type
from the appliction like VL33N and then use this tcode.

Webdynpro Sample - Creating SO

2011-02-10T22:34:00.000-08:00

Creating a Sales Order Interface with WebDynpro

A. SE80 -> Create WD Component.

B. Goto ComponentController Context and declare the relevant structure which will be used to pass data to BAPI - BAPI_SALESORDER_CREATEFROMDAT2

Declare all the Structure with their respective Dictionary structure. Keep Cardinality as 1:n

Right click on CONTEXT and create a NODE to declare Structures.

C. To add fields: Click on the Structure name and select Transfer Attribute from the below Table as shown.

Select all fields or check selective fields only.

Above picture shows the way it should look once completed.

Please note that more nodes/Structure can be added as per requirement. But here as a Tutorial I will restrict it to these many Structures only.

Context Designing is complete.

Note: Context level Nodes or Attributes can be considered as Global Nodes or Attribute. When proper mapping is done with Context node and ViewContexts, the data from such a Node/Attribute can be used anywhere in any views.

D. Create View for designing the Sales Order creation page:

E. Create Layout of the View:

a. The local context should be created as shown below (Dummy is the same view as First. Created for Tutorial purpose):

Create Header Data Table

Drag and drop the relevant node from ComponentController and select on Import all sub-nodes/attributes when asked.

Click YES for all of the above pop-ups.

Similarly create Nodes for ITEM, PARTNER, SCHEDULE and drag drop relevant nodes from global context to map them.

After dragging and mapping is done, the local context will look as shown below:

Create 2 other variables LV_SOLD_TO and LV_SHIP_TO which will be used in later part of the development. These 2 variables will be of type VBAK-KUNNR.

b. Layout designing:

i. Page Header Element (Dummy is the same view as First. Created for Tutorial purpose)

ii. Header for SO:

Header data is a Group Element.

Properties of Header data element

Note: Maintain Column Count as 4 to achieve desired design.

iii. Add Input Field and Label for the Field

Input fields should always be bound to a value from Local.

On selecting the binding field, the displayed Value :

iv. Create Other Input fields and Blocks for ITEM and PARTNER data in similar way. The Layout appears as shown below:

These blocks are all Group elements.

Each of them has Layout as “GridLayout” with 4 or 2 columns, as required.

v. Add Buttons

Use a Transparent Container to add buttons to the Layout. Create 2 Buttons as shown below:

The “Create Order” button has an “onAction” event as “CREATE”. Double click on this event to write Event handling code in it. Similarly create “RESET” event for the button “Reset” as shown below. The event handling code for both the buttons will be explained in the Code section of this Document.

Before moving to the Codes, add the created View “First” to the Window. Basically a window should always consist of a View. To add the View, double click on the existing Window component on the Right panel. Right click on the Window displayed on the left panel and select “Embed View”. Select the created view “First”. It should appear as below:

Create Webdynpro Application in the Right panel. Right click on the name of the Webdynpro (ZWD_VA01 in this case) and select “Web Dynpro Application”.

Save and Activate.

Now we can run the Webdynpro from the Application and the screen should look like below. Presently all the fields are dummy fields and does not have any functions bound to it.

Layout design is completed. We will move to the Code part of the development.

Codes for creating SO:

In the Method Tab of the View “First”, we will be writing codes to implement 2 events for the 2 Buttons used in the screen. No other methods need to be created or defined.

1. ONACTIONCREATE

Use the Code Wizard for referring to various elements used in the Layout.

For example, Header node can be read like this:

Finally group all the global declarations, which will be used repeatedly by the Code, at top as shown below:

DATA LO_ND_HEADER TYPE REF TO IF_WD_CONTEXT_NODE.
DATA LO_EL_HEADER TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_HEADER TYPE WD_THIS->ELEMENT_HEADER.
DATA LO_ND_ITEM TYPE REF TO IF_WD_CONTEXT_NODE.
DATA LO_EL_ITEM TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_ITEM TYPE WD_THIS->ELEMENT_ITEM.
DATA LO_EL_CONTEXT TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_CONTEXT TYPE WD_THIS->ELEMENT_CONTEXT.
DATA LV_SOLD_TO LIKE LS_CONTEXT-LV_SOLD_TO.
DATA LV_SHIP_TO LIKE LS_CONTEXT-LV_SHIP_TO.

a. Get Header details entered by User:

* navigate from to

via lead selection
LO_ND_HEADER = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_HEADER ).

* get element via lead selection
LO_EL_HEADER = LO_ND_HEADER->GET_ELEMENT( ).

* get all declared attributes
LO_EL_HEADER->GET_STATIC_ATTRIBUTES(
IMPORTING
STATIC_ATTRIBUTES = LS_HEADER ).

b. Get Item details entered by User:

* navigate from to via lead selection
LO_ND_ITEM = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_ITEM ).

* get element via lead selection
LO_EL_ITEM = LO_ND_ITEM->GET_ELEMENT( ).

* get all declared attributes
LO_EL_ITEM->GET_STATIC_ATTRIBUTES(
IMPORTING
STATIC_ATTRIBUTES = LS_ITEM ).

c. Get Partner details entered by User:

* get element via lead selection
LO_EL_CONTEXT = WD_CONTEXT->GET_ELEMENT( ).

* get single attribute
LO_EL_CONTEXT->GET_ATTRIBUTE(
EXPORTING
NAME = `LV_SOLD_TO`
IMPORTING
VALUE = LV_SOLD_TO ).

* get single attribute
LO_EL_CONTEXT->GET_ATTRIBUTE(
EXPORTING
NAME = `LV_SOLD_TO`
IMPORTING
VALUE = LV_SHIP_TO ).

d. Create Message handling parameters:

Use the Code Wizard to get references and Message methods.

Error message:

Success message:

DATA LO_API_CONTROLLER TYPE REF TO IF_WD_CONTROLLER.
DATA LO_MESSAGE_MANAGER TYPE REF TO IF_WD_MESSAGE_MANAGER.

LO_API_CONTROLLER ?= WD_THIS->WD_GET_API( ).

CALL METHOD LO_API_CONTROLLER->GET_MESSAGE_MANAGER
RECEIVING
MESSAGE_MANAGER = LO_MESSAGE_MANAGER.

Note: Placement of below code has been shown in the next Point.

* report Success message
CALL METHOD LO_MESSAGE_MANAGER->REPORT_SUCCESS
EXPORTING
MESSAGE_TEXT = lv_so.
* PARAMS =
* MSG_USER_DATA =
* VIEW =
* SHOW_AS_POPUP =
* IS_PERMANENT = ABAP_FALSE
* SCOPE_PERMANENT_MSG =
* CONTROLLER_PERMANENT_MSG =
* MSG_INDEX =
* CANCEL_NAVIGATION =
.

* report Error message
CALL METHOD LO_MESSAGE_MANAGER->REPORT_ERROR_MESSAGE
EXPORTING
MESSAGE_TEXT = 'Sales Order could not be created'
* PARAMS =
* MSG_USER_DATA =
* VIEW =
* SHOW_AS_POPUP =
* IS_PERMANENT =
* SCOPE_PERMANENT_MSG =
* CONTROLLER_PERMANENT_MSG =
* MSG_INDEX =
* CANCEL_NAVIGATION =
.

e. Create the Order using the data entered by the User:

DATA: IT_HEADER TYPE BAPISDHD1,
IT_ITEM TYPE STANDARD TABLE OF BAPISDITM,
IT_PARTNER TYPE STANDARD TABLE OF BAPIPARNR,
WA_PARTNER TYPE BAPIPARNR,
IT_SCHEDULE TYPE STANDARD TABLE OF BAPISCHDL,
IT_RETURN TYPE STANDARD TABLE OF BAPIRET2,
WA_RETURN TYPE BAPIRET2.

MOVE LS_HEADER TO IT_HEADER.
APPEND LS_ITEM TO IT_ITEM.
IF LV_SOLD_TO IS NOT INITIAL.
WA_PARTNER-PARTN_NUMB = LV_SOLD_TO.
WA_PARTNER-PARTN_ROLE = 'AG'. "Role type as per the Customized system
ENDIF.
IF LV_SHIP_TO IS NOT INITIAL.
WA_PARTNER-PARTN_NUMB = LV_SHIP_TO.
WA_PARTNER-PARTN_ROLE = 'WE'. "Role type as per the Customized system
ENDIF.
APPEND WA_PARTNER TO IT_PARTNER.
CLEAR WA_PARTNER.
APPEND LS_SCHEDULE TO IT_SCHEDULE.

CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
* SALESDOCUMENTIN =
ORDER_HEADER_IN = IT_HEADER
* ORDER_HEADER_INX =
* SENDER =
* BINARY_RELATIONSHIPTYPE =
* INT_NUMBER_ASSIGNMENT =
* BEHAVE_WHEN_ERROR =
* LOGIC_SWITCH =
* TESTRUN =
* CONVERT = ' '
* IMPORTING
* SALESDOCUMENT =
TABLES
RETURN = IT_RETURN
ORDER_ITEMS_IN = IT_ITEM
* ORDER_ITEMS_INX =
ORDER_PARTNERS = IT_PARTNER
* ORDER_SCHEDULES_IN = IT_SCHEDULE
* ORDER_SCHEDULES_INX =
* ORDER_CONDITIONS_IN =
* ORDER_CONDITIONS_INX =
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CFGS_BLOB =
* ORDER_CFGS_VK =
* ORDER_CFGS_REFINST =
* ORDER_CCARD =
* ORDER_TEXT =
* ORDER_KEYS =
* EXTENSIONIN =
* PARTNERADDRESSES =
.
DATA: LV_SO(200) TYPE C.
READ TABLE IT_RETURN INTO WA_RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC NE 0. "success
COMMIT WORK.
READ TABLE IT_RETURN INTO WA_RETURN WITH KEY TYPE = 'S'
ID = 'V1'
parameter = 'SALES_HEADER_IN'.
IF WA_RETURN-MESSAGE_V2 IS NOT INITIAL.
CONCATENATE 'Sales Order:' WA_RETURN-MESSAGE_V2
'generated successfully' INTO LV_SO SEPARATED BY space.
ENDIF.
* report message
CALL METHOD LO_MESSAGE_MANAGER->REPORT_SUCCESS
EXPORTING
MESSAGE_TEXT = lv_so.
* PARAMS =
* MSG_USER_DATA =
* VIEW =
* SHOW_AS_POPUP =
* IS_PERMANENT = ABAP_FALSE
* SCOPE_PERMANENT_MSG =
* CONTROLLER_PERMANENT_MSG =
* MSG_INDEX =
* CANCEL_NAVIGATION =
.

ELSE.
* report message
CALL METHOD LO_MESSAGE_MANAGER->REPORT_ERROR_MESSAGE
EXPORTING
MESSAGE_TEXT = 'Sales Order could not be created'
* PARAMS =
* MSG_USER_DATA =
* VIEW =
* SHOW_AS_POPUP =
* IS_PERMANENT =
* SCOPE_PERMANENT_MSG =
* CONTROLLER_PERMANENT_MSG =
* MSG_INDEX =
* CANCEL_NAVIGATION =
.

ENDIF.

2. ONACTIONRESET

Use the Code Wizard again to refer to the Elements on the Layout. Refer each block and use the method INVALIDATE( ) to reset the values entered by the User on pressing the “reset” button.

DATA LO_ND_HEADER TYPE REF TO IF_WD_CONTEXT_NODE.
DATA LO_EL_HEADER TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_HEADER TYPE WD_THIS->ELEMENT_HEADER.
* navigate from to

via lead selection
LO_ND_HEADER = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_HEADER ).
LO_ND_HEADER->INVALIDATE( ).

DATA LO_ND_ITEM TYPE REF TO IF_WD_CONTEXT_NODE.
DATA LO_EL_ITEM TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_ITEM TYPE WD_THIS->ELEMENT_ITEM.
* navigate from to via lead selection
LO_ND_ITEM = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_ITEM ).
LO_ND_ITEM->INVALIDATE( ).

DATA LO_ND_PARTNER TYPE REF TO IF_WD_CONTEXT_NODE.
DATA LO_EL_PARTNER TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_PARTNER TYPE WD_THIS->ELEMENT_PARTNER.
* navigate from to via lead selection
LO_ND_PARTNER = WD_CONTEXT->GET_CHILD_NODE( NAME = WD_THIS->WDCTX_PARTNER ).
LO_ND_PARTNER->INVALIDATE( ).

Execute the Application with data:

SO created:

Error Handling:

Using a Material which is not defined in the mentioned Sales Org./Dist.Chan/Div. combination:

ALV Utility Program

2011-02-10T22:29:00.000-08:00

Introduction – The Idea

Developers would like build the various ALV interactive Event handlers of a Report with the minimum effort and would like to devote more time on the data extraction and data display logic. At the same time Client would like to have all the Reports maintain a consistence Event pattern like Top-of-page, End-of-Page pattern and invest more time in verifying data display in ALV.

This document will help in implementing a global ALV Utility class which can be used by all Reports for displaying output in ALV format.

Developers will be able to create ALV handlers just by calling a method of this ALV Utility global class and passing the name of the Report Program. Details of the Report will be automatically picked by the Utility class.

Moreover this Class has options for enhancements and hence can be customized as per the Project need.

This Guide will demonstrate how to automate the creation of Top-Of-Page event of an ALV output.

How to reach there?

We have developed a Utility Class ZCL_ALV_HEADER_UTILITY which can be used to implement Top-of-page section of any ALV Report with minimum coding effort. This class has different methods which, if used in proper sequence, can build a Top-of-page in any customized way.

Basic steps to implement the Top-of-page logic using this Utility class:

v Create Object of this Class.

v Pass the current Report name to this Object.

v Display the Top-of-page by passing the desired Report header text to this Object.

Prerequisite:

1. Selection screen naming convention should be as per Project naming convention guideline. This will help in configuring the Utility program for generic use.

For example:

1.1. Parameter: P_

1.2. Select-options: S_

2. All the Selection screen elements should have their correspondence Text created in the Text pool of the Report program. This is crucial since the Utility class reads the Text pool of the report.

3. Report program can use either ALV with OOPs approach or ALV with Function Module approach.

Steps to use the class in an ALV OOPs Report

ALV using OOPs approach – CL_GUI_ALV_GRID

4. For events of ALV grid we always create a Local Class to handle the events. Design the Local class in the Program to handle TOP-OF-PAGE. This Local Class should have a method to write code for TOP_OF_PAGE of Class CL_GUI_ALV_GRID. Here this method is LCL_EVENT_HANDLER.

CLASS lcl_event_handler DEFINITION FINAL.
* Event receiver definitions for ALV actions
PUBLIC SECTION. METHODS:
*Handle grid Top_Of_Page
on_grid_top_of_page
FOR EVENT top_of_page OF cl_gui_alv_grid
IMPORTING
e_dyndoc_id,

CLASS lcl_event_handler IMPLEMENTATION.

* Create the Text to be dispalyed at top of page of ALV Grid Output
METHOD on_grid_top_of_page.
* top-of-page event for grid Display
PERFORM f_event_top_of_page USING e_dyndoc_id.
ENDMETHOD. "On_top_of_page

5. The FORM will have an object of the Class CL_DD_DOCUMENT. This Object has to be designed to display the TOP-OF-PAGE form. Here this object is E_DYNDOC_ID.

FORM f_event_top_of_page USING p_dyndoc_id TYPE REF TO cl_dd_document.

***********************************************************
* Begin of use of Utiltiy Class
***********************************************************

* Define Object for Utility Class
DATA: obj_sel_opt TYPE REF TO zcl_alv_header_utility.

* Create Object of Utility Class by passing the
* CL_DD_DOCUMENT object to it
CREATE OBJECT obj_sel_opt
EXPORTING
p_dyndoc_obj = p_dyndoc_id.
* Read the current Report Selection screen
CALL METHOD obj_sel_opt->read_selection_screen
EXPORTING
repid = sy-repid
.
* Add any special parameter of Selection Screen(if present)
CALL METHOD obj_sel_opt->add_special_param
EXPORTING
param_name = 'S_DATE'
param_type = 'D'
.
* Display the ALV Top of Page by passing the desired Titles
* of the Report
CALL METHOD obj_sel_opt->set_grid_top
EXPORTING
title1 = 'XXX XXXXXXXX XXX Report'
title2 = 'Test Report for Utility'
* title3 =
* title4 =
.

***********************************************************
* End of use of Utiltiy Class
***********************************************************
* populating data to html control
PERFORM f_html_header USING p_dyndoc_id.

ENDFORM. " EVENT_TOP_OF_PAGE

In the above code:

5.1. The Object for the Utility Class is built using the Constructor method. This Constructor needs a reference object of Class CL_DD_DOCUMENT, which will be used internally by the Class to build up the TOP_OF_PAGE.

The reference Object shown here is P_DYNDOC_ID. This Object has been created while creating the implementation of the local class event.

5.2. After the Utility Class object is created, we have to use the READ_SELECTION_SCREEN method of this class to read the Selection screen elements of our current program. This is done by simply passing the Report program name using SY-REPID system variable.

* Read the current Report Selection screen
CALL METHOD obj_sel_opt->read_selection_screen
EXPORTING
repid = sy-repid
.

5.3. If there are any Parameters or Select Options in the Selection screen which has to have special formatting while display, then the method ADD_SPECIAL_PARAM has to be used. In this method we have to pass the name of the special parameter/select-option and also pass the type of this parameter.

Presently in this example, we wanted to display S_DATE select-option of the selection screen using External Date formatting. Passing the details of the parameter to this class method, internally the class will be converting the Date entry for this select-option to external user recognized format and will display it.

* Add any special parameter of Selection Screen(if present)
CALL METHOD obj_sel_opt->add_special_param
EXPORTING
param_name = 'S_DATE'
param_type = 'D'
.

5.4. Finally call the method SET_GRID_TOP to display the top of the page. In this method interface we can define a maximum of 4 titles for the Report. These titles will be displayed in the top before the Selection parameters are listed.

* Display the ALV Top of Page by passing the desired Titles
* of the Report
CALL METHOD obj_sel_opt->set_grid_top
EXPORTING
title1 = 'XXX XXXXXXXX XXX Report'
title2 = 'Test Report for Utility'
* title3 =
* title4 =
.

Result:

Program: ZUTILITY_TEST

ALV using Function Module approach - REUSE_ALV_GRID_DISPLAY

1. Call ALV Function Module for display. Here we are supposed to call I_CALLBACK_HTML_TOP_OF_PAGE for calling Top-of-page routine.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_prog_name
i_callback_user_command = lc_user_cmd
it_fieldcat = gt_fieldcat
i_default = lc_default
I_CALLBACK_HTML_TOP_OF_PAGE = 'TOP_OF_PAGE'
TABLES
t_outtab = gt_alvrpt
EXCEPTIONS
program_error = 1
OTHERS = 2.

IF sy-subrc NE 0.
MESSAGE i000 WITH 'Error while displaying the Grid'(005).
LEAVE LIST-PROCESSING.
ENDIF.

2. The FORM for this ‘TOP_OF_PAGE’ as shown above has to be build as shown below. This FORM will be using a CL_DD_DOCUMENT to build the Top-of-page. Inside this FORM we have to call the Utility class object and the Top-of-page is displayed.

FORM TOP_OF_PAGE USING p_dyndoc_id TYPE REF TO CL_DD_DOCUMENT.

* Define Object for Utility Class
DATA: obj_sel_opt TYPE REF TO zcl_alv_header_utility.

* Create Object of Utility Class by passing the
* CL_DD_DOCUMENT object to it
CREATE OBJECT obj_sel_opt
EXPORTING
p_dyndoc_obj = p_dyndoc_id.
* Read the current Report Selection screen
CALL METHOD obj_sel_opt->read_selection_screen
EXPORTING
repid = sy-repid
.
* Add any special parameter of Selection Screen(if present)
CALL METHOD obj_sel_opt->add_special_param
EXPORTING
param_name = 'S_DATE'
param_type = 'D'
.
* Display the ALV Top of Page by passing the desired Titles
* of the Report

CALL METHOD obj_sel_opt->set_grid_top
EXPORTING
title1 = 'Scheduling Agreement or Contract vs Receipt Tracking'
* title2 =
* title3 =
* title4 =
.
ENDFORM.

The above code is similar to the Code for OOPs approach and has the same logic for displaying Top-of-page.

Result:

Program: ZUTILITY_TEST_FM

Game - Minehunter

2011-01-19T00:20:00.000-08:00

Need to create screens for this program to run.

*&---------------------------------------------------------------------*
*& Report ZRR_MINEHUNT *
*&---------------------------------------------------------------------*
*& ABAP-Version Oktober 2000 Ralf Rubel *
**&---------------------------------------------------------------------
REPORT ZAGS_102.
* Eventhandler
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
CLASS-METHODS: on_control_click FOR EVENT control_click OF
cl_gui_picture
IMPORTING sender.
ENDCLASS. "lcl_event_handler DEFINITION
* register events at control framework
DATA events TYPE cntl_simple_events.
DATA wa_events TYPE cntl_simple_event.

TYPES:
lty_tdline(132),
BEGIN OF boardline,
picture TYPE REF TO cl_gui_picture,
container TYPE REF TO cl_gui_container,
index TYPE i,
row TYPE i,
column TYPE i,
icon(4),
status(1),
visible(1),
END OF boardline,
BEGIN OF highscoreline,
no(2),
name(12),
date(10),
time(5),
score TYPE i,
END OF highscoreline.

DATA: it_board TYPE TABLE OF boardline.
DATA: wa_board TYPE boardline.
DATA: wa_check TYPE boardline.
DATA: it_to_be_checked TYPE TABLE OF i.
DATA: wa_to_be_checked TYPE i.

DATA: it_freecells TYPE TABLE OF boardline.
DATA: score TYPE i.
DATA: l_start(11) TYPE p DECIMALS 7.
DATA: l_stop(11) TYPE p DECIMALS 7.

DATA objects_created.
DATA replay.
DATA container TYPE REF TO cl_gui_custom_container.
DATA splitter TYPE REF TO cl_gui_splitter_container.
DATA event_handler TYPE REF TO lcl_event_handler.

DATA mines_left TYPE i.
DATA it_highscore TYPE TABLE OF highscoreline.
DATA wa_highscore LIKE LINE OF it_highscore.
DATA tx_container TYPE REF TO cl_gui_custom_container.
DATA tx_editor TYPE REF TO cl_gui_textedit.
DATA tx_lines TYPE TABLE OF lty_tdline.
DATA wa_lines LIKE LINE OF tx_lines.

DATA svcode LIKE sy-ucomm.
DATA okcode LIKE sy-ucomm.
DATA l_counter TYPE i.
DATA l_index TYPE i.
DATA l_row TYPE i.
DATA ax_container TYPE REF TO cl_gui_custom_container.
DATA ax_picture TYPE REF TO cl_gui_picture.
DATA ax_clicked(1).
DATA l_succeeded(1).

* board constants
DATA gf_tdname(20) TYPE c.
DATA gf_rows TYPE i.
DATA gf_columns TYPE i.
DATA gf_cells TYPE i. "row*columns
DATA gf_bombs TYPE i.

* icons
CONSTANTS c_bomb(4) VALUE '@9Y@'.
CONSTANTS c_flag(4) VALUE '@5Y@'.
CONSTANTS c_wrong(4) VALUE '@2B@'.
CONSTANTS c_blank(4) VALUE '@5D@'.
CONSTANTS c_icon1(4) VALUE '@KW@'.
CONSTANTS c_icon2(4) VALUE '@KX@'.
CONSTANTS c_icon3(4) VALUE '@KY@'.
CONSTANTS c_icon4(4) VALUE '@KZ@'.
CONSTANTS c_icon5(4) VALUE '@L0@'.
CONSTANTS c_iconx(4) VALUE '@1I@'.

* Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK level WITH FRAME TITLE text-lev.

PARAMETERS: easy RADIOBUTTON GROUP radi DEFAULT 'X',
medium RADIOBUTTON GROUP radi,
hard RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK level.

START-OF-SELECTION.

* set level dependent variables
IF easy <> space.
gf_tdname = 'MINEHUNT_E'.
gf_rows = 10.
gf_columns = 11.
gf_cells = 110. "row*columns
gf_bombs = 20.
ELSEIF medium <> space.
gf_tdname = 'MINEHUNT_M'.
gf_rows = 13.
gf_columns = 13.
gf_cells = 169. "row*columns
gf_bombs = 40.
ELSE.
gf_tdname = 'MINEHUNT_H'.
gf_rows = 16.
gf_columns = 16.
gf_cells = 256. "row*columns
gf_bombs = 80.
ENDIF.

CALL SCREEN 100.

*&---------------------------------------------------------------------*
*& Module CREATE_OBJECTS OUTPUT
*&---------------------------------------------------------------------*
MODULE create_objects OUTPUT.
CHECK objects_created IS INITIAL.
objects_created = 'X'.

* Init Random Generator
PERFORM init_randomizer.
* splittercontainer
CREATE OBJECT container
EXPORTING
container_name = 'CONTAINER'.
* splitter
CREATE OBJECT splitter
EXPORTING
parent = container
rows = gf_rows
columns = gf_columns
EXCEPTIONS
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.
* fixing seperators
CLEAR l_counter.
DO gf_rows TIMES.
l_counter = l_counter + 1.
* columns
CALL METHOD splitter->set_column_sash
EXPORTING
id = l_counter
type = splitter->type_movable
value = splitter->false
EXCEPTIONS
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.
* rows
CALL METHOD splitter->set_row_sash
EXPORTING
id = l_counter
type = splitter->type_movable
value = splitter->false
EXCEPTIONS
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.
ENDDO.

* Action-Control
CREATE OBJECT ax_container
EXPORTING
container_name = 'AX_CONTAINER'.
CREATE OBJECT ax_picture
EXPORTING
parent = ax_container.
* register events
wa_events-eventid = ax_picture->eventid_control_click.
APPEND wa_events TO events.
CALL METHOD ax_picture->set_registered_events
EXPORTING
events = events.
SET HANDLER event_handler->on_control_click FOR ax_picture.
CALL METHOD ax_picture->load_picture_from_sap_icons
EXPORTING
icon = c_flag.
CALL METHOD ax_picture->set_display_mode
EXPORTING
display_mode = cl_gui_picture=>display_mode_fit_center.

* Highscore-Table
PERFORM read_highscore.
CREATE OBJECT tx_container
EXPORTING
container_name = 'TX_CONTAINER'.
CREATE OBJECT tx_editor
EXPORTING
parent = tx_container
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_position = 42
wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
CALL METHOD tx_editor->set_text_as_r3table
EXPORTING
table = tx_lines.
CALL METHOD tx_editor->set_toolbar_mode
EXPORTING
toolbar_mode = tx_editor->false.
CALL METHOD tx_editor->set_statusbar_mode
EXPORTING
statusbar_mode = tx_editor->false.
CALL METHOD tx_editor->set_readonly_mode
EXPORTING
readonly_mode = tx_editor->true.

PERFORM board_init.
ENDMODULE. " CREATE_OBJECTS OUTPUT

*&---------------------------------------------------------------------*
*& Module SAVE_OKCODE INPUT
*&---------------------------------------------------------------------*
MODULE save_okcode INPUT.
svcode = okcode.
CLEAR okcode.
ENDMODULE. " SAVE_OKCODE INPUT

*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
MODULE user_command INPUT.
CASE svcode.
WHEN 'BACK'.
PERFORM housekeeping.
SET SCREEN 0.
WHEN 'NEWG'.
PERFORM board_init.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
MODULE exit INPUT.
CASE okcode.
WHEN 'EXIT'.
PERFORM housekeeping.
LEAVE PROGRAM.
WHEN 'CANCEL'.
PERFORM housekeeping.
SET SCREEN 0.
ENDCASE.
ENDMODULE. " EXIT INPUT

*&---------------------------------------------------------------------*
*& Module STATUS_100 OUTPUT
*&---------------------------------------------------------------------*
MODULE status_100 OUTPUT.
SET PF-STATUS 'BASE'.
SET TITLEBAR 'BAS'.
ENDMODULE. " STATUS_100 OUTPUT

*&---------------------------------------------------------------------*
*& Form SHOW_CELL
*&---------------------------------------------------------------------*
FORM show_cell USING
p_row
p_column
p_container TYPE REF TO cl_gui_container
p_picture TYPE REF TO cl_gui_picture
p_icon.

CALL METHOD splitter->get_container
EXPORTING
row = p_row
column = p_column
RECEIVING
container = p_container.

IF p_picture IS INITIAL.
CREATE OBJECT p_picture
EXPORTING
parent = p_container.

* register events
wa_events-eventid = p_picture->eventid_control_click.
APPEND wa_events TO events.

CALL METHOD p_picture->set_registered_events
EXPORTING
events = events.

SET HANDLER event_handler->on_control_click FOR p_picture.

ENDIF.

IF NOT p_icon IS INITIAL.
CALL METHOD p_picture->load_picture_from_sap_icons
EXPORTING
icon = p_icon.

CALL METHOD p_picture->set_display_mode
EXPORTING
display_mode = cl_gui_picture=>display_mode_fit_center.

ELSE.
CALL METHOD p_picture->clear_picture.
ENDIF.

ENDFORM. " SHOW_CELL

*---------------------------------------------------------------------*
* CLASS lcl_event_handler IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
METHOD on_control_click.

* action_clicked
IF sender = ax_picture.

IF ax_clicked IS INITIAL.
CALL METHOD sender->set_display_mode
EXPORTING
display_mode = cl_gui_picture=>display_mode_normal_center.
ax_clicked = 'X'.
ELSE.
CALL METHOD sender->set_display_mode
EXPORTING
display_mode = cl_gui_picture=>display_mode_fit_center.
CLEAR ax_clicked.
ENDIF.

ELSE.

READ TABLE it_board INTO wa_board
WITH KEY picture = sender.

* unflag
IF wa_board-icon = c_flag.
CASE wa_board-status.
WHEN '0'.
wa_board-icon = c_blank.
WHEN '1'.
wa_board-icon = c_icon1.
WHEN '2'.
wa_board-icon = c_icon2.
WHEN '3'.
wa_board-icon = c_icon3.
WHEN '4'.
wa_board-icon = c_icon4.
WHEN '5'.
wa_board-icon = c_icon5.
WHEN '6' OR '7' OR '8'.
wa_board-icon = c_iconx.
WHEN 'B'.
wa_board-icon = c_bomb.
ENDCASE.
CLEAR wa_board-visible.
MODIFY it_board FROM wa_board INDEX wa_board-index.
CALL METHOD sender->clear_picture.
mines_left = mines_left + 1.
CALL METHOD cl_gui_cfw=>set_new_ok_code
EXPORTING
new_code = 'ENTE'.
EXIT.
ENDIF.

CHECK wa_board-visible IS INITIAL.

* set flag
IF ax_clicked = 'X'.
wa_board-visible = 'X'.
wa_board-icon = c_flag.
mines_left = mines_left - 1.
* cause field transport
CALL METHOD cl_gui_cfw=>set_new_ok_code
EXPORTING
new_code = 'ENTE'.

CALL METHOD ax_picture->set_display_mode
EXPORTING
display_mode = cl_gui_picture=>display_mode_fit_center.
CLEAR ax_clicked.
ELSE.
CASE wa_board-status.
WHEN 'B'.
* game lost
l_counter = 1.
DO gf_cells TIMES.
READ TABLE it_board INTO wa_board INDEX l_counter.
IF wa_board-status = 'B'.
PERFORM show_cell USING wa_board-row wa_board-column
wa_board-container wa_board-picture wa_board-icon.
ELSE.
* flag, but no bomb
IF wa_board-icon = c_flag.
wa_board-icon = c_wrong.
PERFORM show_cell USING wa_board-row wa_board-column
wa_board-container wa_board-picture wa_board-icon.
ENDIF.
ENDIF.
l_counter = l_counter + 1.
ENDDO.
CALL METHOD cl_gui_cfw=>update_view.

MESSAGE i319(01) WITH 'Kawoom!!! ...and Game Over'.

PERFORM board_init.
EXIT.
WHEN '0'.
* uncover
PERFORM show_cell USING wa_board-row wa_board-column
wa_board-container wa_board-picture wa_board-icon.
REFRESH it_to_be_checked.
wa_to_be_checked = wa_board-index.
APPEND wa_to_be_checked TO it_to_be_checked.
l_counter = 1.

WHILE l_counter > 0.
READ TABLE it_to_be_checked INTO wa_to_be_checked INDEX 1.
READ TABLE it_board INTO wa_board
INDEX wa_to_be_checked.
wa_board-visible = 'X'.
MODIFY it_board FROM wa_board INDEX wa_board-index.

l_index = wa_board-index - 1.
l_row = wa_board-row.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index - ( gf_columns + 1 ).
l_row = wa_board-row - 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index - gf_columns.
l_row = wa_board-row - 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index - ( gf_columns - 1 ).
l_row = wa_board-row - 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index + 1.
l_row = wa_board-row.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index + ( gf_columns - 1 ).
l_row = wa_board-row + 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index + gf_columns.
l_row = wa_board-row + 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

l_index = wa_board-index + ( gf_columns + 1 ).
l_row = wa_board-row + 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-visible IS INITIAL AND
wa_check-row = l_row.
IF wa_check-status = 0.
wa_to_be_checked = wa_check-index.
APPEND wa_to_be_checked TO it_to_be_checked.
ENDIF.
IF wa_check-status >= 0 AND wa_check-status <= 8.
wa_check-visible = 'X'.
MODIFY it_board FROM wa_check INDEX wa_check-index.
PERFORM show_cell USING wa_check-row wa_check-column
wa_check-container wa_check-picture wa_check-icon.
ENDIF.
ENDIF.

DELETE it_to_be_checked INDEX 1.
DESCRIBE TABLE it_to_be_checked LINES l_counter.

ENDWHILE.
WHEN OTHERS.
* Status 1 - 8
wa_board-visible = 'X'.
ENDCASE.
ENDIF.

PERFORM show_cell USING wa_board-row wa_board-column
wa_board-container wa_board-picture wa_board-icon.
MODIFY it_board FROM wa_board INDEX wa_board-index.

* Succeeded End
CLEAR l_succeeded.
LOOP AT it_board INTO wa_board.
IF wa_board-visible IS INITIAL.
l_succeeded = 'X'.
EXIT.
ENDIF.
ENDLOOP.
IF l_succeeded IS INITIAL.
GET TIME STAMP FIELD l_stop.
score = l_stop - l_start.
PERFORM game_succeeded.
ENDIF.
ENDIF.

ENDMETHOD. "on_control_click

ENDCLASS. "lcl_event_handler IMPLEMENTATION

*&---------------------------------------------------------------------*
*& Form BOARD_INIT
*&---------------------------------------------------------------------*
FORM board_init.
DATA: l_no_freecells TYPE i,
l_random_cell TYPE i.

DATA lt_random_numbers TYPE STANDARD TABLE OF i.

REFRESH: it_freecells.

DESCRIBE TABLE it_board.
IF sy-tfill GT 0.
replay = 'x'.
ENDIF.

l_counter = 1.
DO gf_cells TIMES.
CLEAR wa_board.

IF replay NE space.
READ TABLE it_board INDEX l_counter INTO wa_board.
CLEAR: wa_board-visible, wa_board-status, wa_board-icon.
ENDIF.

wa_board-index = l_counter.
wa_board-column = l_counter MOD gf_columns.
wa_board-row = ( l_counter DIV gf_columns ) + 1.
IF wa_board-column = 0.
wa_board-column = gf_columns.
wa_board-row = wa_board-row - 1.
ENDIF.

PERFORM show_cell USING wa_board-row wa_board-column
wa_board-container wa_board-picture space.

IF replay NE space.
MODIFY it_board FROM wa_board INDEX l_counter.
ELSE.
APPEND wa_board TO it_board.
ENDIF.
APPEND wa_board TO it_freecells.
l_counter = l_counter + 1.
ENDDO.

* distribute bombs
DO gf_bombs TIMES.
DESCRIBE TABLE it_freecells LINES l_no_freecells.
* random selection of freecells (1-l_no_freecells)
CALL FUNCTION 'AQ_INT_RANDOM_NUMBERS'
EXPORTING
low = 1
high = l_no_freecells
num_values = 1
IMPORTING
random_numbers = lt_random_numbers.
READ TABLE lt_random_numbers INTO l_random_cell INDEX 1.
* CALL FUNCTION 'QF05_RANDOM_INTEGER'
* EXPORTING
* ran_int_max = l_no_freecells
* ran_int_min = 1
* IMPORTING
* ran_int = l_random_cell.

* read freecells
READ TABLE it_freecells INTO wa_board
INDEX l_random_cell.

* delete entry in freecells
DELETE it_freecells INDEX sy-tabix.

* update board
wa_board-icon = c_bomb.
wa_board-status = 'B'.
MODIFY it_board FROM wa_board INDEX wa_board-index.

ENDDO.
mines_left = gf_bombs.
CALL METHOD cl_gui_cfw=>set_new_ok_code
EXPORTING
new_code = 'ENTE'.

REFRESH it_freecells.

* calulate status
DATA: l_bombs_count TYPE i.

l_counter = 1.
DO gf_cells TIMES.

READ TABLE it_board INTO wa_board
INDEX l_counter.

IF wa_board-status IS INITIAL.

l_bombs_count = 0.
l_index = l_counter - 1.
l_row = wa_board-row.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter - ( gf_columns + 1 ).
l_row = wa_board-row - 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter - gf_columns.
l_row = wa_board-row - 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter - ( gf_columns - 1 ).
l_row = wa_board-row - 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter + 1.
l_row = wa_board-row.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter + ( gf_columns - 1 ).
l_row = wa_board-row + 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter + gf_columns.
l_row = wa_board-row + 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

l_index = l_counter + ( gf_columns + 1 ).
l_row = wa_board-row + 1.
READ TABLE it_board INTO wa_check
INDEX l_index.
IF sy-subrc EQ 0 AND
wa_check-row = l_row AND
wa_check-status = 'B'.
l_bombs_count = l_bombs_count + 1.
ENDIF.

wa_board-status = l_bombs_count.

CASE l_bombs_count.
WHEN 0.
wa_board-icon = c_blank.
WHEN 1.
wa_board-icon = c_icon1.
WHEN 2.
wa_board-icon = c_icon2.
WHEN 3.
wa_board-icon = c_icon3.
WHEN 4.
wa_board-icon = c_icon4.
WHEN 5.
wa_board-icon = c_icon5.
WHEN 6 OR 7 OR 8.
wa_board-icon = c_iconx.
ENDCASE.

ENDIF.

MODIFY it_board FROM wa_board INDEX wa_board-index.
APPEND wa_board TO it_freecells.
l_counter = l_counter + 1.

ENDDO.
GET TIME STAMP FIELD l_start.
ENDFORM. " BOARD_INIT

*&---------------------------------------------------------------------*
*& Form GAME_SUCCEEDED
*&---------------------------------------------------------------------*
FORM game_succeeded.
DATA: l_no TYPE i.
DATA: l_hs TYPE i.
DATA: new_highscore(1).

* New Highscore ?
PERFORM read_highscore.
l_counter = 5. l_no = 1.
LOOP AT it_highscore INTO wa_highscore.
READ TABLE tx_lines INTO wa_lines INDEX l_counter.
IF score < class="L1S52">AND new_highscore <> 'X'.
new_highscore = 'X'.
WRITE l_no NO-SIGN TO wa_lines(2).
wa_lines+4(12) = sy-uname.
WRITE sy-datum DD/MM/YYYY TO wa_lines+17(10).
WRITE sy-uzeit(5)
USING EDIT MASK '__:__' TO wa_lines+28(5).
WRITE score NO-SIGN NO-GROUPING TO wa_lines+34(6).
l_hs = l_no.
l_no = l_no + 1.
MODIFY tx_lines FROM wa_lines INDEX l_counter.
l_counter = l_counter + 1.
ENDIF.
CHECK l_no < 31.
WRITE l_no NO-SIGN TO wa_lines(2).
wa_lines+4(12) = wa_highscore-name.
wa_lines+17(10) = wa_highscore-date.
wa_lines+28(5) = wa_highscore-time.
WRITE wa_highscore-score NO-SIGN NO-GROUPING
TO wa_lines+34(6).
MODIFY tx_lines FROM wa_lines INDEX l_counter.
l_counter = l_counter + 1.
l_no = l_no + 1.
ENDLOOP.
IF new_highscore = 'X'.
EXPORT tx_lines TO DATABASE indx(st) ID gf_tdname.

CALL METHOD tx_editor->set_text_as_r3table
EXPORTING
table = tx_lines.

MESSAGE i319(01) WITH 'New Highscore' 'No.' l_hs.
ENDIF.
PERFORM board_init.
ENDFORM. " GAME_SUCCEEDED

*&---------------------------------------------------------------------*
*& Form read_highscore
*&---------------------------------------------------------------------*
FORM read_highscore.
REFRESH it_highscore.

IMPORT tx_lines FROM DATABASE indx(st) ID gf_tdname.
DESCRIBE TABLE tx_lines.
IF sy-tfill = 0.
REFRESH tx_lines.
wa_lines = ' * * * High Scores * * *'.
APPEND wa_lines TO tx_lines.
wa_lines = ' '.
APPEND wa_lines TO tx_lines.
wa_lines = 'No. Name Date Time Score'.
APPEND wa_lines TO tx_lines.
wa_lines = '----------------------------------------'.
APPEND wa_lines TO tx_lines.
DATA: lf_count TYPE i.
lf_count = 1.
DO 30 TIMES.
wa_lines = '30. NN 01.01.2000 12:00 99999'
.
WRITE lf_count TO wa_lines(2).
APPEND wa_lines TO tx_lines.
lf_count = lf_count + 1.
ENDDO.
ENDIF.

LOOP AT tx_lines INTO wa_lines.
IF sy-tabix > 4.
CLEAR wa_highscore.
wa_highscore-no = wa_lines(2).
wa_highscore-name = wa_lines+4(12).
wa_highscore-date = wa_lines+17(10).
wa_highscore-time = wa_lines+28(5).
wa_highscore-score = wa_lines+34(6).
APPEND wa_highscore TO it_highscore.
ENDIF.
ENDLOOP.

ENDFORM. " read_highscore
*&---------------------------------------------------------------------*
*& Form housekeeping
*&---------------------------------------------------------------------*
FORM housekeeping.
LOOP AT it_board INTO wa_board.
IF NOT wa_board-picture IS INITIAL.
CALL METHOD wa_board-picture->free.
ENDIF.
CALL METHOD wa_board-container->free.
ENDLOOP.
CALL METHOD tx_editor->free.
CALL METHOD tx_container->free.
ENDFORM. " housekeeping
*&---------------------------------------------------------------------*
*& Form init_randomizer
*&---------------------------------------------------------------------*
FORM init_randomizer.
DATA: lf_start(11) TYPE p DECIMALS 7.

DATA: ran_int TYPE i,
lt_random_numbers TYPE STANDARD TABLE OF i.

GET TIME STAMP FIELD lf_start.
ran_int = lf_start MOD ( 32 ** 2 ).
ran_int = ran_int MOD 100.

CALL FUNCTION 'AQ_INT_RANDOM_NUMBERS'
EXPORTING
low = 1
high = ran_int
num_values = ran_int
IMPORTING
random_numbers = lt_random_numbers.

ENDFORM. " init_randomizer"

Game - Number puzzle

2011-01-19T00:17:00.000-08:00

REPORT ZAGS_101.

* Declarations.
DATA: v_first TYPE xfeld,
v_won TYPE xfeld.
DATA: BEGIN OF v_name,
name TYPE char4,
num TYPE char1,
END OF v_name.
DATA: v_blank_push LIKE v_name.
DATA: v_name_tmp LIKE v_name.
DATA: v_fieldname TYPE fieldname.
DATA: BEGIN OF s_pos,
s TYPE char1,
t TYPE char1,
END OF s_pos,
t_pos LIKE STANDARD TABLE OF s_pos.
FIELD-SYMBOLS: ,.

* selection-screen objects.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE v_text.
SELECTION-SCREEN PUSHBUTTON /10(3) push1 USER-COMMAND push1.
SELECTION-SCREEN PUSHBUTTON 14(3) push2 USER-COMMAND push2.
SELECTION-SCREEN PUSHBUTTON 18(3) push3 USER-COMMAND push3.
SELECTION-SCREEN PUSHBUTTON /10(3) push4 USER-COMMAND push4.
SELECTION-SCREEN PUSHBUTTON 14(3) push5 USER-COMMAND push5.
SELECTION-SCREEN PUSHBUTTON 18(3) push6 USER-COMMAND push6.
SELECTION-SCREEN PUSHBUTTON /10(3) push7 USER-COMMAND push7.
SELECTION-SCREEN PUSHBUTTON 14(3) push8 USER-COMMAND push8.
SELECTION-SCREEN PUSHBUTTON 18(3) push9 USER-COMMAND push9.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN PUSHBUTTON /10(10) output USER-COMMAND output.
SELECTION-SCREEN PUSHBUTTON 22(10) start USER-COMMAND start.

* Initialization event.
INITIALIZATION.

* Move initial text.
PERFORM move_initial_text.

* At selection-screen output.
AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

* First time.
IF v_first IS INITIAL.
IF screen-name = 'PUSH9'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ELSE.
IF screen-name = v_name.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.

ENDLOOP.

IF v_won = 'X'.
MESSAGE i208(00) WITH 'You won'.
ENDIF.

* Set the first flag.
IF v_first IS INITIAL.
v_first = 'X'.
ENDIF.

* At selection-screen.
AT SELECTION-SCREEN.

* Check the sy-ucomm.
CASE sy-ucomm.
WHEN 'OUTPUT'.
* Show the output.
PERFORM show_output.

WHEN 'START'.

* Move the initial text.
CLEAR v_first.
PERFORM move_initial_text.

ENDCASE.

* Check if the sy-ucomm is one of the push buttons.
CHECK sy-ucomm = 'PUSH1' OR
sy-ucomm = 'PUSH2' OR
sy-ucomm = 'PUSH3' OR
sy-ucomm = 'PUSH4' OR
sy-ucomm = 'PUSH5' OR
sy-ucomm = 'PUSH6' OR
sy-ucomm = 'PUSH7' OR
sy-ucomm = 'PUSH8' OR
sy-ucomm = 'PUSH9'.

* move the sy-ucomm.
v_name_tmp = sy-ucomm.

* Check valid button.
CLEAR: s_pos.
READ TABLE t_pos INTO s_pos WITH KEY s = v_name_tmp-num
t = v_blank_push-num.
IF sy-subrc <> 0.
v_name = v_blank_push.
EXIT.
ENDIF.

* Move the user command.
v_name = sy-ucomm.

* Get the text.
CLEAR v_fieldname.
CONCATENATE 'PUSH' v_name-num INTO v_fieldname.
ASSIGN (v_fieldname) TO .

* Get the blank push value.
CLEAR v_fieldname.
CONCATENATE 'PUSH' v_blank_push-num INTO v_fieldname.
ASSIGN (v_fieldname) TO .

* Move the values.
= .

* success.
IF push1 = '1' AND
push2 = '2' AND
push3 = '3' AND
push4 = '4' AND
push5 = '5' AND
push6 = '6' AND
push7 = '7' AND
push8 = '8'.
v_won = 'X'.
ENDIF.

* Move the blank push to the current.
v_blank_push = v_name.

DEFINE pop.
clear: s_pos.
s_pos-s = &1.
s_pos-t = &2.
append s_pos to t_pos.
END-OF-DEFINITION.
*---------------------------------------------------------------------*
* FORM move_initial_text *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM move_initial_text.

* Move frame title.
MOVE 'Game' TO v_text.
MOVE 'Output' TO output.
MOVE 'Start' TO start.

* Move values to the push button.
MOVE '4' TO push1.MOVE '3' TO push2.
MOVE '2' TO push3.MOVE '7' TO push4.
MOVE '5' TO push5.MOVE '6' TO push6.
MOVE '8' TO push7.MOVE '1' TO push8.
MOVE ' ' TO push9.

* Set the blank push.
v_blank_push = 'PUSH9'.

* Prepare the possible values for each place.
CLEAR: t_pos.
pop '1' '2'.pop '1' '4'.
pop '2' '1'.pop '2' '3'.pop '2' '5'.
pop '3' '2'.pop '3' '6'.
pop '4' '1'.pop '4' '5'.pop '4' '7'.
pop '5' '2'.pop '5' '4'.pop '5' '6'.pop '5' '8'.
pop '6' '3'.pop '6' '5'.pop '6' '9'.
pop '7' '4'.pop '7' '8'.
pop '8' '5'.pop '8' '7'.pop '8' '9'.
pop '9' '6'.pop '9' '8'.

ENDFORM.
*---------------------------------------------------------------------*
* FORM show_output *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM show_output.

* Move values to the push button.
MOVE '1' TO push1.MOVE '2' TO push2.
MOVE '3' TO push3.MOVE '4' TO push4.
MOVE '5' TO push5.MOVE '6' TO push6.
MOVE '7' TO push7.MOVE '8' TO push8.
MOVE ' ' TO push9.

* Set the blank push.
v_blank_push = 'PUSH9'.
CLEAR v_first.

ENDFORM.

MM02 - navigating directly to MRP1 data

2010-10-06T03:53:00.000-07:00

Often it is needed to display a default view while navigating from a report output to MM02 or any other Tcode with different views.

Use below code:
SET PARAMETER ID 'MAT' FIELD p_mat-matnr.
SET PARAMETER ID 'WRK' FIELD p_mat-werks.
SET PARAMETER ID 'MXX' FIELD 'D'.
CALL TRANSACTION c_mm02 AND SKIP FIRST SCREEN.

this is basically down based on the following information:

Status (MARA-VPSTA) contains the combination of the View indicator. You can find the relation of the status indicator and view name in the documentation of the data element PSTAT_D or follow this table:

User department Maintenance status

Work scheduling A
Accounting B
Classification C
MRP D
Purchasing E
Production resources/tools F
Costing G
Basic data K
Storage L
Forecasting P
Quality management Q
Warehouse management S
Sales V
Plant stocks X
Storage location stocks Z

MM02 BDC – Select Specific Material Master View

2010-10-05T23:34:00.000-07:00

Creating a BDC of the MM02 will not be an easy task. As soon as we enter the material and hit enter it will ask us to choose the required Material master views. This popup contains the available material master views and they are not constant. Sometimes MRP1 comes at the 12th line and sometimes it comes to 6th line. This dynamic of the views are solely depended on the Status (MARA-VPSTA).

To overcome of this dynamics we need to get to know where exactly our required view will appear e.g. line 6 or line 10 or line 15. We will use the FM SELECTION_VIEWS_FIND to find out which view will come at which position.

In our BDC, we will follow these steps:
1. Always select the Basic Data 1
2. Get the respective user command for the tab by Executing the FM SELECTION_VIEWS_FIND.

User department Maintenance status

In this my test BDC, I want to update the MRP type. MRP type comes under the “MRP 1″ view of the material master. So, I will first select the Basic Data and than move to MRP 1 view and update the MRP type.

BDC Code:

REPORT ztest_np_mm02
NO STANDARD PAGE HEADING LINE-SIZE 255.
*
* Local data
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
*
* Selection Screen
PARAMETERS: p_matnr TYPE mara-matnr OBLIGATORY,
p_werks TYPE marc-werks OBLIGATORY,
p_lgort TYPE rmmg1-lgort OBLIGATORY,
p_dismm TYPE marc-dismm OBLIGATORY.
*
*
START-OF-SELECTION.
*
* Material views …………………………………………….
DATA: l_vpsta LIKE t130m-pstat.
*
SELECT SINGLE vpsta
INTO l_vpsta
FROM mara
WHERE matnr = p_matnr.
*
* Get View sequence ………………………………………….
DATA: l_bild LIKE t133a-bilds,
lt_bild LIKE mbildtab OCCURS 0 WITH HEADER LINE.
*
* Screen Sequence for Standard Industry tab pages in material master
l_bild = ’21′.
*
* Get screen sequence
CALL FUNCTION ‘SELECTION_VIEWS_FIND’
EXPORTING
bildsequenz = l_bild
pflegestatus = l_vpsta
TABLES
bildtab = lt_bild
EXCEPTIONS
call_wrong = 1
empty_selection = 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.
*
* Get the Tab page for MRP1 …………………………………..
DATA: l_tab_mrp1 TYPE sy-ucomm.
*
* reading table with MRP view
READ TABLE lt_bild WITH KEY pstat = ‘D’.
IF sy-subrc = 0.
l_tab_mrp1 = lt_bild-guifu.
ENDIF.
*
* make ok code for the MRP1
CONCATENATE ‘=’ l_tab_mrp1 INTO l_tab_mrp1.
*
* BDC ………………………………………………………
PERFORM bdc_dynpro USING ‘SAPLMGMM’ ’0060′.
PERFORM bdc_field USING ‘RMMG1-MATNR’
p_matnr.
PERFORM bdc_field USING ‘BDC_OKCODE’
‘=ENTR’.
*
PERFORM bdc_dynpro USING ‘SAPLMGMM’ ’0070′.
PERFORM bdc_field USING ‘MSICHTAUSW-KZSEL(01)’
‘X’.
PERFORM bdc_field USING ‘BDC_OKCODE’
‘=ENTR’.
*
PERFORM bdc_dynpro USING ‘SAPLMGMM’ ’4004′.
PERFORM bdc_field USING ‘BDC_OKCODE’
l_tab_mrp1.
*
PERFORM bdc_dynpro USING ‘SAPLMGMM’ ’0081′.
PERFORM bdc_field USING ‘RMMG1-WERKS’
p_werks.
PERFORM bdc_field USING ‘RMMG1-LGORT’
p_lgort.
PERFORM bdc_field USING ‘BDC_OKCODE’
‘=ENTR’.
*
PERFORM bdc_dynpro USING ‘SAPLMGMM’ ’4000′.
PERFORM bdc_field USING ‘MARC-DISMM’
p_dismm.
PERFORM bdc_field USING ‘BDC_OKCODE’
‘=BU’.
*
PERFORM bdc_transaction USING ‘MM02′.
*
*&———————————————————————*
*& Form BDC_DYNPRO
*&———————————————————————*
FORM bdc_dynpro USING p_program
p_screen.
*
MOVE: p_program TO bdcdata-program,
p_screen TO bdcdata-dynpro,
‘X’ TO bdcdata-dynbegin.
*
APPEND bdcdata.
CLEAR bdcdata.
*
ENDFORM. ” BDC_DYNPRO
*
*&———————————————————————*
*& Form BDC_FIELD
*&———————————————————————*
FORM bdc_field USING p_field_name
p_field_value.
*
MOVE: p_field_name TO bdcdata-fnam,
p_field_value TO bdcdata-fval.
*
APPEND bdcdata.
CLEAR bdcdata.
*
ENDFORM. ” BDC_FIELD
*
*
*&———————————————————————*
*& Form BDC_TRANSACTION
*&———————————————————————*
FORM bdc_transaction USING tcode.
DATA: l_mstring(480).
DATA: l_subrc LIKE sy-subrc.
* batch input session
REFRESH messtab.
CALL TRANSACTION tcode USING bdcdata
MODE ‘A’
“A: show all dynpros
“E: show dynpro on error only
“N: do not display dynpro
*
UPDATE ‘L’
MESSAGES INTO messtab.
REFRESH bdcdata.
ENDFORM. “BDC_TRANSACTION

Display Top of page in ALV Function Module

2010-09-09T00:52:00.000-07:00

Display top of page in ALV Function module method using the same code as in ALV OOPs method:

Basically we need to use the HTML call back TOP OF PAGE for this. This form uses the CL_DD_DOCUMENT object to publish the top of page. So we just need to create this form and use the same logic we use for OOPs approach.

Usual Code for OOPS approach:

*******************CODE*********************************
*******************CODE*********************************
FORM f_event_top_of_page USING p_dyndoc_id TYPE REF TO cl_dd_document.

* Design the Layout
PERFORM f_design_top_new USING p_dyndoc_id.

* populating data to html control
PERFORM f_html_header USING p_dyndoc_id.

ENDFORM. " EVENT_TOP_OF_PAGE

FORM f_design_top_new USING p_dyndoc_id TYPE REF TO cl_dd_document.

* populating header to top-of-page
PERFORM f_date_to_external USING sy-datum
CHANGING l_ext_date.

* add gap
CALL METHOD p_dyndoc_id->add_gap
EXPORTING
width = 150.

MOVE ' '(001) TO l_text.
"Add Text to Header
CALL METHOD p_dyndoc_id->add_text
EXPORTING
text = l_text
sap_style = cl_dd_area=>heading.

CALL METHOD p_dyndoc_id->underline.

ENDFORM.

FORM f_html_header USING p_dyndoc_id TYPE REF TO cl_dd_document.

* creating html control
IF obj_html_cntrl IS INITIAL.
CREATE OBJECT obj_html_cntrl
EXPORTING
parent = obj_parent_html.
ENDIF.
* reuse_alv_grid_commentary_set
CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET'
EXPORTING
document = p_dyndoc_id
bottom = space.
* get top->htmobj_table ready
CALL METHOD p_dyndoc_id->merge_document.
* set wallpaper
CALL METHOD p_dyndoc_id->set_document_background
EXPORTING
picture_id = space.
* connect top document to html-control
p_dyndoc_id->html_control = obj_html_cntrl.
* display top document
CALL METHOD p_dyndoc_id->display_document
EXPORTING
reuse_control = c_x
parent = obj_parent_html
EXCEPTIONS
html_display_error = 1.
IF sy-subrc NE 0.
MESSAGE i000 WITH 'Error in displaying top-of-page'(035).
ENDIF.

ENDFORM. " F_HTML_HEADER

*******************CODE*********************************
*******************CODE*********************************

Simple ALV FM approach:

*******************CODE*********************************
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_prog_name
i_callback_user_command = lc_user_cmd
it_fieldcat = gt_fieldcat
i_default = lc_default
I_CALLBACK_HTML_TOP_OF_PAGE = 'TOP_OF_PAGE'
TABLES
t_outtab = gt_alvrpt
EXCEPTIONS
program_error = 1
OTHERS = 2.

*** Here I have used my own Utility class to create CL_DD_DOCUMENT object
*** The main intension is to develop this Object. It can be done in any way

FORM TOP_OF_PAGE USING p_dyndoc_id TYPE REF TO CL_DD_DOCUMENT.

DATA: obj_sel_opt TYPE REF TO zcl_alv_header_utility,
l_text1 TYPE string.

CREATE OBJECT obj_sel_opt
EXPORTING
p_dyndoc_obj = p_dyndoc_id.

CALL METHOD obj_sel_opt->read_selection_screen
EXPORTING
repid = sy-repid
.

CALL METHOD obj_sel_opt->set_grid_top
EXPORTING
title1 = 'Scheduling Agreement or Contract vs Receipt Tracking'
* title2 =
* title3 =
* title4 =
.
ENDFORM.

*******************CODE*********************************
*******************CODE*********************************

I found out that displaying TOPOFPAGE with ALV FM is much easier than OOPs method.
Like OOPS we need not create any SPLITTER container in FM nor do we need to design the CL_DD_DOCUMENT object and fit it to the top split container.

But as it is said, its always better to hone the latest technique of coding so that our jobs are never at stake; and here OOPs is what SAP will continue polishing as development goes forward.

Debugger Text File

2010-09-06T23:24:00.000-07:00

[FUNCTION]
Command=/H
Title=Debugger
Type=SystemCommand

View on SAP Certification

2010-09-03T03:23:00.000-07:00

http://www.jonerp.com/pdf/sap_certification_from_cert5.pdf

http://www.zdnet.com/blog/btl/can-sap-certifications-join-the-big-leagues/33369

ALV design Header with Selection screen elements

2010-09-01T00:10:00.000-07:00

*----------------------------------------------------------------------*
FORM event_top_of_page USING p_dyndoc_id TYPE REF TO cl_dd_document.

* Design the Layout
PERFORM f_design_top_new USING p_dyndoc_id.

* populating data to html control
PERFORM f_html_header USING p_dyndoc_id.

ENDFORM. " EVENT_TOP_OF_PAGE

************************************************************************

FORM f_design_top_new USING p_dyndoc_id TYPE REF TO cl_dd_document.

DATA obj_area1 TYPE REF TO cl_dd_area.
DATA obj_area2 TYPE REF TO cl_dd_area.
DATA obj_table TYPE REF TO cl_dd_table_element.
DATA obj_col_key TYPE REF TO cl_dd_area.
DATA obj_col_info TYPE REF TO cl_dd_area.
DATA l_text TYPE sdydo_text_element.
DATA:l_ext_date TYPE char10."Date

* populating header to top-of-page
PERFORM f_date_to_external USING sy-datum
CHANGING l_ext_date.

* add gap
CALL METHOD p_dyndoc_id->add_gap
EXPORTING
width = 150.

MOVE 'Tree House Foods'(001) TO l_text.
"Add Text to Header
CALL METHOD p_dyndoc_id->add_text
EXPORTING
text = l_text
sap_style = cl_dd_area=>heading.

CALL METHOD p_dyndoc_id->underline.

* add gap
CALL METHOD p_dyndoc_id->add_gap
EXPORTING
width = 150.

MOVE sy-title TO l_text.
"Add Text to Header
CALL METHOD p_dyndoc_id->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

CLEAR l_text.

CALL METHOD p_dyndoc_id->new_line.
* Report Type***********************
IF rb_md06 EQ c_x.
MOVE 'Report based on MRP (MD06)'(s04) TO l_text.
ELSEIF rb_md04 EQ c_x.
MOVE 'Report based on Stock Requirements (MD04)'(032) TO l_text.
ENDIF.

"Add Text to Header
CALL METHOD p_dyndoc_id->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'
sap_style = 'SUCCESS'.

CLEAR l_text.

* split of document into up/below
CALL METHOD p_dyndoc_id->horizontal_split
EXPORTING
split_area = p_dyndoc_id
IMPORTING
below_area = obj_area1.

l_text = 'Selection Screen Parameters'(040).
CALL METHOD obj_area1->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'
sap_style = 'TABLE_HEADING'.

* split of below into below_left/below_right
CALL METHOD p_dyndoc_id->horizontal_split
EXPORTING
split_area = obj_area1
IMPORTING
below_area = obj_area2.

CALL METHOD obj_area2->add_table
EXPORTING
no_of_columns = 2
with_heading = ' '
border = '0'
IMPORTING
table = obj_table.

CALL METHOD obj_table->add_column
IMPORTING
column = obj_col_key.

CALL METHOD obj_table->add_column
IMPORTING
column = obj_col_info.

CALL METHOD obj_table->new_row.

l_text = 'Exception message number:'(041).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_auskt.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_auskt-option s_auskt-low s_auskt-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

CALL METHOD obj_table->new_row.

l_text = 'Plant:'(042).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_plwrk.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_plwrk-option s_plwrk-low s_plwrk-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

CALL METHOD obj_table->new_row.

l_text = 'Material Number:'(043).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_matnr.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_matnr-option s_matnr-low s_matnr-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

CALL METHOD obj_table->new_row.

l_text = 'Number of Excp. per Material:'(044).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.

IF p_numex EQ 0.
l_text = 'Unlimited'(045).
ELSE.
l_text = p_numex.
ENDIF.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.

CALL METHOD obj_table->new_row.

l_text = 'Procurement Type:'(046).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_beskz.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_beskz-option s_beskz-low s_beskz-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

CALL METHOD obj_table->new_row.

l_text = 'MRP Type:'(047).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_dismm.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_dismm-option s_dismm-low s_dismm-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

CALL METHOD obj_table->new_row.

l_text = 'MRP Controller:'(048).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_dispo.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_dispo-option s_dispo-low s_dispo-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

CALL METHOD obj_table->new_row.

l_text = 'Material Type:'(049).
CALL METHOD obj_col_key->add_text
EXPORTING
text = l_text
sap_emphasis = 'Strong'.

LOOP AT s_mtart.
CALL METHOD obj_col_info->add_gap
EXPORTING
width = 5.
CONCATENATE s_mtart-option s_mtart-low s_mtart-high c_colon INTO l_text
SEPARATED BY space.
CALL METHOD obj_col_info->add_text
EXPORTING
text = l_text.
ENDLOOP.

ENDFORM. " F_DESIGN_TOP_NEW
****************************************************************************

*----------------------------------------------------------------------*
FORM f_html_header USING p_dyndoc_id TYPE REF TO cl_dd_document.

* creating html control
IF obj_html_cntrl IS INITIAL.
CREATE OBJECT obj_html_cntrl
EXPORTING
parent = obj_parent_html.
ENDIF.
* reuse_alv_grid_commentary_set
CALL FUNCTION 'REUSE_ALV_GRID_COMMENTARY_SET'
EXPORTING
document = p_dyndoc_id
bottom = space.
* get top->htmobj_table ready
CALL METHOD p_dyndoc_id->merge_document.
* set wallpaper
CALL METHOD p_dyndoc_id->set_document_background
EXPORTING
picture_id = space.
* connect top document to html-control
p_dyndoc_id->html_control = obj_html_cntrl.
* display top document
CALL METHOD p_dyndoc_id->display_document
EXPORTING
reuse_control = c_x
parent = obj_parent_html
EXCEPTIONS
html_display_error = 1.
IF sy-subrc NE 0.
MESSAGE i000 WITH 'Error in displaying top-of-page'(035).
ENDIF.

ENDFORM. " F_HTML_HEADER
*****************************************************************

ALV background display as well as foreground

2010-08-31T23:49:00.000-07:00

MODULE alv_display OUTPUT.

IF sy-batch NE c_x.

* First Main Container
CREATE OBJECT obj_container
EXPORTING
container_name = 'CC_CONTAINER'.
* Splitter Container
CREATE OBJECT obj_splitter
EXPORTING
parent = obj_container
rows = 2
columns = 1.

* Set the height of Top of page
CALL METHOD obj_splitter->set_row_height
EXPORTING
id = 1
height = 29.

* Place obj_parent_html in First row First column
* for Top_of_page
CALL METHOD obj_splitter->get_container
EXPORTING
row = 1
column = 1
RECEIVING
container = obj_parent_html.

* Place ALV grid display in Second row First column
CALL METHOD obj_splitter->get_container
EXPORTING
row = 2
column = 1
RECEIVING
container = obj_parent_grid.

* Create ALV grid Object
CREATE OBJECT obj_grid
EXPORTING
i_parent = obj_parent_grid.

ELSE. "For Background run
* Create ALV grid Object
CREATE OBJECT obj_grid
EXPORTING
i_parent = obj_dock.
ENDIF.

* Create Event handler Object
CREATE OBJECT obj_event.
*
** Set Event Handler for List TOP_OF_PAGE
SET HANDLER obj_event->on_top_of_page FOR obj_grid.
** Set Event Handler for Grid TOP_OF_PAGE
SET HANDLER obj_event->on_grid_top_of_page FOR obj_grid.
** Set Event Handler for Grid END_OF_PAGE
SET HANDLER obj_event->on_END_OF_PAGE FOR obj_grid.
** Set Event Handler for Double Click
SET HANDLER obj_event->handle_double_click FOR obj_grid.

* Call Grid method to display ALV Table
CALL METHOD obj_grid->set_table_for_first_display
EXPORTING
* i_buffer_active =
* i_bypassing_buffer =
* i_consistency_check =
* i_structure_name =
* is_variant =
* i_save =
* i_default = 'X'
is_layout = wa_layo
* is_print =
* it_special_groups =
* it_toolbar_excluding =
* it_hyperlink =
* it_alv_graphics =
* it_except_qinfo =
* ir_salv_adapter =
CHANGING
it_outtab = gt_mat
it_fieldcatalog = gt_fcat
it_sort = gt_sort
* it_filter =
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4
.
IF sy-subrc <> 0.
MESSAGE i000 WITH 'Error in Report Display'(003).
ENDIF.

* Create top-document
CREATE OBJECT obj_dyndoc_id
EXPORTING
style = 'ALV_GRID'.

* Initializing document
CALL METHOD obj_dyndoc_id->initialize_document.

* Processing events
CALL METHOD obj_grid->list_processing_events
EXPORTING
i_event_name = 'TOP_OF_PAGE'
i_dyndoc_id = obj_dyndoc_id.

* Refresh ALV object before next display
CALL METHOD obj_grid->refresh_table_display
EXPORTING
is_stable = c_stable.

CALL METHOD cl_gui_control=>set_focus
EXPORTING
control = obj_grid.

ENDMODULE. " ALV_DISPLAY OUTPUT

Normal ALV class Design-Events double click and top-end of page

2010-08-31T23:48:00.000-07:00

********************************************************************
* ABAP Name: ZZSCPR044_INMRP_EXCP_CLASS
* Created by: Agnihotro Sinha
* Created on: 08/12/2010.
* Version: 1.0
*------------------------------------------------------------------*
* Modification Log:
* Date Programmer Correction Description
*
********************************************************************

************************************************************************
* Class declarations
************************************************************************
CLASS lcl_event_handler DEFINITION FINAL.
* event receiver definitions for ALV actions
PUBLIC SECTION.
*** Any Event with PREFIX as 'PRINT' is connected to ALV List Display
*** and also gthe event need not be registered with ALV Object
METHODS:
* Handle List output Top-Of-Page
on_top_of_page
FOR EVENT print_top_of_page OF cl_gui_alv_grid,
*Handle grid Top_Of_Page
on_grid_top_of_page
FOR EVENT TOP_OF_PAGE OF cl_gui_alv_grid
IMPORTING
e_dyndoc_id,
* Handle List End of Page
on_end_of_page
FOR EVENT print_END_OF_LIST OF cl_gui_alv_grid,
* Handle Double Click
handle_double_click
FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row e_column.
ENDCLASS. "lcl_event_receiver DEFINITION
************************************************************************

CLASS lcl_event_handler IMPLEMENTATION.

* Create the Text to be dispalyed at top of page of ALV List Output
METHOD on_grid_top_of_page.
* top-of-page event for grid Display
PERFORM event_top_of_page USING e_dyndoc_id.
ENDMETHOD. "On_top_of_page

* Create Top_Of_Page display for ALV Grid Output
METHOD on_top_of_page.
* Will be hit only when ALV List Display is called
PERFORM display_list_top.
* e_dyndoc_id = obj_dyndoc_id.
ENDMETHOD. "create_top_of_page
* Create End of Page for List Display
METHOD on_end_of_page.
PERFORM display_list_end.
ENDMETHOD.
* Handle user command for Double Click
METHOD handle_double_click.

* read selected row from internal table gt_sflight
READ TABLE gt_mat INDEX e_row-index INTO wa_mat.
IF sy-subrc eq 0.
PERFORM f_drill_down USING wa_mat e_column.
ENDIF.

ENDMETHOD. "handle_user_command
ENDCLASS. "lcl_event_receiver IMPLEMENTATION

Publishing HTML data on Module pool or SAP report screen

2010-08-05T01:41:00.000-07:00

1: Create a container in your module pool screen with name "HTML_CONTROL".

2: Create object as below:Point this object to the module pool control using its name
data: html_control TYPE REF TO cl_gui_html_viewer,
my_container TYPE REF TO cl_gui_custom_container.

CREATE OBJECT my_container
EXPORTING
container_name = 'HTML_CONTROL'.

CREATE OBJECT html_control
EXPORTING
parent = my_container.
3: You can load image or text to module pool screen using this OBJECT reference only. An exaple for loading graphics is shown below:

CALL METHOD html_control->load_mime_object
EXPORTING
object_id = 'HTMLCNTL_TESTHTM2_SAPLOGO'
object_url = 'SAPLOGO.GIF'
EXCEPTIONS
OTHERS = 1.

****************
Example program: SAPHTML_EVENTS_DEMO