ABAP 订单-交货单-发货过账自动完成案例-优快云博客

本文介绍了一个名为 ZSDR006 的 ABAP 报表，该报表涉及复杂的物料退货流程，包括退货单、发货单、退货原因等关键字段，并详细说明了每个字段的数据类型及其含义。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

*&---------------------------------------------------------------------*
*& Report  ZSDR006
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码
*&导入模板：
*&作者
*&时间
*&---------------------------------------------------------------------*
REPORT zsdr006_1 MESSAGE-ID 00.
TYPE-POOLS:ole2,slis,icon.
FIELD-SYMBOLS: <fs>.

TABLES: sscrfields,ztsd014,ztsd015,mchb,t001l.

TYPES: BEGIN OF ty_output,
         sel       TYPE c,
         batno     TYPE ztsd015-batno, "批导序号
         batpo     TYPE ztsd015-batpo, "验单批导序号
         verno     TYPE ztsd016-verno, "版本号
         indat     TYPE ztsd015-indat, "日期
*         KUNNR     TYPE KUNNR, "客户号
*         NAME1     TYPE KNA1-NAME1, "客户名称
         lgort     TYPE lgort_d, "库存地点
         lgobe     TYPE lgobe, "库存地点描述
         matnr     TYPE ztsd015-matnr, "物料号
         maktx     TYPE makt-maktx, "物料描述
         menge     TYPE ztsd015-menge, "退货数量
         meins     TYPE meins, "数量单位
         zsl1      TYPE menge_d,
         zdw1      TYPE meins,
*         CHARG     TYPE CHARG_D, "批次
*         ZYDJG     TYPE ZTSD009-ZYDJG, "验单价格
*         ZYDDH     TYPE ZTSD009-ZYDDH, "验单单号
         zthdd     TYPE ztsd016-zthdd, "退货订单
         zthdn     TYPE likp-vbeln, "退货发货单号
         zmfck     TYPE ztsd016-zmfck, "免费出库订单
         zdn       TYPE ztsd015-zdn, "免费出库交货单
         zstat     TYPE ztsd015-zstat, "退货已过帐
         ztext     TYPE char10, "状态描述
         zicon1    TYPE char4, "导入状态
*         VKBUR     TYPE VKBUR, "销售部门
*         BEZEI TYPE TVKBT-BEZEI, "销售部门描述
         shpto     TYPE kunnr, "送达方
         name2     TYPE kna1-name1,
         sldto     TYPE kunnr, "售达方
         name3     TYPE kna1-name1,
         zyddh(35), "验单单号
         zthlx     TYPE zthlx, "退货类型
         zthms     TYPE char4, "退货类型描述
         augru     TYPE augru, "退货原因
         zthyy     TYPE ztsd015-zthyy, "退货原因
         cellcolor TYPE lvc_t_scol, "控制单元格颜色
         style     TYPE lvc_t_styl, "控制单元格可否编辑
         zddjg     TYPE kbetr_kond, "订单价格
         zddje     TYPE kbetr_kond, "总金额
         zr        TYPE char30, "主任
         zywy      TYPE char30, "业务员
         pstyv     TYPE lips-pstyv, "交货项目类型

         mssg      TYPE bapi_msg, "消息内容
         zuser     TYPE ztsd014-zuser,
         zdate     TYPE ztsd014-zdate,
         wbstk1    TYPE vbuk-wbstk, "货物移动状态1
         fkstk1    TYPE vbuk-fkstk, "开票状态
         fkstk2    TYPE vbuk-fkstk, "开票状态
         wbstk2    TYPE vbuk-wbstk, "货物移动状态
         key       TYPE char15,
         budat     TYPE mkpf-budat,

       END OF ty_output.

TYPES: BEGIN OF ty_load,
         indat TYPE ztsd015-indat, "日期 1
         sldto TYPE kunnr, "售达方       2
         shpto TYPE kunnr, "送达方       3
         zywy  TYPE char30, "业务员     4
         zr    TYPE char30, "主任       5
         zyddh TYPE char35, "退单单号   6
         augru TYPE tvau-augru, "退货原因编码     7
         lgort TYPE lgort_d, "库存地点        8
         pstyv TYPE lips-pstyv, "交货项目类型   9
         matnr TYPE ztsd015-matnr, "物料编码   10
         menge TYPE menge_d, "退货数量           11
         meins TYPE meins, "数量单位               12
         zddjg TYPE kbetr_kond,