SAP ABAP模组(FUNCTION 和 BAPI技术)ppt课件.ppt

《SAP ABAP模组(FUNCTION 和 BAPI技术)ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Function&BAPIDennisChangAgenda認識ABAP開發環境單元1ABAP模組路徑ABAP常用Tcode分類說明SE*程式開發SM*系統管理ST*系統追蹤SQ*Query報表開發工具其他SHDB、SMARTFORM…資訊系統知識庫SE84ABAP/4三大門派傳統ABAPWebDynproABAPOOABAPOO類別：所有物件的共同藍圖包含屬性和方法物件：參考類別產生的真實例子指標：使用指標控制物件Web化的SAP畫面Function單元2模組化您的程式越外圍模組化程度越高RFC(RemoteFunctionCall

2、)SAPSAPRFCSAP外部系統RFC(Jco,.Net)Function扮演的角色函數編輯器SE37Function的優點Function的種類常用Function練習時間建立Dictionary元件建立Function元件BAPI單元3BAPI概念圖BAPI的優點取代LSMW轉檔取代BDC邏輯跨平台支援OO如何找BAPI?SAPSDN網站業務對象瀏覽器SWO1練習時間用BAPI建立物料主檔用BAPI建立採購單BAPI調用方式1.同一台SAP內TABLES:BAPI0002_1.DATA:ITABLIKESTANDARDTABLE

3、OFBAPI0002_1WITHHEADERLINE.CALLFUNCTION'BAPI_COMPANYCODE_GETLIST'*IMPORTING*RETURN=TABLESCOMPANYCODE_LIST=ITAB.ABAP程式2.不同台SAP間DATA: RFC(10)TYPEC.TABLES:BAPI0002_1.DATA:ITABLIKESTANDARDTABLEOFBAPI0002_1WITHHEADERLINE.RFC ='RFC'.CALLFUNCTION'BAPI_COMPANYCODE_GETLIST'DES

4、TINATION RFC*  IMPORTING*    RETURN                 =TABLESCOMPANYCODE_LIST       = ITAB.ABAP程式3.外部系統調用SAPFUNCTIONS=CreateObject("SAP.FUNCTIONS")CONN=FUNCTIONS.ConnectionCONN.ApplicationServer="59.152.212.220"CONN.Client="355"CONN.Language="EN"CONN.User=“userid"CONN.Pas

5、sword=“pwd"CONN.SystemNumber="00"STATUS=CONN.Logon(0,True)VB.Net程式SETT_CALL_FUNC=FUNCTIONS.Add("BAPI_MATERIAL_EXISTENCECHECK")T_CALL_FUNC.Exports("MATERIAL")=Trim(ITEM_CODE)SETT_STRUC=T_CALL_FUNC.Imports("RETURN")T_CALL_FUNC.CallIfNot(CONNIsNothing)ThenCONN.CloseSetCONN

6、=NothingEndIf建立和SAP的接連參數,如右圖:可以根據STATUS來判斷連接狀態.將數據讀到本地關閉RFC連結用OO的概念存取Bus.Obj.REPORTZSWC.INCLUDE.DATA:objTYPESWC_OBJECT.SWC_CONTAINERCONTAINER.SWC_CREATE_OBJECTobj'BUS2080‘‘’.SWC_CREATE_CONTAINERCONTAINER.SWC_SET_ELEMENTCONTAINER'NotificationType''S1'.SWC_CALL_ME

7、THODobj'CreatesingleContainerDialog'CONTAINER.ABAP程式mat:=SAPBAPIControl1.GetSAPObject('bus2012');//definestructuresHeader:=SAPBAPIControl1.dimAs(Mat,'CreateFromData','PoHeader');Schedul:=SAPBAPIControl1.dimAs(Mat,'CreateFromData','PoItemSchedules');Item:=SAPBAPIControl1

8、.dimAs(Mat,'CreateFromData','PoItems');Delphi程式ABAPBASISSDMMFICOPPQM感謝您