*&---------------------------------------------------------------------*
*& 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-btype NO