涉及的事务码 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.