ABAP开发案例3Word文档格式.docx
《ABAP开发案例3Word文档格式.docx》由会员分享,可在线阅读,更多相关《ABAP开发案例3Word文档格式.docx(30页珍藏版)》请在冰豆网上搜索。
KNB1-FDGRV,
AKONT
KNB1-AKONT,VKBUR
KNVV-VKBUR,
BEZEI
TVKBT-BEZEI,
NAME3
KNVK-NAME1,KALKS
KNVV-KALKS,
ZTERM
KNVV-ZTERM,INCO1
KNVV-INCO1,
INCO2
KNVV-INCO2,KTGRD
KNVV-KTGRD,
klimk
KNKK-KLIMK,SKFOR
KNKK-SKFOR,
SAUFT
TYPE
I,OBLIG
I,KLPRZ
I,
CTLPC
knkk-CTLPC,
rtext
t691t-rtext,
aufsd
kna1-aufsd,zuawa
knb1-zuawa,
SLBOX
CHAR1,
END
GT_SDFT.
DATA
LT_TVkbt
TVkbt
0
WITH
HEADER
LINE.
lt_knvk1
KNVK
lt_ADR61
ADR6
*data:
so0671
s067
GT_TSKDT
KNVI-KUNNR,
TSKDT-VTEXT,
GT_TSKDT.
data:
begin
of
lt_knkk1
kunnr
knkk-kunnr,
olikw
s067-olikw,
ofakw
s067-ofakw,
skfor
knkk-skfor,
sauft
oblig
end
lt_knkk1.
WK_ALV
LINE
data
gt_t691t
t691t
SELECTION-SCREEN
BLOCK
yy
FRAME
TITLE
TEXT-001.
SELECT-OPTIONS:
S1
FOR
LIKP-LFART,"
交货单类型
S2
LIKP-VKORG,"
销售组织
S3
LIPS-VTWEG,"
销售渠道
S4
LIPS-SPART,"
产品组
S5
LIKP-VKBUR,"
销售区域
S6
LIPS-VGBEL,"
销售订单号
S7
RF02D-KUNNR,"
客户编号
NO-EXTENSION
NO
INTERVALS
."
公司代码
yy.
START-OF-SELECTION.
PERFORM
ZSD_KHB.
FRM_ALV_GRID.
END-OF-SELECTION.
Form
ZSD_KHB
*
text
*----------------------------------------------------------------------*
-->
p1
<
--
p2
FORM
ZSD_KHB
.
SELECT
KNA1~KUNNR
KNA1~KTOKD
KNVV~VKORG
KNVV~VTWEG
KNVV~SPART
KNA1~NAME1
KNA1~KNURL
KNA1~SORTL
KNA1~LAND1
KNA1~REGIO
KNA1~ORT01
KNA1~STRAS
KNA1~ADRNR
KNA1~TELF1
KNA1~TELF2
KNA1~TELFX
KNA1~STCD5
KNVI~TATYP
KNVI~TAXKD
KNVV~WAERS
KNB1~BUKRS
KNB1~FDGRV
KNB1~AKONT
KNVV~BZIRK
KNVV~KALKS
KNVV~ZTERM
KNVV~INCO1
KNVV~INCO2
KNVV~KTGRD
KNKK~KLIMK
KNKK~SKFOR
knvv~vkbur
knkk~CTLPC
kna1~aufsd
knb1~zuawa
INTO
CORRESPONDING
FIELDS
TABLE
GT_SDFT
FROM
KNA1
INNER
JOIN
KNVV
ON
KNVV~KUNNR
=
KNA1~KUNNR
KNVI
KNVI~KUNNR
KNB1
KNB1~KUNNR
LEFT
KNKK
KNKK~KUNNR
WHERE
IN
S_KUNNR
AND
S_VKORG
S_NAME1
S_SORTL
S_LAND1
S_REGIO
KNA1~ORT01
S_ORT01
S_BUKRS.
KNVK.
ADR6.
LT_TVKBT
TVKBT.
TSKDT~VTEXT
TSKDT
KNVI~TATYP
TSKDT~TATYP
AND
TSKDT~TAXKD.
select
knkk~kunnr
s067~olikw
s067~ofakw
knkk~skfor
into
table
from
knkk
inner
join
on
knkk~knkli
s067~knkli.
into
loop
at
lt_knkk1-sauft
lt_knkk1-olikw
+
lt_knkk1-ofakw.
lt_knkk1-oblig
lt_knkk1-skfor
modify
TRANSPORTING
oblig.
endloop.
LOOP
AT
READ
KEY
GT_SDFT-KUNNR
ABTNR
'
0001'
if
sy-subrc
0.
MOVE
lt_knvk1-NAME1
TO
GT_SDFT-NAME2.
endif.
0004'
GT_SDFT-NAME3.
MODIFY
NAME2
NAME3.
ADDRNUMBER
GT_SDFT-ADRNR.
lt_ADR61-SMTP_ADDR
GT_SDFT-EMAIL.
EMAIL.
read
with
key
ctlpc
gt_sdft-ctlpc."
读取风险类别
move
gt_t691t-rtext
to
gt_sdft-rtext.
gt_sdft-aufsd
is
not
INITIAL.
GT_SDFT-aufsd
是'
else.
否'
GT_TSKDT-VTEXT
GT_SDFT-VTEXT.
VTEXT.
gt_sdft-kunnr.
IF
SY-SUBRC
gt_sdft-sauft.
gt_sdft-oblig.
ENDIF.
gt_sdft
GT_SDFT-KLIMK
GT_SDFT-KLPRZ
ELSE
gt_sdft-klprz
gt_sdft-oblig
/
gt_sdft-klimk
100.
klprz.
VKBUR
GT_SDFT-VKBUR
SPRAS
1.
LT_TVKBT-BEZEI
GT_SDFT-BEZEI.
bezei.
gt_sdft.
clear
ENDLOOP.
ENDFORM.
"
FRM_ALV_GRID
FRM_ALV_GRID
WA_LAYOUT
SLIS_LAYOUT_ALV.
L_I_FIELDCAT
SLIS_T_FIELDCAT_ALV.
WA_FIELDCAT
SLIS_FIELDCAT_ALV.
WA_LAYOUT-COLWIDTH_OPTIMIZE
X'
WA_LAYOUT-ZEBRA
WA_LAYOUT-BOX_FIELDNAME
SLBOX'
*设置ALV
FIELD
DEFINE
FIELDCAT.
CLEAR
WA_FIELDCAT.
WA_FIELDCAT-FIELDNAME
&
WA_FIELDCAT-SELTEXT_L
2.
WA_FIELDCAT-KEY
3.
WA_FIELDCAT-REF_TABNAME
4.
WA_FIELDCAT-DECIMALS_OUT
5.
WA_FIELDCAT-EMPHASIZE
APPEND
L_I_FIELDCAT.
END-OF-DEFINITION.
FIELDCAT
KUNNR'
客户编号'
KNA1'
0'
KTOKD'
科目组'
VKORG'
销售组织'
VTWEG'
分销渠道'
SPART'
产品组'
NAME1'
客户名称'
ZUAWA'
排序码'
KNURL'
网址'
SORTL'
搜索项'
LAND1'
国家'
REGIO'
省'
ORT01'
市'
STRAS'
街道'
EMAIL'
邮箱'
NAME2'
联系人'
TELF1'
电话'
TELF2'
手机'
TELFX'
传真'
STCD5'
纳税人登记号'
VTEXT'
税分类'
WAERS'
结算货币'
BUKRS'
公司代码'
FDGRV'
现金管理组'
AKONT'
统驭科目'
BEZEI'
销售区域'
NAME3'
销售员'
KALKS'
客户定价过程'
ZTERM'
付款条件'
INCO1'
国际贸易条款'
INCO2'
国际贸易条款描述'
KTGRD'
账户分配组'
KLIMK'
信贷限额'
3'
SKFOR'
应收总额'
SAUFT'
销售值'
AUFSD'
是否冻结'
RTEXT'
风险类别'
OBLIG'
信贷风险总额'
KLPRZ'
已使用的信贷限额'
2'
CALL
FUNCTION
REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM
SY-REPID
I_CALLBACK_HTML_TOP_OF_PAGE
ALV_TOP_OF_PAGE'
ALV输出表头设置
IT_FIELDCAT
L_I_FIELDCAT[]
IS_LAYOUT
WA_LAYOUT
i_save
A'
I_CALLBACK_PF_STATUS_SET
FRM_SET_STATUS'
I_CALLBACK_USER_COMMAND
FRM_USER_COMMAND'
TABLES
T_OUTTAB
EXCEPTIONS
PROGRAM_ERROR
1
OTHERS
FRM_USER_COMMAND
USING
RF_UCOMM
SY-UCOMM
RS_SELFIELD
SLIS_SELFIELD.
#EC
L_KUNNR
KUNNR.
G_GRID
REF
CL_GUI_ALV_GRID.
CASE
RF_UCOMM.
WHEN
IC1'
.
双击事件或是F2事件
RS_SELFIELD-FIELDNAME
EQ
L_KUNNR.
CONVERSION_EXIT_ALPHA_INPUT'
INPUT
RS_SELFIELD-VALUE
IMPORTING