( 'is not valid integer value' )

 

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  NetOpenX50_TLB,Dialogs, StdCtrls;

type

   TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Sirket: ISirket;
  Fatura: IFatura;
  FatUst: IFatUst;
  FatKalem: IFatKalem;
  Kernel: IKernel;
  I: Integer;
begin
   Kernel:=CoKernel.Create;
Try
  Sirket:=Kernel.yeniSirket(vtmssql,'SEMTECH11', 'TemelSet', '', 'NETSIS', 'NET1', 0);
  Fatura:=Kernel.yeniFatura(Sirket, ftSFat);
 //Faturanin üst bilgileri okunuyor
  Fatura.OkuUst('000000000000131', '00001');
  FatUst:=Fatura.Ust;
  MessageDlg(FatUst.CariKod + '--' + FatUst.FATIRS_NO, mtInformation, [mbOK], 0);
//Faturanin kalemleri okunuyor
  Fatura.OkuKalem;
  For I:=0 To Pred(Fatura.KalemAdedi) Do
  Begin
   FatKalem:=Fatura.kalem[ I ];
   MessageDlg(FatKalem.StokKodu + ' ' + FloatToStr(FatKalem.STra_BF), mtInformation, [mbOK], 0);
  End;

 Finally
  Sirket:=Nil;
  Fatura:=Nil;
  FatUst:=Nil;
  FatKalem:=Nil;
  Kernel.FreeNetsisLibrary;
  Kernel:=Nil;

end;
 end;
end.