H_BLOG

*&---------------------------------------------------------------------* *& Form ALV_APPEND_SORT *&---------------------------------------------------------------------* FORM alv_append_sort TABLES pt_sort TYPE lvc_t_sort USING pv_fieldname TYPE any pv_up TYPE any pv_down TYPE any pv_subtot TYPE any pv_group TYPE any pv_seltext TYPE any. DATA: ls_sort TYPE lvc_s_sort. ls_sort-spos = lines( pt_so..

FORM data_changed_finished USING pe_modified TYPE char01 pt_good_cells TYPE lvc_t_modi. DATA: ls_modi TYPE lvc_s_modi. DATA: LS_SCOL TYPE LVC_S_SCOL. DATA: LS_STYL TYPE LVC_S_STYL. CLEAR: ls_modi, gs_flight_tmp. CHECK pe_modified IS NOT INITIAL. gv_changed = 'X'. LOOP AT pt_good_cells INTO ls_modi. READ TABLE gt_flight_tmp INTO gs_flight_tmp INDEX ls_modi-row_id. IF gs_flight_tmp-id EQ icon_red_..

FORM data_changed USING pr_data_changed TYPE REF TO cl_alv_changed_data_protocol pe_onf4 TYPE char01 pe_onf4_before TYPE char01 pe_onf4_after TYPE char01 pe_ucomm TYPE sy-ucomm. DATA: ls_mod_cells TYPE lvc_s_modi. DATA: ls_styl TYPE lvc_s_styl, lt_styl TYPE lvc_t_styl. DATA: lv_styl TYPE lvc_style. DATA: lv_err_chk TYPE c, lv_err_msg TYPE c LENGTH 100. FIELD-SYMBOLS: TYPE any. CLEAR: gs_flight_t..

FORM format_data . DATA: LS_SCOL TYPE LVC_S_SCOL, LT_SCOL TYPE LVC_T_SCOL. LOOP AT GT_PRJ_DATA INTO GS_PRJ_DATA. ASSIGN COMPONENT 'ZNAME2' OF STRUCTURE TO . IF SY-SUBRC EQ 0. = GS_PRJ_DATA-ZNAME2. UNASSIGN . ENDIF. ASSIGN COMPONENT 'ZEDU' OF STRUCTURE TO . IF SY-SUBRC EQ 0. = GS_PRJ_DATA-ZEDU. UNASSIGN . ENDIF. LOOP AT GT_FCAT INTO GS_FCAT. IF SY-TABIX

FORM create_dynamic_tab . DATA: lv_month_diff TYPE i. DATA: lv_month_high TYPE n LENGTH 6. DATA: lv_month_low TYPE n LENGTH 6. DATA: lv_col_pos TYPE i VALUE 1. DATA: lv_loop_cnt TYPE i. lv_month_low = s_period-low. lv_month_high = s_period-high. gs_fcat-col_pos = lv_col_pos. gs_fcat-fieldname = 'ZEDU'. gs_fcat-coltext = '사원번호'. gs_fcat-ref_table = 'ZED15_10'. gs_fcat-ref_field = 'ZEDU'. APPEND g..

FORM set_month USING ps_month LIKE s_period CHANGING pv_month_low pv_month_high. DATA: lv_month_diff TYPE i. DATA: lv_month_high TYPE vtbbewe-dbervon. DATA: lv_month_low TYPE vtbbewe-dberbis. pv_month_low = ps_month-low. IF ps_month-high IS INITIAL. CALL FUNCTION 'ZFM15_ADD_YEAR' EXPORTING i_month_low = pv_month_low IMPORTING o_result = pv_month_high. EXIT. ENDIF. lv_month_high = ps_month-high &..

DATA: IO_MESSAGE_CONTAINER TYPE REF TO /IWBEP/IF_MESSAGE_CONTAINER. IO_MESSAGE_CONTAINER = MO_CONTEXT->GET_MESSAGE_CONTAINER( ). IO_MESSAGE_CONTAINER->ADD_MESSAGE_TEXT_ONLY( IV_MSG_TYPE = 'E' IV_MSG_TEXT = '해당 유저가 존재하지 않습니다.' ). RAISE EXCEPTION TYPE /IWBEP/CX_MGW_BUSI_EXCEPTION EXPORTING MESSAGE_CONTAINER = IO_MESSAGE_CONTAINER.

출처: 곰선비님 블로그 https://blog.naver.com/PostView.naver?blogId=howwithus&logNo=222512263252&categoryNo=0&parentCategoryNo=11&viewDate=&currentPage=1&postListTopCurrentPage=&from=&userTopListOpen=true&userTopListCount=30&userTopListManageOpen=false&userTopListCurrentPage=1 [SAP ABAP] CL_RECA_DATE 안녕하세요. 곰선비입니다~! 오늘은 SAP ABAP Class 중에 날짜를 가공하는 Class에대해 소개드려... blog.naver.com

DATA: ls_modi TYPE lvc_s_modi. " Modified Cells DATA: lv_stbl TYPE lvc_s_stbl. " Row, Column 변수 ( Stable ) DATA: lv_wog TYPE c LENGTH 3 VALUE 'WOG'. " 필드 이름 WOG 저장 DATA: lv_mon_cnt TYPE n LENGTH 2 VALUE '01'. " 월 카운터 FIELD-SYMBOLS: TYPE any. " 필드심볼 * 현재 Cell이 수정되었는지 확인 CHECK pe_modified IS NOT INITIAL. * 수정된 Cells LOOP - 월 필드만 LOOP LOOP AT pt_good_cells INTO ls_modi WHERE fieldname = 'WOG01' OR ..

변수 선언 DATA: GV_ROW TYPE I, " 수정된 셀 위치 파악용 GV_VALUEC TYPE C, GV_COL TYPE I, GS_ROW TYPE LVC_S_ROW, GS_COL TYPE LVC_S_COL, GS_ROID TYPE LVC_S_ROID. 1. 현재 셀 위치를 저장 후, " 현재 셀 위치 확인 CALL METHOD go_grid->get_current_cell IMPORTING e_row = GV_ROW e_value = GV_VALUEC e_col = GV_COL es_row_id = GS_ROW es_col_id = GS_COL es_row_no = GS_ROID. 2. 불러온다. " 저장했던 셀 위치로 세팅 CALL METHOD go_grid->set_current_cell_v..