SAP Knowledge Base - Recently Updated Pages

System related Function

blueoxygen — Tue, 02 Dec 2008 20:54:37 CST

This place is most things about SAP.
It's DAVID's knowledge base to summarize his knowledge of SAP during work.
If you also wanna build it to share your knowledge togerther with me here, please just mail blueoxygen at gmail.com.

Other

G_GET_USER_PARAMETER

Get user's parameter

RFC

RFC_PING

check RFC destination

OWN_LOGICAL_SYSTEM_GET

Specify Name of Current Logged-on System (client in R/3 System)

RFC_READ_TABLE

External access to R/3 tables via RFC

Database

ENQUEUE_E_TABLE

Lock the specified table

DEQUEUE_E_TABLE

Unlock the spefified table

DEQUEUE_ALL

Release Locks of an LUW

DP_GET_FIELDS_FROM_TABLE

Get DDIC table's information

GET_COMPONENT_LIST

Get user defined type's information

GET_FIELDTAB

Read fields of a table in the format DFIES

DDIF_FIELDINFO_GET

Interface to read text on tables or types

Variant

VARI_USER_VARS_GET

Reads existing variable values

VARI_USER_VARS_SET

Changes existing variable values

VARI_USER_VARS_COPY

Copies variable values

VARI_USER_VARS_DELETE

Deletes variable values

VARI_USER_VARS_RENAME

Renames variable values

VARI_USER_VARS_DIALOG

Dialog for entering variable values

RS_VARIANT_VALUES_TECH_DATA

Get variant data

RS_CHANGE_CREATED_VARIANT

Change variant data

Spool

RSPO_RETURN_ABAP_SPOOLJOB

Return the Spool' content by spefified spool no(sy-sy-spono)

RSPO_RETURN_SPOOLJOB

Return the spool content

RSPO_R_RDELETE_SPOOLREQ

Delete the spool content by spool id

GET_PRINT_PARAMETERS

Read, determine, change spool print parameters and archive parameters

Currency

CURRENCY_AMOUNT_DISPLAY_TO_SAP
CURRENCY_AMOUNT_SAP_TO_DISPLAY
FWOS_CURRENCY_DECIMALS_READ
CONVERT_TO_FOREIGN_CURRENCY
CONVERT_TO_LOCAL_CURRENCY

Sample codes link

ALV

blueoxygen — Tue, 11 Nov 2008 02:19:43 CST

ALV is Application List viewer. Sap provides a set of ALV (ABAP LIST VIEWER) function modules which can be put into use to embellish the output of a report. This set of ALV functions is used to enhance the readability and functionality of any report output. Cases arise in sap when the output of a report contains columns extending more than 255 characters in length. In such cases, this set of ALV functions can help choose selected columns and arrange the different columns from a report output and also save different variants for report display. This is a very efficient tool for dynamically sorting and arranging the columns from a report output. The report output can contain up to 90 columns in the display with the wide array of display options.

ALV Sample(See the attachment below)
Display Hierarical ALV list
Display multi-ALV list
Display ALV Header
How to update internal table of editable ALV grid
ALV subtotal and change subtoal text
ALV user command
ALV负号前显的问题
ALV Grid control referrence
REUSE_ALV_GRID_DISPLAY_LVC ALV Grid with more control function

Function Module

blueoxygen — Sun, 19 Oct 2008 21:56:06 CDT

Others

Amazing Function list(by category)

FI/CO Function moduel

blueoxygen — Sun, 19 Oct 2008 21:54:41 CDT

G_PERIOD_ALLOWED_CHECK
Check open posting periods
DATE_TO_PERIOD_CONVERT
Be used to get the current period by passing the current date
PERIOD_DAY_DETERMINE
The above mentioned function module will determine the first of the the Fiscal Year. If you want to know the first day of the Fiscal year for a Company, then you can use this function module

Enhancement

blueoxygen — Wed, 08 Oct 2008 04:01:47 CDT

GUI related Functions

blueoxygen — Mon, 06 Oct 2008 22:23:55 CDT

正确地使用SAP的标准对话框函数
F4IF_INT_TABLE_VALUE_REQUEST(Search Help)
POPUP_TO_SELECT_MONTH(Popup window)
DYNP_VALUES_READ

Read Screen field's value without triggering PAI

SAP FI Module

blueoxygen — Mon, 29 Sep 2008 02:34:22 CDT

Finace glossary - Chinese version(1) (2)

Operation

Configuration

Define Retained Earnings Account(定义留存收益科目)

Technical

Smart Form&SAPScript

blueoxygen — Tue, 16 Sep 2008 08:05:20 CDT

smartform on sap-img.com
smartform on SDN wiki
output type and smartforms table

TNAPR Processing programs for output

SAPScript

Class

blueoxygen — Tue, 12 Aug 2008 22:22:30 CDT

CL_GUI_FRONTEND_SERVICES

file_save_dialog

CL_ABAP_CHAR_UTILITIES

Character utility(TAB SPACE varaible etc)
EXCEL

Manipulate excel(create) eg1

Controls

How to use controls

cl_gui_frontend_services=>file_save_dialog

blueoxygen — Tue, 12 Aug 2008 22:21:23 CDT

*&---------------------------------------------------------------------*
*& Report ZDAVID_FILE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zdavid_file.
DATA: gc_time TYPE tims.
PARAMETERS: p_spath TYPE filepath-pathintern,
p_lpath TYPE rlgrap-filename.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lpath.
* PCファイル名取得
PERFORM frm_pc_filename_get
USING '0' " モード（開く）
CHANGING p_lpath. " ファイル名
START-OF-SELECTION.
gc_time = '205735'.
WRITE gc_time.
*&---------------------------------------------------------------------*
*& Form FRM_PC_FILENAME_GET
*&---------------------------------------------------------------------*
* 入力ファイルの検索ヘルプ
*&---------------------------------------------------------------------*
* -->UP_MODE モード選択:
* 開くの場合は”O”
* 保存の場合は”S”
* <--CP_FILENAME ファイル名称
*----------------------------------------------------------------------*
FORM frm_pc_filename_get USING value(up_mode) TYPE c
CHANGING value(cp_filename) TYPE rlgrap-filename.
*【ローカルデータ宣言】
DATA:
lc_file TYPE string, "ファイル名称
lc_path TYPE string, "ファイル経路
lc_fullpath TYPE string, "出力ファイル名称
l_tab_file TYPE filetable, "ファイルを維持するテーブル
lstr_file TYPE file_table, "ファイル名称を格納するレコード
lc_amount TYPE i. "ファイル名称の個数
IF up_mode = 'S'.
* モード選択は保存の場合、ファイルの検索ヘルプをポップアップ
CALL METHOD cl_gui_frontend_services=>file_save_dialog
CHANGING
filename = lc_file "ファイル名称
path = lc_path "ファイル経路
fullpath = lc_fullpath "全ファイル名称
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
not_supported_by_gui = 3
OTHERS = 4.
IF sy-subrc = 0.
cp_filename = lc_fullpath.
ENDIF.
ELSE.
* モード選択は開くの場合、ファイルの検索ヘルプをポップアップ
CALL METHOD cl_gui_frontend_services=>file_open_dialog
CHANGING
file_table = l_tab_file "ファイルテーブル
rc = lc_amount "ファイル名称の個数
EXCEPTIONS
file_open_dialog_failed = 1
cntl_error = 2
error_no_gui = 3
not_supported_by_gui = 4
OTHERS = 5.
IF sy-subrc = 0.
READ TABLE l_tab_file INTO lstr_file INDEX 1.
cp_filename = lstr_file.
ENDIF.
ENDIF.
ENDFORM. " FRM_PC_FILENAME_GET

String

blueoxygen — Thu, 03 Apr 2008 02:53:21 CDT

NLS_STRING_CONVERT_FROM_SYS
Convert system characters to string
NLS_STRING_CONVERT_TO_SYS
Convert string to system characters
TEXT_SPLIT

Splits text into specified length plus rest

ABAP Basic

blueoxygen — Wed, 02 Apr 2008 22:06:53 CDT

SAP Development

blueoxygen — Wed, 09 Jan 2008 07:34:34 CST

Dynpro

blueoxygen — Wed, 09 Jan 2008 07:33:58 CST

populate values into listbox CALL FUNCTION 'VRM_SET_VALUES'

Excel

blueoxygen — Fri, 16 Nov 2007 00:58:13 CST

MS_EXCEL_OLE_STANDARD_DAT

Downloads internal table and opens it in MS Excel. eg1 eg2

ALSM_EXCEL_TO_INTERNAL_TABLE

Upload excel file to internal table.(One cell value one internal table record) eg1

KCD_EXCEL_OLE_TO_INT_CONVERT

The same as ALSM_EXCEL_TO_INTERNAL_TABLE eg1

TEXT_CONVERT_XLS_TO_SAP

Upload excel file to ABAP internal table(one row in excel one record in internal table) eg1

XXL_FULL_API

Download internal table to excel with format(header colomn color) eg1

File Manipulation function

blueoxygen — Fri, 16 Nov 2007 00:46:31 CST

FILE_GET_NAME_USING_PATH

Get physical file path by specified logical file path

SO_SPLIT_FILE_AND_PATH

Split the dictionary and file name

PFL_CHECK_DIRECTORY

Check whether the server dic exits

SUBST_GET_FILE_LIST

Get file list of application server

F4_FILENAME

Popup the window to get file from PC

KD_GET_FILENAME_ON_F4

Popup window to get file from PC(with file mask)

Manipulate excel(create)

blueoxygen — Fri, 16 Nov 2007 00:26:37 CST

REPORT ZEXCEL_TEST
NO STANDARD PAGE HEADING
LINE-SIZE 170
LINE-COUNT 58(1)
MESSAGE-ID zz .
INCLUDE ole2incl.
TYPES: BEGIN OF typ_download_data,
bzirk TYPE knvv-bzirk,
bztxt TYPE t171t-bztxt,
regiogroup TYPE adrc-regiogroup,
poe TYPE vlcadddata-qausp,
cuobj TYPE vbap-cuobj,
pro_grp TYPE vlcadddata-qausp,
pdtsp TYPE vlcvehicle-pdtsp,
req_date TYPE vlcadddata-qausp,
mmsta TYPE vlcvehicle-mmsta,
etd TYPE vlcadddata-qausp,
inv_last_m TYPE vbap-kwmeng,
inv_fr_ten TYPE vbap-kwmeng,
inv_sc_ten TYPE vbap-kwmeng,
inv_ti_ten TYPE vbap-kwmeng,
END OF typ_download_data.
DATA : it_download_data TYPE STANDARD TABLE OF typ_download_data.
DATA : wa_download_data TYPE typ_download_data.
DATA : gc_excel TYPE ole2_object,
gc_workbook TYPE ole2_object,
gc_book TYPE ole2_object,
gc_worksheet TYPE ole2_object,
gc_sheet TYPE ole2_object,
gc_cells TYPE ole2_object,
gc_font TYPE ole2_object,
gc_line TYPE ole2_object,
gc_border TYPE ole2_object,
gc_activeworkbook TYPE ole2_object,
gc_colum TYPE ole2_object,
gc_autof TYPE ole2_object,
gc_cnt_clms TYPE sy-index,
gc_cnt_rows TYPE sy-index,
gc_month(3) TYPE c.
******************************
* START-OF-SELECTION
******************************
START-OF-SELECTION.
gc_month = 'NOV'.
wa_download_data-bzirk = 'A'.
wa_download_data-bztxt = 'GROUP 1'.
wa_download_data-regiogroup = 'CN'.
wa_download_data-poe = 'POE1'.
wa_download_data-cuobj = 'CUOBJ1'.
wa_download_data-pro_grp = 'M GRP1'.
wa_download_data-pdtsp = '20071112'.
wa_download_data-req_date = '11/15/2007'.
wa_download_data-mmsta = 'V'.
wa_download_data-etd = 'ETD1'.
wa_download_data-inv_last_m = '111.00'.
wa_download_data-inv_fr_ten = '112.00'.
wa_download_data-inv_sc_ten = '113.00'.
wa_download_data-inv_ti_ten = '114.00'.
APPEND wa_download_data TO it_download_data.
wa_download_data-bzirk = 'A'.
wa_download_data-bztxt = 'GROUP 1'.
wa_download_data-regiogroup = 'CN'.
wa_download_data-poe = 'POE2'.
wa_download_data-cuobj = 'CUOBJ2'.
wa_download_data-pro_grp = 'M GRP2'.
wa_download_data-pdtsp = '20071112'.
wa_download_data-req_date = '11/15/2007'.
wa_download_data-mmsta = 'V'.
wa_download_data-etd = 'ETD2'.
wa_download_data-inv_last_m = '1.00'.
wa_download_data-inv_fr_ten = '2.00'.
wa_download_data-inv_sc_ten = '3.00'.
wa_download_data-inv_ti_ten = '4.00'.
APPEND wa_download_data TO it_download_data.
wa_download_data-bzirk = 'B'.
wa_download_data-bztxt = 'GROUP 2'.
wa_download_data-regiogroup = 'CN'.
wa_download_data-poe = 'POE3'.
wa_download_data-cuobj = 'CUOBJ3'.
wa_download_data-pro_grp = 'M GRP3'.
wa_download_data-pdtsp = '20071112'.
wa_download_data-req_date = '11/15/2007'.
wa_download_data-mmsta = 'V'.
wa_download_data-etd = 'ETD3'.
wa_download_data-inv_last_m = '11.00'.
wa_download_data-inv_fr_ten = '21.00'.
wa_download_data-inv_sc_ten = '31.00'.
wa_download_data-inv_ti_ten = '41.00'.
APPEND wa_download_data TO it_download_data.
wa_download_data-bzirk = 'B'.
wa_download_data-bztxt = 'GROUP 2'.
wa_download_data-regiogroup = 'CN'.
wa_download_data-poe = 'POE4'.
wa_download_data-cuobj = 'CUOBJ4'.
wa_download_data-pro_grp = 'M GRP4'.
wa_download_data-pdtsp = '20071112'.
wa_download_data-req_date = '11/15/2007'.
wa_download_data-mmsta = 'V'.
wa_download_data-etd = 'ETD4'.
wa_download_data-inv_last_m = '11.00'.
wa_download_data-inv_fr_ten = '12.00'.
wa_download_data-inv_sc_ten = '13.00'.
wa_download_data-inv_ti_ten = '14.00'.
APPEND wa_download_data TO it_download_data.
* Download file
PERFORM frm_download_rtn.
******************************
* END-OF-SELECTION
******************************
END-OF-SELECTION.
FREE OBJECT gc_excel NO FLUSH.
FREE OBJECT gc_workbook NO FLUSH.
FREE OBJECT gc_book NO FLUSH.
FREE OBJECT gc_worksheet NO FLUSH.
FREE OBJECT gc_sheet NO FLUSH.
FREE OBJECT gc_cells NO FLUSH.
FREE OBJECT gc_font NO FLUSH.
FREE OBJECT gc_line NO FLUSH.
FREE OBJECT gc_border NO FLUSH.
FREE OBJECT gc_activeworkbook NO FLUSH.
CALL FUNCTION 'FLUSH'
EXCEPTIONS
cntl_system_error = 1
cntl_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE s010 DISPLAY LIKE 'E'
WITH '汎用モジュールエラー:FLUSH SY-SUBRC ='
sy-subrc.
STOP.
ENDIF.
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_RTN
*&---------------------------------------------------------------------*
FORM frm_download_rtn.
DATA: lc_file_name_conv TYPE string, "file name
lc_act TYPE i.
* GUI_FILE_SAVE_DIALOG
CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
EXPORTING
window_title = 'TEST'
default_extension = 'xls'
IMPORTING
fullpath = lc_file_name_conv
user_action = lc_act.
IF lc_act = 0
OR lc_act = 1
OR lc_act = 2.
CREATE OBJECT gc_excel 'EXCEL.APPLICATION' NO FLUSH.
CALL METHOD OF gc_excel 'WORKBOOKS' = gc_workbook NO FLUSH.
CALL METHOD OF gc_workbook 'ADD' = gc_book NO FLUSH.
CALL METHOD OF gc_excel 'SHEETS' = gc_worksheet NO FLUSH.
CALL METHOD OF gc_worksheet 'ADD' = gc_sheet NO FLUSH.
"シート名称設定
SET PROPERTY OF gc_sheet 'NAME' = 'Vehicle Data' no flush.
PERFORM head_edit.
PERFORM data_edit.
CALL METHOD OF gc_excel 'ActiveWorkbook' = gc_activeworkbook.
CALL METHOD OF gc_activeworkbook 'SAVEAS'
EXPORTING #1 = lc_file_name_conv
#2 = -4143.
CALL METHOD OF gc_excel 'QUIT'.
ENDIF.
ENDFORM. " NEW_DOWNLOAD_RTN
*&---------------------------------------------------------------------*
*& Form HEAD_EDIT
*&---------------------------------------------------------------------*
FORM head_edit.
DATA: lc_str TYPE string.
lc_str = text-001.
CONCATENATE lc_str
gc_month
INTO lc_str
SEPARATED BY space.
gc_cnt_rows = 2.
gc_cnt_clms = 2.
CALL METHOD OF gc_excel 'CELLS' = gc_cells NO FLUSH
EXPORTING #1 = gc_cnt_rows "Row
#2 = gc_cnt_clms. "Column
SET PROPERTY OF gc_cells 'VALUE' = lc_str no flush. "Set Value
CALL METHOD OF gc_cells 'FONT' = gc_font NO FLUSH. "Font Object
SET PROPERTY OF gc_font 'Size' = 9 no flush. "Size
SET PROPERTY OF gc_font 'Bold' = 1 no flush. "Bold
CALL METHOD OF gc_excel 'RANGE' = gc_line
EXPORTING #1 = 'B2'
#2 = 'K2'.
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 9.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 3 no flush.
lc_str = text-002.
CONCATENATE lc_str
' KD'
INTO lc_str.
gc_cnt_rows = gc_cnt_rows + 1.
gc_cnt_clms = 2.
CALL METHOD OF gc_excel 'CELLS' = gc_cells NO FLUSH
EXPORTING #1 = gc_cnt_rows "Row
#2 = gc_cnt_clms. "Column
SET PROPERTY OF gc_cells 'VALUE' = lc_str no flush. "Set Value
CALL METHOD OF gc_cells 'FONT' = gc_font NO FLUSH. "Font Object
SET PROPERTY OF gc_font 'Size' = 9 no flush. "Size
SET PROPERTY OF gc_font 'Bold' = 1 no flush. "Bold
gc_cnt_rows = gc_cnt_rows + 1.
ENDFORM. " HEAD_EDIT
*&---------------------------------------------------------------------*
*& Form DATA_EDIT
*&---------------------------------------------------------------------*
FORM data_edit.
DATA: lc_str TYPE string,
lc_flg_new TYPE c,
lc_flg_end TYPE c,
lc_r_start(10) TYPE c,
lc_r_end(10) TYPE c,
lc_nxt_rows TYPE sy-tabix,
lc_str_rows(9) TYPE c,
lc_sum_last TYPE vbap-kwmeng,
lc_sum_fr TYPE vbap-kwmeng,
lc_sum_sc TYPE vbap-kwmeng,
lc_sum_ti TYPE vbap-kwmeng,
lc_tot TYPE vbap-kwmeng,
lc_sum_tot TYPE vbap-kwmeng.
LOOP AT it_download_data INTO wa_download_data.
AT NEW bzirk.
lc_flg_new = 'X'.
ENDAT.
IF lc_flg_new = 'X'.
gc_cnt_rows = gc_cnt_rows + 1.
gc_cnt_clms = 2.
CALL METHOD OF gc_excel 'CELLS' = gc_cells NO FLUSH
EXPORTING #1 = gc_cnt_rows "Row
#2 = gc_cnt_clms. "Column
lc_str = wa_download_data-bztxt.
SET PROPERTY OF gc_cells 'VALUE' = lc_str no flush. "Set Value
CALL METHOD OF gc_cells 'FONT' = gc_font NO FLUSH. "Font Object
SET PROPERTY OF gc_font 'Size' = 9 no flush. "Size
SET PROPERTY OF gc_font 'Bold' = 1 no flush. "Bold
gc_cnt_rows = gc_cnt_rows + 1.
PERFORM frm_edit_header_column USING '1'
'B'
text-003.
PERFORM frm_edit_header_column USING '1'
'C'
text-004.
PERFORM frm_edit_header_column USING '1'
'D'
text-005.
PERFORM frm_edit_header_column USING '1'
'E'
text-006.
PERFORM frm_edit_header_column USING '1'
'F'
text-007.
PERFORM frm_edit_header_column USING '1'
'G'
text-008.
PERFORM frm_edit_header_column USING '2'
'H'
text-009.
gc_cnt_rows = gc_cnt_rows + 1.
CONCATENATE gc_month
text-010
INTO lc_str
SEPARATED BY space.
PERFORM frm_edit_header_column USING '3'
'H'
lc_str.
CONCATENATE gc_month
text-011
INTO lc_str
SEPARATED BY space.
PERFORM frm_edit_header_column USING '3'
'I'
lc_str.
CONCATENATE gc_month
text-012
INTO lc_str
SEPARATED BY space.
PERFORM frm_edit_header_column USING '3'
'J'
lc_str.
CONCATENATE gc_month
text-013
INTO lc_str
SEPARATED BY space.
PERFORM frm_edit_header_column USING '3'
'K'
lc_str.
CLEAR lc_flg_new.
ENDIF.
gc_cnt_rows = gc_cnt_rows + 1.
gc_cnt_clms = 1.
lc_str = wa_download_data-bzirk.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-regiogroup.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-poe.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-cuobj.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-pro_grp.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-inv_last_m.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-inv_fr_ten.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-inv_sc_ten.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_str = wa_download_data-inv_ti_ten.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_tot = wa_download_data-inv_last_m
+ wa_download_data-inv_fr_ten
+ wa_download_data-inv_sc_ten
+ wa_download_data-inv_ti_ten.
lc_str = lc_tot.
PERFORM frm_edit_item_column USING '1'
lc_str.
lc_sum_last = lc_sum_last + wa_download_data-inv_last_m.
lc_sum_fr = lc_sum_last + wa_download_data-inv_fr_ten.
lc_sum_sc = lc_sum_last + wa_download_data-inv_sc_ten.
lc_sum_ti = lc_sum_last + wa_download_data-inv_ti_ten.
lc_sum_tot = lc_sum_tot + lc_tot.
AT END OF bzirk.
lc_flg_end = 'X'.
ENDAT.
IF lc_flg_end = 'X'.
gc_cnt_rows = gc_cnt_rows + 1.
lc_str = text-014.
PERFORM frm_edit_item_column USING '2'
lc_str.
gc_cnt_clms = 6.
lc_str = lc_sum_last.
PERFORM frm_edit_item_column USING '3'
lc_str.
lc_str = lc_sum_fr.
PERFORM frm_edit_item_column USING '3'
lc_str.
lc_str = lc_sum_sc.
PERFORM frm_edit_item_column USING '3'
lc_str.
lc_str = lc_sum_ti.
PERFORM frm_edit_item_column USING '3'
lc_str.
lc_str = lc_sum_tot.
PERFORM frm_edit_item_column USING '4'
lc_str.
lc_str_rows = gc_cnt_rows.
CONDENSE lc_str_rows.
CONCATENATE 'B'
lc_str_rows
INTO lc_r_start.
CONDENSE lc_str_rows.
CONCATENATE 'K'
lc_str_rows
INTO lc_r_end.
CALL METHOD OF gc_excel 'RANGE' = gc_line
EXPORTING #1 = lc_r_start
#2 = lc_r_end.
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 9.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
gc_cnt_rows = gc_cnt_rows + 1.
CLEAR: lc_sum_last,
lc_sum_fr,
lc_sum_sc,
lc_sum_ti,
lc_sum_tot,
lc_flg_end.
ENDIF.
ENDLOOP.
ENDFORM. " DATA_EDIT
*&---------------------------------------------------------------------*
*& Form frm_edit_header_column
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PA_CLMS text
* -->PA_STR text
*----------------------------------------------------------------------*
FORM frm_edit_header_column USING pa_typ TYPE c
pa_col TYPE c
pa_str TYPE string.
DATA: lc_str TYPE string,
lc_r_start(10) TYPE c,
lc_r_end(10) TYPE c,
lc_nxt_rows TYPE sy-tabix,
lc_str_rows(9) TYPE c.
IF pa_typ = '1'.
lc_str_rows = gc_cnt_rows.
CONDENSE lc_str_rows.
CONCATENATE pa_col
lc_str_rows
INTO lc_r_start.
lc_nxt_rows = gc_cnt_rows + 1.
lc_str_rows = lc_nxt_rows.
CONDENSE lc_str_rows.
CONCATENATE pa_col
lc_str_rows
INTO lc_r_end.
ELSEIF pa_typ = '2'.
lc_str_rows = gc_cnt_rows.
CONDENSE lc_str_rows.
CONCATENATE pa_col
lc_str_rows
INTO lc_r_start.
CONDENSE lc_str_rows.
CONCATENATE 'K'
lc_str_rows
INTO lc_r_end.
ELSEIF pa_typ = '3'.
lc_str_rows = gc_cnt_rows.
CONDENSE lc_str_rows.
CONCATENATE pa_col
lc_str_rows
INTO lc_r_start.
CONDENSE lc_str_rows.
CONCATENATE pa_col
lc_str_rows
INTO lc_r_end.
ENDIF.
lc_str = pa_str.
CALL METHOD OF gc_excel 'RANGE' = gc_line
EXPORTING #1 = lc_r_start
#2 = lc_r_end.
CALL METHOD OF gc_line 'MERGE'.
SET PROPERTY OF gc_line 'VALUE' = lc_str no flush. "Set Value
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 7.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 8.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 10.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_line 'Columns' = gc_colum NO FLUSH.
CALL METHOD OF gc_colum 'AutoFit' = gc_autof NO FLUSH.
ENDFORM. "frm_edit_header_column
*&---------------------------------------------------------------------*
*& Form frm_edit_item_column
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PA_CLMS text
* -->PA_STR text
*----------------------------------------------------------------------*
FORM frm_edit_item_column USING pa_typ TYPE c
pa_str TYPE string.
DATA: lc_str TYPE string,
lc_r_start(10) TYPE c,
lc_r_end(10) TYPE c,
lc_nxt_rows TYPE sy-tabix,
lc_str_rows(9) TYPE c.
lc_str = pa_str.
IF pa_typ = '1' OR pa_typ = '3' OR pa_typ = '4'.
gc_cnt_clms = gc_cnt_clms + 1.
ELSEIF pa_typ = '2'.
gc_cnt_clms = 2.
ENDIF.
CALL METHOD OF gc_excel 'CELLS' = gc_cells NO FLUSH
EXPORTING #1 = gc_cnt_rows "Row
#2 = gc_cnt_clms. "Column
SET PROPERTY OF gc_cells 'VALUE' = lc_str no flush. "Set Value
IF pa_typ = '1'.
CALL METHOD OF gc_cells 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 7.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_cells 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 8.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_cells 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 10.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
ELSEIF pa_typ = '2'.
lc_str_rows = gc_cnt_rows.
CONDENSE lc_str_rows.
CONCATENATE 'B'
lc_str_rows
INTO lc_r_start.
CONDENSE lc_str_rows.
CONCATENATE 'G'
lc_str_rows
INTO lc_r_end.
CALL METHOD OF gc_excel 'RANGE' = gc_line
EXPORTING #1 = lc_r_start
#2 = lc_r_end.
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 7.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_line 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 8.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
ELSEIF pa_typ = '3'.
CALL METHOD OF gc_cells 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 8.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
ELSEIF pa_typ = '4'.
CALL METHOD OF gc_cells 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 8.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
CALL METHOD OF gc_cells 'Borders' = gc_border NO FLUSH
EXPORTING #1 = 10.
SET PROPERTY OF gc_border 'LineStyle' = 1 no flush.
SET PROPERTY OF gc_border 'Weight' = 2 no flush.
ENDIF.
ENDFORM. "frm_edit_item_column

Home

blueoxygen — Wed, 24 Oct 2007 02:35:19 CDT

Material Management

Industry solutions

blueoxygen — Wed, 24 Oct 2007 02:34:46 CDT

mySAP Automotive

SAPScript Sample

blueoxygen — Mon, 01 Oct 2007 05:22:00 CDT

CALL FUNCTION 'OPEN_FORM'
* EXPORTING
* APPLICATION = 'TX'
* ARCHIVE_INDEX =
* ARCHIVE_PARAMS =
* DEVICE = 'PRINTER'
* DIALOG = 'X'
* FORM = 'ZSCRIPT1'
* LANGUAGE = SY-LANGU
* OPTIONS =
* MAIL_SENDER =
* MAIL_RECIPIENT =
* MAIL_APPL_OBJECT =
* RAW_DATA_INTERFACE = '*'
* SPONUMIV =
* IMPORTING
* LANGUAGE =
* NEW_ARCHIVE_PARAMS =
* RESULT =
EXCEPTIONS
CANCELED = 1
DEVICE = 2
FORM = 3
OPTIONS = 4
UNCLOSED = 5
MAIL_OPTIONS = 6
ARCHIVE_ERROR = 7
INVALID_FAX_NUMBER = 8
MORE_PARAMS_NEEDED_IN_BATCH = 9
SPOOL_ERROR = 10
CODEPAGE = 11
OTHERS = 12
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'START_FORM'
EXPORTING
* ARCHIVE_INDEX =
FORM = 'ZFORM1'
* LANGUAGE = ' '
* STARTPAGE = 'X'
PROGRAM = 'ZSCRIPT1'
* MAIL_APPL_OBJECT =
* IMPORTING
* LANGUAGE =
* EXCEPTIONS
* FORM = 1
* FORMAT = 2
* UNENDED = 3
* UNOPENED = 4
* UNUSED = 5
* SPOOL_ERROR = 6
* CODEPAGE = 7
* OTHERS = 8
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
* ELEMENT = ' '
* FUNCTION = 'SET'
* TYPE = 'BODY'
WINDOW = 'HEADER'
* IMPORTING
* PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
OTHERS = 9
.
IF SY-SUBRC <> 0.
write:/ 'ERROR IN HEADER'.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
* ELEMENT = ' '
* FUNCTION = 'SET'
* TYPE = 'BODY'
WINDOW = 'MAIN'
* IMPORTING
* PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
OTHERS = 9
.
IF SY-SUBRC <> 0.
write:/ 'ERROR IN HEADER'.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
* ELEMENT = ' '
* FUNCTION = 'SET'
* TYPE = 'BODY'
WINDOW = 'FOOTER'
* IMPORTING
* PENDING_LINES =
EXCEPTIONS
ELEMENT = 1
FUNCTION = 2
TYPE = 3
UNOPENED = 4
UNSTARTED = 5
WINDOW = 6
BAD_PAGEFORMAT_FOR_PRINT = 7
SPOOL_ERROR = 8
OTHERS = 9
.
IF SY-SUBRC <> 0.
write:/ 'ERROR IN HEADER'.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'END_FORM'
* IMPORTING
* RESULT =
* EXCEPTIONS
* UNOPENED = 1
* BAD_PAGEFORMAT_FOR_PRINT = 2
* SPOOL_ERROR = 3
* CODEPAGE = 4
* OTHERS = 5
.
CALL FUNCTION 'CLOSE_FORM'
* IMPORTING
* RESULT =
* RDI_RESULT =
* TABLES
* OTFDATA =
* EXCEPTIONS
* UNOPENED = 1
* BAD_PAGEFORMAT_FOR_PRINT = 2
* SEND_ERROR = 3
* SPOOL_ERROR = 4
* CODEPAGE = 5
* OTHERS = 6
.
Can you explain the difference between
1.open_form and Start form
2.end_form and Close_form.
whether all 4 modules are required in the driver pgm .
Open_form => It assign the form and printer, It should be first.
Start_form => It start Writing mode. You can use write_form in loop to write more than one lines befor End_form.
End_form => It end writing mode of current page and will require to start again through Start_form.
Close_form=> it end the Form. After this you can not start again for created file.