NetOpenX ile Seri Takibi ve Irsaliye kaydi

   Selam, NetOpenX'i kullanmaya yeni basladim,Netsiste seri takibi var isaretli, stoklarda Giristeseri takibi yapilacakmi isaretli,çikislarda seri takibi yapilacak mi isaretli,Bakiye kontrolü yapilacak mi isaretli,Miktar kadar seri sorulsunmu isaretli,
NetOpenX  için yazilmis örnekleri inceledim sonuçta söyle bir kod çikti.Hersey güzel ama
fatura.kayityeni procedure 'unde söyle bir hata aliyorum "Bu oturumda daha fazla hareket baslatilamaz" seklinde bir hata veriyor yanlisim nerede acaba yardimci olursaniz sevinirim.....

  Sirket := Kernel.yeniSirket(vtMSSQL, PSirket, 'TEMELSET', '1', PKullanici, PSifre, ISube_kodu);
  Fatura := Kernel.yeniFatura(Sirket, ftAIrs);

  Fatura.NetsisTransaction(ttBaslat);
  try
    FatUSt := Fatura.Ust;
    FatUst.Sube_Kodu := ISube_kodu;
    FatUst.FATIRS_NO := edtBELGENO.Text;
    FatUst.CariKod := edtKod.Text;
    FatUst.Tarih := dtTarih.Date;
    FatUst.Aciklama := DateToStr(dtListeTarih.Date);
    FatUst.FiiliTarih := dtTarih.Date;
    fatUst.ENTEGRE_TRH := now;
    fatUst.Tip := ft_Acik;
    FatUst.KDV_DAHILMI := BKdv_Dahilmi;
    qrySatir.First;
    while qrySatir.Eof = False do
    begin
      FatKalem := Fatura.kalemYeni(qrySatir.FieldByName('STOK_KODU').asString);
      FatKalem.DEPO_KODU := qrySatir.FieldByName('DEPO_KODU').AsInteger;
// adet her zaman 1
      FatKalem.STra_GCMIK := qrySatir.FieldByName('STHAR_GCMIK').AsFloat;
      FatKalem.Stra_NF := qrySatir.FieldByName('STHAR_NF').AsFloat;
      FatKalem.STra_BF := qrySatir.FieldByName('STHAR_BF').AsInteger;
      FatKalem.SeriEkle(qrySatir.FieldByName('SERI_NO').AsString
      ,qrySatir.FieldByName('ACIK1').AsString
      ,qrySatir.FieldByName('ACIK2').AsString
      ,qrySatir.FieldByName('ACIK3').AsString,1);
      qrySatir.Next;
    end;
    Fatura.kayitYeni;
    Fatura.NetsisTransaction(ttBitir);
  except
    Fatura.NetsisTransaction(ttGeriAl);
  end;