메뉴 건너뛰기

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


 


 


 


 


 


 


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

번호 제목 글쓴이 날짜 조회 수
6509 <b>[완료]</b>external alias의 대해 알려주세요~ [1] abap퍼 2008.02.26 101255
6508 [요청]스크린페인터가 되질 않습니다.. alphanumeric editor가 나와요..ㅜㅜ [15] file 피크민 2007.12.06 71102
6507 [re] inner join 과 sub query 의 퍼포먼스... [2] file Risky 2009.09.11 59432
6506 Multi Selection 버튼 색상 문의..<-제목이 흠.. file 김지성 2007.08.01 50547
6505 [요청]소수점 데이터를 선언시 질문입니다. [2] kkk 2008.04.17 48261
6504 <img src=2.gif border=0>Smartform 출력옵션 &field<옵션>& 중 자릿수 제한 기능에 관하여. [2] JiruMi 2009.04.20 44688
6503 [요청]클래스를 이용한 ALV에서 선택 SEL MODE문의드립니다. [2] 노력&성장 2008.04.17 35449
6502 자재번호 자동 List up..? Search help..? 기능 문의 드립니다 [2] file 아좀더 2019.06.26 30812
6501 <b>[완료]</b>Sorting시 Internal Table 이름이 가변적일때 Field symbol 사용 방법좀 가르쳐 주세요. [4] SkyDream 2007.12.05 27597
6500 ALV 에서는 에디팅 기능을 사용 할 수 없나요? [5] file 댕댕 2007.04.03 27072
6499 <b>[완료]</b>메시지가 잘립니다. [3] 김지성 2007.12.05 24450
6498 <b>[완료]</b>Mark field달기 [6] SAP폐인 2007.12.04 20618
6497 [re] <img src=1.gif>DOI 예제 따라하고 있는데요, 안되네요.. [2] 요요 2010.03.02 20211
6496 FOR ALL ENTRIES IN 질문드립니다! [5] 아좀더 2019.04.19 17984
6495 <img src=3.gif>[BSP]원하는 페이지로 값넘기고 받기(get,post) [2] 끼야호 2010.05.14 17124
6494 [요청]소수이하 0부분을 떨어버리는 것에 대해 문의드립니다. [5] 풍뎅이 2008.04.23 16358
6493 [요청]구매요청(PR) 텍스트화면 크기를 조정하려면 어떻게 해야 하나요? file 노름마치 2007.12.07 15022
6492 <b>[완료]</b>ranges 구문에 대한 정확한 의미와 사용법 [7] BEST!! 2007.11.14 14947
6491 <b>[완료]</b>[질문] sap서버에 있는 shell script를 실행시키기.. [3] 해처리 2007.12.04 14612
6490 [요청]펑션 LVC_TRANSFER_FROM_SLIS, LVC_FIELDCAT_COMPLETE의 용도가 궁금합니다. [2] 아밥맨 2008.06.10 14501