Code listing for: ZSD020
Description: 根据销售订单创建交货单并过账发货
*&---------------------------------------------------------------------* * 程序名称: 根据销售订单创建交货单并过账发货 * 程序名 :ZSD020 * 开发日期:2013-08-26 * 创建者 :ZCY * 申请者 : *----------------------------------------------------------------------* * 概 要 :2013-08-26 初次开发 *&---------------------------------------------------------------------* REPORT ZSD020. ***************************************************************** *TYPE DECLARATION ***************************************************************** TYPES:BEGIN OF TY_TAB_UPLOAD, "上传文件接收表 SHIP_POINT TYPE BAPIDLVCREATEHEADER-SHIP_POINT, "装运点 VBELN(10) TYPE C, "订单号 REF_ITEM TYPE RFPOS_VL, "项目 DLV_QTY TYPE LFIMG, "交货数量 MESSAGE TYPE STRING, END OF TY_TAB_UPLOAD. TYPES:BEGIN OF TY_VBAP, VRKME TYPE VBAP-VRKME, END OF TY_VBAP. ***************************************************************** *TYPE DECLARATION ***************************************************************** TABLES: VBAP. ************************************************************************ * INTERNAL TABLE DECLARATION ************************************************************************ DATA: IT_TAB_UPLOAD TYPE STANDARD TABLE OF TY_TAB_UPLOAD, "上传文件接收表 IT_INTERN LIKE STANDARD TABLE OF ALSMEX_TABLINE, "EXCEL文件接收表 SALES_ITEMS LIKE STANDARD TABLE OF BAPIDLVREFTOSALESORDER, "BAPI输入表: IT_RETURN LIKE STANDARD TABLE OF BAPIRET2, "BAPI返回参数 IT_SERIAL_NUMBERS LIKE STANDARD TABLE OF BAPIDLVSERIALNUMBER, "BAPI返回参数 IT_EXTENSION_IN LIKE STANDARD TABLE OF BAPIPAREX, "BAPI返回参数 IT_DELIVERIES LIKE STANDARD TABLE OF BAPISHPDELIVNUMB, "BAPI返回参数 IT_CREATED_ITEMS LIKE STANDARD TABLE OF BAPIDLVITEMCREATED, "BAPI返回参数 IT_EXTENSION_OUT LIKE STANDARD TABLE OF BAPIPAREX. "BAPI返回参数 ************************************************************************ * WORKAREA DECLARATION ************************************************************************ DATA: WA_VBAP TYPE TY_VBAP, WA_TAB_UPLOAD TYPE TY_TAB_UPLOAD, "上传文件接收表 WA_SALES_ITEMS TYPE BAPIDLVREFTOSALESORDER, "BAPI输入表: G_SHIP_POINT TYPE BAPIDLVCREATEHEADER-SHIP_POINT, "装运点 WA_INTERN LIKE ALSMEX_TABLINE, "EXCEL参数表 G_DELIVERY TYPE BAPISHPDELIVNUMB-DELIV_NUMB, "BAPI返回参数 G_NUM_DELIVERIES TYPE BAPIDLVCREATEHEADER-NUM_DELIVERIES, "BAPI返回参数 WA_CREATED_ITEMS LIKE BAPIDLVITEMCREAT