5.000
1730.00
K
86W.OO
40
■-04
S""Entroa
4.000
1878.00
PC
7512.00
SAKS
16.000
28.604.00
数据结构体的定义zwyvbap；TCODE：
SElb此结构体在后面的程序中也要用到，是传
递数据的接口。
定义如下图所示:
811绍件
三、SMARTFORMSFORM界面设置
1、表格接口的数据，如下图所示:
閒囿阍障|匾］［6］岡
参数名称1类型分酉g关联类型
缺省值
USERSETTINGSTYPETDBOOL
•X'
VKORGTYPEVKORG
VTWEGTYPEVTWEG
VKBURTYPEVKBUR
VKGRPTYPEVKGRP
KUNNRTYPEKUNNR
NAME1TYPENAMEl.GP
VBELNTYPEVBELN
AUDATTYPEAUDAT
2、表格接口表的数据如下图所示:
表格
2SDPRIKT001
描述
梢售打印格武
活动的
3、全局定义中的数据定义如下图所示:
全局数振宇我符号「初怡化「格式化程序—貨币/数里宇段
阙画阖囲B［B］西
缺省值
矣经7T纽
六臥尖尘
GS.VBAK
LIKE
ZWYVBAP
TOTAL
TYPE
CHARI0
PRICE
TYPE
CHARI0
SUJLFRICE
TYPE
CHARI0
SUMTOTAL
TYPE
BSEC-DMETR
S_PRICE
TYPE
ESEG-DMBTR
四、SMARTFORMS页和窗口的操作:
1、页头显示容。
下面的操作都只进行截图显示。
如下图所示:
▼已页和窗口
▼OWAGE1新页面”石%WINDOW1页头显示內容
®%TEMPLATE1公司名称
•国%TEXT1公司名称
・国%TEXT40打E卩日期
•|W%TEXT2梢售组织
•0%TEXT3诸售组织宁段
•旨UTEXT4分梢渠道
・国%TEXT5分涓渠道宇段
•\S%TEXT6诸售办事处
•场%TEXT7诸售办事处字段
•国%TEXT8供应商名称
•国o/oTEXT9供应商名称学段
•因VoTEXTIO单揺曰期
•冈%TEXT11单据曰期字段•田%TEXT12诸售单号
•廚%TEXT13f肖筠单号苗殳►虫MAIN主窗口
►O%WINDOW2页尾
■io^?
a
▼
hwx*
®JQj®廠蓝匪蘇:
莎云帀區艺匾亘
▼◎页顾口
•a沁任1讪页而
*O爲W1P3W1员炬示塚
■S%TCPt乙疋1公4虽R：
•区%1EX71公口獗
・O%7EX*WDiTfPBUl
卜总匚花不亦論叹1・1田呵兀"4廿硏世C
■|>%7EXT5分挪站丰倪-®%TCX76出创也
・HZ?
•i.TCv-n
2、MAP（主窗口的设置：
▼01页和窗口
▼巳%PAGE1新页面
WINDOW1页头显示内答
►坯％TEMPLATE：
L处司夂珈
j▼◎沁義丘二
>田H眩鱼巴■虹间列表标题
►©%LOOPl'Sfi环1
►®%TEMPLATE4纟克计区域
►曲^TEMPLATES页尾
►'O%WINDOW2页尾
打印表体的表头显示，如下图所示:
表体循环显示:
广妙％LOOP1濒直丕勺
▼曲%tempCAte3
•t%CODE1新程序行L
•国%TEXT22行2
•窗%TEXT23物料编码
•国%TEXT24物料描述
•直%TEXT25数重
•国%TEXT26单价
•国%TEXT27单位
*园%TEXT28金额
•眩%TEXT29备注
数据计算/事件匕输出选【旷匕谿
新程序行的设星:
一撅厲性杀件
输入参数
输出参数
GS_VEAK-KVMEKG▲
TOTAL▲
GS.VEAK-NETWF：
-
PRICE▼
1►1►
q»1►
一殽属性
■n
iudufelil
^S_VBAK-NETFR
▲
SUJLPRICE
I—I
▼
SUJLTOTAL
▼
◄►
<>
T
F
<>
F属性系件
辅入参数
GS.VBAK-NETPR
输出參数
S.PRICE
2
3
4
5
S
10
total-zs7bak~kwenz・price=gs^^ak-ne-twr・sum^pricc=gs_vbaknctptr・sum.total=sun_tatal+total.s_price=s_price+price・
*Q5W口
•«3）浜皿圧i引页面
•o页AftrHS
♦囲%TCMPLATE1处旬名和
文本焰IE元玄
•Qipwj主窟口
►副%TCMPIATE2列林肚*©VclCOPl1
▼亜％temputt曰列黑宇眾
.1%CODEtaffiJJfr1
[•冒■叭昭UOJ待号
■0*%TEXT23删儕
・陵%TCTT25坟里
耗卫凰1園関3&式0砸UIBS11®
5聆比
统讣区域的设置:
・0MATi主左口
＞同%TEI/PLATE2列我行更
feunutatal（・3）4
•◎沁an礎肝1
•繭%ra/PL4TE-4迸计区城
•^TPVT-fl
黑0花xm翩驴忌
-Cf_%i©raa^g
J囲WT6T3TE558
»B%mr-O3W2贡丘
页尾的设置:
五、REPORT完整代码清单，如下图所示（TCODE：
SE38）：
*&
*5ReportZPSD006
REPORTzpsd007・
INCLUDEzpsd007var1・
INCLUDEzpsd007form・
INCLUDEzpsd007alv・
START-OF-SELECTION・
PERFORMget_data_alv・
PERFORMshowalvTABLESgtvbakalv・
包含文件2P_SD_007」ARL活动
才&
*5包含ZP_SD_007_VARL
TABLES:
vbak・
DATA:
formnameTYPEtdsfname,
fm^nameTYPErs381__fnam,controlTYPEssfctrlop,errtabTYPEtsferror・
DATA:
BEGINOFgt_vbakOCCURS0・"定义衣
INCLUDETYPEzwyvbap・
DATA:
ENDOFgtvbak・
DATA:
BEGINOFgt_vbapOCCURS0,vbelnLIKEvbak-vbeln・
DATA:
ENDOFgt_vbap・
DATA:
p_vbelnTYPEvbak-vbeln・
*定义传递到FORM中的页头数抿
DATA:
vkorg
TYPE
vtweg
TYPE
vkbur
TYPE
vkgrp
TYPE
kunnr
TYPE
namel
TYPE
vbeln
TYPE
audat
TYPE
vbak-vkorg,vbak-vtweg,vbak-vkburzvbak-vkgrp,vbak-kunnr,knal-namelzvbak-vbeln,vbak-audat・
"销售组织
•分销渠道
”销售办事处
”销售组
“供应商代码
”供应商名称
”订单
”过账日期
“定义选中栏,边上的
DATA:
BEGINOFgt_vbak_alvOCCURS0,
vkorgTYPEvbak-vkorg,”销售组织
vtwegTYPEvbak-vtweg,”分销渠道
vkburTYPEvbak-vkbur,”销售办事处
vkgrpTYPEvbak-vkgrp,
kunnrTYPEvbak-kunnr,"供应诣代码
namelTYPEknal-namelz
vbelnTYPEvbak-vbeln,W单
audat;TYPEvbak-audat;,"过惡H如
*定义显示在心7界面上的衣
saleTYPEchar1・
DATA:
ENDOFgtvbakalv・
SELECTION-SCREENBEGINOFBLOCKIOCWITHFRAMETITLEtext-001・
"定义需要打印的
^PARAMETERSs_vbelnTYPEvbak-vbelnOBLIGATORY・
SELECT-OPTIONS:
svbelnFORvbak-vbelnDEFAULT4970'TO*4990'・
凭证
SELECTION-SCREENENDOFBLOCK100・
旬含文件ZP_SD_OOT_FORH活动
壮
*&Formprlnt^so
*&
*text设置打印的程序
★—
FORMprint_so・
CLEARgt_vbap[]・
*SELECTvbeinINTOCORRESPONDINGFIELDSOFTABLEgt^vbapFROMvbakWHEREvbeln
INs^vbeln・
*获取选中的数据,并把选中的数据传递至衣中。
LOOPATgt_vbak_alvWHEREsale='X1・
gt_vbap-vbeln=gt_vbak_alv-vbeln・
APPENDgt_vbap・
ENDLOOP・
formname='ZSD_PRINT_001'・
CALLFUNCTION1SSF_FUNCTION_MODULE_NAIvlE'
EXPORTING
formname=formnameimporting
IMPORTING
fm^name=fm_name
EXCEPTIONS
no_form=1
no_founction^module=2
IFsy-subrc<>0・
MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno
WITHsy-msgvlsy-msgv2sy-msgv3sy-msgv4・
ENDIF・
control-no_dialog='X'・
control-preview=*X1・
control-no_open
control-noclose
CALLFUNCTION'SSF_OPENEXPORTING
=rXr
ARCHIVE_PARAMETERS
USER^SETTINGS
MAIL_SENDER
MAILRECIPIENT
MAIL_APPL_OBJ
OUTPUTOPTIONS
control_parameters
=control
IMPORTING
JOB_OUTPUT_OPTIONS
EXCEPTIONS
formatting_error=1
internailerror=2
send_error=3
user_canceled=4
OTHERS=5・
IFsy-subrc<>0・
errorhandling
MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno
WITHsy-msgvlsy-msgv2sy-msgv3sy-msgv4・
EXIT・
ENDIF・
LOOPATgt^vbap.7汽遞号进:
・即山程序中进行分页的设置
p__vbeln=gt__vbap-vbe1n・
*获取打印的衣头数据
SELECTSINGLE
vkorg
vtweg
vkbur
vkgrp
kunnr
vbeln
audat
INTO（vkorg,vtweg,vkbur,vkgrp,kunnr,vbeln,audat;）
FROMvbak
WHEREvbeln=p_vbeln・
★获取打印的农体数据
CLEARgt_vbak[]・”淸空衣
SELECT
vbeln
posnr
matnr
arktx
kwmeng
netwr
netpr
meins
INTOCORRESPONDINGFIELDSOFTABLEgt_vbak
FROMvbap
WHEREvbeln=p_vbeln・
CALLFUNCTIONfm_name
EXPORTING
control_parameters=control
vkorg
=vkorg"销传订单
vtweg
=vtweg''客八
vkbur
=vkbur叫」期
vkgrp
=vkgrp叫」期
kunnr
=kunnr
vbeln
=vbeln
audat
=audat
namel
=namel
EXCEPTIONS
formattinglerror
internailerrorsend__error
IFsy-subrc<>0.
errorhandling
MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno
WITHsy-msgvlsy-msgv2sy-msgv3sy~msgv4・
ENDIF・
ENDLOOP・
CALLFUNCTION'SSF_CLOSE
IMPORTING
JOB_OUTPUT_INFO
EXCEPTIONS
formatting_error=1
internailerror=2
send^error=3
OTHERS=4.
IFsy-subrc<>0・
errorhandling
MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno
WITHsy-msgvlsy-msgv2sy-msgv3sy-msgv4・
ENDIF・analyseinternalerrortableofSmartFormsCALLFUNCTION*SSF_READ_ERRORS*
IMPORTING
errortab=errtab・
IFNOTerrtabISINITIAL・
addyourhandling
ENDFORM・
ENDIF・
"printso
包含文件ZP_SD_007_ALV活动
■I•••
★&
才&包含ZP_SD_007_ALV
水&
TYPE-POOLS:
slis・
^ALV相关农和结构
DATA:
it.
_fieldcat
TYPE
slis_
t_fieldcat__alv,
wa
_layout
TYPE
slis_
layout__alvz
wa
_status
TYPE
slis_
formname
VALUE
'SUB_SET_PF_STATUS',
wa
_comand
TYPE
slis_
formname
VALUE
1USER_COMMAND',
it_
^events
TYPE
slis_
t_event・
DATA:
g_
layout
TYPE
lvc_s
_layo,
fieldcat
TYPE
LINE
OFlvc_t_
_fcat,
_fieldcat
TYPE
lvc_t
__fcat・
才&
*&显示ALV
★&
*text
★
*一一＞PLTTABtext
FORMshow_alvTABLEStable・
*ALV衣格显示样式
PERFORMalv_list_layout・
水ADJ报衣的字段设置
PERFORMpfalvlistfeatUSINGitfieldcat;・
报衣显示
PERFORMpf_alv_list_displyTABLEStable・
ENDFORM・"SHOWALV
★&
*<$FormALV_LIST_LAYOUT
★&
*text
text
text
FOR
升级会员 