SD 销售价格查询报表

涉及的事务码 t_code : vb21 创建定价条件，v/ld 查询定价

text symbol

 

 

B01 带删除标志的 12 12
B02 带冻结标志的 12 12
B03 只显示最新价格 14 14
B04 显示阶梯报价 12 15
B05 只显示阶梯报价 14 15
B06 不显示阶梯报价 14 15
B07 客户组+物料 11 15
B08 客户+物料 9 15
B09 物料 4 15
T01 查询类别 8 12
T02 主查询条件 10 12
T03 辅助筛选条件 12 12

selection text 

P_CGM 客户组+物料
P_CM 客户+物料
P_DATAB 有效起始日期
P_DEL 带删除标识
P_DQXSJ 只显示当前价格
P_JTBJ1 显示阶梯报价
P_JTBJ2 只显示阶梯报价
P_JTBJ3 不显示阶梯报价
P_KDGRP 客户组
P_KFRST 显示冻结的
P_KSCHL 条件类型
P_KUNNR 客户
P_MATKL 物料组
P_MATNR 物料
P_MM 物料
P_VKORG 销售组织

P_VTWEG 分销渠道
P_ZXXSJ 只显示最新价格

source code

________ ______________________________

*&---------------------------------------------------------------------*
*& Report  YSDR0040
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ysdr0040 MESSAGE-ID 1000.
INCLUDE y_alv_func.
INCLUDE zabap_public.
INCLUDE <icon>.
TABLES: a903,mara,a304,a305,konp,kona.

**IT_SHOW显示内标
**销售组织/分销渠道/客户组/物料
**客户/物料
**物料
DATA:BEGIN OF it_show OCCURS 0,
  khlx TYPE string ,"客户类型 pr01 国内 pro3 海外
  kschl  LIKE a903-kschl,"条件类型
  vtext  LIKE t685t-vtext,"条件类型描述
  vkorg  LIKE a903-vkorg,"销售组织
  vtweg  LIKE a903-vtweg,"分销渠道
  kdgrp  LIKE a903-kdgrp,"客户组
  ktext  LIKE t151t-ktext,"客户组描述
  kunnr  LIKE a305-kunnr,"客户
  name1 LIKE kna1-name1,"客户描述
  matnr  LIKE a903-matnr,"物料号
  maktx LIKE makt-maktx,"物料描述
  datab  LIKE a903-datab,"出厂有效起始日
  datbi  LIKE a903-datbi,"出厂有效截止日期
  knumh  LIKE a903-knumh,"出厂记录号
  kfrst  LIKE a903-kfrst,"出产批准状态
  kbetr LIKE konp-kbetr,"出厂价格
  konwa LIKE konp-konwa,"货币单位
  kpein LIKE konp-kpein,"价格单位
  kmein LIKE konp-kmein,"价格计量单位
  kbetr1 LIKE konp-kbetr,"折扣比例
  kbetr2 LIKE konp-kbetr,"销售价格
  loevm_ko LIKE konp-loevm_ko,"删除标记
  datab1 LIKE a903-datab,"折扣有效起始日
  datbi1 LIKE a903-datbi,"折扣有效截止日期
  knumh1 LIKE a903-knumh,"折扣记录号
  kfrst1  LIKE a903-kfrst,"折扣批准状态
  kschl1  LIKE a903-kschl,"折扣类型
  loevm_ko1 LIKE konp-loevm_ko,"删除标记
  datab2 LIKE a903-datab,"销售价格有效起始日
  datbi2 LIKE a903-datbi,"销售价格截止日期
  kfrst2  LIKE a903-kfrst,"销售价格批准状态
  loevm_ko2 LIKE konp-loevm_ko,"删除标记
  matkl LIKE mara-matkl,"物料组
  knuma_ag LIKE konp-knuma_ag,"审批编号
  knuma_ag1 LIKE konp-knuma_ag,"审批编号
  klfn1 LIKE konm-klfn1,"阶梯报价
  kstbm LIKE konm-kstbm,"阶梯数
  kbetr3 LIKE konm-kbetr,"阶梯报价
  jtbz(4) TYPE c,"阶梯报价标志
*  zxxsj TYPE c,"最新销售价
*  kbstat  LIKE a903-kbstat,"定价的处理状态
  zxzk  TYPE c,"最新折扣
  dqjg TYPE c,"当前价格
END OF it_show.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.

SELECTION-SCREEN BEGIN OF LINE.

*客户组+物料
PARAMETERS:p_cgm TYPE c RADIOBUTTON GROUP g1 USER-COMMAND g2 .
SELECTION-SCREEN COMMENT 3(15) text-b07 FOR FIELD p_jtbj1.
SELECTION-SCREEN POSITION 20.
*客户+物料
PARAMETERS:p_cm TYPE c RADIOBUTTON GROUP g1     .
SELECTION-SCREEN COMMENT 23(15) text-b08 FOR FIELD p_jtbj2.
SELECTION-SCREEN POSITION 40.
*物料
PARAMETERS:p_mm TYPE c RADIOBUTTON GROUP g1     .
SELECTION-SCREEN COMMENT 43(20) text-b09 FOR FIELD p_jtbj3.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02  .
PARAMETERS: p_datab LIKE a903-datab  OBLIGATORY DEFAULT sy-datum."sy-datum.
SELECT-OPTIONS:       p_kfrst1 FOR  kona-kfrst NO-DISPLAY."审核状态
SELECT-OPTIONS:  p_vkorg  FOR a903-vkorg MODIF ID g2,"销售组织
  p_vtweg  FOR a903-vtweg MODIF ID g2,"分销渠道
  p_kdgrp FOR a903-kdgrp MODIF ID g3 DEFAULT  '01',"客户组      .
  p_kunnr FOR a305-kunnr MODIF ID g4,"客户号
  p_matkl FOR mara-matkl MODIF ID g2,"物料组
  p_matnr FOR mara-matnr MODIF ID g2,"物料号
  p_matnr1 FOR mara-matnr MODIF ID g2 NO-DISPLAY,"物料号
  p_del1 FOR konp-loevm_ko NO-DISPLAY,"删除

  p_kschl FOR a903-kschl MODIF ID g2."条件类型
SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-t03 .
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_del TYPE c AS CHECKBOX ."删除标记 DEFAULT  'X'

SELECTION-SCREEN COMMENT 3(15) text-b01 FOR FIELD p_del.
SELECTION-SCREEN POSITION 20.
PARAMETERS: p_kfrst TYPE c AS CHECKBOX."审批状态
SELECTION-SCREEN COMMENT 23(15) text-b02 FOR FIELD p_kfrst.
SELECTION-SCREEN POSITION 40.
PARAMETERS: p_zxxsj TYPE c AS CHECKBOX  DEFAULT  ''."最新销售价格
SELECTION-SCREEN COMMENT 43(20) text-b03 FOR FIELD p_zxxsj.
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_dqxsj TYPE c AS CHECKBOX DEFAULT  'X' ."当前价格

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_jtbj1 TYPE c RADIOBUTTON GROUP g2.  "显示阶梯报价
SELECTION-SCREEN COMMENT 3(15) text-b04 FOR FIELD p_jtbj1.
SELECTION-SCREEN POSITION 20.
PARAMETERS:p_jtbj2 TYPE c RADIOBUTTON GROUP g2.  "只显示阶梯报价
SELECTION-SCREEN COMMENT 23(15) text-b05 FOR FIELD p_jtbj2.
SELECTION-SCREEN POSITION 40.
PARAMETERS:p_jtbj3 TYPE c RADIOBUTTON GROUP g2.  "不显示阶梯报价
SELECTION-SCREEN COMMENT 43(20) text-b06 FOR FIELD p_jtbj3.

SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b3.
SELECT-OPTIONS: p_dd FOR sy-datum NO-DISPLAY."

*selection-screen end of block b3.

INITIALIZATION.

  p_cgm = 'X'.
  p_jtbj3  = 'X'.

AT SELECTION-SCREEN OUTPUT.
  ucomm = sy-ucomm .
  LOOP AT SCREEN.
    CASE screen-group1.
      WHEN 'G3'.
        IF p_cgm = 'X'  .
          screen-active = '1'.
        ELSE.
          screen-active = '0'.
        ENDIF.

      WHEN 'G4'.
        IF p_cm = 'X'  .
          screen-active = '1'.
        ELSE.