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