Views 291
Visitors 181

Report (602)

 Home 
| Top Page | Threads |
Previous  Next

Objective

Transaction Code

SMARTFORMS

SE38 - ABAP Editor

Tables

MARA - General Material Data (Data Material Umum)

Support

 

Contributors

 

 

Membuat Report

1.Open SE38
2.Copy Program "YPRACTICE_601" become "YPRACTICE_602"
3.Change Programs "YPRACTICE_602"
4.Open Goto > Attributes, and change "Title" with "602 - Display List of Master Material"
5.Modification Declaration Report

Before

REPORT  ypractice_601.

 

After

REPORT  ypractice_602.

 

6.Modification "Input Screen/Selection"

Before

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK groupbox1 WITH FRAME TITLE text_101. "Declare Group Box 1

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_102 FOR FIELD so_matkl.

SELECT-OPTIONS so_matkl FOR mara-matkl.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_103 FOR FIELD so_matnr.

SELECT-OPTIONS so_matnr FOR mara-matnr.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN END OF BLOCK groupbox1.                              "End Group Box 1

 

SELECTION-SCREEN BEGIN OF BLOCK groupbox2 WITH FRAME TITLE text_201. "Declare Group Box 2

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_202 FOR FIELD p_mrow.

PARAMETERS p_mrow TYPE i DEFAULT 1000 LENGTH 5.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN END OF BLOCK groupbox2.                              "End Group Box 2

 

After

*----------------------------------------------------------------------*

*Input Screen/Selection

*----------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK groupbox1 WITH FRAME TITLE text_101. "Declare Group Box 1

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_102 FOR FIELD so_matkl.

SELECT-OPTIONS so_matkl FOR mara-matkl.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_103 FOR FIELD so_matnr.

SELECT-OPTIONS so_matnr FOR mara-matnr.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN END OF BLOCK groupbox1.                              "End Group Box 1

 

SELECTION-SCREEN BEGIN OF BLOCK groupbox2 WITH FRAME TITLE text_201. "Declare Group Box 2

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_202 FOR FIELD p_mrow.

PARAMETERS p_mrow TYPE i DEFAULT 1000 LENGTH 5.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN END OF BLOCK groupbox2.                              "End Group Box 2

 

SELECTION-SCREEN BEGIN OF BLOCK groupbox3 WITH FRAME TITLE text_301.  "Declare Group Box 3 - Print Parameter

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_311.

PARAMETERS: p_pdest LIKE pri_params-pdest DEFAULT 'LOCL'.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_312.

PARAMETERS p_ncops TYPE tdsfcopies DEFAULT '1'.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_313.

PARAMETERS p_dialog TYPE c AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN COMMENT 23(25) text_314 FOR FIELD p_dialog.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN ULINE.

 

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text_321.

 

PARAMETERS p_prv RADIOBUTTON GROUP rad1 VISIBLE LENGTH 20.

SELECTION-SCREEN COMMENT 23(8) text_322 FOR FIELD p_prv.

 

PARAMETERS p_prt RADIOBUTTON GROUP rad1 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 34(8) text_323 FOR FIELD p_prt.

SELECTION-SCREEN END OF LINE.

 

SELECTION-SCREEN END OF BLOCK groupbox3.                              "End Group Box 3

 

7.Add text in "EVENT"

  text_301 = 'Print Setup'.

  text_311 = 'Output Device'.

  text_312 = 'Number of Copies'.

  text_313 = ' '.

  text_314 = 'Show Printer Dialog'.

 

  text_321 = 'Print Option'.

  text_322 = 'Preview'.

  text_323 = 'Print'.

 

 

8.Modification sub routine "fm_display_data"

Before

...

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

 

*  Set Properties of Printer

  lw_tdbool = space.

 

  lw_control-no_dialog = ''.

  lw_control-preview = 'X'.

 

*  lw_options-tddest = nast-ldest.

  lw_options-tdimmed = 'X'.

  lw_options-tddelete = 'X'.

 

*  Call and Run SmartForms

  CALL FUNCTION lv_fmname

...

 

After

...

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

 

*  Set Properties of Printer

  lw_tdbool = space.

 

  IF p_dialog = 'X'.

    lw_control-no_dialog = ' '.

  ELSE.

    lw_control-no_dialog = 'X'.

  ENDIF.

  lw_control-preview = p_prv.

 

  lw_options-tddest = p_pdest.

  lw_options-tdimmed = 'X'.

  lw_options-tddelete = 'X'.

  lw_options-tdcopies = p_ncops.

 

*  Call and Run SmartForms

  CALL FUNCTION lv_fmname

...

 

9.Activate the program and Run Program
11.Finished

 

 

Result

▪Input Selection

abap_tutorial0104

 

▪Output

abap_tutorial0103

 

 

 

 

User Threads | New Thread ( Only for Donators )
Threads Last Post Replies Views