*&---------------------------------------------------------------------*
*& Include Z16_001I01 *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module user_command_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'UPDA'.
UPDATE wbtable.
IF sy-subrc <> 0.
MESSAGE e004 WITH wbtable-flid.
ENDIF.
MESSAGE s002 WITH wbtable-flid.
WHEN 'CREA'.
INSERT wbtable.
IF sy-subrc <> 0.
MESSAGE e000 WITH wbtable-flid..
ENDIF.
MESSAGE s001 WITH wbtable-flid.
WHEN 'DISP'.
SELECT SINGLE * FROM wbtable
WHERE flid = wbtable-flid.
IF sy-subrc <> 0.
MESSAGE e004 WITH wbtable-flid.
ENDIF.
WHEN 'DELE'.
SELECT SINGLE * FROM wbtable
WHERE flid = wbtable-flid.
IF sy-subrc <> 0.
MESSAGE e004 WITH wbtable-flid.
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 wbtable.
CLEAR wbtable.
MESSAGE s003 WITH wbtable-flid. "Flight was DELETED successfully
ENDIF.
WHEN space.
ENDCASE.
ENDMODULE. " user_command_0100 INPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
610 | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
609 | FUNCTION Z_BAPI_ASSETNAME_SEARCH | sapjoy | 2009.01.30 | 2898 |
» | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
607 | REPORT z17_20 | sapjoy | 2012.08.01 | 2880 |
606 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
605 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2876 |
604 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
603 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
602 | REPORT z18_014 | sapjoy | 2007.03.09 | 2843 |
601 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
600 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
599 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
598 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
597 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
596 | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
595 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
594 | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
593 | report zunicode_026. | sapjoy | 2008.11.21 | 2782 |
592 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
591 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |