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.
  LOCALP0001.

  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 형식의 스풀 요청 발신(예제)

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

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

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/

2011년 7월 11일 월요일

SQL test

(1) ST04
(2) RSORADJV 에서 테이블 owner 체크부분을 comment out

2011년 7월 8일 금요일

V_T52E_ARFC

V_T52E_ARFC - 전송 FI/CO: 병렬 처리에 대한 실행 변형
================
the run variant that contains technical features for parallel processing.
================
병렬 처리에 대한 실행 변형 생성
Use

In this step you maintain the run variant that contains technical features for parallel processing.

In addition to the key and the descriptive text, you define the following parameters:

Processing Type
Type of Saving the Posting Index
Set Size
Maximum Number of Parallel Processing Tasks
RFC Server Group
The run variant key can consist of up to five alphanumeric characters. Z is available as the first character as the namespace for your own run variants (customer namespace).


Activities

1. Check whether the variants provided meet your requirements.
2. Create your own run variants if necessary.