*&---------------------------------------------------------------------*

*& Report  ZPPR0024

**&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

*&程序名称：工厂日生产计划待排维护

REPORT zppr0024.

TABLES: ztpp_dpp_pool1.

DATA:edit(1) VALUE ''."ALV是否处于可编辑状态

FIELD-SYMBOLS: <f1>, <f2>, <f3>.

TYPES:BEGIN OF ty_zz.

        INCLUDE TYPE  ztpp_dpp_pool1.

TYPES:menge_x   LIKE fieud_goods_sum-totqty, "修改数量

      matnr_txt LIKE makt-maktx, "物料描述

      extwg_txt LIKE twewt-ewbez, "外部物料组描述

      vstel_txt LIKE tvstt-vtext, "装运点描述

      zline_txt LIKE ztpp_line-ltext, "生产线描述

      werks_txt LIKE t001w-name1, "工厂名称

      style     TYPE lvc_t_styl. "设置隐藏标识

TYPES:      END OF ty_zz.

TYPES:BEGIN OF ty_xls,

        btype     TYPE btype,

        matnr     LIKE mara-matnr,

        matnr_txt LIKE makt-maktx,

        meins     TYPE meins,

        extwg     TYPE extwg,

        extwg_txt LIKE twewt-ewbez,

        pdate     TYPE datum,

        vstel     TYPE vstel,

        vstel_txt LIKE tvstt-vtext,

        zbatch    TYPE zbatch,

        menge_a   TYPE menge_d,

        menge_d   TYPE menge_d,

        menge_n   TYPE menge_d,

        menge_x   TYPE menge_d,

        zline     TYPE zline,

        zline_txt LIKE ztpp_line-ltext,

        werks     TYPE werks_d,

        werks_txt LIKE t001w-name1,

      END OF ty_xls.

DATA:gt_xls TYPE STANDARD TABLE OF ty_xls.

DATA:wa_xls TYPE ty_xls.

DATA: ls_edit TYPE lvc_s_styl,

      lt_edit TYPE lvc_t_styl.

DATA: ls_outtab TYPE ty_zz.

DATA :gt_zz TYPE STANDARD  TABLE OF ty_zz  .

DATA:wa_zz TYPE ty_zz.

DATA: excel    TYPE ole2_object,

      workbook TYPE ole2_object,

      sheet    TYPE ole2_object,

      cell     TYPE ole2_object,

      row      TYPE ole2_object.

DATA: gs_fcat TYPE lvc_s_fcat,

      gt_fcat TYPE lvc_t_fcat,

      gs_layo TYPE lvc_s_layo,

      gs_grid TYPE lvc_s_glay.

DATA: gt_event      TYPE slis_t_event WITH HEADER LINE,

      gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid .

"parameters: p_ds type c as checkbox.

SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.

PARAMETERS: r1 RADIOBUTTON GROUP gr1  DEFAULT 'X' USER-COMMAND radio.

PARAMETERS: r2 RADIOBUTTON GROUP gr1.

PARAMETERS: r3 RADIOBUTTON GROUP gr1.

SELECTION-SCREEN END OF BLOCK blk2.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

SELECT-OPTIONS:   p_btype FOR ztpp_dpp_pool1