BAPI / RFC with Delphi(系列之六)－－TSAPFunctions使用BAPI创建PO(有登录对话框的delphi源代码)

1、新建一个Form，并在form上添加下列控件

Component	Function
SAPFunctions1	SAP ActiveX-component to connect RFC/BAPI
Button1	Button to start the procedure
Panel1	not relevant!

2、源代码如下(使用BAPI_PO_CREATE函数创建PO) 

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;

 

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1541340