Object Oriented ALV

Example:
*Global data for ALV display
DATA: splitter_1  TYPE REF TO cl_gui_splitter_container,
      container   TYPE REF TO cl_gui_custom_container,
      container_1 TYPE REF TO cl_gui_container,
      container_2 TYPE REF TO cl_gui_container,
      container_3 TYPE REF TO cl_gui_container,
      container_4 TYPE REF TO cl_gui_container,
      grid1       TYPE REF TO cl_gui_alv_grid,
      grid2       TYPE REF TO cl_gui_alv_grid,
      grid3       TYPE REF TO cl_gui_alv_grid,
      grid4       TYPE REF TO cl_gui_alv_grid,
      ok_code     TYPE sy-ucomm,
      loyo        TYPE lvc_s_layo.
*----------------------------------------------------------------------*
*           FOR FIELD CATALOG
*----------------------------------------------------------------------*
DATA: gt_fieldcatalogue TYPE lvc_t_fcat,
      gs_fieldcatalogue TYPE lvc_s_fcat.
DATA: g_container      TYPE scrfname.

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'ZALV'.
  SET TITLEBAR 'ZTITLE'.
*creating object reference for container
  CREATE OBJECT container
    EXPORTING
      container_name = g_container."Pass name of container created in Screen no 9010
*splitting the main container into 3 rows
  CREATE OBJECT splitter_1
    EXPORTING
      parent  = container
      rows    = 4
      columns = 1.
*getting the reference for the splited container (row 1 & col 1 container)
  CALL METHOD splitter_1->get_container
    EXPORTING
      row       = 1
      column    = 1
    RECEIVING
      container = container_1.
*getting the reference for the splited container (row 2 & col 1 container)
  CALL METHOD splitter_1->get_container
    EXPORTING
      row       = 2
      column    = 1
    RECEIVING
      container = container_2.
*getting the reference for the splited container (row 3 & col 1 container)
  CALL METHOD splitter_1->get_container
    EXPORTING
      row       = 3
      column    = 1
    RECEIVING
      container = container_3.
*populating first internal table to the container
  CREATE OBJECT container
    EXPORTING
      container_name = g_container.
  CREATE OBJECT grid1
    EXPORTING
      i_parent = container_1.
* FOR LAYOUT
  loyo-zebra = c_x.
  loyo-cwidth_opt = c_x.
  loyo-grid_title = 'This is actually grid title'.
*  loyo-stylefname = c_sfn100.
  PERFORM create_fieldcatalog USING c_grid1.
  CALL METHOD grid1->set_table_for_first_display
    EXPORTING
      is_layout       = loyo
    CHANGING
      it_fieldcatalog = gt_fieldcatalogue
      it_outtab       = gt_table1.
*populating second internal table
  CREATE OBJECT container
    EXPORTING
      container_name = g_container.
  CREATE OBJECT grid2
    EXPORTING
      i_parent = container_2.
* FOR LAYOUT
  loyo-grid_title = text-020.
  PERFORM create_fieldcatalog USING c_grid2.
  CALL METHOD grid2->set_table_for_first_display
    EXPORTING
      is_layout       = loyo
    CHANGING
      it_fieldcatalog = gt_fieldcatalogue
      it_outtab       = gt_table2.
*populating third internal table
  CREATE OBJECT container
    EXPORTING
      container_name = g_container.
  CREATE OBJECT grid3
    EXPORTING
      i_parent = container_3.
* FOR LAYOUT
  loyo-grid_title = 'Title 3'.
  PERFORM create_fieldcatalog USING c_grid3.
  CALL METHOD grid3->set_table_for_first_display
  EXPORTING
     is_layout        = loyo
  CHANGING
    it_fieldcatalog = gt_fieldcatalogue
     it_outtab      = gt_table3.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CALL METHOD cl_gui_cfw=>dispatch.
  CASE ok_code.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*& Module EXIT INPUT                                                        *
*&---------------------------------------------------------------------*
MODULE exit INPUT.
*free the container memory when exit
  CALL METHOD container->free.
  LEAVE PROGRAM.
ENDMODULE.  "EXIT INPUT


 

Useful Tips MM

UoM Conversion Logic Explained
*&---------------------------------------------------------------------*
*&      Form  CONVERSION_UOM
*&---------------------------------------------------------------------*
* IF BUoM is CS: CWM field will contains LB value and normal in CS
* IF BUoM is LB: CWM fields will contain CS value and normal in LB
*----------------------------------------------------------------------*
FORM conversion_uom.
  DATA:   ls_mara       TYPE ty_mara,
          ls_mchb       TYPE ty_mchb,
          ls_mchb_temp  TYPE ty_mchb,
          lt_mchb       TYPE TABLE OF ty_mchb,
          l_index       TYPE sy-tabix.
  LOOP AT gt_mara INTO ls_mara.
    l_index = sy-tabix.
    READ TABLE gt_mchb INTO ls_mchb WITH KEY matnr = ls_mara-matnr.
    IF ls_mara-/cwm/xcwmat = c_x AND ls_mara-meins = c_lb.
      ls_mchb-clabs = ls_mchb-/cwm/clabs.
      MODIFY gt_mchb INDEX l_index FROM ls_mchb TRANSPORTING clabs.
    ELSEIF ls_mara-meins NE c_cs AND ls_mara-meins NE c_lb.
      CALL METHOD zcl_pin_convert_new_uom=>convert_uom
        EXPORTING
          i_matnr              = ls_mara-matnr
          i_from_uom           = ls_mara-meins
          i_to_uom             = c_csmeins
          i_qty                = ls_mchb-clabs
        IMPORTING
          e_qty                = ls_mchb-clabs
        EXCEPTIONS
          meins_not_maintained = 1
          meinh_not_maintained = 2
          unexpected_error     = 3
          OTHERS               = 4.
      IF sy-subrc = 0.
        MODIFY gt_mchb INDEX l_index FROM ls_mchb TRANSPORTING clabs.
      ENDIF.
    ENDIF.
    CLEAR: l_index, ls_mara.
  ENDLOOP.
ENDFORM.                    " CONVERSION_UOM
******

METHOD convert_uom.

  DATA : lv_from TYPE meins,
         lv_to TYPE meins,
         l_value_meins_tmp TYPE f,
         lv_input1 TYPE cd0fltp,
         lv_output1 TYPE cd0fltp.

  IF i_from_uom = i_to_uom
    AND i_from_uom IS NOT INITIAL
    AND i_to_uom   IS NOT INITIAL
    AND i_from_uom IS SUPPLIED
    AND i_to_uom   IS SUPPLIED.
    CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 4
                              OTHERS = 8.
      e_qty = i_qty.
    ENDCATCH.
    IF sy-subrc <> 0.
      RAISE unexpected_error.
    ENDIF.
  ELSE.

    IF i_qty IS SUPPLIED.
      CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 4
                              OTHERS = 8.
        lv_input1 = i_qty.
      ENDCATCH.
      IF sy-subrc <> 0.
        RAISE unexpected_error.
      ENDIF.
    ELSE.
      lv_input1 = 1.
    ENDIF.

    IF i_to_uom IS NOT SUPPLIED.
      SELECT SINGLE meins FROM mara INTO lv_to WHERE matnr = i_matnr.
      IF sy-subrc <> 0.
        RAISE meinh_not_maintained.
      ENDIF.
    ELSE.
      lv_to = i_to_uom.
    ENDIF.

    IF i_from_uom IS NOT SUPPLIED.
      SELECT SINGLE meins FROM mara INTO lv_from WHERE matnr = i_matnr.
      IF sy-subrc <> 0.
        RAISE meins_not_maintained.
      ENDIF.
    ELSE.
      lv_from = i_from_uom.
    ENDIF.
    CLEAR lv_output1.

*   Umrechnung in Basismenge
    CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
      EXPORTING
        matnr                = i_matnr
        input                = lv_input1
        meinh                = lv_from
        kzmeinh              = 'X'
      IMPORTING
        output               = l_value_meins_tmp
      EXCEPTIONS
        conversion_not_found = 01
        input_invalid        = 02
        material_not_found   = 03
        meinh_not_found      = 04
        meins_missing        = 05
        no_meinh             = 06
        output_invalid       = 07
        overflow             = 08.
    IF sy-subrc <> 0.
      RAISE unexpected_error.
    ENDIF.
*   Umrechnung auf neue Alternativmengeneinheit
    CALL FUNCTION 'MATERIAL_UNIT_CONVERSION'
      EXPORTING
        matnr                = i_matnr
        input                = l_value_meins_tmp
        meinh                = lv_to
        kzmeinh              = space
      IMPORTING
        output               = lv_output1
      EXCEPTIONS
        conversion_not_found = 01
        input_invalid        = 02
        material_not_found   = 03
        meinh_not_found      = 04
        meins_missing        = 05
        no_meinh             = 06
        output_invalid       = 07
        overflow             = 08.

    IF sy-subrc <> 0.
      RAISE unexpected_error.
    ELSE.
      CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 4
                              OTHERS = 8.
        e_qty = lv_output1.
      ENDCATCH.
      IF sy-subrc <> 0.
        RAISE unexpected_error.
      ENDIF.
    ENDIF.
  ENDIF.
ENDMETHOD.

**********
Code to Explode or find Material where used
FORM explode_material .
   DATA: gt_shadow    TYPE TABLE OF chvwshadow,
        gs_dfchvw       TYPE dfchvw,
        gt_plants       TYPE qc_werks_range.
  DATA: ls_mara TYPE ty_mara,
        l_index TYPE sy-tabix,         
        ls_mchb TYPE ty_mchb.          
* Call of function to read batch-where-used list
  gs_dfchvw-alstf = '00'.
  gs_dfchvw-kznul = 'X'.
  gs_dfchvw-trfpo = 'X'.
  gs_dfchvw-exptp = 'B'.
  gs_dfchvw-dsptp = 'L'.

  CALL FUNCTION 'CHVW_EXPLODE_ALL'
    EXPORTING
      i_matnr  = matnr
      i_werks  = plant
      i_charg  = batch
      i_dfchvw = gs_dfchvw
    TABLES
      t_shadow = gt_shadow
      t_plants = gt_plants
    EXCEPTIONS
      OTHERS   = 1.

*************
MARA - Material Master
MCHB - Material details on basis of CHARG - mapped to Tcode MMBE*
CHVW - Used Materials details
********

Smartform - New Page for each record in table

Tcode: smartforms

Create Smart form say: ZABC_SF
Create Smart style: ZDEF_SS

In main window: Loop at first table as shown in below.

In output options assign Style.
In CODE2: Add following as shown, No condition required here.

In Command Line add following as Shown. This will responsible for creating new page for each record in first Internal table.

Design another table in the list as below.  In Output options mention Style.

Display data of table as below. You are done. Code is to calculate values, dont forget to pass input output values as well

SOST* - Check email if send out from system

NACE*- Conditions for output control > Select output looking for (ie. Billing)
Press 'Output Types' > select output type > double click on processing routine in left.
ADRC -  contains address for address no, which can be configured in smart form
customer table KNA1 have adrc no field in ADRNR.
VA03  - Sales Order > Enter Sales Order No > Issue Output to
VF03 -  Billing > Enter Billing No > Issue Output to

To configure a output :
VA02 > Extras > Output > Header > Edit
To configure the output Following needs to be done in Billing, In VF02 > Enter a Billing doc details, > go to header > Output > Enter details using 'communication details' and 'Further Data'. Request processing set to send immediately i.e. 4
Same for Sales Order > VA02 > Extras > Output > Header > Edit ....

Sample Code - Download Smartform as PDF doc

********

FORM download_smartform_as_pdf .

  DATA : fmname                  TYPE rs38l_fnam,

         st_job_output_info      TYPE ssfcrescl,
         st_document_output_info TYPE ssfcrespd,
         st_job_output_options   TYPE ssfcresop,
         v_e_devtype             TYPE rspoptype,
         st_output_options       TYPE ssfcompop,
         st_control_parameters   TYPE ssfctrlop,
         v_bin_filesize          TYPE i.

  CALL FUNCTION 'SSF_GET_DEVICE_TYPE'

    EXPORTING
      i_language    = 'E'
      i_application = 'SAPDEFAULT'
    IMPORTING
      e_devtype     = v_e_devtype.

  st_output_options-tdprinter = v_e_devtype.

  st_control_parameters-no_dialog = 'X'.
  st_control_parameters-getotf = 'X'.

  IF gt_final IS NOT INITIAL.

    CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

      EXPORTING
        formname           = 'ZABC_SF'
      IMPORTING
        fm_name            = fmname
      EXCEPTIONS
        no_form            = 1
        no_function_module = 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 FUNCTION fmname

EXPORTING
  control_parameters         = st_control_parameters
  output_options             = st_output_options
IMPORTING
   document_output_info  = st_document_output_info
   job_output_info       = st_job_output_info
   job_output_options    = st_job_output_options
     TABLES
       gt_final                   = gt_final
       gt_graph                   = gt_graph
    EXCEPTIONS
      formatting_error           = 1
      internal_error             = 2
      send_error                 = 3
      user_canceled              = 4
      OTHERS                     = 5.
    IF sy-subrc <> 0.
*     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
*.........................CONVERT TO OTF TO PDF.......................*
* Internal table declaration
  DATA: it_otf      TYPE STANDARD TABLE OF itcoo,
        it_docs     TYPE STANDARD TABLE OF docs,
        it_lines    TYPE STANDARD TABLE OF tline,
        v_guiobj                 TYPE REF TO cl_gui_frontend_services,
        v_uact                   TYPE i,
        v_name                   TYPE string,
        v_path                   TYPE string,
        v_fullpath               TYPE string,
        v_filter                 TYPE string,
        v_filename               TYPE string.

  CALL FUNCTION 'CONVERT_OTF_2_PDF'
    IMPORTING
      bin_filesize           = v_bin_filesize
    TABLES
      otf                    = st_job_output_info-otfdata
      doctab_archive         = it_docs
      lines                  = it_lines
    EXCEPTIONS
      err_conv_not_possible  = 1
      err_otf_mc_noendmarker = 2
      OTHERS                 = 3.

*........................GET THE FILE NAME TO STORE....................*

  CONCATENATE 'smrt' '.pdf' INTO v_name.
  CREATE OBJECT v_guiobj.
  CALL METHOD v_guiobj->file_save_dialog
    EXPORTING
      default_extension = 'pdf'
      default_file_name = v_name
      file_filter       = v_filter
    CHANGING
      filename          = v_name
      path              = v_path
      fullpath          = v_fullpath
      user_action       = v_uact.
  IF v_uact = v_guiobj->action_cancel.
    EXIT.
  ENDIF.

*..................................DOWNLOAD AS FILE....................*

  MOVE v_fullpath TO v_filename.

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      bin_filesize            = v_bin_filesize
      filename                = v_filename
      filetype                = 'BIN'
    TABLES
      data_tab                = it_lines.

ENDFORM.

******

Useful Links

Dynamic Internal Table

http://wiki.sdn.sap.com/wiki/display/ABAP/Dynamic+Internal+table

 Convert smartform to PDF document.
http://wiki.sdn.sap.com/wiki/display/Snippets/Convert+Smartform+to+PDF+format

 Converts spool request into PDF document and emails it to recipicant.
http://wiki.sdn.sap.com/wiki/display/Snippets/Sending++attachment+using+cl_bcs+classes
 http://www.sapdev.co.uk/reporting/rep_spooltopdf.htm

Area Menu
http://scn.sap.com/thread/1522768

How to change the SAP Script Package..when i use option copy from client option, it ask for a package but after copied it shows in the $TMP package...

http://scn.sap.com/thread/1302251

 Goto the Tcode SE03 and select the option "change object directory entry" and execute. You will get a list of standard ABAP objects. Now select an empty row and give "R3TR" and "FORM" and give your SAP script name in the text box and execute. Here you can change the Package or Development class.

Best for SAP Script
http://www.saptraininghub.com/sap-script/

in SE12 dictionary for TSTC, double click on field type of tcode to switch to the data element. In data element, double-click on domain name. In the domain definition, there is a check-box 'lower case'. If this is checked, lower case values are allowed in input fields. You may check that in SE93 you can enter a transaction name in lower case letters and it is converted to upper case as soon as you press enter.

If you don't have the lower case checked for a domain, you can almost be sure that you won't find lower case in the table. But tables still may have been filled programmatically with lower case entries. This is usually not the case with SAP programs but customers Z programs do it from time to time.

Q. Find purchase order of a material batch added in a delivery for a report re

I create purchase orders in ME21N and do the inbound delivery in VL31N referring the purchase order. Sales order entry is done in VA01 and once goods is in-house allocation is done in J3AB. Outbound delivery is created in VL01N. For a report requirement I need to find the purchase order of the outbound delivery material batches. We donu2019t maintain the purchase order number any ware in the material batch. Please advice me on how to find the purchase order of a material batch added in a delivery.

Ans: use Mb51, enter material number and batch number and movement type 101, then execute. You get the receipt, go into the detail and you will see the PO number. Technically spoken, material movements are stored in MKPF and MSEG table. You can configure the settings in standard SAP by T-code OMBG. Over here you can define your own version which will have only those columns that you want to see in MMBE report.

How to transport ABAP report selection variants

The steps described below are used to transport a report variant. They can be initiated from transaction SE38 (\Tools\ABAP/4 workbench\Development\ABAP/4editor) or transaction SA38 (\System\Services\Reporting).

1. Enter the name of the program the variant is to be transported for.

2. Select menu path \Goto\Variants.

3. Select menu path \Variants\Transport request.

4. Click on the Excecute button (or PF8).

5. You will be prompted with a list and a request to select the variant to be transported. Select the variant(s) to be transported and click on the
'Continue' button.

6. You will be presented with the 'Change Request Query' screen. If a Change Request has already been created for the variant transport skip to Step 8.

7. If a Change Request must be created, select menu path \Request/task\Create. You will be prompted to select a "category" ---> click on the 'Customizing' button. You will be prompted for a description. Enter a description and click on the yellow folder or press 'Enter'.

8. Click on the folder icon to the left of the Change Request to display the related "Tasks". Double click on the "Task" to be used for the variant transport. You will receive the message "The desired entries have been included in D20K90xxxx". Press 'Enter' once you have read the message.

9. When you are ready to release the variant, go to transaction SE10 and release the Change Request following the same steps as for any other Change Request.