BDC编程Word文件下载.docx
- 文档编号:17298795
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:21
- 大小:136.91KB
BDC编程Word文件下载.docx
《BDC编程Word文件下载.docx》由会员分享,可在线阅读,更多相关《BDC编程Word文件下载.docx(21页珍藏版)》请在冰豆网上搜索。
BDC_INSERT'
来建立一个session。
并把执行的结果返回给messtab这个InternalTable。
现在假想一种情境,来做一个演示的BDC程序。
由于业务上的需要,某公司打算将某些物料的描述都在后面加上指定的文本GroupX,所以需要修改已经存在的物料数据,用T-code:
MM02。
外部数据是TXT文本,记录有N条,如下:
MaterialNO.Description
6000-00001XXXXXXX(GroupA)
2098-00001fdfladsfladfl(GroupB)
2059-00009dfdsfreddfalfasfa(GroupA)
2003-00003iadfdafdf,adfasf(GroupD)
……
下面是“录”操作的过程,在命令栏里输入T-code:
SHDB,进入如下屏幕:
点NewRecodring,出现如下屏幕:
其中Recording的名字是任意给的。
MM02是需要录的事务代码。
按下“StartRecording”,就会进入“ChangeMaterial”,这时,以下的操作对于用户来说是一次普通修改物料描述操作,但系统在记录所有的操作。
输入一个物料后,点击“SelectView(s)”
假设我们只选“BasicData1”和“BasicData2”
然后点击绿色的小勾“Enter”
我们在该物料后面添加一个“GroupA”,描述改为:
然后点“SAVE”,保存这次修改。
现在SAP回到了SHDB,
先点“SAVE”,保存Recording:
Ztest,然后点”Back”,返回SHDB的第一屏。
选中“Ztest”,然后点击“Program”,由SAP自动生成一个程序。
在上面的对话框中输入程序的名字(注意SAP的命名规范,Y或者Z开头),确认输入
再输入一些程序的属性信息如下:
点击“SourceCode”,指定“DevelopClass”等后,就可以进入ABAPEditor,产生如下代码:
reportZBDCTEST
nostandardpageheadingline-size255.
includebdcrecx1.
parameters:
dataset(132)lowercase.
***DONOTCHANGE-thegenerateddatasection-DONOTCHANGE***
*
*Ifitisnessesarytochangethedatasectionusetherules:
*1.)Eachdefinitionofafieldexistsoftwolines
*2.)Thefirstlineshowsexactlythecomment
*'
*dataelement:
'
followedwiththedataelement
*whichdescribesthefield.
*Ifyoudon'
thaveadataelement,usethe
*commentwithoutadataelementname
*3.)Thesecondlineshowsthefieldnameofthe
*structure,thefieldnamemustconsistof
*afieldnameandtheoptionalcharacter'
_'
and
*threenumbersandthefieldlengthinbrackets
*4.)EachfieldmustbetypeC.
***Generateddatasectionwithspecificformatting-DONOTCHANGE***
data:
beginofrecord,
MATNR
MATNR_001(018),
XFELD
KZSEL_01_002(001),
KZSEL_02_003(001),
MAKTX
MAKTX_004(040),
MEINS
MEINS_005(003),
MTPOS_MARA
MTPOS_MARA_006(004),
GEWEI
GEWEI_007(003),
endofrecord.
***Endgenerateddatasection***
start-of-selection.
performopen_datasetusingdataset.
performopen_group.
do.
readdatasetdatasetintorecord.
ifsy-subrc<
>
0.exit.endif.
performbdc_dynprousing'
SAPLMGMM'
0060'
.
performbdc_fieldusing'
BDC_CURSOR'
RMMG1-MATNR'
BDC_OKCODE'
=AUSW'
record-MATNR_001.
0070'
MSICHTAUSW-DYTXT(02)'
=ENTR'
MSICHTAUSW-KZSEL(01)'
record-KZSEL_01_002.
MSICHTAUSW-KZSEL(02)'
record-KZSEL_02_003.
4004'
=BU'
MAKT-MAKTX'
record-MAKTX_004.
MARA-MEINS'
record-MEINS_005.
MARA-MTPOS_MARA'
record-MTPOS_MARA_006.
MARA-GEWEI'
record-GEWEI_007.
performbdc_transactionusing'
MM02'
enddo.
performclose_group.
performclose_datasetusingdataset.
上面的程序的主要逻辑为:
opendataset“读取外部数据源
do.“循环
perform填充BDCDATA子程序
performbdc_transcation
endo.
Closedataset.
注意上面的Include程序里有两个重要的form.
*-------------------------------------------------------------------*
*Startnewscreen*
formbdc_dynprousingprogramdynpro.
clearbdcdata.
bdcdata-program=program.
bdcdata-dynpro=dynpro.
bdcdata-dynbegin='
X'
appendbdcdata.
endform.
*Insertfield***
formbdc_fieldusingfnamfval.
iffval<
nodata.
bdcdata-fnam=fnam.
bdcdata-fval=fval.
endif.
另外还有两个重要的internaltable声明。
bdcdata及messtab
*Batchinputdataofsingletransaction
bdcdatalikebdcdataoccurs0withheaderline.
*messagesofcalltransaction
messtablikebdcmsgcolloccurs0withheaderline.
选取部分最关键(典型)的代码如下:
readdatasetdatasetintorecord.“逐行读出txt文本中的记录,
请参:
readdataset
0.exit.endif.“如出错就退出
以下执行子程序(粗斜体部分)
屏幕
A、指定bdc_dynpro的实参,告知系统dialog程序名称:
SAPLMGMM,及screennumber:
0060
B、指定bdc_field的实参,告知系统把光标放在哪个字段,这里是“RMMG1-MATNR,物料”
'
C、告知系统ok_code是什么,也可以认为是去点哪个按钮,这里是左上角的“SelectView(s)”
这里是通过readdataset读取的外部的文件中的记录,record是一个用于临时保存数据的仅有一行的workarea。
程序在运行时,record-matnr_001应该是一个具体的物料代码。
record-MATNR_001.
是类似的
record-KZSEL_02_003.
同样先指定程序名称及屏幕号,然后指定光标位置,值,OK_Code
record-GEWEI_007.
以上的步骤实际上在一个叫做bdcdata的internaltable中填入了一些关于调用哪个程序(包括屏幕号码),在哪些字段中,填入什么值,点击什么按钮等信息。
下面的一个步骤才真正的向系统写入数据:
callfunction'
,建立session,一般是后台运行,能给出Log信息
或
calltransaction不建立session,直接执行。
执行后返回的消息保存在messtab中。
***INCLUDEBDCRECX1.
*forprogramsdoingadatatransferbycreatingabatch-inputsession
*and
*forprogramsdoingadatatransferbyCALLTRANSACTIONUSING
SELECTION-SCREENBEGINOFLINE.
PARAMETERSSESSIONRADIOBUTTONGROUPCTU."
createsession
SELECTION-SCREENCOMMENT3(20)TEXT-S07FORFIELDSESSION.
selection-screenposition45.
PARAMETERSCTURADIOBUTTONGROUPCTU."
calltransaction
SELECTION-SCREENCOMMENT48(20)TEXT-S08FORFIELDCTU.
SELECTION-SCREENENDOFLINE.
SELECTION-SCREENCOMMENT3(20)TEXT-S01FORFIELDGROUP.
selection-screenposition25.
PARAMETERSGROUP(12)."
groupnameofsession
SELECTION-SCREENCOMMENT48(20)TEXT-S05FORFIELDCTUMODE.
selection-screenposition70.
PARAMETERSCTUMODELIKECTU_PARAMS-DISMODEDEFAULT'
N'
"
A:
showalldynpros
E:
showdynproonerroronly
N:
donotdisplaydynpro
SELECTION-SCREENCOMMENT3(20)TEXT-S02FORFIELDUSER.
PARAMETERS:
USER(12)DEFAULTSY-UNAME."
userforsessioninbatch
SELECTION-SCREENCOMMENT48(20)TEXT-S06FORFIELDCUPDATE.
PARAMETERSCUPDATELIKECTU_PARAMS-UPDMODEDEFAULT'
L'
S:
synchronously
asynchronously
L:
local
SELECTION-SCREENCOMMENT3(20)TEXT-S03FORFIELDKEEP.
KEEPASCHECKBOX."
=deletesessioniffinished
"
=keepsessioniffinished
SELECTION-SCREENCOMMENT48(20)TEXT-S09FORFIELDE_GROUP.
parametersE_GROUP(12)."
groupnameoferror-session
SELECTION-SCREENCOMMENT3(20)TEXT-S04FORFIELDHOLDDATE.
HOLDDATELIKESY-DATUM.
SELECTION-SCREENCOMMENT51(17)TEXT-S02FORFIELDE_USER.
E_USER(12)DEFAULTSY-UNAME."
userforerror-session
SELECTION-SCREENCOMMENT51(17)TEXT-S03FORFIELDE_KEEP.
E_KEEPASCHECKBOX."
SELECTION-SCREENCOMMENT51(17)TEXT-S04FORFIELDE_HDATE.
E_HDATELIKESY-DATUM.
SELECTION-SCREENSKIP.
SELECTION-SCREENCOMMENT1(33)TEXT-S10FORFIELDNODATA.
NODATADEFAULT'
/'
LOWERCASE."
nodata
SELECTION-SCREENCOMMENT1(33)FORFIELDSMALLLOG.
SMALLLOGascheckbox."
=logalltransactions
=notransactionlogging
*----------------------------------------------------------------------*
*datadefinition
*--------------------
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- BDC 编程