DELPHI 调用SAP—RFC 示例

2024-04-27 10:50•linux•阅读 924

DELPHI 调用SAP—RFC 示例

Logon to the R3-system with the componente TSAPLogOnControl

In this example the form TForm1 contains the following components:

Component Function

SAPLogOnControl1 SAP ActiveX-Component to logon to the system

Button1 Button to start the procedure

unit s_logon;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, OleCtrls, SAPLogonCtrl_TLB, StdCtrls,Grids ;

type

TForm1 = class(TForm)

SAPLogonControl1: TSAPLogonControl;

Panel1: TPanel;

StaticText1: TStaticText;

Button1: TButton;

procedure SAPLogonControl1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

Connection :variant;

implementation

{$R *.DFM}

procedure TForm1.SAPLogonControl1Click(Sender: TObject);

begin

(* define connection *)

Connection:= SAPLogOnControl1.NewConnection;

(* start LogOn *)

if Connection.LogOn(0,false) = true then

begin

showmessage('Logon O.K.');

Button1.Enabled:= true;

end

else

begin

ShowMessage('Error on Logon :-(((');

SAPLogonControl1.Enabled:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

(* cut connection *)

Connection.LogOff;

ShowMessage('System LogOff...');

SAPLogonControl1.Enabled:=true;

Button1.enabled :=false;

end;

end.

Example 2:

Logon to the R3-system with the Component TSAPLogOnControl and SilentLogOn

In this example the form TForm1 contains the following components:

Component Function

SAPLogOnControl1 SAP ActiveX-Component to logon to the system

Button1 Button to cut the connection

unit s_logon;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, OleCtrls, SAPLogonCtrl_TLB, StdCtrls,Grids ;

type

TForm1 = class(TForm)

SAPLogonControl1: TSAPLogonControl;

Panel1: TPanel;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

StaticText1: TStaticText;

Button1: TButton;

procedure SAPLogonControl1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

Connection :variant;

implementation

{$R *.DFM}

procedure TForm1.SAPLogonControl1Click(Sender: TObject);

begin

(* define connection and it's parameters *)

Connection := SAPLogoncontrol1.newConnection;

(* In some GUI-versions the username *)

(* must be written in uppercase !!! *)

Connection.User := AnsiUpperCase(Edit1.text);

Connection.System := 'IDS';

Connection.Client := '800';

Connection.ApplicationServer := 'SAPIDES';

Connection.SystemNumber := '00';

Connection.Password := Edit2.text;

Connection.Language := 'DE' ;

SAPLogonControl1.Enabled := false;

if Connection.LogOn(0,true) = true then

(* parameter "true" : SilentLogOn *)

begin

ShowMessage('Logon O.K.');

Button1.Enabled:= true;

end

else

begin

ShowMessage('Error on logon :-(((');

SAPLogonControl1.Enabled:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

(* cut connection *)

Connection.LogOff;

ShowMessage('System LogOff...');

SAPLogonControl1.Enabled:=true;

Button1.Enabled :=false;

end;

end.

Example 3:

Read all costcenters with the function RFC_READ_TABLE

In this example the form TForm1 contains the following components:

Component function

SAPFunctions1 SAP ActiveX-component to connect RFC/BAPI

Grid Stringgrid to show the data's in the form

Button1 Button to start the procedure

unit logon1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, OleCtrls, StdCtrls, SAPFunctionsOCX_TLB, Grids;

type

TForm1 = class(TForm)

SAPFunctions1: TSAPFunctions;

Button1: TButton;

Grid: TStringGrid;

procedure Button1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1 : TForm1 ;

Table,Funct : VARIANT ;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var txt : string ;

r : integer ;

begin

(* define function *)

Funct := SAPFunctions1.add('RFC_READ_TABLE');

(* tell the function what table should be read *)

Funct.exports('QUERY_TABLE').value := 'CSKT';

(* call the function *)

if not Funct.call then

(* on error show message *)

showMessage(Funct.exception)

else begin

(* select table with the data's *)

Table := Funct.tables.item('DATA');

(* addjust the StringGrid *)

grid.rowCount := Table.rowcount + 1;

grid.cells[0,0] := 'Client';

grid.cells[1,0] := 'Kostenstelle';

grid.cells[2,0] := 'Bezeichnung';

for r := 1 to grid.rowCount -1 do begin

(* select first dataset *)

txt := Table.value(r,1);

(* Because the RCF-function returns only one *)

(* string whitch contains all data's, the *)

(* string must be cut to different parts *)

grid.cells[0,r] := copy(txt,0,3); (* Client *)

grid.cells[1,r] := copy(txt,9,10); (* CostCent-number *)

grid.cells[2,r] := copy(txt,27,20); (* CostCent-description*)

end;

grid.visible := True;

end;

end.

Example 4:

Read all costcenters with the function RFC_READ_TABLE and logon with SilentLogOn

In this example the form TForm1 contains the following components:

Component Function

SAPFunctions1 SAP ActiveX-component to connect RFC/BAPI

SAPLogoncontrol1 SAP ActiveX-Component to logon to the system

Grid Stringgrid to show the data's in the form

Button1 Button to start the procedure

unit logon1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, OleCtrls, StdCtrls, SAPFunctionsOCX_TLB,

Grids, SAPLogonCtrl_TLB;

type

TForm1 = class(TForm)

SAPFunctions1: TSAPFunctions;

Button2: TButton;

Grid: TStringGrid;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

SAPLogonControl1: TSAPLogonControl;

procedure Button2Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1 : TForm1 ;

Table,Funct, Connection : VARIANT ;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

var txt : string ;

r : integer ;

begin

Connection := SAPLogoncontrol1.newConnection;

Connection.User := AnsiUpperCase(Edit1.text);

Connection.System := 'IDS';

Connection.Client := '800';

Connection.ApplicationServer:= 'SAPIDES';

Connection.SystemNumber := '00';

Connection.Password := Edit2.text;

Connection.Language := 'DE' ;

if Connection.LogOn(0,true) = true then

(* parameter "true" = SilentLogOn *)

begin

(* assign the existing connection to the *)

(* component SAPFunctions1 *)

SAPFunctions1.Connection := Connection;

Funct := SAPFunctions1.add('RFC_READ_TABLE');

Funct.exports('QUERY_TABLE').value := 'CSKT';

if not Funct.call then

showMessage(Funct.exception)

else begin

Table := Funct.tables.item('DATA');

grid.rowCount := Table.rowcount + 1;

grid.cells[0,0] := 'Client';

grid.cells[1,0] := 'CostCent-No';

grid.cells[2,0] := 'CostCent-Des.';

for r := 1 to grid.rowCount -1 do begin

txt := Table.value(r,1);

grid.cells[0,r] := copy(txt,0,3);

grid.cells[1,r] := copy(txt,9,10);

grid.cells[2,r] := copy(txt,27,20);

end;

grid.visible := True;

end;

end.

Example 5:

Show detail of a material with the BAPI BAPI_MATERIAL_GET_DETAIL

In this example the form TForm1 contains the following components:

Component

Function

SAPFunctions1 SAP ActiveX-component to connect RFC/BAPI

Panel1/Panel2 Elements to show the data's

Button1 Button to start the procedure

unit material;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls, OleCtrls, SAPFunctionsOCX_TLB;

type

TForm1 = class(TForm)

SAPFunctions1: TSAPFunctions;

Panel1: TPanel;

Panel2: TPanel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

funct, tab, connection: variant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

(* define function *)

funct := sapFunctions1.add('BAPI_MATERIAL_GET_DETAIL');

(* hand over material-number *)

(* On numeric values don't forget the leading zeros!!! *)

funct.exports('MATERIAL').value := '000000000000017550';

(* call the function *)

if not funct.call then

(* on error show message *)

showMessage(funct.exception)

else

begin

(* select table with the returned data's *)

tab := funct.imports.item('MATERIAL_GENERAL_DATA');

(* The variable TAB now contains the returned data's. The *)

(* structure is like the structure BAPIMATDOA in the *)

(* dictionary. We will show the 1. and 3. value of this *)

(* structure *)

Panel1.caption := tab.value(1);

Panel2.caption := tab.value(3);

end;

end.

Example 6:

Create a purcaseorder with the BAPI BAPI_PO_CREATE

In this example the form TForm1 contains the following components:

Component Function

SAPFunctions1 SAP ActiveX-component to connect RFC/BAPI

Button1 Button to start the procedure

Panel1 not relevant!

unit PO_Create;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, OleCtrls, SAPFunctionsOCX_TLB, ExtCtrls;

type

TForm1 = class(TForm)

SAPFunctions1: TSAPFunctions;

Button1: TButton;

Panel1: TPanel;

procedure Button1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

Funct,

Header,

POItems,

Schedules,

ItemsRow,

SchedulesRow: Variant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var MLDText : String;

begin

Button1.Enabled:=false;

Panel1.Caption := 'RFC ist running, please wait.....';

(* define function *)

Funct := sapFunctions1.add('BAPI_PO_CREATE');

(*** define tables, use structures of the dictionary ***)

(* table for the purcaseorder header *)

Header := funct.exports('PO_HEADER');

(* table of the purcaseorder items *)

POItems := funct.tables.item('PO_ITEMS');

(* table of the schedules *)

Schedules := funct.tables.item('PO_ITEM_SCHEDULES');

(*** filling the PO_Header-table ***)

(* purcasing document type *)

Header.Value[2] := 'NB ' ;

(* purcasing document category *)

Header.Value[3] := 'F' ;

(* purcasing organisation *)

Header.Value[5] := '600' ;

(* purcasing group *)

Header.Value[6] := '610' ;

(* vendor account number, on numeric values don't *)

(* forget the leading zeroes!!! *)

Header.Value[8] := '0099000123';

(*** filling the PO_Items-table ***)

(* add new row to the table *)

ItemsRow := POItems.rows.add;

(* item number of purcasing document *)

ItemsRow.Value[2]:='00010';

(* material-number, on numeric values don't forget *)

(* the leading zeros !!! *)

ItemsRow.Value[5]:='000000000000001161';

(* storage location *)

ItemsRow.Value[11]:='100';

(* plant *)

ItemsRow.Value[17]:='0001';

(* netprice in purcasing document, *)

(* in document currency *)

ItemsRow.Value[21]:='10,00';

(*** filling the PO_Items_Schedules-table ***)

(* add new row to the table *)

SchedulesRow := Schedules.rows.add;

(* item number of purcasing document *)

SchedulesRow.Value[1]:='00010';

(* category of delivery date *)

SchedulesRow.Value[3]:='1';

(* item delivery date *)

SchedulesRow.Value[4]:='30.05.2000';

(* scheduled quantity *)

SchedulesRow.Value[6]:='10';

(*** call function ***)

if not funct.call then

(* on error show message *)

showMessage(funct.exception)

else

begin

(* show number of the purcaseorder *)

MLDText:= funct.imports('PURCHASEORDER');

MessageDlg('purcaseorder '+MLDText+' created.',

MTInformation,[mbOK],0);

end;

end.

Example 7:

Show the details of material with the BusinessObject BUS1001

In this example the form TForm1 contains the following components:

Component Function

SAPBAPIControl1 SAP ActiveX-Component to connect to BAPI

Button1 Button to start the procedure

Panel1 Element to display the material-description

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, OleCtrls, SAPBAPIControlLib_TLB, ExtCtrls;

type

TForm1 = class(TForm)

SAPBAPIControl1: TSAPBAPIControl;

Button1: TButton;

Panel1: TPanel;

procedure Button1Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

Connection,MAT : Variant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

Connection:= SAPBapiControl1.Connection;

if Connection.Logon then

begin

ShowMessage('LogOn');

(* Call the object with the needed parameters *)

MAT:= sapbapicontrol1.GetSAPObject('BUS1001','000000000000017550');

(* Display material-description *)

Panel1.Caption:=MAT.MATERIALDESCRIPTION;

end;

end.

Example 8:

Create an purchaseorder with the BusinessObject BUS2012

In this example the form TForm1 contains the following components:

Component Function

SAPLogonControl1 SAP ActiveX-Component to logon to the system

SAPBAPIControl1 SAP ActiveX-Component to connect to BAPI

Button1 Button to start the procedure

Button2 Button to logon

Panel1-3 Elements to display messages

unit best;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, OleCtrls, SAPBAPIControlLib_TLB, ExtCtrls, Grids,

SAPLogonCtrl_TLB;

type

TForm1 = class(TForm)

SAPBAPIControl1: TSAPBAPIControl;

Button1: TButton;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Button2: TButton;

SAPLogonControl1: TSAPLogonControl;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private-Deklarationen }

public

{ Public-Deklarationen }

end;

var

Form1: TForm1;

Connection,Mat,Header,Ret,Schedul,Item : Variant;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

(* select BusinessObject *)

Mat:= SAPBapiControl1.GetSAPObject('BUS2012');

(* define structures *)

Header := SAPBapiCcontrol1.dimAs (Mat,'CreateFromData','PoHeader');

Schedul:= SAPBapiCcontrol1.dimAs (Mat,'CreateFromData','PoItemSchedules');

Item := SAPBapiCcontrol1.dimAs (Mat,'CreateFromData','PoItems');

Ret := SAPBapiCcontrol1.dimAs (Mat,'CreateFromData','Return');

(* purchaseorder header data's *)

Header.value ('DOC_TYPE') := 'NB';

Header.value ('DOC_CAT') := 'F';

Header.value ('PURCH_ORG'):= '10';

Header.value ('PUR_GROUP'):= '10';

Header.value ('VENDOR') := '0010000999';

(* data for position 00010 *)

Item.Rows.Add;

Item.Value (1,'PO_ITEM') := '00010';

Item.Value (1,'PUR_MAT') := '000000000000000017';

Item.Value (1,'STORE_LOC') := '100';

Item.Value (1,'PLANT') := '1000';

Item.Value (1,'NET_PRICE') := '10,00';

(* schedules for position 00010 *)

Schedul.Rows.Add;

Schedul.Value (1,'PO_ITEM') := '00010';

Schedul.Value (1,'DEL_DATCAT') := '1';

Schedul.Value (1,'DELIV_DATE') := '20.09.2000';

Schedul.Value (1,'QUANTITY') := '10';

(* data for position 00020 *)

Item.Rows.Add;

Item.value (2,'PO_ITEM') := '00020';

Item.value (2,'PUR_MAT') := '000000000000001161';

Item.value (2,'STORE_LOC') := '100';

Item.value (2,'PLANT') := '1000';

Item.value (2,'NET_PRICE') := '10,00';

(* schedules for position 00020 *)

Schedul.Rows.Add;

Schedul.Value (2,'PO_ITEM') := '00020';

Schedul.Value (2,'DEL_DATCAT') := '1';

Schedul.Value (2,'DELIV_DATE') := '20.09.2000';

Schedul.Value (2,'QUANTITY') := '10';

(* call the method CreateFromData *)

Mat.CreateFromData (PoHeader := Header,

SkipItemsWithError := ' ',

PoItems := Item,

PoItemSchedules := Schedul,

Return := Ret);

(* Errors are saved in the structure Ret *)

if Ret.RowCount > 0 then

begin

Panel1.Caption:= Ret.Value (1,'TYPE');

Panel2.Caption:= Ret.Value (1,'MESSAGE');

end

(* If the method was calles without errors, *)

(* display the number of the purchaseorder *)

else Panel2.Caption:= Mat.PurchaseOrder;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

(* Logon to the system *)

Connection := SAPLogoncontrol1.newConnection;

Connection.User := Ansiuppercase(Edit1.text);

Connection.System := 'IDS';

Connection.Client := '800';

Connection.ApplicationServer := 'SAPIDES';

Connection.SystemNumber := '00';

Connection.Password := Edit2.text;

Connection.Language := 'DE' ;

SAPLogonControl1.Enabled := false;

if Connection.LogOn(0,true) = True then

begin

ShowMessage('Logon O.K.');

Button1.Enabled:= true;

(* assign the existing connection to the *)

(* component SAPBapiControl1 *)

SapBapiControl1.Connection:=Connection;

end

else

begin

ShowMessage('Error on logon :-(((');

end;

end.

上一篇 »SAP GUI for HTML
下一篇 »SAP GUI For JAVA和SAP GUI For Windows 连接字符串转换

DELPHI 调用SAP—RFC 示例

相关推荐

SAP UI5 使用 CSS 的一些注意事项

Delphi 使用 ZLib 压缩和解压 GZip

VB.net连接SAP实例，vb.net写法

delphi SAP

VB.net连接SAP实例

Vue开发手册Function-based API RFC

理解 Delphi 的类，十 - 深入方法[27] - 递归函数: 简单示例

C#调用Delphi Dll返回字符串的示例，使用Move才能拷贝字符串