2012년 6월 22일 금요일
2012년 6월 21일 목요일
2012년 6월 18일 월요일
Unicode: CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
[Non-unicode]
PNNNN = INFTY_TAB.
[Uni-code]
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = INFTY_TAB
IMPORTING
PNNNN = PNNNN.
[Sample]
FORM GET_PSYST_WORK USING GPW_BEGDA LIKE CPREL-BEGDA
GPW_ENDDA LIKE CPREL-ENDDA.
LOCAL: P0001.
DATA ls_t77s0 TYPE t77s0.
DATA ld_flag TYPE boole_d.
CHECK GPW_BEGDA CN '0 ' AND GPW_ENDDA CN '0 '.
IF PSPAR-INFTY EQ '0001'. "QNUK87361
* v========================== XRGUNI =================================v
* MOVE cprel TO p0001. "QNUK87361
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = CPREL
IMPORTING
PNNNN = P0001.
* ^========================== XRGUNI =================================^
MOVE-CORRESPONDING P0001 TO PSYST. "QNUK87361
PSYST-APEXT = YES. "QNUK87361
ENDIF.
PNNNN = INFTY_TAB.
[Uni-code]
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = INFTY_TAB
IMPORTING
PNNNN = PNNNN.
[Sample]
FORM GET_PSYST_WORK USING GPW_BEGDA LIKE CPREL-BEGDA
GPW_ENDDA LIKE CPREL-ENDDA.
LOCAL: P0001.
DATA ls_t77s0 TYPE t77s0.
DATA ld_flag TYPE boole_d.
CHECK GPW_BEGDA CN '0 ' AND GPW_ENDDA CN '0 '.
IF PSPAR-INFTY EQ '0001'. "QNUK87361
* v========================== XRGUNI =================================v
* MOVE cprel TO p0001. "QNUK87361
CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
EXPORTING
PRELP = CPREL
IMPORTING
PNNNN = P0001.
* ^========================== XRGUNI =================================^
MOVE-CORRESPONDING P0001 TO PSYST. "QNUK87361
PSYST-APEXT = YES. "QNUK87361
ENDIF.
2012년 6월 4일 월요일
SBCOMS: CL_BCS - Business Communication Service
BCS_EXAMPLE_7: BCS: 자체 생성 Excel 첨부파일이 있는 전자메일 발신(예제)
BCS_EXAMPLE_8: BCS: 전자메일로 PDF 형식의 스풀 요청 발신(예제)
BCS_EXAMPLE_8: BCS: 전자메일로 PDF 형식의 스풀 요청 발신(예제)
Unicode: Notes and SDN
[Notes]
Note 1319517 - Unicode Collection Note
Note 573044 - Unicode conversion for HR application
Note 765475 - Unicode Conversion: Troubleshooting
[SDN]
Unicode Migration-Common ABAP Errors & Solution
Note 1319517 - Unicode Collection Note
Note 573044 - Unicode conversion for HR application
Note 765475 - Unicode Conversion: Troubleshooting
[SDN]
Unicode Migration-Common ABAP Errors & Solution
2011년 10월 15일 토요일
METHOD DOWNLOAD_LAYOUT.
METHOD SET_HEADER.
REFRESH MT_TITLE. CLEAR MS_TITLE.
MS_TITLE-NAME01 = '사번(08)'.
MS_TITLE-NAME02 = '직급(04)'.
MS_TITLE-NAME03 = '인사영역(04)'.
MS_TITLE-NAME04 = '인사하위영역(04)'.
MS_TITLE-NAME05 = '본부조직코드(08)'.
MS_TITLE-NAME06 = '처조직코드(08)'.
MS_TITLE-NAME07 = '사업소조직코드(08)'.
APPEND MS_TITLE TO MT_TITLE.
ENDMETHOD. "set_header
============================================================
METHOD DOWNLOAD_LAYOUT.
INCLUDE OLE2INCL. "Object Linking & Embedding
DATA: APPLICATION TYPE OLE2_OBJECT,
WORKBOOK TYPE OLE2_OBJECT,
SHEET TYPE OLE2_OBJECT,
CELLS TYPE OLE2_OBJECT.
DATA: L_INDEX(2) TYPE N.
DATA: L_FIELD(20) TYPE C.
FIELD-SYMBOLS: TYPE ANY.
CLEAR MS_TITLE.
CREATE OBJECT APPLICATION 'excel.application'.
SET PROPERTY OF APPLICATION 'visible' = 1.
CALL METHOD OF APPLICATION 'Workbooks' = WORKBOOK.
CALL METHOD OF WORKBOOK 'Add'.
* Create first Excel Sheet
CALL METHOD OF APPLICATION 'Worksheets' = SHEET
EXPORTING
#1 = 1.
CALL METHOD OF SHEET 'Activate'.
SET PROPERTY OF SHEET 'NAME' = 'SHEET1'.
READ TABLE MT_TITLE INDEX 1 INTO MS_TITLE.
CLEAR L_INDEX.
DATA: lr_tab_info TYPE REF TO cl_abap_tabledescr, "/alv
lr_tab_down TYPE REF TO cl_abap_tabledescr, "/download
lr_stru TYPE REF TO cl_abap_structdescr,
lr_stru_d TYPE REF TO cl_abap_structdescr,
lt_comp TYPE abap_component_tab,
lw_comp LIKE LINE OF lt_comp,
lt_comp_d TYPE abap_component_tab, "/download format
lw_comp_d LIKE LINE OF lt_comp_d,
l_col_count TYPE i.
*B* Get structure of data table
lr_tab_info ?= cl_abap_typedescr=>describe_by_data( MT_TITLE ).
lr_stru ?= lr_tab_info->get_table_line_type( ).
lt_comp = lr_stru->get_components( ).
l_col_count = LINES( lt_comp ).
DO l_col_count TIMES.
ADD 1 TO L_INDEX.
CALL METHOD OF SHEET 'Cells' = CELLS
EXPORTING
#1 = L_INDEX.
CONCATENATE 'MS_TITLE-NAME' L_INDEX INTO L_FIELD.
ASSIGN (L_FIELD) TO.
SET PROPERTY OF CELLS 'Value' =.
ENDDO.
* Save excel speadsheet to particular filename
CALL METHOD OF SHEET 'SaveAs'
EXPORTING
#1 = 'C:\\승진심사위원선정.xls'
#2 = 1."filename
"fileFormat
* Closes excel window, data is lost if not saved
ENDMETHOD. "download_layout
REFRESH MT_TITLE. CLEAR MS_TITLE.
MS_TITLE-NAME01 = '사번(08)'.
MS_TITLE-NAME02 = '직급(04)'.
MS_TITLE-NAME03 = '인사영역(04)'.
MS_TITLE-NAME04 = '인사하위영역(04)'.
MS_TITLE-NAME05 = '본부조직코드(08)'.
MS_TITLE-NAME06 = '처조직코드(08)'.
MS_TITLE-NAME07 = '사업소조직코드(08)'.
APPEND MS_TITLE TO MT_TITLE.
ENDMETHOD. "set_header
============================================================
METHOD DOWNLOAD_LAYOUT.
INCLUDE OLE2INCL. "Object Linking & Embedding
DATA: APPLICATION TYPE OLE2_OBJECT,
WORKBOOK TYPE OLE2_OBJECT,
SHEET TYPE OLE2_OBJECT,
CELLS TYPE OLE2_OBJECT.
DATA: L_INDEX(2) TYPE N.
DATA: L_FIELD(20) TYPE C.
FIELD-SYMBOLS:
CLEAR MS_TITLE.
CREATE OBJECT APPLICATION 'excel.application'.
SET PROPERTY OF APPLICATION 'visible' = 1.
CALL METHOD OF APPLICATION 'Workbooks' = WORKBOOK.
CALL METHOD OF WORKBOOK 'Add'.
* Create first Excel Sheet
CALL METHOD OF APPLICATION 'Worksheets' = SHEET
EXPORTING
#1 = 1.
CALL METHOD OF SHEET 'Activate'.
SET PROPERTY OF SHEET 'NAME' = 'SHEET1'.
READ TABLE MT_TITLE INDEX 1 INTO MS_TITLE.
CLEAR L_INDEX.
DATA: lr_tab_info TYPE REF TO cl_abap_tabledescr, "/alv
lr_tab_down TYPE REF TO cl_abap_tabledescr, "/download
lr_stru TYPE REF TO cl_abap_structdescr,
lr_stru_d TYPE REF TO cl_abap_structdescr,
lt_comp TYPE abap_component_tab,
lw_comp LIKE LINE OF lt_comp,
lt_comp_d TYPE abap_component_tab, "/download format
lw_comp_d LIKE LINE OF lt_comp_d,
l_col_count TYPE i.
*B* Get structure of data table
lr_tab_info ?= cl_abap_typedescr=>describe_by_data( MT_TITLE ).
lr_stru ?= lr_tab_info->get_table_line_type( ).
lt_comp = lr_stru->get_components( ).
l_col_count = LINES( lt_comp ).
DO l_col_count TIMES.
ADD 1 TO L_INDEX.
CALL METHOD OF SHEET 'Cells' = CELLS
EXPORTING
#1 = L_INDEX.
CONCATENATE 'MS_TITLE-NAME' L_INDEX INTO L_FIELD.
ASSIGN (L_FIELD) TO
SET PROPERTY OF CELLS 'Value' =
ENDDO.
* Save excel speadsheet to particular filename
CALL METHOD OF SHEET 'SaveAs'
EXPORTING
#1 = 'C:\\승진심사위원선정.xls'
#2 = 1."filename
"fileFormat
* Closes excel window, data is lost if not saved
ENDMETHOD. "download_layout
2011년 9월 14일 수요일
SAP HR OM useful Function Modules - Organizational Management
SAP Functions Module to find the manager of org unit position personnel no or user.
RH_GET_PERSONS_FROM_POSITION
RH_GET_LEADING_POSITION
HRCM_ORGUNIT_MANAGER_GET
find all the employee under an org. unit
RHPH_STRUCTURE_READ
RH_STRUC_GET
Read OM infotype
RH_READ_INFTY
RH_READ_OBJECT
Maintain OM Infotype:
RH_PM_ENQUEUE
RH_PM_DEQUEUE
RH_PNNNN_MAINTAIN/RH_UPDATE_INFTY
Maintain/Delimit Relationship for OM infotypes
RH_CUT_INFTY
Delimit OM Objects:
RH_CUT_OBJECT
Update database for OM objects operation in background
RH_UPDATE_DATABASE
Determine whether a position is vacant:
RH_GET_VACANCY
======================
http://www.saptechies.com/sap-hr-om-useful-function-modules-organizational-managemen/
RH_GET_PERSONS_FROM_POSITION
RH_GET_LEADING_POSITION
HRCM_ORGUNIT_MANAGER_GET
find all the employee under an org. unit
RHPH_STRUCTURE_READ
RH_STRUC_GET
Read OM infotype
RH_READ_INFTY
RH_READ_OBJECT
Maintain OM Infotype:
RH_PM_ENQUEUE
RH_PM_DEQUEUE
RH_PNNNN_MAINTAIN/RH_UPDATE_INFTY
Maintain/Delimit Relationship for OM infotypes
RH_CUT_INFTY
Delimit OM Objects:
RH_CUT_OBJECT
Update database for OM objects operation in background
RH_UPDATE_DATABASE
Determine whether a position is vacant:
RH_GET_VACANCY
======================
http://www.saptechies.com/sap-hr-om-useful-function-modules-organizational-managemen/
피드 구독하기:
글 (Atom)