|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
任何规模的组织都可能受益于外包服务,并在一个标准化和优化的平台上统一其数据库管理任务。基于其本身的特性,DBaaS提供了敏捷和高效的数据库服务,它可以支持多变的需求。程序
*-----------------------------------------------------------------------
*ProgramID:ZTEST904_BDC
*ProgramName:ZTEST904_BDC
*-----------------------------------------------------------------------
*CREATEDDATE:2004/09/04
*CREATEDBY:LiuGang
*DESCRIPTION:这个程序是进修怎样经由过程程序来挪用
*BDC主动导进数据的。
*-----------------------------------------------------------------------
*MODIFICATION:
*DATEMODIFIEDMODIFIEDBYTRANSPORTREQUESTDESCRIPTION
*2004/09/04LiuGangVERSION:01/01进修
*-----------------------------------------------------------------------
REPORTZTEST904_BDC.
*界说个BDC格局的内表
**************************************************
DATA:BEGINOFI_BDCDATAOCCURS0,
*BDC的程序名字,好比事物码MM01的程序名字为SAPLMGMM(sap尺度程序)
PROGRAMLIKEBDCDATA-PROGRAM,
*BDCDynpro号码
DYNPROLIKEBDCDATA-DYNPRO,
*BDCBDCDynpro_始
DYNBEGINLIKEBDCDATA-DYNBEGIN,
*BDC项目名字
FNAMLIKEBDCDATA-FNAM,
*BDC项目名字的附加值
FVALLIKEBDCDATA-FVAL,
ENDOFI_BDCDATA.
DATA:BEGINOFITABOCCURS0,
A(9),
ENDOFITAB.
ITAB-A=A0010.
APPENDITAB.
ITAB-A=A0011.
APPENDITAB.
*START-OF-SELECTION
START-OF-SELECTION.
LOOPATITAB.
PERFORMAPPEND_MM01USINGITAB-A.
PERFORMRUN_BDC.
ENDLOOP.
*---------------------------------------------------------------------*
*FORMAPPEND_DATA_MM01*
*---------------------------------------------------------------------*
*界说一个子程序内里,用来寄存操纵的各个步骤*
*---------------------------------------------------------------------*
FORMAPPEND_MM01USINGFVALLIKEITAB-A.
CLEARI_BDCDATA.
CLEARI_BDCDATA[].
*入手下手新的画面事务
*0173画面
*把程序名字和BDCDYnpro号码,入手下手标记写进内表表头,
I_BDCDATA-PROGRAM=SAPLMGMM.
I_BDCDATA-DYNPRO=0060.
I_BDCDATA-DYNBEGIN=X.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=BDC_CURSOR.
I_BDCDATA-FVAL=RMMG1-MATNR.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=BDC_OKCODE.
I_BDCDATA-FVAL=/00.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=RMMG1-MATNR.
*新创建的物料凭据号码
*I_BDCDATA-FVAL=A004.
I_BDCDATA-FVAL=FVAL.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=RMMG1-MBRSH.
I_BDCDATA-FVAL=C.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=RMMG1-MTART.
I_BDCDATA-FVAL=WERB.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
*入手下手新的画面事务
I_BDCDATA-PROGRAM=SAPLMGMM.
I_BDCDATA-DYNPRO=0070.
I_BDCDATA-DYNBEGIN=X.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=BDC_CURSOR.
I_BDCDATA-FVAL=MSICHTAUSW-DYTXT(01).
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=BDC_OKCODE.
I_BDCDATA-FVAL==ENTR.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=MSICHTAUSW-KZSEL(01).
I_BDCDATA-FVAL=X.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
*入手下手新的画面事务
I_BDCDATA-PROGRAM=SAPLMGMM.
I_BDCDATA-DYNPRO=4004.
I_BDCDATA-DYNBEGIN=X.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=BDC_OKCODE.
I_BDCDATA-FVAL==BU.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=BDC_CURSOR.
I_BDCDATA-FVAL=MAKT-MAKTX.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=MAKT-MAKTX.
I_BDCDATA-FVAL=测试BDC导进数据.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=MARA-MEINS.
I_BDCDATA-FVAL=000.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
I_BDCDATA-FNAM=MARA-MTPOS_MARA.
I_BDCDATA-FVAL=NORM.
APPENDI_BDCDATA.
CLEARI_BDCDATA.
ENDFORM.
*---------------------------------------------------------------------*
*FORMRUN_BDC*
*---------------------------------------------------------------------*
*........*
*---------------------------------------------------------------------*
FORMRUN_BDC.
*入手下手挪用事件MM01,把做好的bdc工具传送已往,然后把形式设置为A,
*就是说一切窗口,都可以瞥见.
*N暗示不瞥见吧
CALLTRANSACTIONMM01USINGI_BDCDATAMODEN.
ENDFORM.
事实上,在任何DBaaS中,解决方案提供商对如何管理物理资源都没有控制权,因此MySQL学习教程可能会发现由于DBaaS的局限性使得他们提供给客户的远远小于客户所期望的。 |
|