动态选择画面

最新推荐文章于 2025-05-16 14:38:54 发布

原创最新推荐文章于 2025-05-16 14:38:54 发布 · 1.5k 阅读

CC 4.0 BY-SA版权

文章标签：

#物流 #date #parameters #output #initialization #c

*----------------------------------------------------------------------*
* PARAMETERS * PARAMETERS宣言
*----------------------------------------------------------------------*
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(10) text-t07 USER-COMMAND jtdp.
SELECTION-SCREEN PUSHBUTTON 13(10) text-t08 USER-COMMAND brdp.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE text-t01.   "選択条件
SELECTION-SCREEN: BEGIN OF BLOCK blk3 WITH FRAME TITLE text-t03.   "受注伝票情報
SELECT-OPTIONS: so_jtdpy FOR c_denp_bg,      "受注伝票番号
                so_brdpy FOR c_denp_bg,      "伝票番号(物流画面)
                so_ksdpy FOR c_denp_bg,      "検収伝票番号
                so_kydpy FOR c_denp_bg,      "解約伝票番号
                so_shdno FOR c_sh_no,        "商談№

SELECTION-SCREEN: END OF BLOCK blk3.

SELECTION-SCREEN: BEGIN OF BLOCK blk4 WITH FRAME TITLE text-t04.   "物流現調伝票情報
SELECT-OPTIONS: so_brdpb FOR c_br_denp_bg,   "物流現調伝票番号
                so_custm FOR c_cust,         "顧客
                so_tteig FOR c_sal_in,       "担当営業
                so_soddt FOR d_sod_hk_dt,    "主オーダ発行日
                so_lstdm FOR d_lst_olndt_km, "最終オンライン操作日（解約前）
                so_lstdg FOR c_lst_olndt_kg, "最終オンライン操作日（解約後）
                so_onldt FOR d_kt_ol_ko_dt. "最終オンライン操作日

* 最終変更日時（FROM）
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 31.
PARAMETERS: pa_fromd TYPE d.
SELECTION-SCREEN: POSITION 43.
PARAMETERS: pa_fromt TYPE t.
SELECTION-SCREEN: COMMENT 1(20) text-t05 FOR FIELD pa_fromd. "最終変更日時（FROM）
SELECTION-SCREEN: END OF LINE.

*   最終変更日時（TO）
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 31.
PARAMETERS: pa_tod TYPE d.
SELECTION-SCREEN: POSITION 43.
PARAMETERS: pa_tot TYPE t.
SELECTION-SCREEN: COMMENT 1(16) text-t06 FOR FIELD pa_tod.         "最終変更日時（TO）
SELECTION-SCREEN: END OF LINE.
PARAMETERS: pa_koumk TYPE as4text.                                 "項目名
SELECTION-SCREEN: END OF BLOCK blk4.
SELECTION-SCREEN: END OF BLOCK blk1.

SELECTION-SCREEN: BEGIN OF BLOCK blk2 WITH FRAME TITLE text-t02. "出力条件
PARAMETERS: pa_kensu(15) TYPE n DEFAULT 100 OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK blk2.

* 選択条件変換用パラメータ（最終変更日時）
SELECT-OPTIONS: so_date FOR d_date NO-DISPLAY,
so_time FOR t_time NO-DISPLAY.

PARAMETERS: pa_code(4) TYPE c NO-DISPLAY.

*----------------------------------------------------------------------*
* INITIALIZATION 初期処理
*----------------------------------------------------------------------*
INITIALIZATION.

GET PARAMETER ID cc_memory_id FIELD c_memory.

IF c_memory IS INITIAL.
    SET TITLEBAR cc_titlebar_100.
*   受注伝票選択画面を設定する
    PERFORM fm_set_dynpro_jtdp.
    pa_code = cc_ok_code_jtdp.
ELSE.
    pa_code = c_memory.
    SET PARAMETER ID cc_memory_id FIELD cc_ok_code_jtdp.
ENDIF.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN 画面制御処理
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.

IF sy-ucomm = cc_ok_code_jtdp
OR sy-ucomm = cc_ok_code_brdp
OR sy-ucomm = cc_ok_code_ksdp
OR sy-ucomm = cc_ok_code_kydp.
pa_code = sy-ucomm.
ENDIF.

* 実行の場合のみ、画面チェックする
IF sy-ucomm = cc_ok_code_exct.
* 画面チェック
PERFORM fm_check_select.
ENDIF.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT 画面制御処理
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.

CASE pa_code.
*   受注伝票の場合
    WHEN cc_ok_code_jtdp.
      SET TITLEBAR cc_titlebar_100.
*     受注伝票選択画面を設定する
      PERFORM fm_set_dynpro_jtdp.
      c_ok_code_sav = pa_code.

*   物流伝票の場合
    WHEN cc_ok_code_brdp.
      SET TITLEBAR cc_titlebar_200.
*     物流伝票選択画面を設定する

PERFORM fm_set_dynpro_brdp.
c_ok_code_sav = pa_code.

*   検収伝票の場合
    WHEN cc_ok_code_ksdp.
      SET TITLEBAR cc_titlebar_300.
*     検収伝票選択画面を設定する
      PERFORM fm_set_dynpro_ksdp.
      c_ok_code_sav = pa_code.

*   解約伝票の場合
    WHEN cc_ok_code_kydp.
      SET TITLEBAR cc_titlebar_400.
*     解約伝票選択画面を設定する
      PERFORM fm_set_dynpro_kydp.
      c_ok_code_sav = pa_code.

    WHEN OTHERS.
      CASE c_ok_code_sav.
*       受注伝票の場合
        WHEN cc_ok_code_jtdp.
          SET TITLEBAR cc_titlebar_100.
*         受注伝票選択画面を設定する
          PERFORM fm_set_dynpro_jtdp.

*       物流伝票の場合
        WHEN cc_ok_code_brdp.
          SET TITLEBAR cc_titlebar_200.
*         物流伝票選択画面を設定する
          PERFORM fm_set_dynpro_brdp.

*       検収伝票の場合
        WHEN cc_ok_code_ksdp.
          SET TITLEBAR cc_titlebar_300.
*         検収伝票選択画面を設定する
          PERFORM fm_set_dynpro_ksdp.

*       解約伝票の場合
        WHEN cc_ok_code_kydp.
          SET TITLEBAR cc_titlebar_400.
*         解約伝票選択画面を設定する
          PERFORM fm_set_dynpro_kydp.
      ENDCASE.
ENDCASE.

*----------------------------------------------------------------------*
* START-OF-SELECTION 処理実行
*----------------------------------------------------------------------*
START-OF-SELECTION.

* 選択画面に選択条件【最終変更日時】の編集
PERFORM fm_edit_so_date_time.

CASE c_ok_code_sav.
*   受注伝票の場合
    WHEN cc_ok_code_jtdp.
*     受注伝票情報取得する
      PERFORM fm_get_data_jtdp.
*     ALV一覧項目編集(受注伝票)
      PERFORM fm_edit_alv_jtdp.
*     ALV一覧出力(受注伝票)
      PERFORM fm_output_alv TABLES itab_jtdp.

*   物流伝票の場合
    WHEN cc_ok_code_brdp.
*     物流伝票情報取得する
      PERFORM fm_get_data_brdp.
*     ALV一覧項目編集(物流伝票)
      PERFORM fm_edit_alv_brdp.
*     ALV一覧出力(物流伝票)
      PERFORM fm_output_alv TABLES itab_brdp.

*   検収伝票の場合
    WHEN cc_ok_code_ksdp.
*     検収伝票情報取得する
      PERFORM fm_get_data_ksdp.
*     ALV一覧項目編集(検収伝票)
      PERFORM fm_edit_alv_ksdp.
*     ALV一覧出力(検収伝票)
      PERFORM fm_output_alv TABLES itab_ksdp.

*   解約伝票の場合
    WHEN cc_ok_code_kydp.
*     解約伝票情報取得する
      PERFORM fm_get_data_kydp.
*     ALV一覧項目編集(解約伝票)
      PERFORM fm_edit_alv_kydp.
*     ALV一覧出力(解約伝票)
      PERFORM fm_output_alv TABLES itab_kydp.
ENDCASE.

* 伝票種類メモリへ設定
c_memory = c_ok_code_sav.
SET PARAMETER ID cc_memory_id FIELD c_memory.

*&---------------------------------------------------------------------*
*& Form FM_CHECK_SELECT
*&---------------------------------------------------------------------*
* 画面チェック
*----------------------------------------------------------------------*
FORM fm_check_select .

* 伝票種類より、画面入力項目チェック
CASE: c_ok_code_sav.
*   受注伝票の場合
    WHEN cc_ok_code_jtdp.
      IF so_jtdpy IS INITIAL      "受注伝票
      AND so_shdno IS INITIAL      "商談№
      AND pa_tod IS INITIAL        "最終変更日(TO)
      AND pa_tot IS INITIAL.       "最終変更時(TO)
*       エラーメッセージ:検索条件を入力してください
        MESSAGE e128(zbusa_0000).
      ENDIF.

*   物流伝票の場合
    WHEN cc_ok_code_brdp.
      IF so_brdpy IS INITIAL      "伝票番号（物流伝票画面）
      AND so_shdno IS INITIAL      "商談№
*       エラーメッセージ:検索条件を入力してください
        MESSAGE e128(zbusa_0000).
      ENDIF.

*   検収伝票の場合
    WHEN cc_ok_code_ksdp.
      IF so_ksdpy IS INITIAL      "検収伝票
      AND so_shdno IS INITIAL      "商談№
       AND pa_tot IS INITIAL.       "最終変更時(TO)
*       エラーメッセージ:検索条件を入力してください
        MESSAGE e128(zbusa_0000).
      ENDIF.

*   解約伝票の場合
    WHEN cc_ok_code_kydp.
      IF so_kydpy IS INITIAL      "解約伝票
      AND so_shdno IS INITIAL      "商談№
      AND so_chmno IS INITIAL      "注文№
      AND so_kykno IS INITIAL      "契約管理№
      AND so_kysno IS INITIAL      "契約先
      AND so_custm IS INITIAL      "顧客
      AND so_tteig IS INITIAL      "担当営業
      AND so_ebscd IS INITIAL      "営業部署コード
      AND so_egpcd IS INITIAL      "営業グループコード
      AND so_insed IS INITIAL      "インサイドセールス
      AND so_kykdt IS INITIAL      "解約日
      AND so_odano IS INITIAL      "オーダ№
      AND so_soddt IS INITIAL      "主オーダ発行日
      AND so_lstdg IS INITIAL      "最終オンライン操作日（解約後）
      AND so_lstdm IS INITIAL      "最終オンライン操作日（解約前）
      AND pa_fromd IS INITIAL      "最終変更日(FROM)
      AND pa_fromt IS INITIAL      "最終変更時(FROM)
      AND pa_tod IS INITIAL        "最終変更日(TO)
      AND pa_tot IS INITIAL.       "最終変更時(TO)
*       エラーメッセージ:検索条件を入力してください
        MESSAGE e128(zbusa_0000).
      ENDIF.
ENDCASE.

ENDFORM.                    " FM_CHECK_SELECT
*&---------------------------------------------------------------------*
*&      Form FM_SET_DYNPRO_JTDP
*&---------------------------------------------------------------------*
*       受注伝票選択画面を設定する
*----------------------------------------------------------------------*
FORM fm_set_dynpro_jtdp .

LOOP AT SCREEN.
    IF screen-name CS cc_scr_name_block3     "BLOCK3（受注伝票情報）
    OR screen-name CS cc_scr_name_block4     "BLOCK4（物流現調伝票情報）
    OR screen-name CS cc_scr_name_brdpy      "物流伝票
    OR screen-name CS cc_scr_name_ksdpy      "検収伝票
    OR screen-name CS cc_scr_name_kydpy      "解約伝票
    OR screen-name CS cc_scr_name_brdpb      "物流現調伝票
    OR screen-name CS cc_scr_name_duedt      "希望納期
    OR screen-name CS cc_scr_name_setpl      "設置場所
    OR screen-name CS cc_scr_name_delpl      "一次搬入先
    OR screen-name CS cc_scr_name_kshdt      "検収日
    OR screen-name CS cc_scr_name_sksdy      "使用開始日
    OR screen-name CS cc_scr_name_sksdn      "使用開始日(無償)
    OR screen-name CS cc_scr_name_kykdt      "解約日
    OR screen-name CS cc_scr_name_lstdm      "最終オンライン操作日（解約前）
    OR screen-name CS cc_scr_name_lstdg.     "最終オンライン操作日（解約後）
      screen-active = 0.
    ENDIF.
    IF screen-name CS cc_scr_name_pt1.
      screen-input = 0.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.

ENDFORM.                    " FM_SET_DYNPRO_JTDP
*&---------------------------------------------------------------------*
*&      Form FM_SET_DYNPRO_BRDP
*&---------------------------------------------------------------------*
*       物流伝票選択画面を設定する
*----------------------------------------------------------------------*
FORM fm_set_dynpro_brdp .

LOOP AT SCREEN.
    IF screen-name CS cc_scr_name_jtdpy      "受注伝票
    OR screen-name CS cc_scr_name_ksdpy      "検収伝票
    OR screen-name CS cc_scr_name_kydpy      "解約伝票
    OR screen-name CS cc_scr_name_kssno      "決裁№
    OR screen-name CS cc_scr_name_kshdt      "検収日
    OR screen-name CS cc_scr_name_sksdy      "使用開始日
    OR screen-name CS cc_scr_name_sksdn      "使用開始日(無償)
    OR screen-name CS cc_scr_name_kykdt      "解約日
    OR screen-name CS cc_scr_name_lstdm      "最終オンライン操作日（解約前）
    OR screen-name CS cc_scr_name_lstdg.     "最終オンライン操作日（解約後）
      screen-active = 0.
    ENDIF.
    IF screen-name CS cc_scr_name_pt2.
      screen-input = 0.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.

ENDFORM.                    " FM_SET_DYNPRO_BRDP
*&---------------------------------------------------------------------*
*&      Form FM_SET_DYNPRO_KSDP
*&---------------------------------------------------------------------*
*       検収伝票選択画面を設定する
*----------------------------------------------------------------------*
FORM fm_set_dynpro_ksdp .

LOOP AT SCREEN.
    IF screen-name CS cc_scr_name_block3     "BLOCK3（受注伝票情報）
    OR screen-name CS cc_scr_name_block4     "BLOCK4（物流現調伝票情報）
    OR screen-name CS cc_scr_name_jtdpy      "受注伝票
    OR screen-name CS cc_scr_name_brdpy      "受注伝票（物流伝票画面）
    OR screen-name CS cc_scr_name_kydpy      "解約伝票
    OR screen-name CS cc_scr_name_kssno      "決裁№
    OR screen-name CS cc_scr_name_brdpb      "物流現調伝票
    OR screen-name CS cc_scr_name_duedt      "希望納期
    OR screen-name CS cc_scr_name_setpl      "設置場所
    OR screen-name CS cc_scr_name_delpl      "一次搬入先
    OR screen-name CS cc_scr_name_kykdt      "解約日
    OR screen-name CS cc_scr_name_lstdm      "最終オンライン操作日（解約前）
    OR screen-name CS cc_scr_name_lstdg.     "最終オンライン操作日（解約後）
      screen-active = 0.
    ENDIF.
    IF screen-name CS cc_scr_name_pt3.
      screen-input = 0.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.

ENDFORM.                    " FM_SET_DYNPRO_KSDP
*&---------------------------------------------------------------------*
*&      Form FM_SET_DYNPRO_KYDP
*&---------------------------------------------------------------------*
*       解約伝票選択画面を設定する
*----------------------------------------------------------------------*
FORM fm_set_dynpro_kydp .

LOOP AT SCREEN.
    IF screen-name CS cc_scr_name_block3     "BLOCK3（受注伝票情報）
    OR screen-name CS cc_scr_name_block4     "BLOCK4（物流現調伝票情報）
    OR screen-name CS cc_scr_name_jtdpy      "受注伝票
    OR screen-name CS cc_scr_name_brdpy      "物流伝票
    OR screen-name CS cc_scr_name_ksdpy      "検収伝票
    OR screen-name CS cc_scr_name_kssno      "決裁№
    OR screen-name CS cc_scr_name_brdpb      "物流現調伝票
    OR screen-name CS cc_scr_name_duedt      "希望納期
    OR screen-name CS cc_scr_name_setpl      "設置場所
    OR screen-name CS cc_scr_name_delpl      "一次搬入先
    OR screen-name CS cc_scr_name_kshdt      "検収日
    OR screen-name CS cc_scr_name_sksdy      "使用開始日
    OR screen-name CS cc_scr_name_sksdn      "使用開始日(無償)
    OR screen-name CS cc_scr_name_onldt.     "最終オンライン操作日
      screen-active = 0.
    ENDIF.
    IF screen-name CS cc_scr_name_pt4.
      screen-input = 0.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.

ENDFORM.                    " FM_SET_DYNPRO_KYDP
*&---------------------------------------------------------------------*
*&      Form FM_EDIT_SO_DATE_TIME
*&---------------------------------------------------------------------*
*       選択画面に選択条件【最終変更日時】の編集
*----------------------------------------------------------------------*
FORM fm_edit_so_date_time .

REFRESH: so_date, "最終変更日
so_time. "最終変更時

CLEAR: so_date, "最終変更日
so_time. "最終変更時

so_date-sign = cc_so_i.
so_date-option = cc_so_bt.
so_time-sign = cc_so_i.
so_time-option = cc_so_bt.

* 最終変更日（FROM）= INITIAL
IF pa_fromd IS INITIAL.
so_date-low = cc_date_begin.
ELSE.
so_date-low = pa_fromd.
ENDIF.

* 最終変更日（TO）= INITIAL
IF pa_tod IS INITIAL.
so_date-high = cc_date_end.
ELSE.
so_date-high = pa_tod.
ENDIF.

* 最終変更時（FROM）= INITIAL
IF pa_fromt IS INITIAL
OR pa_fromt = space.
so_time-low = cc_time_begin.
ELSE.
so_time-low = pa_fromt.
ENDIF.

* 最終変更時（TO）= INITIAL
IF pa_tot IS INITIAL
OR pa_tot = space.
so_time-high = cc_time_end.
ELSE.
so_time-high = pa_tot.
ENDIF.

APPEND so_date TO so_date.
APPEND so_time TO so_time.

ENDFORM. " FM_EDIT_SO_DATE_TIME