SD 客户销售金额

001 进一步选择 10 10
002 机构数据 8 8
003 合作伙伴功能 12 12
B10 我的订单 8 8
B11 未清销售订单 12 12
B12 计划行项目 10 10
B13 所有订单 8 8
B14 排除拒绝发货 12 12
B15 排除未审核通过订单 18 20
E01 订单数据 8 8
E02 发货数据 8 8
E03 选择标准 8 8
E04 销售区域 8 8
E05 K 1 1

 

LABGRU ?...
LLABST ?...
PEDATU 计划行日期
PVDATU 请求交货日期
P_AUART 订单类别
P_AUDAT 凭证日期
P_BBANME 创建者
P_BZIRK 销售区域
P_HZ 客户汇总
P_KKBERR 采购订单编号
P_MATKL 物料组
P_MATNR 物料编号
P_SHZT ?...
P_SPART 产品组
P_VBELN 凭证编号
P_VKBUR 办事处

SHOW_NRM ?...
SHOW_ZER 所有订单
S_KUNNR 售达方
S_VKORG 账户类型
________ ______________________________

 

************************************************************************
*& 修改日期：2010.05.25
*& 修 改 人：zhouxu V1.0
*& 修改原因：1 加客户取消数量和金额显示字段
*&           2 当冻结项目时，部分发货的记录保留，有效订单数量为已发货量，有效订单金额为已发货金额
*&
*& 修改日期：2010.06.13
*& 修 改 人：zhouxu V1.1
*& 修改原因：1 显示ZK07和ZK05的折扣原因

*& 修改日期：2010.08.12
*& 修 改 人：zhouxu V1.2
*& 修改原因：1 增加订单审批状态 默认排除“未审核通过的”
*& 修改日期：2010.08.23
*& 修 改 人：zhouxu V1.3
*& 修改原因：1 增加订单审批状态 取消默认排除“未审核通过的”
*& 修改日期：2010.09.1
*& 修 改 人：zhouxu V1.4
*& 修改原因：1 取消订单金额  = 本位币总金额 - 本位币实际发货金额
*&
*& 修改日期：2010.10.27
*& 修 改 人：zhouxu V1.5
*& 修改原因：按客户汇总
*&
REPORT  ysd0015 MESSAGE-ID pp
LINE-SIZE 30
        NO STANDARD PAGE HEADING.

DATA: inp(2) TYPE c, top(2) TYPE c.
TABLES: kna1,mara,t171t,m_mat1t,vbak,vbap,likp,lips,knvv,vbuk,
        vbep,makt,vbkd,usr02,tvakt,vbup,tj30t,jsto,jest.
INCLUDE yppr006b.
INCLUDE ybdcinclude.
TABLES:sscrfields.

DATA:BEGIN OF it_show OCCURS 0 ,                            " ADD V1.5
kunnr LIKE   kna1-kunnr ,
name1 LIKE kna1-name1,
ktokd LIKE kna1-ktokd,
knkli LIKE knkk-knkli,"信贷账号
kkber LIKE knkk-kkber,"信贷控制范围
klimk LIKE knkk-klimk,"信贷限额
skfor LIKE knkk-skfor,"应收总额
cashc LIKE knkk-cashc,"货币
ctlpc LIKE knkk-ctlpc,"风险种类
 crblb LIKE knkk-crblb,"信贷冻结
 wqdd TYPE p LENGTH 16 DECIMALS 2," 未清订单 ，
 wqjhd TYPE p LENGTH 16 DECIMALS 2 ,"未清交货单
 wqjhzt TYPE c LENGTH  20 , " 未清项状态
 wqjhsl TYPE p LENGTH 16 DECIMALS 3,"未清数量
 ddje  TYPE p LENGTH 16 DECIMALS 2,"订单 金额
 ddsl  TYPE p LENGTH 16 DECIMALS 3,"订单数量
  END OF it_show.
DATA: BEGIN OF choose_data_get1,
      vbeln LIKE vbak-vbeln,  " 凭证编号
      vgbel LIKE  lips-vgbel,   "参考凭证
      audat LIKE vbak-audat,  " 凭证日期
      auart LIKE vbak-auart,  " 订单类别
      matkl LIKE vbap-matkl,  "物料组
      wgbez LIKE t023t-wgbez, "物料组描述
      vkbur LIKE knvv-vkbur,  "办事处
      bzirk  LIKE knvv-bzirk,   "销售地区
      bztxt  LIKE t171t-bztxt,"销售地区描述
      bezeii LIKE tvkbt-bezei,
      dispo LIKE marc-dispo,  "MRP控制者kaijunli
      kunnr LIKE vbak-kunnr,  " 客户编码"送达方kaijunli
      vdatu LIKE vbak-vdatu,  "请求交货日期lkj
      kunag LIKE likp-kunag,  " 客户编码"售达方kaijunli
      kunnr1 LIKE likp-kunnr, "送达方kaijunli
      ernam LIKE vbap-ernam,   "创建者姓名
      abgru LIKE vbap-abgru,   "拒绝发货原因kaijunli
      bezeiabg LIKE tvagt-bezei,  "拒绝原因中文kaijunli
      posnr LIKE vbup-posnr,  "订单项目
      sposnr LIKE vbup-posnr,  "订单项目
      knumv LIKE vbak-knumv,  "价格条件
      kbetr LIKE konv-kbetr,     "单价
      netwr1 TYPE p DECIMALS 7,     "结算金额
      netwr2 TYPE p DECIMALS 7,     "结算金额
      netwr3 TYPE p DECIMALS 7,     "结算金额
      netwr4 TYPE p DECIMALS 7,     "结算金额
      netwr5 TYPE p DECIMALS 7,     "结算金额
      netwr6 TYPE p DECIMALS 7,     "结算金额
      netwr7 TYPE p DECIMALS 7,     "结算金额
      kbetr1 LIKE konv-kbetr,     "订单金额
      kbetr2 LIKE konv-kbetr,     "未清金额
      kbetr3 LIKE konv-kbetr,     "发货金额
      kbetr4 LIKE konv-kbetr,     "发货金额
      kbetr5 LIKE konv-kbetr,     "经销折扣金额 add by lkj 2009/02/24
      kbetr6 LIKE konv-kbetr,     "订单折扣金额 add by lkj 2009/02/24
      kbetrz3 LIKE konv-kbetr,                              "ZK03订单金额
      kbetr7 LIKE konv-kbetr,     "订单折扣金额海外 add by lkj 2009/04/09
      kbetr8 LIKE konv-kbetr,     "订单折扣金额海外 add by lkj 2009/04/09

      zhekoo LIKE konv-kbetr,     "特价金额
      zheko1 LIKE konv-kbetr,     "发货金额

      vgpos LIKE lips-vgpos,  "参考项目
      umvkz LIKE lips-umvkz,  "转换因子
      umvkn LIKE lips-umvkn,  "转换因子
      umrez LIKE marm-umrez,
      umren LIKE marm-umren,
      umziz LIKE vbap-umziz,
      umzin LIKE vbap-umzin,
      bstnk LIKE vbak-bstnk,    "客户采购订单编号"目前叫订单备注kaijunli
      bsark LIKE vbak-bsark,    "客户采购订单类型
      bstdk LIKE vbak-bstdk,    "客户采购订单日期
      bstzd LIKE vbak-bstzd,    "采购单编号补充

      objnr LIKE vbak-objnr,    "订单状态审批条件编号LKJ 2009/04/21
      stsma LIKE tj30-stsma,
      estat LIKE tj30-estat,
      txt04 LIKE tj30t-txt04,
      txt30 LIKE tj30t-txt30,
      txtstat(100) TYPE c,
      stat LIKE jest-stat,
      inact LIKE jest-inact,

      name1 LIKE kna1-name1,    "客户名称"售达方名称kaijunli
      name2 LIKE kna1-name1,    "客户名称"送达方名称kaijunli
      maktx LIKE makt-maktx,    "物料名称
      bismt LIKE mara-bismt,    "旧物料编码
      etenr LIKE vbep-etenr,    "计划行号
      kwmeng LIKE vbep-wmeng,   "以表示的累计订单数量(销售单位)
      kwmengx LIKE vbep-wmeng,  "以表示的累计订单数量件数
      bmeng LIKE vbep-bmeng,
      matnr LIKE vbap-matnr,    "物料编码
*      vkorg LIKE likp-vkorg,                        "销售组织"即产业1010电工产业1020照明产业add by LKj 2008/10/20
      changye(10) TYPE c,                           "产业
      mvgr1 LIKE mvke-mvgr1,                        "品牌add by LKj 2008/10/20
      bezei1 LIKE tvm1t-bezei,                      "品牌的中文显示add by LKj 2008/10/20
      wmeng  LIKE vbap-kwmeng,  "以销售单位计的订单数量
      kbmeng LIKE vbap-kbmeng,  "用销售单位表示的累计确认数量(销售单位)
      klmeng LIKE vbap-klmeng,  "用基本单位表示的累计确认数量
      edatu  LIKE vbep-edatu,   "计划行日期
      meins LIKE  vbap-meins,   "基本计量单位
      kpein LIKE vbap-kpein,                       "基本条件定价单位kaijunli
      vrkme LIKE  vbap-vrkme,   "销售单位
      lfimg LIKE  lips-lfimg,   "实际交货量
      lfimgx LIKE  lips-lfimg,   "装箱规格件数
      lgmngx LIKE lips-lgmng,  "未清数量
      lgmngxx LIKE lips-lgmng,  "未清件数
      vvbeln LIKE likp-vbeln,   "发货凭证
      wadat_ist  LIKE likp-wadat_ist,   "计划货物移动日期
      lfstk LIKE vbuk-lfstk,   "交货状态
      lfstkx(10) TYPE c,
      cmpsa LIKE vbuk-cmpsa,                      "信贷状态"B表示不通过"其它通过kaijunli
      cmpsax(10) TYPE c,
      gbstk  LIKE vbuk-gbstk,      "总览状态
      gbstkx(10) TYPE c,
      bezei LIKE tvakt-bezei,
      vkorg LIKE knvv-vkorg,
      vtweg LIKE knvv-vtweg,
         zheko(8),
         zheko4(8),
         zheko7(8),
      spart LIKE knvv-spart,
      waerk LIKE vbak-waerk,        "订单币别
      kbetr19 LIKE konv-kbetr,       "订单本币金额
      kbetr20 LIKE konv-kbetr, "add v1.4 本位币实际发货金额
      waers2(3) TYPE c,                "本位币别

      bbezei LIKE tvm1t-bezei,     "物料定价组--品牌
      zkbetr8 LIKE konv-kbetr,                              "返利折扣金额ZK08
      zkbetr9 LIKE konv-kbetr,"物流商折扣金额ZK09
      zkbetr10 LIKE konv-kbetr,     "末清返利金额
      zheko8(8),                                            "返利折扣ZK08
      zheko9(8),                                            "物流商折扣ZK09
      netwr8 TYPE p DECIMALS 7,     "结算金额
      netwr88 TYPE p DECIMALS 7,     "结算金额
      netwr99 TYPE p DECIMALS 7,     "结算金额
      netwr9 TYPE p DECIMALS 7,     "结算金额
      qxje LIKE konv-kbetr,     "取消金额V1.0 ADD
      qxsl LIKE vbep-bmeng, "取消数量V1.0 ADD
      qxjsl LIKE vbep-bmeng, "取消数量V1.0 ADD
      kvgr5 LIKE vbak-kvgr5,                                " V1.1 折扣原因
      yyms TYPE string,                                     "V1.1 原因描述
END OF choose_data_get1.

DATA:  choose_data_get LIKE choose_data_get1 OCCURS 0 WITH HEADER LINE,
       choose_data_getone LIKE choose_data_get1 OCCURS 0 WITH HEADER LINE,
       choose_data_get2 LIKE choose_data_get1 OCCURS 0 WITH HEADER LINE,
       choose_data_get3 LIKE choose_data_get1 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF count_get_data OCCURS 0,
     vgbel  LIKE lips-vgbel,
     vgpos  LIKE lips-vgpos,
     lfimg  LIKE lips-lfimg,
     wadat_ist  LIKE likp-wadat_ist,
     umvkz  LIKE lips-umvkz,
     umvkn  LIKE lips-umvkn,
END OF count_get_data.

DATA: netwr(10),
      netw0(10).

DATA:netwr1 TYPE p DECIMALS 7,
     netwr2 TYPE p DECIMALS 7,
     netwr7 TYPE p DECIMALS 7,

     netwr8 TYPE p DECIMALS 7,
     netwr88 TYPE p DECIMALS 7,
     netwr9 TYPE p DECIMALS 7,
     netwr99 TYPE p DECIMALS 7,

     netwr5 TYPE p DECIMALS 7,
     netwr6 TYPE p DECIMALS 7,
     netwr3 TYPE p DECIMALS 7.

DATA: BEGIN OF count_get_data1 OCCURS 0,
     vgbel  LIKE lips-vgbel,
     vgpos  LIKE lips-vgpos,
     lfimg  LIKE lips-lfimg,
     wadat_ist  LIKE likp-wadat_ist,
     umvkz  LIKE lips-umvkz,
     umvkn  LIKE lips-umvkn,
END OF count_get_data1.

DATA: llfstk LIKE vbuk-lfstk,
      ggbstk LIKE vbuk-gbstk.
*&---------------------------------------------------------------------*
*&      Form  organisationsdaten
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
SELECT-OPTIONS user FOR vbak-bname NO-DISPLAY.

SELECTION-SCREEN SKIP.
*SELECT-OPTIONS : p_kunnr FOR likp-kunnr NO INTERVALS NO-EXTENSION.  "送达方kaijunli
SELECT-OPTIONS : s_kunnr FOR vbak-kunnr  .  "售达方
SELECT-OPTIONS p_vbeln FOR vbak-vbeln  .
SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF BLOCK erblock1 WITH FRAME TITLE text-e04.
SELECT-OPTIONS p_spart FOR mara-spart NO INTERVALS.
SELECT-OPTIONS p_vkbur FOR vbak-vkbur NO INTERVALS.
SELECT-OPTIONS p_auart FOR vbak-auart NO INTERVALS.
SELECT-OPTIONS : s_vkorg FOR knvv-vkorg NO INTERVALS.
SELECT-OPTIONS : p_bzirk FOR knvv-bzirk NO INTERVALS.
SELECT-OPTIONS: p_matkl FOR vbap-matkl NO INTERVALS.
SELECT-OPTIONS p_matnr FOR m_mat1t-matnr NO INTERVALS.
SELECT-OPTIONS : p_kkberr FOR vbkd-bstkd NO INTERVALS.
SELECTION-SCREEN END   OF BLOCK erblock1.

SELECTION-SCREEN BEGIN OF BLOCK erblock WITH FRAME TITLE text-e01.
SELECT-OPTIONS: pvdatu FOR vbak-vdatu.                  " 请求交货日期
SELECT-OPTIONS: pedatu FOR vbep-edatu.                  " 计划行日期
SELECT-OPTIONS p_audat FOR vbak-audat.
SELECT-OPTIONS: p_bbanme FOR usr02-bname.
*SELECT-OPTIONS p_POSNR FOR VBEP-ETENR.
SELECTION-SCREEN END   OF BLOCK erblock.

SELECTION-SCREEN BEGIN OF BLOCK strlock WITH FRAME TITLE text-e03.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:  show_nrm RADIOBUTTON GROUP grp1.
SELECTION-SCREEN COMMENT 3(15) text-b11 FOR FIELD show_nrm.
SELECTION-SCREEN POSITION 20.