*&---------------------------------------------------------------------*
*& Report ZJ_ABAP_OBJ_MM_0240
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZJ_ABAP_OBJ_MM_0240 .
*************************************************************************
*DATA
*************************************************************************
DATA : BEGIN OF gdt_input OCCURS 0 ,
matnr LIKE eord -matnr ,
werks LIKE eord -werks ,
vdatu TYPE string ,
bdatu TYPE string ,
lifnr LIKE eord -lifnr ,
ekorg LIKE eord -ekorg ,
flifn LIKE eord -flifn ,
autet LIKE eord -autet ,
type TYPE c ,
message TYPE string ,
END OF gdt_input .
DATA : BEGIN OF gdt_eina OCCURS 0 ,
infnr LIKE eina -infnr ,
matnr LIKE eina -matnr ,
lifnr LIKE eina -lifnr ,
werks LIKE eine -werks ,
ekorg LIKE eine -ekorg ,
esokz LIKE eine -esokz ,
END OF gdt_eina .
DATA : BEGIN OF gdt_eord OCCURS 0 ,
matnr LIKE eord -matnr ,
werks LIKE eord -werks ,
zeord LIKE eord -zeord ,
END OF gdt_eord .
DATA : BEGIN OF gdt_tab OCCURS 0 ,
matnr LIKE eord -matnr ,
werks LIKE eord -werks ,
"lifnr LIKE eord-lifnr,
type TYPE c ,
message TYPE string ,
END OF gdt_tab .
TYPES : BEGIN OF gts_help ,
matnr TYPE eord -matnr ,
werks TYPE eord -werks ,
END OF gts_help .
DATA :gdt_help TYPE STANDARD TABLE OF gts_help ,
gds_help TYPE gts_help .
*----------------------------------------------------------------------*
* 定义BDC数据对象
*----------------------------------------------------------------------*
DATA : BEGIN OF gdt_bdcdata OCCURS 100 .
INCLUDE STRUCTURE bdcdata .
DATA : END OF gdt_bdcdata .
DATA gdt_messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE . "BDC录屏返回消息
TYPES : BEGIN OF gts_message ,
type TYPE c , "消息类型
message ( 200 ) TYPE c , "消息信息
END OF gts_message .
DATA gdt_message TYPE STANDARD TABLE OF gts_message WITH HEADER LINE .
*----------------------------------------------------------------------*
* 定义alv数据对象
*----------------------------------------------------------------------*
DATA : gdt_fieldcat TYPE slis_t_fieldcat_alv ,
gds_fieldcat TYPE slis_fieldcat_alv ,
gds_layout TYPE slis_layout_alv .
DATA : gdf_flifn TYPE i .
DATA : gdf_erro TYPE c .
*----------------------------------------------------------------------*
* 定义选择界面
*----------------------------------------------------------------------*
*SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-011.
*PARAMETERS: r_1 RADIOBUTTON GROUP g2 DEFAULT 'X' ,
* r_2 RADIOBUTTON GROUP g2.
*SELECTION-SCREEN END OF BLOCK b4.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text - 011 .
PARAMETERS : p_infile TYPE rlgrap -filename MEMORY ID m01 .
PARAMETERS : p_test AS CHECKBOX . "DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b1 .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_infile .
PERFORM frm_get_path . "获取文件路径
START-OF-SELECTION .
" IF r_1 = 'X'.
PERFORM frm_upload_data . "数据上载
PERFORM frm_check_data . "数据校验
PERFORM frm_update_sourcelist . "货源清单上传
PERFORM frm_alv_display . "结果显示
* ELSE.
* "submit AQZZZ_ME11======Z_ME11======== .
* CALL TRANSACTION 'ZKMM004'.
* ENDIF.
END-OF-SELECTION .
*&---------------------------------------------------------------------*
*& Form FRM_GET_PATH
*&---------------------------------------------------------------------*
* 获取文件上传路径
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_path .
CALL FUNCTION 'TB_LIMIT_WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
* DEF_PATH = ' '
mask = 'Excel Files,*.xlsx,*.*. '
* MODE = '
*& Report ZJ_ABAP_OBJ_MM_0240
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZJ_ABAP_OBJ_MM_0240 .
*************************************************************************
*DATA
*************************************************************************
DATA : BEGIN OF gdt_input OCCURS 0 ,
matnr LIKE eord -matnr ,
werks LIKE eord -werks ,
vdatu TYPE string ,
bdatu TYPE string ,
lifnr LIKE eord -lifnr ,
ekorg LIKE eord -ekorg ,
flifn LIKE eord -flifn ,
autet LIKE eord -autet ,
type TYPE c ,
message TYPE string ,
END OF gdt_input .
DATA : BEGIN OF gdt_eina OCCURS 0 ,
infnr LIKE eina -infnr ,
matnr LIKE eina -matnr ,
lifnr LIKE eina -lifnr ,
werks LIKE eine -werks ,
ekorg LIKE eine -ekorg ,
esokz LIKE eine -esokz ,
END OF gdt_eina .
DATA : BEGIN OF gdt_eord OCCURS 0 ,
matnr LIKE eord -matnr ,
werks LIKE eord -werks ,
zeord LIKE eord -zeord ,
END OF gdt_eord .
DATA : BEGIN OF gdt_tab OCCURS 0 ,
matnr LIKE eord -matnr ,
werks LIKE eord -werks ,
"lifnr LIKE eord-lifnr,
type TYPE c ,
message TYPE string ,
END OF gdt_tab .
TYPES : BEGIN OF gts_help ,
matnr TYPE eord -matnr ,
werks TYPE eord -werks ,
END OF gts_help .
DATA :gdt_help TYPE STANDARD TABLE OF gts_help ,
gds_help TYPE gts_help .
*----------------------------------------------------------------------*
* 定义BDC数据对象
*----------------------------------------------------------------------*
DATA : BEGIN OF gdt_bdcdata OCCURS 100 .
INCLUDE STRUCTURE bdcdata .
DATA : END OF gdt_bdcdata .
DATA gdt_messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE . "BDC录屏返回消息
TYPES : BEGIN OF gts_message ,
type TYPE c , "消息类型
message ( 200 ) TYPE c , "消息信息
END OF gts_message .
DATA gdt_message TYPE STANDARD TABLE OF gts_message WITH HEADER LINE .
*----------------------------------------------------------------------*
* 定义alv数据对象
*----------------------------------------------------------------------*
DATA : gdt_fieldcat TYPE slis_t_fieldcat_alv ,
gds_fieldcat TYPE slis_fieldcat_alv ,
gds_layout TYPE slis_layout_alv .
DATA : gdf_flifn TYPE i .
DATA : gdf_erro TYPE c .
*----------------------------------------------------------------------*
* 定义选择界面
*----------------------------------------------------------------------*
*SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-011.
*PARAMETERS: r_1 RADIOBUTTON GROUP g2 DEFAULT 'X' ,
* r_2 RADIOBUTTON GROUP g2.
*SELECTION-SCREEN END OF BLOCK b4.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text - 011 .
PARAMETERS : p_infile TYPE rlgrap -filename MEMORY ID m01 .
PARAMETERS : p_test AS CHECKBOX . "DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK b1 .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_infile .
PERFORM frm_get_path . "获取文件路径
START-OF-SELECTION .
" IF r_1 = 'X'.
PERFORM frm_upload_data . "数据上载
PERFORM frm_check_data . "数据校验
PERFORM frm_update_sourcelist . "货源清单上传
PERFORM frm_alv_display . "结果显示
* ELSE.
* "submit AQZZZ_ME11======Z_ME11======== .
* CALL TRANSACTION 'ZKMM004'.
* ENDIF.
END-OF-SELECTION .
*&---------------------------------------------------------------------*
*& Form FRM_GET_PATH
*&---------------------------------------------------------------------*
* 获取文件上传路径
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_get_path .
CALL FUNCTION 'TB_LIMIT_WS_FILENAME_GET'
EXPORTING
* DEF_FILENAME = ' '
* DEF_PATH = ' '
mask = 'Excel Files,*.xlsx,*.*. '
* MODE = '