📄 zcor0006.html
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<html>
<head>
<title>ZCOR0006</title>
</head>
<body bgcolor="#FFFFE0">
<font size="3" face = "Arial" color="#000000"><b>Code listing for: ZCOR0006</b></font>
<br>
<font size="3" face = "Arial" color="#000000"><b>Description: 登记软件产品统计表</b></font>
<hr>
<pre width="100">
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*& Report ZCOR0006</font>
<font color ="#0000FF">*&</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
<font color ="#0000FF">*&</font>
<font color ="#0000FF">*&</font>
<font color ="#0000FF">*&---------------------------------------------------------------------*</font>
REPORT ZCOR0006 MESSAGE-ID ZX.
TABLES:VBAK,VBEP,VBAP,VBKD.
TYPES:BEGIN OF T_DATA,
VBELN LIKE VBAK-VBELN,
POSNR LIKE VBAP-POSNR,
<font color ="#0000FF">* BSTNK LIKE VBAK-BSTNK,</font>
<font color ="#0000FF">* ERDAT LIKE VBAK-ERDAT,</font>
<font color ="#0000FF">* KUNNR LIKE VBAK-KUNNR,</font>
<font color ="#0000FF">* NAME1 LIKE KNA1-NAME1,</font>
<font color ="#0000FF">* VKBUR LIKE VBAK-VKBUR,</font>
<font color ="#0000FF">* BEZEI LIKE TVKBT-BEZEI,</font>
<font color ="#0000FF">* BZIRK LIKE VBKD-BZIRK,</font>
<font color ="#0000FF">* BZTXT LIKE T171T-BZTXT,</font>
<font color ="#0000FF">* VKORG LIKE VBAK-VKORG,</font>
<font color ="#0000FF">* VTEXT LIKE TVKOT-VTEXT,</font>
<font color ="#0000FF">* VTWEG LIKE VBAK-VTWEG,</font>
<font color ="#0000FF">* VTEXT2 LIKE TVTWT-VTEXT,</font>
<font color ="#0000FF">* PERNR LIKE VBPA-PERNR,</font>
<font color ="#0000FF">* ENAME LIKE PA0001-ENAME,</font>
MATNR LIKE MARA-MATNR,
MAKTX TYPE MAKTX,
KNUMV LIKE VBAK-KNUMV,
KWERT LIKE KONV-KWERT,
KWERT1 LIKE KONV-KWERT,
KWERT2 LIKE KONV-KWERT,
KWERT3 LIKE KONV-KWERT,
KWERT4 LIKE KONV-KWERT,
KWERT5 LIKE KONV-KWERT,
KWERT6 LIKE KONV-KWERT,
KWERT7 LIKE KONV-KWERT,
KWERT8 LIKE KONV-KWERT,
AUART LIKE VBAK-AUART,
END OF T_DATA.
DATA:ITAB_DATA TYPE TABLE OF T_DATA,
WA_DATA TYPE T_DATA.
<font color ="#0000FF">********************************************************************</font>
<font color ="#0000FF">* SELECT-OPTIONS</font>
<font color ="#0000FF">********************************************************************</font>
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_ERDAT FOR VBAK-ERDAT OBLIGATORY,
S_VBELN FOR VBAK-VBELN.
PARAMETER:P_WADAT LIKE LIKP-WADAT_IST OBLIGATORY.
SELECT-OPTIONS:S_VKORG FOR VBAK-VKORG,
S_VTWEG FOR VBAK-VTWEG,
S_VKBUR FOR VBAK-VKBUR,
S_BZIRK FOR VBKD-BZIRK.
SELECTION-SCREEN END OF BLOCK BLK.
INITIALIZATION.
P_WADAT = SY-DATUM.
<font color ="#0000FF">***************************************************************</font>
<font color ="#0000FF">* AT SELECTION-SCREEN</font>
<font color ="#0000FF">***************************************************************</font>
AT SELECTION-SCREEN.
PERFORM SUB_SELECT_DATA.
<font color ="#0000FF">***************************************************************</font>
<font color ="#0000FF">* START-OF-SELECTION</font>
<font color ="#0000FF">***************************************************************</font>
START-OF-SELECTION.
PERFORM OUTPUT_DATA.
<font color ="#0000FF">***************************************************************</font>
<font color ="#0000FF">* END-OF-SELECTION</font>
<font color ="#0000FF">***************************************************************</font>
END-OF-SELECTION.
<font color ="#0000FF">*&-------------------------------------------------------------</font>
<font color ="#0000FF">*& Form SUB_SELECT_DATA</font>
<font color ="#0000FF">*&-------------------------------------------------------------</font>
FORM SUB_SELECT_DATA.
DATA:KWERT LIKE KONV-KWERT,
MWSBP LIKE VBRP-MWSBP.
DATA:L_WADAT LIKE LIKP-WADAT_IST.
SELECT A~VBELN B~POSNR A~BSTNK A~ERDAT A~KUNNR F~NAME1 A~VKBUR C~BZIRK
A~VKORG A~VTWEG B~MATNR E~MAKTX B~KWMENG A~KNUMV B~WERKS A~AUART
INTO CORRESPONDING FIELDS OF TABLE ITAB_DATA
FROM VBAK AS A
INNER JOIN VBAP AS B ON A~VBELN = B~VBELN
INNER JOIN VBKD AS C ON A~VBELN = C~VBELN AND C~POSNR = '000000'"C~POSNR
INNER JOIN MAKT AS E ON B~MATNR = E~MATNR AND E~SPRAS = '1'
INNER JOIN KNA1 AS F ON F~KUNNR = A~KUNNR
WHERE A~AUART <> 'ZXN' AND A~AUART <> 'ZYC' AND A~AUART <> 'ZMN' AND A~ERDAT IN S_ERDAT
AND B~KTGRM = '02'
AND A~VBELN IN S_VBELN
AND A~VKORG IN S_VKORG AND A~VTWEG IN S_VTWEG
AND A~VKBUR IN S_VKBUR AND C~BZIRK IN S_BZIRK.
LOOP AT ITAB_DATA INTO WA_DATA.
CLEAR:KWERT.
SELECT SINGLE KWERT INTO KWERT FROM KONV
WHERE KPOSN = WA_DATA-POSNR AND KNUMV = WA_DATA-KNUMV
AND KSCHL = 'MWSI'.
SELECT SINGLE KWERT INTO WA_DATA-KWERT FROM KONV
WHERE KPOSN = WA_DATA-POSNR AND KNUMV = WA_DATA-KNUMV
AND KSCHL = 'NETW'.
WA_DATA-KWERT = KWERT + WA_DATA-KWERT.
CLEAR:KWERT.
SELECT SUM( A~NETWR ) SUM( A~MWSBP ) INTO (KWERT,MWSBP)
FROM VBRP AS A JOIN VBRK AS B ON A~VBELN = B~VBELN
WHERE A~AUBEL = WA_DATA-VBELN AND A~AUPOS = WA_DATA-POSNR AND B~RFBSK = 'C'
AND B~FKART IN ('F2') AND B~FKSTO = ''
<font color ="#0000FF">* AND B~FKDAT <= P_WADAT</font>
.
<font color ="#0000FF">* KWERT = KWERT + MWSBP.</font>
SELECT SUM( A~NETWR ) SUM( A~MWSBP ) INTO (WA_DATA-KWERT1,MWSBP)
FROM VBRP AS A JOIN VBRK AS B ON A~VBELN = B~VBELN
WHERE A~AUBEL = WA_DATA-VBELN AND A~AUPOS = WA_DATA-POSNR AND B~RFBSK = 'C'
AND B~FKART IN ('RE') AND B~FKSTO = ''
<font color ="#0000FF">* AND B~FKDAT <= P_WADAT</font>
.
WA_DATA-KWERT1 = KWERT - WA_DATA-KWERT1.
WA_DATA-KWERT2 = WA_DATA-KWERT1 * 14 / 100.
CONCATENATE P_WADAT(6) '01' INTO L_WADAT.
CLEAR:KWERT.
SELECT SUM( A~NETWR ) SUM( A~MWSBP ) INTO (KWERT,MWSBP)
FROM VBRP AS A JOIN VBRK AS B ON A~VBELN = B~VBELN
WHERE A~AUBEL = WA_DATA-VBELN AND A~AUPOS = WA_DATA-POSNR AND B~RFBSK = 'C'
AND B~FKART IN ('F2') AND B~FKSTO = ''
AND B~FKDAT < L_WADAT.
<font color ="#0000FF">* KWERT = KWERT + MWSBP.</font>
SELECT SUM( A~NETWR ) SUM( A~MWSBP ) INTO (WA_DATA-KWERT3,MWSBP)
FROM VBRP AS A JOIN VBRK AS B ON A~VBELN = B~VBELN
WHERE A~AUBEL = WA_DATA-VBELN AND A~AUPOS = WA_DATA-POSNR AND B~RFBSK = 'C'
AND B~FKART IN ('RE') AND B~FKSTO = ''
AND B~FKDAT < L_WADAT.
WA_DATA-KWERT3 = KWERT - WA_DATA-KWERT3.
WA_DATA-KWERT3 = WA_DATA-KWERT3 * 14 / 100.
WA_DATA-KWERT4 = WA_DATA-KWERT2 - WA_DATA-KWERT3.
WA_DATA-KWERT5 = WA_DATA-KWERT1 * 3 / 100.
DATA:VV300 LIKE CE19999-VV300,
VV310 LIKE CE19999-VV300,
VV320 LIKE CE19999-VV300.
SELECT SUM( VV300 ) SUM( VV310 ) SUM( VV320 ) INTO (VV300,VV310,VV320) FROM CE19999
WHERE KAUFN = WA_DATA-VBELN AND KDPOS = WA_DATA-POSNR
AND VRGAR = 'B' AND PALEDGER = 'B0'
AND BUDAT <= P_WADAT AND WW002 = 'Z01'.
WA_DATA-KWERT7 = VV300 + VV310 + VV320.
WA_DATA-KWERT8 = WA_DATA-KWERT5 - WA_DATA-KWERT6 - WA_DATA-KWERT7.
IF WA_DATA-AUART = 'ZRE'.
WA_DATA-KWERT = 0 - WA_DATA-KWERT.
<font color ="#0000FF">* WA_DATA-KWERT1 = 0 - WA_DATA-KWERT1.</font>
<font color ="#0000FF">* WA_DATA-KWERT2 = 0 - WA_DATA-KWERT2.</font>
<font color ="#0000FF">* WA_DATA-KWERT3 = 0 - WA_DATA-KWERT3.</font>
<font color ="#0000FF">* WA_DATA-KWERT4 = 0 - WA_DATA-KWERT4.</font>
<font color ="#0000FF">* WA_DATA-KWERT5 = 0 - WA_DATA-KWERT5.</font>
<font color ="#0000FF">* WA_DATA-KWERT6 = 0 - WA_DATA-KWERT6.</font>
<font color ="#0000FF">* WA_DATA-KWERT7 = 0 - WA_DATA-KWERT7.</font>
<font color ="#0000FF">* WA_DATA-KWERT8 = 0 - WA_DATA-KWERT8.</font>
ENDIF.
MODIFY ITAB_DATA FROM WA_DATA.
ENDLOOP.
ENDFORM.
<font color ="#0000FF">*&-------------------------------------------------------------</font>
<font color ="#0000FF">*& Form OUTPUT_DATA</font>
<font color ="#0000FF">*&-------------------------------------------------------------</font>
FORM OUTPUT_DATA.
type-pools slis.
data: allfields type slis_t_fieldcat_alv.
data: wa_allfields type line of slis_t_fieldcat_alv.
<font color ="#0000FF">* myrepid = sy-repid.</font>
clear wa_allfields.
wa_allfields-fieldname = 'VBELN'."必须是大写
wa_allfields-seltext_l = '销售订单'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'POSNR'."必须是大写
wa_allfields-seltext_l = '行项目'.
wa_allfields-outputlen = 6.
append wa_allfields to allfields.
<font color ="#0000FF">* clear wa_allfields.</font>
<font color ="#0000FF">* wa_allfields-fieldname = 'BSTNK'."必须是大写</font>
<font color ="#0000FF">* wa_allfields-seltext_l = '合同号'.</font>
<font color ="#0000FF">* append wa_allfields to allfields.</font>
<font color ="#0000FF">* clear wa_allfields.</font>
<font color ="#0000FF">* wa_allfields-fieldname = 'KUNNR'.</font>
<font color ="#0000FF">* wa_allfields-seltext_l = '售达方'.</font>
<font color ="#0000FF">* append wa_allfields to allfields.</font>
<font color ="#0000FF">* clear wa_allfields.</font>
<font color ="#0000FF">* wa_allfields-fieldname = 'NAME1'.</font>
<font color ="#0000FF">* wa_allfields-seltext_l = '名称'.</font>
<font color ="#0000FF">* wa_allfields-outputlen = 30.</font>
<font color ="#0000FF">* append wa_allfields to allfields.</font>
<font color ="#0000FF">* clear wa_allfields.</font>
<font color ="#0000FF">* wa_allfields-fieldname = 'ENAME'.</font>
<font color ="#0000FF">* wa_allfields-seltext_l = '销售员'.</font>
<font color ="#0000FF">* append wa_allfields to allfields.</font>
clear wa_allfields.
wa_allfields-fieldname = 'MATNR'.
wa_allfields-seltext_l = '物料号'.
wa_allfields-outputlen = 18.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'MAKTX'.
wa_allfields-seltext_l = '物料描述'.
wa_allfields-outputlen = 30.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT'.
wa_allfields-seltext_l = '合同额'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT1'.
wa_allfields-seltext_l = '己开票收入'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT2'.
wa_allfields-seltext_l = '应收税收返款'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT3'.
wa_allfields-seltext_l = '实际税收返款'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT4'.
wa_allfields-seltext_l = '未返款余额'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT5'.
wa_allfields-seltext_l = '代理商补贴额'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT6'.
wa_allfields-seltext_l = '冲抵合同额'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT7'.
wa_allfields-seltext_l = '费用报销额'.
append wa_allfields to allfields.
clear wa_allfields.
wa_allfields-fieldname = 'KWERT8'.
wa_allfields-seltext_l = '未抵余额'.
append wa_allfields to allfields.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = sy-repid
I_GRID_TITLE = '登记软件产品统计表ALV显示'
IT_FIELDCAT = allfields
I_SAVE = 'X'
TABLES
T_OUTTAB = ITAB_DATA
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
<font color ="#0000FF">* IF SY-SUBRC <> 0.</font>
<font color ="#0000FF">* * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</font>
<font color ="#0000FF">* * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</font>
<font color ="#0000FF">* ENDIF.</font>
ENDFORM. "output_data
<font color ="#0000FF">*Selection texts</font>
<font color ="#0000FF">*----------------------------------------------------------</font>
<font color ="#0000FF">* P_WADAT 截止过账日期</font>
<font color ="#0000FF">* S_BZIRK 销售大区</font>
<font color ="#0000FF">* S_ERDAT 下单日期</font>
<font color ="#0000FF">* S_VBELN 销售订单</font>
<font color ="#0000FF">* S_VKBUR 销售办公室</font>
<font color ="#0000FF">* S_VKORG 销售组织</font>
<font color ="#0000FF">* S_VTWEG 销售渠道</font>
</pre>
<hr>
<font size="2" face = "Sans Serif">Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700
</font>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -