메뉴 건너뛰기

SAP 한국 커뮤니티

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

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


 


 


 


 


 


 


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

번호 제목 글쓴이 날짜 조회 수
2707 <b>[완료]</b>자재문서 취소 관련 이동평균가 check 로직 문의 [1] 강성훈 2008.11.26 1782
2706 [요청]벤더 마스터의 특정 필드 명 변경 [2] with SAP 2008.11.26 1672
2705 [요청]CHANGING 과 message 관한 질문입니다. [6] 아밥우먼 2008.11.25 1874
2704 [요청]DB링크9EXEC SQL.)관련 질문입니다.. [4] 무한반복 2008.11.25 1215
2703 <b>[완료]</b>[완료][왕초보질문] 데이터 타입 변환 관련 질문입니다 제발 봐주세요. [4] 박태준 2008.11.13 1691
2702 [요청]abap또는 web dynpro for abap 와 javascript 사이에 parameter를 통한 데이타 전송이 가능한가요? [1] 봉봉봉 2008.11.25 1273
2701 <b>[완료]</b>[테이블 컨트롤]입력하는 값을 사라지지 않게 하는 방법? [3] 행복을 파는 외계인 2008.11.25 1703
2700 [요청]ts 코드 KKBC_ORD bdc나 호출에 관한 질문입니다. [1] 아밥어렵네요 2008.11.25 2076
2699 [요청]스텐다드 화면에서 화면 텍스트 제어를 할수 있을까요..? [3] 할일없는무급개발자 2008.11.25 1037
2698 [요청]엑셀다운로드관련해서 소스좀 구할수 없을까요 [7] 기본도없는초보 2008.11.25 3248
2697 [요청]데이터 type 선언 질문입니다.(type line 과 like line의 차이점) [2] maeno2k 2008.11.25 1248
2696 <b>[완료]</b>Carry out repairs in non-original system only if they are urgent???? [9] SD2 2008.11.21 4105
2695 [요청]ALV 에서 ROW 가 고정될수 있게 할수 있는지 에 대해 질문드립니다. im 해성 2008.11.25 1517
2694 <b>[완료]</b>gui_upload함수에 관해서 질문 드리겠습니다. [9] file Giant 2008.11.25 2848
2693 [re] <b>[완료]</b>gui_upload함수에 관해서 질문 드리겠습니다. file 띵호아빠 2008.11.25 1310
2692 <b>[완료]</b>테이블 컨트롤에서 입력한 값이 엔터를 치면 사라지는데 어떻게 해야 할까요? [3] file 행복을 파는 외계인 2008.11.24 1603
2691 <b>[완료]</b>다른 프로그램 perform문 이용하는 방법에 관한 질문입니다. [5] 곰고양이 2008.11.24 2022
2690 <b>[완료]</b>[ABAP 편집기] Front-End Editor (New) 설정 후... [5] 2008.11.24 2771
2689 [요청]객체지향관련(OOP) ABAP 프로그램 질문입니다. [3] 앙리 2008.11.24 1360
2688 <b>[완료]</b>레가시 data upload 시 적합한 것은 무엇이 있나요? [1] 2008.11.23 1299