【南京】根据销售订单创建交货单并自动拣配、过账发货程序

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