SD模块带有双击事件的销售分析报表

选择屏幕

执行结果，可以双击某行跳转到系统标准凭证显示界面

主程序代码：

*--------------------------------------------------------------------*
*定义一个与数据库表同名的表
*--------------------------------------------------------------------*
TABLES:KNA1,KNB1,KNVV,KNVP.
*--------------------------------------------------------------------*
*定义结构
*--------------------------------------------------------------------*
DATA:BEGIN OF IT_OUT OCCURS 0,
VKORG LIKE KNVV-VKORG,"销售组织
VTEXT LIKE TVKOT-VTEXT,"销售组织描述
VTWEG like KNVV-VTWEG, "分销渠道
KUKLA LIKE KNA1-KUKLA, "客户分类
VTEXT_1 LIKE TKUKT-VTEXT,"分销渠道描述
*--------------------------------------------------------------------*
SPART LIKE KNVV-SPART,"产品组
VTEXT_2 LIKE TSPAT-VTEXT,"产品组描述
*--------------------------------------------------------------------*
VKBUR LIKE KNVV-VKBUR,"销售办事处
BEZEI LIKE TVKBT-BEZEI,"销售办事处名称
VKGRP LIKE KNVV-VKGRP,"销售组
BEZEI_1 LIKE TVGRT-BEZEI,"销售组名称
*--------------------------------------------------------------------*
KUNNR LIKE KNA1-KUNNR,"客户编号
KUNN1 LIKE KNA1-KUNNR,"售达方
KUNN2 LIKE KNA1-KUNNR,"送达方
NAME1 LIKE KNA1-NAME1,"客户名称
ADRNR LIKE KNA1-ADRNR,"地址号码
STREET LIKE ADRC-STREET,"街道名称
*--------------------------------------------------------------------*
STCEG LIKE KNA1-STCEG,"税号
BANK1 LIKE KNBK-BANKL,"银行代码
BANKN LIKE KNBK-BANKN,"银行账户
KOINH LIKE KNBK-KOINH,"银行户主
*--------------------------------------------------------------------*
NAME_LAST LIKE ADDR3_DATA-NAME_LAST,"联系人
ABTNR LIKE KNVK-ABTNR,"职位
VTEXT_3 LIKE TSABT-VTEXT,"职位描述
TEL_NUMBER LIKE SZA5_D0700-TEL_NUMBER,"临时存储电话号码
FAX_NUMBER LIKE SZA5_D0700-FAX_NUMBER,"临时传真电话号码
*--------------------------------------------------------------------*
KDGRP LIKE KNVV-KDGRP,"客户等级
KTEXT LIKE T151T-KTEXT,"客户等级描述
KONDA LIKE KNVV-KONDA,"客户价格等级
VTEXT_4 LIKE T188T-VTEXT,"客户价格等级描述
KALKS LIKE KNVV-KALKS,"客户定价
VTEXT_5 LIKE TVKDT-VTEXT,"客户定价描述
*--------------------------------------------------------------------*
VWERK LIKE KNVV-VWERK,"交货地点
NAME2 LIKE T001W-NAME1,"交货地点名称
TELEPHONE(20),"联系电话
SORT2 LIKE ADRC-SORT2,"地址检索项
FAX(20),"传真
PRSNR LIKE KNVK-PRSNR,"人员内部编号
ICON_FOLDER TYPE C LENGTH 15,
END OF IT_OUT.
*--------------------------------------------------------------------*
*定义选择屏幕
*--------------------------------------------------------------------*
SELECT-OPTIONS:S_VKORG FOR KNVV-VKORG OBLIGATORY,
S_KUKLA FOR KNA1-KUKLA,
S_VKBUR FOR KNVV-VKBUR,
S_VKGRP FOR KNVV-VKGRP,
S_KUNNR FOR KNA1-KUNNR,
S_KDGRP FOR KNVV-KDGRP,
S_KUNN1 FOR KNVP-KUNN2,
S_KUNN2 FOR KNVP-KUNN2.
*--------------------------------------------------------------------*`
DATA:1_TEL_NUMBER LIKE ADRC-TEL_NUMBER,
1_TEL_EXTENS LIKE ADRC-TEL_EXTENS,
1_FAX_NUMBER LIKE ADRC-FAX_NUMBER,
1_FAX_EXTENS LIKE ADRC-FAX_EXTENS,
1_NAME1 LIKE KNVK-NAME1,
1_NAMEV LIKE KNVK-NAMEV.
*--------------------------------------------------------------------*
*定义ALV池
*--------------------------------------------------------------------*
INCLUDE <ICON>.
TYPE-POOLS:SLIS.
DATA:IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
IT_EVENT TYPE SLIS_T_EVENT,
IT_LAYOUT TYPE SLIS_LAYOUT_ALV,
G_F2CODE LIKE SY-UCOMM VALUE 'LETA'.
*--------------------------------------------------------------------*
*主处理
*--------------------------------------------------------------------*
START-OF-SELECTION.
SELECT KNVV~VKORG
KNVV~VTWEG
KNVV~SPART
KNVV~VKBUR
KNVV~VKGRP
KNA1~KUNNR
KNA1~NAME1
KNA1~STCEG
KNVV~KDGRP
KNVV~KONDA
KNVV~KALKS
KNVV~VWERK
KNVV~EIKTO
KNA1~ADRNR
KNA1~KUKLA
KNVV~CASSD
INTO CORRESPONDING FIELDS OF TABLE IT_OUT
FROM KNA1
INNER JOIN KNVV ON KNA1~KUNNR = KNVV~KUNNR
WHERE KNVV~KUNNR IN S_KUNNR
AND KNVV~VKORG IN S_VKORG
AND KNA1~KUKLA IN S_KUKLA
AND KNVV~VKGRP IN S_VKGRP
AND KNVV~KDGRP IN S_KDGRP
AND KNVV~VKBUR IN S_VKBUR.
SORT IT_OUT BY KUNNR VKORG.
LOOP AT IT_OUT.
SELECT SINGLE KUNN2 INTO IT_OUT-KUNN1
FROM KNVP WHERE KUNNR = IT_OUT-KUNNR
AND SPART = IT_OUT-SPART
AND VKORG = IT_OUT-VKORG
AND PARVW = 'AG'.
IF IT_OUT-KUNN1 NOT IN S_KUNN1.
DELETE IT_OUT.
CONTINUE.
ENDIF.
SELECT SINGLE KUNN2 INTO IT_OUT-KUNN2
FROM KNVP WHERE KUNNR = IT_OUT-KUNNR
AND SPART = IT_OUT-SPART
AND VKORG = IT_OUT-VKORG
AND PARVW = 'WE'.
IF IT_OUT-KUNN2 NOT IN S_KUNN2.
DELETE IT_OUT.
CONTINUE.
ENDIF.
SELECT SINGLE BANKL BANKN KOINH INTO (IT_OUT-BANK1,IT_OUT-BANKN,IT_OUT-KOINH)
FROM KNBK WHERE KUNNR = IT_OUT-KUNNR.
SELECT SINGLE VTEXT INTO IT_OUT-VTEXT
FROM TVKOT WHERE VKORG = IT_OUT-VKORG.
SELECT SINGLE VTEXT INTO IT_OUT-VTEXT_1
FROM TKUKT WHERE KUKLA = IT_OUT-KUKLA.
SELECT SINGLE VTEXT INTO IT_OUT-VTEXT_2
FROM TSPAT WHERE SPART = IT_OUT-SPART.
SELECT SINGLE BEZEI INTO IT_OUT-BEZEI
FROM TVKBT WHERE VKBUR = IT_OUT-VKBUR.
SELECT SINGLE BEZEI INTO IT_OUT-BEZEI_1
FROM TVGRT WHERE VKGRP = IT_OUT-VKGRP.
SELECT SINGLE STREET SORT2 INTO (IT_OUT-STREET,IT_OUT-SORT2)
FROM ADRC WHERE ADDRNUMBER = IT_OUT-ADRNR.
CLEAR:1_NAME1, 1_NAMEV."获取合作伙伴的信息
SELECT SINGLE NAME1 NAMEV PRSNR ABTNR
INTO (1_NAME1,1_NAMEV,IT_OUT-PRSNR,IT_OUT-ABTNR)
FROM KNVK WHERE KUNNR = IT_OUT-KUNNR.
CONCATENATE 1_NAME1 1_NAMEV INTO IT_OUT-NAME_LAST.
*--------------------------------------------------------------------*
***职位描述
SELECT SINGLE VTEXT INTO IT_OUT-VTEXT_3
FROM TSABT WHERE ABTNR = IT_OUT-ABTNR.
***客户等级描述
SELECT SINGLE KTEXT INTO IT_OUT-KTEXT
FROM T151T WHERE KDGRP = IT_OUT-KDGRP.
***客户价格等级描述
SELECT SINGLE VTEXT INTO IT_OUT-VTEXT_4
FROM T188T WHERE KONDA = IT_OUT-KONDA.
***客户定价描述
SELECT SINGLE VTEXT INTO IT_OUT-VTEXT_5
FROM TVKDT WHERE KALKS = IT_OUT-KALKS.
***交货地点名称
SELECT SINGLE NAME1 INTO IT_OUT-NAME2
FROM T001W WHERE WERKS = IT_OUT-VWERK.
*--------------------------------------------------------------------*
*电话传真
*--------------------------------------------------------------------*
CLEAR: 1_TEL_NUMBER,
1_TEL_EXTENS,
1_FAX_NUMBER,
1_FAX_EXTENS.
SELECT SINGLE TEL_NUMBER
TEL_EXTENS
FAX_NUMBER
FAX_EXTENS
INTO (1_TEL_NUMBER,1_TEL_EXTENS,1_FAX_NUMBER,1_FAX_EXTENS)
FROM ADCP WHERE PERSNUMBER = IT_OUT-PRSNR.
IF 1_TEL_EXTENS <> SPACE.
CONCATENATE 1_TEL_NUMBER '-' 1_TEL_EXTENS INTO IT_OUT-TELEPHONE.
ELSE.
IT_OUT-TELEPHONE = 1_TEL_NUMBER.
ENDIF.
IF 1_FAX_EXTENS <> SPACE.
CONCATENATE 1_FAX_NUMBER '-' 1_FAX_EXTENS INTO IT_OUT-FAX.
ELSE.
IT_OUT-FAX = 1_FAX_NUMBER.
ENDIF.
MODIFY IT_OUT.
CLEAR IT_OUT.
ENDLOOP.
LOOP AT IT_OUT .
CASE IT_OUT-KDGRP.
WHEN '01'.
IT_OUT-ICON_FOLDER = icon_led_green.
WHEN '02'.
IT_OUT-ICON_FOLDER = icon_led_YELLOW.
WHEN '03'.
IT_OUT-ICON_FOLDER = icon_led_RED.
ENDCASE.
MODIFY IT_OUT .
ENDLOOP.
END-OF-SELECTION.
*--------------------------------------------------------------------*
*初始化ALV对象，输出内表数据
*--------------------------------------------------------------------*
DEFINE INITIAL_FIELD.
WA_FIELDCAT-SELTEXT_L = &1.
WA_FIELDCAT-SELTEXT_M = &1.
WA_FIELDCAT-SELTEXT_S = &1.
WA_FIELDCAT-FIELDNAME = &2.
WA_FIELDCAT-EMPHASIZE = &3.
WA_FIELDCAT-ICON = &4.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
END-OF-DEFINITION.
INITIAL_FIELD '销售组织' 'VKORG' '' ''.
INITIAL_FIELD '销售组织描述' 'VTEXT' '' ''.
INITIAL_FIELD '分销渠道' 'VTWEG' '' ''.
INITIAL_FIELD '分销渠道描述' 'VTEXT_1' '' ''.
INITIAL_FIELD '产品组' 'SPART' '' ''.
INITIAL_FIELD '产品组描述' 'VTEXT_2' '' ''.
INITIAL_FIELD '销售办事处' 'VKBUR' '' ''.
INITIAL_FIELD '销售办事处描述' 'BEZEI' '' ''.
INITIAL_FIELD '销售组' 'VKGRP' '' ''.
INITIAL_FIELD '销售组描述' 'BEZEI_1' '' ''.
INITIAL_FIELD '客户分类' 'KUKIA' '' ''.
INITIAL_FIELD '客户编号' 'KUNNR' 'X' ''.
INITIAL_FIELD '客户名称' 'NAME1' '' ''.
INITIAL_FIELD '详细地址' 'STREET' '' ''.
INITIAL_FIELD '税号' 'STCEG' '' ''.
INITIAL_FIELD '银行代码' 'BANKL' '' ''.
INITIAL_FIELD '银行账户' 'BANKN' '' ''.
INITIAL_FIELD '银行户主' 'KOINH' '' ''.
INITIAL_FIELD '联系人' 'NAME_LAST' '' ''.
INITIAL_FIELD '职位' 'ABTNR' '' ''.
INITIAL_FIELD '职位描述' 'VTEXT' '' ''.
INITIAL_FIELD '联系电话' 'TELEPHONE' '' ''.
INITIAL_FIELD '传真' 'FAX' '' ''.
INITIAL_FIELD '客户等级' 'KDGRP' '' ''.
INITIAL_FIELD '客户等级描述' 'VTEXT' '' ''.
INITIAL_FIELD '客户价格等级' 'KONDA' '' ''.
INITIAL_FIELD '客户价格等级描述' 'VTEXT_4' '' ''.
INITIAL_FIELD '客户定价' 'KALKS' '' ''.
INITIAL_FIELD '客户定价描述' 'VTEXT_5' '' ''.
INITIAL_FIELD '交货地点' 'VWERK' '' ''.
INITIAL_FIELD '交货地点描述' 'NAME2' '' ''.
INITIAL_FIELD '销售冻结' 'CASSD' '' ''.
INITIAL_FIELD '客户等级状态' 'ICON_FOLDER' '' 'X'.
*--------------------------------------------------------------------*
*输出报表结果
*--------------------------------------------------------------------*
IT_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
* I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
IS_LAYOUT = it_layout
IT_FIELDCAT = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = it_out
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
IF r_ucomm EQ '&IC1'.
READ TABLE it_out INDEX rs_selfield-TABINDEX.
IF SY-SUBRC EQ 0.
SET PARAMETER ID 'UID' FIELD IT_OUT-KUNNR.
SET PARAMETER ID 'KID' FIELD IT_OUT-VKORG.
SET PARAMETER ID 'TID' FIELD IT_OUT-VTWEG.
SET PARAMETER ID 'PID' FIELD IT_OUT-SPART.
CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ENDFORM.

复制代码

SD模块带有双击事件的销售分析报表

Ta最近发表

快速回帖