SAP ABAP程序 之 交货单查询统计

交货单统计，主要查询 LIKP,LIPS，单价取自VBAP 订单明细表；

*&---------------------------------------------------------------------*
*& Report ZSDR0030
*&---------------------------------------------------------------------*
*&zhangshaohua
*&---------------------------------------------------------------------*
REPORT zSDR0030.
TABLES :likp,lips,zsact0003,kna1,vbap,vbak,vbrp,marm,mvke,vbfa,zmmt0037,but000.

**定义结构
DATA:
  gt_data TYPE TABLE OF zsact0003.

TYPES: BEGIN OF gty_out,
         wadat_ist     LIKE likp-wadat_ist,                            "发货日期
         vkorg         LIKE likp-vkorg,                                "销售组织代码
         vtweg         LIKE lips-vtweg,                                "渠道编码
         vtweg_mc(10)  TYPE c,                              "渠道名称
         vkbur         LIKE lips-vkbur,                                "销售办公室编码
         vkbur_mc(20)  TYPE c,                                     "销售办公室名称
         vkgrp         LIKE vbak-vkgrp,                              "销售组编码
         vkgrp_mc(20)  TYPE c,                                     "销售组名称
         bzirk         LIKE vbkd-bzirk,                                "销售地区
         bzirk_mc(20)  TYPE c,                                "销售地区名称
         kdgrp         LIKE vbkd-kdgrp,                                "客户组
         kdgrp_mc(20)  TYPE c ,                                      "客户组名称
         kunnr         LIKE likp-kunag,                                "客户代码
         name1         LIKE kna1-name1,                                 "客户名称
         matnr         LIKE lips-matnr,                                "物料号
         maKtx         LIKE zmmt0037-maktx,                            "物料描述
         charg         LIKE lips-charg,                                 "批号
         lfart         LIKE likp-lfart,                                "交货单类型
         lfimg         LIKE lips-lfimg,                                "交货数量
         hsdj          LIKE vbap-kwmeng,                               "含税价
         hsje          LIKE vbap-kwmeng,                               "含税价
         vrkme         LIKE lips-vrkme,                                "销售单位
         netwr         LIKE vbap-kzwi1,                                "销售订单行金额
         kwmeng        LIKE vbap-kwmeng,                               "销售订单数量
         vrkme_so      LIKE vbap-vrkme,                      "销售单位
         vbeln         LIKE likp-vbeln,                     "交货单号
         posnr         LIKE lips-posnr,                       "行项目号
         vbtyp_v       LIKE vbfa-vbtyp_v,                     "
         ddbh          LIKE vbak-vbeln ,                         "订单编号
         rybh          LIKE vbpa-kunnr,                           "业务员号
         ryxm          LIKE but000-name_last ,                    "业务员姓名
         zzbusin       LIKE zmmt0037-zzbusin,                  "事业部
         zzproducst    LIKE zmmt0037-zzproducst,                "生产企业
         zzabccat      LIKE zmmt0037-zzabccat,                 "ABC类别
         umVKz         LIKE lips-UMVKZ,                  "每件数量
         umrez      like zmmt0037-umrez,               "标准件数量
         wgbez         LIKE zmmt0037-wgbez,                  "物料组
         zzdosage_desc LIKE zmmt0037-zzdosage_desc,       "剂型描述
         ewbez         LIKE zmmt0037-ewbez,                  "治疗领域
         vtext         LIKE zmmt0037-vtext,                 "产品类别
         zsl           LIKE lips-lfimg,                    "主数量
         fzsl          LIKE lips-lfimg,                    "辅助数量
         vsart         LIKE vbkd-vsart,                          "运输方式
         vsart_mc(20)  TYPE c,                          "运输方式名称
       END OF gty_out.

DATA:
  lv_kwmeng_su TYPE vbap-kwmeng,     "销售单位数量
  lv_kwmeng_bu TYPE vbap-kwmeng,     "基本单位数量
  lv_netwr     TYPE vbap-netwr,      "金额
  lwa_data     TYPE zsact0003,
  lt_marm      TYPE TABLE OF marm,   "单位转化系数
  lwa_marm     TYPE marm,
  lt_mvke      TYPE TABLE OF mvke,   "销售单位
  lwa_mvke     TYPE mvke,
  lv_price     TYPE p LENGTH 11 DECIMALS 5,      "销售单价
  lv_lfimg     TYPE lips-lfimg,      "发货数量
  lv_lfimg_ba  TYPE lips-lfimg,      "发货数量(基本单位)
  lv_fkimg     TYPE vbrp-fkimg,      "开票数量
  lv_fkimg_ba  TYPE vbrp-fkimg.      "开票数量(基本单位)

*标准的ALV输出
* slis 类型池 全局变量 定义，多数没用，
DATA: g_repid             TYPE sy-repid,
      g_line              TYPE slis_fieldcat_alv,
      gt_fieldcat         TYPE slis_t_fieldcat_alv,
      gt_layout           TYPE slis_layout_alv,
      gt_sortinfo         TYPE slis_sortinfo_alv,
      gt_lvc_title        TYPE lvc_title,
      gt_list_top_of_page TYPE slis_t_listheader,
      gt_events           TYPE slis_t_event,
      gt_fcat             TYPE lvc_t_fcat,
      gt_table            TYPE REF TO data,
      gs_settings         TYPE lvc_s_glay,
      f2code              LIKE sy-ucomm VALUE '&TEA'.


* 定义用于输出的内表
DATA: gt_tab TYPE STANDARD TABLE OF gty_out  WITH HEADER LINE.
DATA: gt_tab2 TYPE STANDARD TABLE OF gty_out.

**定义双击执行事务代码 用,  猜的
DATA ok_code LIKE sy-ucomm.

DATA: g_ucomm LIKE sy-ucomm.

DATA:   bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE."用来存储屏幕字段参数值，传递录屏参数
*       messages of call transaction
DATA:   messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE."记录执行BDC过程中产生的消息
DATA: ls_mss LIKE bdcmsgcoll.

*选择屏幕
SELECT-OPTIONS:
  s_kunnr FOR likp-kunag,"客户号
  s_vkorg FOR likp-vkorg,"销售组织
  s_Vtweg FOR LIps-vtweg,"渠道
  s_matnr FOR LIps-matnr,"物料号
  s_FHRQ FOR likp-wadat_ist OBLIGATORY. "实际发货日期


***************************************************************
**2 功能 程序
**************************************************************
** 1 统计发货情况，含正向发货和退货
START-OF-SELECTION.

  "发货
  SELECT
    a~wadat_ist,                            "发货日期
    a~vkorg,                                "销售组织代码
    b~vtweg,                                "渠道编码
    b~vtweg AS vtweg_mc,                              "渠道名称
    b~vkbur,                                "销售办公室编码
    b~vkbur AS vkbur_mc,                                "销售办公室编码
    g~vkgrp,                              "销售组编码
    g~vkgrp AS vkgrp_mc,                              "销售组名称
    e~bzirk,                                "销售地区
    e~bzirk AS bzirk_mc,                                "销售地区名称
    e~kdgrp,                                "客户组
    e~kdgrp AS kdgrp_mc,
    a~kunag AS kunnr,                                "客户代码
    h~name1 ,                               "客户名称
    b~matnr,                                "物料号
    i~maktx,                                "物料描述
    b~charg,                                "批号
    a~lfart,                                "交货单类型
    b~lfimg,                                "交货数量
    f~kzwi1  AS hsdj,              "含税价
    f~kzwi1  AS hsje,              "含税价
    b~vrkme,                                "销售单位
    f~kzwi1 AS netwr,                                "销售订单行金额
    f~kwmeng,                               "销售订单数量
    f~vrkme AS vrkme_so,                     "销售单位
    a~vbeln,
    b~posnr,
    d~vbtyp_v,
    g~vbeln ,                                "订单号
    j~kunnr AS ywy,                          "业务员号
    k~name_last,                       "姓名
    i~zzbusin,        "事业部
    i~zzproducst,                       " 生产企业
    i~zzabccat,                           "ABC分类
    b~umvkz,                  "每件数量
    i~umrez,                    "标准件数量
    i~wgbez,                  "物料组
    i~zzdosage_desc,       "剂型描述
    i~ewbez,                  "治疗领域
    i~vtext,                 "产品类别
    b~lfimg as zsl,                    "主数量
    b~lfimg as fzsl,                    "辅助主数量
    e~vsart,
    ' ' AS vsart_mc

     INTO TABLE @gt_tab
  FROM likp AS a
  INNER JOIN lips AS b
    ON a~vbeln = b~vbeln
  LEFT JOIN vbfa AS d
    ON b~vbeln = d~vbeln
   AND b~posnr = d~posnn
   AND d~vbtyp_v = 'C'                   "只获取销售订单和交货单的关联数据
  LEFT JOIN vbkd AS e
    ON d~vbelv = e~vbeln
  LEFT JOIN vbap AS f
    ON d~vbelv = f~vbeln
   AND d~posnv = f~posnr
  LEFT JOIN vbak AS g
    ON d~vbelv = g~vbeln
   LEFT JOIN kna1 AS h
    ON a~kunag = h~kunnr
   LEFT JOIN zmmt0037 AS i
    ON b~matnr = i~matnr
   LEFT JOIN vbpa AS j
    ON a~vbeln = j~vbeln AND j~parvw = 'Z1'
   LEFT JOIN but000 AS k
    ON j~kunnr = k~partner


  WHERE a~wadat_ist  IN @s_FHRQ
    AND a~kunag IN @s_kunnr
    AND b~matnr IN @s_matnr
    AND a~vkorg IN @s_vkorg
    AND b~vtweg IN @s_vtweg
    AND a~wbstk = 'C'
    AND a~lfart = 'LF'.

  "退货
  SELECT
    a~wadat_ist,                            "发货日期
    a~vkorg,                                "销售组织代码
    b~vtweg,                                "渠道编码
    b~vtweg AS vtweg_mc,                              "渠道名称
    b~vkbur,                                "销售办公室编码
    b~vkbur AS vkbur_mc,                                "销售办公室编码
    g~vkgrp,                              "销售组编码
    g~vkgrp AS vkgrp_mc,                              "销售组名称
    e~bzirk,                                "销售地区
    e~bzirk AS bzirk_mc,                                "销售地区名称
    e~kdgrp,                                "客户组
    e~kdgrp AS kdgrp_mc,
    a~kunag AS kunnr,                                "客户代码
    h~name1 ,                               "客户名称
    b~matnr,                                "物料号
    i~maktx,                                "物料描述
    b~charg,                                "批号
    a~lfart,                                "交货单类型
    b~lfimg,                                "交货数量
    f~kzwi1  AS hsdj,              "含税价
    f~kzwi1  AS hsje,              "含税金额
    b~vrkme,                                "销售单位
    f~kzwi1 AS netwr,                                "销售订单行金额
    f~kwmeng,                               "销售订单数量
    f~vrkme AS vrkme_so,                     "销售单位
    a~vbeln,
    b~posnr,
    d~vbtyp_v,
    g~vbeln  ,                               "订单号
    j~kunnr AS ywy,                          "业务员号
    k~name_last ,                      "姓名
    zzbusin,                          "事业部
    zzproducst,                       " 生产企业
    zzabccat,                          "ABC分类
    b~umvkz,                  "每件数量
    i~umrez,                    "标准件数量
    i~wgbez,                  "物料组
    i~zzdosage_desc,       "剂型描述
    i~ewbez,                  "治疗领域
    i~vtext,                 "产品类别
    b~lfimg as zsl,                    "主数量
    b~lfimg as fzsl,                    "辅助主数量
    e~vsart,                          "运输方式
    ' ' AS vsart_mc

    APPENDING TABLE @gt_tab
  FROM likp AS a
  INNER JOIN lips AS b
    ON a~vbeln = b~vbeln
  LEFT JOIN vbfa AS d
    ON b~vbeln = d~vbeln
   AND b~posnr = d~posnn
   AND d~vbtyp_v = 'H'                  "只获取销售订单和交货单的关联数据
  LEFT JOIN vbkd AS e
    ON d~vbelv = e~vbeln
  LEFT JOIN vbap AS f
    ON d~vbelv = f~vbeln
   AND d~posnv = f~posnr
  LEFT JOIN vbak AS g
    ON d~vbelv = g~vbeln
   LEFT JOIN kna1 AS h
    ON a~kunag = h~kunnr
   LEFT JOIN zmmt0037 AS i
      ON b~matnr = i~matnr
   LEFT JOIN vbpa AS j
    ON a~vbeln = j~vbeln AND j~parvw = 'Z1'
   LEFT JOIN but000 AS k
    ON j~kunnr = k~partner

  WHERE a~wadat_ist  IN  @s_FHRQ
  AND a~kunag IN @s_kunnr
    AND b~matnr IN @s_matnr
    AND a~vkorg IN @s_vkorg
    AND b~vtweg IN @s_vtweg
    AND a~lfart = 'LR'.


**2 将相关列取值由代码变为中文描述

**取订单类型字典
  SELECT auart,bezei AS ddlx  INTO TABLE @DATA(ddlx) FROM tvakt WHERE auart LIKE 'Z%' AND spras = '1'  .

**取运输方式字典
  SELECT bezei, vsart INTO TABLE @DATA(ysfs) FROM t173t  WHERE  spras = '1'  .
  LOOP AT ysfs  ASSIGNING FIELD-SYMBOL(<ysfs>).
    CLEAR gt_tab.
    gt_tab-vsart_mc = <ysfs>-bezei.
    "MODIFI 内表名 FROM 结构（如果同名，可以不要 FROM GT_TAB） TRANSPORTING 要修改的字段名 WHERE 字段名= 新值。
    MODIFY gt_tab FROM gt_tab  TRANSPORTING vsart_mc WHERE vsart = <ysfs>-vsart.
  ENDLOOP.
**取销售渠道字典
**SELECT  vtweg,  vtext INTO TABLE @DATA(xsqd)  FROM tvtwt   WHERE  spras = '1'.
*  查询渠道
  SELECT  vtweg,  vtext  INTO TABLE @DATA(vtweg1)  FROM tvtwt  WHERE  spras = '1'  .
  LOOP AT vtweg1  ASSIGNING FIELD-SYMBOL(<vtweg1>).
    CLEAR gt_tab.
    gt_tab-vtweg_mc = <vtweg1>-vtext.
    "MODIFI 内表名 FROM 结构（如果同名，可以不要 FROM GT_TAB） TRANSPORTING 要修改的字段名 WHERE 字段名= 新值。
    MODIFY gt_tab FROM gt_tab  TRANSPORTING vtweg_mc WHERE vtweg = <vtweg1>-vtweg.
  ENDLOOP.


**取销售组织
  SELECT  vkorg, vtext INTO TABLE @DATA(xszz)  FROM tvkot WHERE  spras = '1'    .
  LOOP AT xszz  ASSIGNING FIELD-SYMBOL(<xszz>).
    CLEAR gt_tab.
    gt_tab-vkorg = <xszz>-vtext.
    MODIFY gt_tab FROM gt_tab  TRANSPORTING vkorg WHERE vkorg = <xszz>-vkorg.
  ENDLOOP.

*  查询销售办公室
  SELECT  vkbur,  bezei  INTO TABLE @DATA(vkbur)   FROM tvkbt  WHERE  spras = '1'  .
  LOOP AT vkbur  ASSIGNING FIELD-SYMBOL(<vkbur>).
    CLEAR gt_tab.
    gt_tab-vkbur_mc = <vkbur>-bezei.
    MODIFY gt_tab FROM gt_tab  TRANSPORTING vkbur_mc WHERE vkbur = <vkbur>-vkbur.
  ENDLOOP.

**  查询销售组
  SELECT  vkgrp,  bezei  INTO TABLE @DATA(vkgrp)  FROM tvgrt   WHERE  spras = '1'  .
  LOOP AT vkgrp  ASSIGNING FIELD-SYMBOL(<vkgrp>).
    CLEAR gt_tab.
    gt_tab-vkgrp_mc = <vkgrp>-bezei.
    MODIFY gt_tab FROM gt_tab  TRANSPORTING vkgrp_mc WHERE vkgrp = <vkgrp>-vkgrp.
  ENDLOOP.

**  查询销售地区
  SELECT   bzirk,  bztxt  INTO TABLE @DATA(bzirk)  FROM t171t  WHERE  spras = '1'  .
  LOOP AT bzirk  ASSIGNING FIELD-SYMBOL(<bzirk>).
    CLEAR gt_tab.
    gt_tab-bzirk_mc = <bzirk>-bztxt.
    MODIFY gt_tab FROM gt_tab  TRANSPORTING bzirk_mc WHERE bzirk = <bzirk>-bzirk.
  ENDLOOP.
** 查询客户组（客?类型描述）
  SELECT kdgrp,ktext INTO TABLE @DATA(khlx) FROM t151t WHERE spras = '1'.
  LOOP AT khlx ASSIGNING FIELD-SYMBOL(<khlx>).
    CLEAR gt_tab.
    gt_tab-kdgrp_mc = <khlx>-ktext.
    MODIFY gt_tab FROM gt_tab  TRANSPORTING kdgrp_mc WHERE kdgrp = <khlx>-kdgrp.
  ENDLOOP.

**2 处理单价、主数量等其它辅助信息
**FIELD-SYMBOL 指针 可直接更改内表字段的值 .
  LOOP AT gt_tab ASSIGNING FIELD-SYMBOL(<fs_out>).

    <fs_out>-hsdj = <fs_out>-netwr / <fs_out>-kwmeng.   "用销售金额 除以 订单数量，得到 含税单价
    IF <fs_out>-lfart = 'LR'.
      <fs_out>-lfimg =  <fs_out>-lfimg * -1.
      <fs_out>-netwr =  <fs_out>-netwr * -1.
    ENDIF.

    <fs_out>-hsje = <fs_out>-lfimg * <fs_out>-hsdj.  "用交货数量* 订单的含税单价
    if <fs_out>-umvkz > 1.
      <fs_out>-zsl = <fs_out>-lfimg * <fs_out>-umrez."转换为最小包装数
    endif.
    if <fs_out>-umrez <> 0 .
      <fs_out>-fzsl = <fs_out>-zsl / <fs_out>-umrez."转换为标准件包装数
    endif .
    "去掉前导000
    SHIFT <fs_OUT>-kunnr LEFT DELETING LEADING '0'.
    SHIFT <fs_OUT>-vbeln LEFT DELETING LEADING '0'.
    SHIFT <fs_OUT>-matnr LEFT DELETING LEADING '0'.
    SHIFT <fs_OUT>-ddbh LEFT DELETING LEADING '0'.
    SHIFT <fs_OUT>-rybh LEFT DELETING LEADING '0'.
  ENDLOOP.


**删除重复行项目
  SORT gt_tab ASCENDING BY vbeln posnr.
  DELETE  gt_tab  WHERE lfimg = 0 .




END-OF-SELECTION.

**执行函数
  PERFORM frm_show_alv.


* 输出 alv 报表
FORM frm_show_alv .

  DEFINE append_alv_field.
    CLEAR g_line.
    g_line-fieldname    = &1.
    g_line-tabname      = 'GT_ALV'.
    g_line-reptext_ddic = &2.
    g_line-seltext_l    = &2.
    g_line-seltext_m    = &2.
    g_line-seltext_s    = &2.
    g_line-cfieldname   = &3.
    g_line-ctabname     = &4.
    g_line-no_out       = &5.
    g_line-no_zero      = &6.
    g_line-outputlen    = &7.
    g_line-qfieldname   = &8.
    g_line-just         = &9.
    g_line-ddictxt      = 'L'.
    g_line-do_sum       = 'X'.
    IF  g_line-fieldname = 'LFIMG'. "如果字段名为LFIMG，则将小数位设置为0，其它的设置为2位
      g_line-decimals_out       = '0'. "去掉小数点后的0
     ELSE.
       g_line-decimals_out       = '2'. "去掉小数点后的0
    ENDIF.

    APPEND g_line TO gt_fieldcat.
  END-OF-DEFINITION.


**ALV 显示字段
  REFRESH:gt_fieldcat.
  gt_layout-colwidth_optimize = 'X'. " 自适应宽度

  append_alv_field 'VKORG' '销售组织' '' '' '' '' '' '' ''.
  append_alv_field 'vtweg' '渠道' '' '' '' '' '' '' ''.
  append_alv_field 'vtweg_mc' '渠道名称' '' '' '' '' '' '' ''.
  append_alv_field 'WADAT_IST' '票据日期' '' '' '' '' '' '' ''.
  append_alv_field 'VBELN' '交货单号' '' '' '' '' '' '' ''.
  append_alv_field 'RYBH' '业务员号' '' '' '' '' '' '' ''.
  append_alv_field 'RYXM' '业务员姓名' '' '' '' '' '' '' ''.
  append_alv_field 'kunnr' '客户号' '' '' '' '' '' '' ''.
  append_alv_field 'name1' '客户名称' '' '' '' '' '' '' ''.
  append_alv_field 'matnr' '物料号' '' '' '' '' '' '' ''.
  append_alv_field 'maktx' '物料描述' '' '' '' '' '' '' ''.
  append_alv_field 'charg' '批号' '' '' '' '' '' '' ''.
  append_alv_field 'lfart' '类型' '' '' '' '' '' '' ''.
  append_alv_field 'LFIMG' '交货数量' '' '' '' '' '' '' ''.
  append_alv_field 'zsl' '主数量' '' '' '' '' '' '' ''.
  append_alv_field 'fzsl' '辅助数量' '' '' '' '' '' '' ''.

  append_alv_field 'hsdj' '单价' '' '' '' '' '' '' ''.
  append_alv_field 'hsje' '金额' '' '' '' '' '' '' ''.
  append_alv_field 'NETWR' '订单金额' '' '' '' '' '' '' ''.
  append_alv_field 'KWMENG' '订单数量' '' '' '' '' '' '' ''.
  append_alv_field 'VTWEG' '行项目' '' '' '' '' '' '' ''.
  append_alv_field 'DDBH' '订单号' '' '' '' '' '' '' ''.
  append_alv_field 'kdgrp' '客户类型' '' '' '' '' '' '' ''.
  append_alv_field 'kdgrp_mc' '客户类型名称' '' '' '' '' '' '' ''.
  append_alv_field 'vkbur' '销售办公室' '' '' '' '' '' '' ''.
  append_alv_field 'vkbur_mc' '销售办名称' '' '' '' '' '' '' ''.
  append_alv_field 'vkgrp' '销售组' '' '' '' '' '' '' ''.
  append_alv_field 'vkgrp_mc' '销售组名称' '' '' '' '' '' '' ''.
  append_alv_field 'bzirk' '销售地区号' '' '' '' '' '' '' ''.
  append_alv_field 'bzirk_mc' '销售地区' '' '' '' '' '' '' ''.
  append_alv_field 'zzbusin' '事业部' '' '' '' '' '' '' ''.
  append_alv_field 'zzproducst' '生产企业' '' '' '' '' '' '' ''.
  append_alv_field 'zzabccat' 'ABC分类' '' '' '' '' '' '' ''.
  append_alv_field 'vsart' '运输方式1' '' '' '' '' '' '' ''.
  append_alv_field 'vsart_mc' '运输方式' '' '' '' '' '' '' ''.
  append_alv_field 'umrez' '件数量' '' '' '' '' '' '' ''.
  append_alv_field 'wgbez' '物料组' '' '' '' '' '' '' ''.
  append_alv_field 'zzdosage_desc' '剂型' '' '' '' '' '' '' ''.
  append_alv_field 'ewbez' '治疗领域' '' '' '' '' '' '' ''.
  append_alv_field 'vtext' '产品类别' '' '' '' '' '' '' ''.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
*     i_callback_pf_status_set = 'FRM_STATUS'   "GUI指定子程序
*     i_callback_user_command  = 'FRM_USER_COMM' "客户命令指定子程序
      is_layout          = gt_layout
      it_fieldcat        = gt_fieldcat[]
*     it_events          = events[]
    TABLES
      t_outtab           = gt_tab[] "指定要显示的内表名称
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.


ENDFORM.