메뉴 건너뛰기

SAP 한국 커뮤니티

PROGRAM z13_05.

sapjoy 2012.08.01 19:43 조회 수 : 1148

*&---------------------------------------------------------------------*
*& Module Pool       Z13_05
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

PROGRAM  z13_05.

CONTROLS mytabstrip TYPE TABSTRIP.

DATA: ok_code    TYPE sy-ucomm,
      save_ok    TYPE sy-ucomm.

DATA : gv_number TYPE sy-dynnr,
       gv_init   TYPE c.

DATA : gv_answer TYPE c.

TABLES : zemp.

 

 

 

 

 

 

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'G100'.
  IF gv_init IS INITIAL.
    mytabstrip-activetab = 'TAB1'.
    gv_number = '0110'.
    gv_init = 'X'.
  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.

  save_ok = ok_code.
  CLEAR ok_code.

  CASE save_ok.
    WHEN 'BACK' OR 'CANC'.
      LEAVE PROGRAM.

    WHEN 'TAB1'.
      gv_number = '0110'.
      mytabstrip-activetab = save_ok.
    WHEN 'TAB2'.
      gv_number = '0120'.
      mytabstrip-activetab = save_ok.
    WHEN 'CREA'.
      INSERT zemp.
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ENDIF.
      MESSAGE 'Sucess' TYPE 'I'.
    WHEN 'CHAG'.
      UPDATE zemp. "TABLE DATA UPDATE
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ENDIF.
      MESSAGE 'Sucess' TYPE 'I'.
    WHEN 'DISP'.  "TABLE DATA DISPLAY
      SELECT SINGLE * FROM zemp
      WHERE emp_no = zemp-emp_no.
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ENDIF.
      MESSAGE 'Sucess' TYPE 'I'.
    WHEN 'DELE'.
      SELECT SINGLE * FROM zemp
      WHERE emp_no = zemp-emp_no.
      IF sy-subrc <> 0.
        MESSAGE 'Error occured' TYPE 'E'.
      ELSE.
        CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA'
          EXPORTING
            textline1 = 'Delete Flight?'
            titel     = 'Attention'
          IMPORTING
            answer    = gv_answer.
        CHECK gv_answer NE 'N'.
        DELETE zemp.
        CLEAR zemp.
        MESSAGE 'Sucess' TYPE 'I'.
      ENDIF.

 

  ENDCASE.

 

ENDMODULE.                 " USER_COMMAND_0100  INPUT

번호 제목 글쓴이 날짜 조회 수
588 REPORT z14_17. sapjoy 2012.08.01 1023
587 REPORT z14_16. [1] sapjoy 2012.08.01 907
586 REPORT z14_15. sapjoy 2012.08.01 1016
585 REPORT z14_14. sapjoy 2012.08.01 1012
584 REPORT z14_13. sapjoy 2012.08.01 797
583 REPORT z14_12. sapjoy 2012.08.01 850
582 REPORT z14_11. sapjoy 2012.08.01 835
581 REPORT z14_10. sapjoy 2012.08.01 847
580 REPORT z14_09. sapjoy 2012.08.01 799
579 REPORT z14_08. [2] sapjoy 2012.08.01 1007
578 REPORT z14_07. sapjoy 2012.08.01 816
577 REPORT z14_06. [1] sapjoy 2012.08.01 1003
576 REPORT z14_05. sapjoy 2012.08.01 855
575 REPORT z14_04. sapjoy 2012.08.01 929
574 REPORT z14_03. sapjoy 2012.08.01 870
573 REPORT Z14_02. sapjoy 2012.08.01 841
572 REPORT Z14_01. sapjoy 2012.08.01 907
» PROGRAM z13_05. sapjoy 2012.08.01 1148
570 PROGRAM z13_04. sapjoy 2012.08.01 1018
569 PROGRAM z13_03. sapjoy 2012.08.01 1153