메뉴 건너뛰기

SAP 한국 커뮤니티

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

튀밥 2008.11.22 02:19 조회 수 : 1381 추천: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


 


 


 


 


 


 


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

번호 제목 글쓴이 날짜 조회 수
2693 [re] <b>[완료]</b>gui_upload함수에 관해서 질문 드리겠습니다. file 띵호아빠 2008.11.25 1300
2692 <b>[완료]</b>테이블 컨트롤에서 입력한 값이 엔터를 치면 사라지는데 어떻게 해야 할까요? [3] file 행복을 파는 외계인 2008.11.24 1568
2691 <b>[완료]</b>다른 프로그램 perform문 이용하는 방법에 관한 질문입니다. [5] 곰고양이 2008.11.24 1862
2690 <b>[완료]</b>[ABAP 편집기] Front-End Editor (New) 설정 후... [5] 2008.11.24 2745
2689 [요청]객체지향관련(OOP) ABAP 프로그램 질문입니다. [3] 앙리 2008.11.24 1352
2688 <b>[완료]</b>레가시 data upload 시 적합한 것은 무엇이 있나요? [1] 2008.11.23 1293
2687 [요청]변수선언에 관한 종합정리한 자료를 구할수 있을까요? [2] 로미오 2008.11.23 1617
2686 [re] [요청]변수선언에 관한 종합정리한 자료를 구할수 있을까요? [3] file 띵호아빠 2008.11.23 1275
2685 [요청]Dynamic List Display 라는 글씨가 찍힙니다. 이거 제거하는 방법 [2] 도련님 2008.11.22 1072
» <b>[완료]</b>TABLE CONTROL 관련 질문입니다. [4] file 튀밥 2008.11.22 1381
2683 <b>[완료]</b>LSMW 실행하는데 Maintain Object Attribute 단계부터 의문이... [1] 2008.11.22 1405
2682 [요청] COMMIT WORK과 ROLLBACK WORK 질문입니다. [5] 로미오 2008.11.22 6474
2681 <b>[완료]</b>CBO의 약자가 무엇인가요?(CUSTOMER BOLT ON) [6] sapjoy 2008.11.21 13378
2680 [요청][왕초보]data선언이나 변수 선언할때 gt/gv/it/lv..의미..? [4] 해물파전 2008.11.21 2374
2679 <b>[완료]</b>CONTAINER 에 관하여 궁금합니다.... [3] Gerrard 2008.11.21 1420
2678 [요청]PERFORM, APPEND문에 대해................ [3] 원더걸 2008.11.21 1383
2677 <b>[완료]</b>스크린 페인터를 이용한 입력 프로그램에 대한 질문입니다. 몇가지... [3] file 행복을 파는 외계인 2008.11.21 2238
2676 <b>[완료]</b>select 구문에서 into절 생략..? [2] 김기욱 2008.11.21 2005
2675 [요청]Type-pools의 이름을 어디서 찾을수 있습니까? [1] Giant 2008.11.21 1333
2674 [요청]Screen table의 필드 속성 문제점 입니다. [1] Giant 2008.11.21 1249