메뉴 건너뛰기

SAP 한국 커뮤니티

<b>[완료]</b>TABLE CONTROL 관련 질문입니다.

튀밥 2008.11.22 02:19 조회 수 : 1384 추천:1



 


-----------------------------------------------------------------------------------------------------------


 


지금 M TYPE 프로그램을 공부하고 있습니다.


 


질문을 말씀 드리겠습니다.


 


테이블(ZSADBLO) 의 내용들이  테이블 컨트롤(TC_SADBLO)에 뿌려졌습니다.


 


테이블 컨트롤에는 테이블 내용들이 나타나게 됩니다.


 


나타난 내용을 변경한 후 실행을 누르게 되면 변경전 값이 다시 나타나게 됩니다.


 


제가 원하는 것은 테이블 컨트롤상에서 변경된 값이 실행을 누르게 되면 테이블에 저장이 되어


 


저장된 값이 다시 테이블 컨트롤에 나타나는 것입니다.


 


많은 분들의 답변 부탁 드립니다.


 


아래는 소스코드입니다.


 


-----------------------------------------------------------------------------------------------------------


 


PAO 부분


 


PROCESS BEFORE OUTPUT.
  MODULE STATUS_0100.


  MODULE SET_TC_LINES.


  LOOP AT IT_ZSADBLO INTO WA_ZSADBLO
                     WITH CONTROL TC_SADBLO.
    MODULE MOVE_DATA.
  ENDLOOP.


 


 


PAI 부분


 


PROCESS AFTER INPUT.
  MODULE EXIT AT EXIT-COMMAND.


  LOOP AT IT_ZSADBLO.
    FIELD WA_ZSADBLO-MARK MODULE MODIFY_DATA ON REQUEST.
  ENDLOOP.


  MODULE USER_COMMAND_0100.


 


 


INCLUDE 프로그램들


 


 


~TOP


 


PROGRAM  SAPMZINFO_1 MESSAGE-ID ZMESSAGE_SADBLO.


 


CONTROLS TC_SADBLO TYPE TABLEVIEW
                   USING SCREEN '0200'.


 


TABLES: ZSADBLO.


 


DATA: BEGIN OF WA_ZSADBLO,
        MARK(1).
        INCLUDE STRUCTURE ZSADBLO.


 



DATA: END OF WA_ZSADBLO.


 


DATA: IT_ZSADBLO LIKE TABLE OF WA_ZSADBLO.


 


DATA: OK_CODE LIKE SY-UCOMM,
      SAVE_OK LIKE OK_CODE.




 


 


 


~O01


 


*&---------------------------------------------------------------------*
*&  Include           MZINFO_1O01                                      *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'ZSTATUS'.
*  SET TITLEBAR 'xxx'.


ENDMODULE.                 " STATUS_0100  OUTPUT



*&---------------------------------------------------------------------*
*&      Module  MOVE_DATA  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE MOVE_DATA OUTPUT.
  MOVE-CORRESPONDING WA_ZSADBLO TO ZSADBLO.
ENDMODULE.                 " MOVE_DATA  OUTPUT



*&---------------------------------------------------------------------*
*&      Module  SET_TC_LINES  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE SET_TC_LINES OUTPUT.
  DESCRIBE TABLE IT_ZSADBLO LINES TC_SADBLO-LINES.
ENDMODULE.                 " SET_TC_LINES  OUTPUT


 


 


 


~I01


 


*&---------------------------------------------------------------------*
*&  Include           MZINFO_1I01                                      *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE EXIT INPUT.


  CASE OK_CODE.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      LEAVE TO SCREEN 0.
  ENDCASE.


ENDMODULE.                 " EXIT  INPUT


 


 


**&---------------------------------------------------------------------
**
**&      Module  SAVE_OK_CODE  INPUT
**&---------------------------------------------------------------------
**
**       text
**----------------------------------------------------------------------
**
*MODULE SAVE_OK_CODE INPUT.
*
*  SAVE_OK = OK_CODE.
*
*  CLEAR OK_CODE.
*
*ENDMODULE.                 " SAVE_OK_CODE  INPUT


 


 



**&---------------------------------------------------------------------
**
**&      Module  FILL_ZSADBLO  INPUT
**&---------------------------------------------------------------------
**
**       text
**----------------------------------------------------------------------
**
*MODULE FILL_ZSADBLO INPUT.
*
*  CASE OK_CODE.
*    WHEN 'SEARCH'.
*      SELECT SINGLE * FROM ZSADBLO WHERE SANUM = ZSADBLO-SANUM.
*  ENDCASE.
*
*ENDMODULE.                 " FILL_ZSADBLO  INPUT


 


 



*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*


MODULE USER_COMMAND_0100 INPUT.


  CASE OK_CODE.
    WHEN 'SEARCH'.
*      SELECT SINGLE * FROM ZSADBLO WHERE SANUM = ZSADBLO-SANUM.
      CLEAR OK_CODE.
      SELECT *
        INTO CORRESPONDING FIELDS OF TABLE IT_ZSADBLO
        FROM ZSADBLO.


  ENDCASE.


ENDMODULE.                 " USER_COMMAND_0100  INPUT


 



*&---------------------------------------------------------------------*
*&      Module  CHECK_SANUM  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE CHECK_SANUM INPUT.


  SELECT SINGLE * FROM ZSADBLO WHERE SANUM = ZSADBLO-SANUM.


  IF SY-SUBRC = 0.
    MESSAGE S017.
  ELSEIF SY-SUBRC <> 0.
    MESSAGE S016.
    CLEAR SY-SUBRC.
  ENDIF.


ENDMODULE.                 " CHECK_SANUM  INPUT


 



*&---------------------------------------------------------------------*
*&      Module  MODIFY_DATA  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE MODIFY_DATA INPUT.
* MARK초기화


* MARK 및 값처리
  MOVE-CORRESPONDING ZSADBLO TO WA_ZSADBLO.
  MODIFY IT_ZSADBLO FROM WA_ZSADBLO
                    INDEX TC_SADBLO-CURRENT_LINE.



ENDMODULE.                 " MODIFY_DATA  INPUT


 


 


 


 


 


 


------------------------------------------------------------------------------------------------------------

번호 제목 글쓴이 날짜 조회 수
2699 [요청]스텐다드 화면에서 화면 텍스트 제어를 할수 있을까요..? [3] 할일없는무급개발자 2008.11.25 1026
2698 [요청]엑셀다운로드관련해서 소스좀 구할수 없을까요 [7] 기본도없는초보 2008.11.25 3207
2697 [요청]데이터 type 선언 질문입니다.(type line 과 like line의 차이점) [2] maeno2k 2008.11.25 1246
2696 <b>[완료]</b>Carry out repairs in non-original system only if they are urgent???? [9] SD2 2008.11.21 4016
2695 [요청]ALV 에서 ROW 가 고정될수 있게 할수 있는지 에 대해 질문드립니다. im 해성 2008.11.25 1491
2694 <b>[완료]</b>gui_upload함수에 관해서 질문 드리겠습니다. [9] file Giant 2008.11.25 2819
2693 [re] <b>[완료]</b>gui_upload함수에 관해서 질문 드리겠습니다. file 띵호아빠 2008.11.25 1304
2692 <b>[완료]</b>테이블 컨트롤에서 입력한 값이 엔터를 치면 사라지는데 어떻게 해야 할까요? [3] file 행복을 파는 외계인 2008.11.24 1588
2691 <b>[완료]</b>다른 프로그램 perform문 이용하는 방법에 관한 질문입니다. [5] 곰고양이 2008.11.24 1914
2690 <b>[완료]</b>[ABAP 편집기] Front-End Editor (New) 설정 후... [5] 2008.11.24 2761
2689 [요청]객체지향관련(OOP) ABAP 프로그램 질문입니다. [3] 앙리 2008.11.24 1358
2688 <b>[완료]</b>레가시 data upload 시 적합한 것은 무엇이 있나요? [1] 2008.11.23 1296
2687 [요청]변수선언에 관한 종합정리한 자료를 구할수 있을까요? [2] 로미오 2008.11.23 1619
2686 [re] [요청]변수선언에 관한 종합정리한 자료를 구할수 있을까요? [3] file 띵호아빠 2008.11.23 1277
2685 [요청]Dynamic List Display 라는 글씨가 찍힙니다. 이거 제거하는 방법 [2] 도련님 2008.11.22 1077
» <b>[완료]</b>TABLE CONTROL 관련 질문입니다. [4] file 튀밥 2008.11.22 1384
2683 <b>[완료]</b>LSMW 실행하는데 Maintain Object Attribute 단계부터 의문이... [1] 2008.11.22 1410
2682 [요청] COMMIT WORK과 ROLLBACK WORK 질문입니다. [5] 로미오 2008.11.22 6614
2681 <b>[완료]</b>CBO의 약자가 무엇인가요?(CUSTOMER BOLT ON) [6] sapjoy 2008.11.21 13434
2680 [요청][왕초보]data선언이나 변수 선언할때 gt/gv/it/lv..의미..? [4] 해물파전 2008.11.21 2389