Do.

"//__ 계정과목별 합계 TYPES: BEGIN OF ty_racct, racct TYPE racct, "-- 계정 gl_txt TYPE sgtxt, "-- 계정내역 d_hsl TYPE wertv12, "-- 차변금액 c_hsl TYPE wertv12, "-- 대변금액 sgtxt TYPE sgtxt, "-- 적요 rwcur TYPE waers, "-- 통화 END OF ty_racct. "__ Get Header :: 선택한 데이터 lt_display = VALUE #( FOR ls_row IN gt_rows WHERE ( rowtype = space ) ( CORRESPONDING #( gt_display[ ls_row-index ] ) ) ). . "__ Get Items :: 선택한 데이터의 아이..

아래 예제는 팝업창에 Selection Screen 및 ALV 생성하는 예제이다. ALV는 기존대로 하면되고, Selection Screen의 내용을 기준으로 ALV를 조회해서 뿌려주면 된다.

특정 값의 데이터만 해당 테이블로 이동 *__ Delete lt_0271_d = VALUE #( FOR ls_display IN gt_delete WHERE ( getdb NE space ) ( CORRESPONDING #( ls_display ) ) ). ALV에서 선택한 데이터만 해당 테이블로 이동 lt_0460 = VALUE #( FOR ls_row IN gt_rows WHERE ( rowtype = space ) ( CORRESPONDING #( gt_display[ ls_row-index ] ) ) ). Corresponding을 하면서 특정값을 넣고 싶을 경우 lt_0580 = VALUE #( FOR ls_disp IN gt_display WHERE ( spmon NE space ) ( VAL..

"__ ALV에서 선택한 테이블 데이터 중 특정 필드의 값 존재유무 체크 "__ 선택된 라인 중 전표가 없는 값이 없는 지 카운트 DATA(lv_cnt) = REDUCE i( INIT x = 0 FOR ls_row IN gt_rows WHERE ( rowtype = space ) LET count = COND #( WHEN VALUE #( gt_display[ ls_row-index ]-augbl OPTIONAL ) EQ space THEN 1 ELSE 0 ) IN NEXT x = x + count ).

인터널 오더 변경하는 FM DATA: ls_aufk TYPE fin_iss_aufk. DATA: lt_field TYPE TABLE OF ddfldnam, lt_return TYPE TABLE OF bapiret2. ls_aufk-ktext = 'TEST1'. lt_field = VALUE #( ( name = 'KTEXT' ) ). CALL FUNCTION 'FIN_ISS_INTORDER_CHANGE' EXPORTING i_order = p_aufnr i_aufk_new = ls_aufk i_flag_testrun = '' i_change_mode = 'X' i_flag_save = 'P' "-- 오류없을때 저장 'C' TABLES fields_to_change = lt_field return = lt..

lv_wslpar = REDUCE i( INIT x = 0 FOR ls_2 IN lt_list WHERE ( a-gubun = '2' AND a-rebzg = t_hlist-belnr AND a-rebzj = t_hlist-gjahr AND a-rebzz = t_hlist-buzei ) NEXT x = x + ls_2-a-wsl ). 위 소스로 REDUCE 시 소수점이 존재하는 데이터의 경우 Integer로 변환이 되어 계산되기 때문에 소수점에 있는데이터는 짤리게 된다. 위와 같은 경우엔 아래와 같이 변경해 주어야 한다. "__ 원전표 잔액 lv_wslpar = REDUCE wertv12( INIT x = CONV wertv12( 0 ) FOR ls_2 IN lt_list WHERE ( a-gubun =..