메뉴 건너뛰기

SAP 한국 커뮤니티

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

튀밥 2008.11.21 17:19 조회 수 : 1375 추천: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


 


 


 


 


 


 


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

번호 제목 글쓴이 날짜 조회 수
2687 [요청]변수선언에 관한 종합정리한 자료를 구할수 있을까요? [2] 로미오 2008.11.22 1610
2686 [re] [요청]변수선언에 관한 종합정리한 자료를 구할수 있을까요? [3] file 띵호아빠 2008.11.23 1270
2685 [요청]Dynamic List Display 라는 글씨가 찍힙니다. 이거 제거하는 방법 [2] 도련님 2008.11.21 1060
» <b>[완료]</b>TABLE CONTROL 관련 질문입니다. [4] file 튀밥 2008.11.21 1375
2683 <b>[완료]</b>LSMW 실행하는데 Maintain Object Attribute 단계부터 의문이... [1] 2008.11.21 1399
2682 [요청] COMMIT WORK과 ROLLBACK WORK 질문입니다. [5] 로미오 2008.11.21 6298
2681 <b>[완료]</b>CBO의 약자가 무엇인가요?(CUSTOMER BOLT ON) [6] sapjoy 2008.11.21 13083
2680 [요청][왕초보]data선언이나 변수 선언할때 gt/gv/it/lv..의미..? [4] 해물파전 2008.11.21 2288
2679 <b>[완료]</b>CONTAINER 에 관하여 궁금합니다.... [3] Gerrard 2008.11.21 1409
2678 [요청]PERFORM, APPEND문에 대해................ [3] 원더걸 2008.11.21 1377
2677 <b>[완료]</b>스크린 페인터를 이용한 입력 프로그램에 대한 질문입니다. 몇가지... [3] file 행복을 파는 외계인 2008.11.20 2109
2676 <b>[완료]</b>select 구문에서 into절 생략..? [2] 김기욱 2008.11.20 1896
2675 [요청]Type-pools의 이름을 어디서 찾을수 있습니까? [1] Giant 2008.11.20 1327
2674 [요청]Screen table의 필드 속성 문제점 입니다. [1] Giant 2008.11.20 1246
2673 [요청]필드카탈로그속성 노아웃에 대해 질문드립니다. [2] 기본도없는초보 2008.11.20 1335
2672 [re] [요청] 기간누계에 관해서 질문할게요~ [1] 띵호아빠 2008.11.20 989
2671 [요청]BDC 프로그램 중 로직에 관한 문제를 질문드립니다~ [2] file 因緣 2008.11.20 1187
2670 [요청]BDC 프로그램에 관한 질문을 드립니다~(2) [2] 因緣 2008.11.20 1539
2669 <b>[완료]</b>se11에서 탐색도움말 생성 시 오류건 [1] 팬더야 2008.11.20 1261
2668 <b>[완료]</b> 기간누계에 관해서 질문할게요~ 국화 2008.11.20 1215