ZTEST004TOP

Posted 2020-11-03 wangxiaowen

*---------------------------------------------------------------------*
*                    TYPE-POOLS
*---------------------------------------------------------------------*
TYPE-POOLS: TRUXS,
            VRM  .               "存放combobox内容的type pool
TABLES:     SSCRFIELDS.
TABLES:     T100.
*---------------------------------------------------------------------*
*                    TYPES
*---------------------------------------------------------------------*
TYPES: BEGIN OF GTY_WULIAO,
         MATNR TYPE C LENGTH 18, "品目コード
         MAKTX TYPE C LENGTH 40, "品目テキスト
         BRGEW TYPE C LENGTH 20, "総重量
         NTGEW TYPE C LENGTH 20, "正味重量
         GEWET TYPE C LENGTH 3,  "重量単位
       END OF GTY_WULIAO.

TYPES: BEGIN OF GTY_TEMP,
          TEXTLINE TYPE STRING,
       END OF GTY_TEMP.

TYPES: BEGIN OF GTY_LOG,
        OUTDATE TYPE DATU,
        MSGTYPE TYPE C LENGTH 1,
        MSGTEXT TYPE C LENGTH 200,
       END OF GTY_LOG.
*---------------------------------------------------------------------*
*                    内部テーブル
*---------------------------------------------------------------------*
DATA: BEGIN OF IT_WULIAOTMP OCCURS 0,
       TAB1  TYPE C LENGTH 10 VALUE ‘品目コード‘,
       TAB2  TYPE C LENGTH 10 VALUE ‘品目テキスト‘,
       TAB3  TYPE C LENGTH 10 VALUE ‘総重量‘,
       TAB4  TYPE C LENGTH 10 VALUE ‘正味重量‘,
       TAB5  TYPE C LENGTH 10 VALUE ‘重量単位‘,
      END OF IT_WULIAOTMP.

*     Batchinputdata of single transaction
DATA: BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
*     messages of call transaction
DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

DATA: IT_WULIAO TYPE TABLE OF GTY_WULIAO,
      WA_WULIAO LIKE LINE OF IT_WULIAO.

DATA: IT_TEMP TYPE STANDARD TABLE OF GTY_TEMP,
      WA_TEMP LIKE LINE OF IT_TEMP.

DATA: IT_LOG  TYPE STANDARD TABLE OF GTY_LOG,
      WA_LOG  LIKE LINE OF IT_LOG.

*---------------------------------------------------------------------*
*                    変数
*---------------------------------------------------------------------*
DATA:G_LOGFILE LIKE RLGRAP-FILENAME.
*---------------------------------------------------------------------*
*                    SCREEN　SETTER
*---------------------------------------------------------------------*
SELECTION-SCREEN FUNCTION KEY 1. "数字1 - 5，对应界面中可以增加的五个按钮

*---------------------------------------------------------------------*
*                    CONSTANTS
*---------------------------------------------------------------------*
CONSTANTS: CNS_KEY_L    TYPE C LENGTH 1 VALUE ‘L‘,
           CNS_KEY_S    TYPE C LENGTH 1 VALUE ‘S‘,
           CNS_TEXT_S   TYPE C LENGTH 3 VALUE ‘サーバ‘,
           CNS_TEXT_L   TYPE C LENGTH 3 VALUE ‘ローカル‘.

*---------------------------------------------------------------------*
*                    SELECTION-SCREEN
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-B01.
PARAMETERS:P_CKUBUN TYPE C AS LISTBOX VISIBLE LENGTH 10 DEFAULT ‘L‘ OBLIGATORY USER-COMMAND SEL.
PARAMETERS:P_LFILE LIKE RLGRAP-FILENAME DEFAULT ‘D:\‘,
           P_SFILE LIKE RLGRAP-FILENAME DEFAULT ‘/usr/sap/D01/DVEBMGS00/data/‘.
SELECTION-SCREEN END OF BLOCK BK1.

SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME TITLE TEXT-B02.
PARAMETERS:P_LOG LIKE RLGRAP-FILENAME DEFAULT ‘/usr/sap/D01/DVEBMGS00/data/‘.
SELECTION-SCREEN END OF BLOCK BK2.

SELECTION-SCREEN BEGIN OF BLOCK BK3 WITH FRAME TITLE TEXT-B03.
PARAMETERS: P_UPDATE LIKE CTU_PARAMS-UPDMODE DEFAULT ‘A‘,
            P_MODE   LIKE CTU_PARAMS-DISMODE DEFAULT ‘N‘.
SELECTION-SCREEN END OF BLOCK BK3.