LOBJECT.dll kullanarak Stok Kartını birimleri ile birlikte nasıl ekleyebilirim?

[BehzatGuvenc]

LOBJECT.dll ile Stok kartı ve buna ait birim, fiyat bilgilerini nasıl ekleyebilirim?
Şimdiden teşekkürler.

[Monsieur®]

Merhaba,

Object ile ilgili daha önceden yaşadığımız problemlerden dolayı çözüm ortaklarına yönlendirme yapıyoruz.

[balciozgur]

try
  m('Logo bağlantısı yapılıyor...');
  unityapplication1.Login('LOGO','LOGOLBS',strtoint(fmenu.firmano));
  qry1:=unityapplication1.NewQuery;
  dat:=unityapplication1.NewDataObject(doMaterial);
  m('Aktarılıyor...');
  excel.First;
  while not excel.Eof do
    begin
      ref:=kayitbul(excel.fieldbyname('PG_URUNKODU').AsString);
      if ref=-1 then
        with dat do
          begin
            New;
            memo1.Lines.Add('Yeni'+#8+excel.fieldbyname('UNITY_Malzeme_Kodu').AsString);
            DataFields.FieldByName('CARD_TYPE').Value:=1;
            DataFields.FieldByName('CODE').Value:=excel.fieldbyname('UNITY_Malzeme_Kodu').AsString;
            DataFields.FieldByName('NAME').Value:=excel.fieldbyname('URUN_Ismi').AsString;
            DataFields.FieldByName('PRODUCER_CODE').Value:=excel.fieldbyname('PG_URUNKODU').AsString;
            DataFields.FieldByName('AUXIL_CODE').Value:='PGAYT';
            DataFields.FieldByName('USEF_PURCHASING').Value:=1;
            DataFields.FieldByName('USEF_SALES').Value:=1;
            DataFields.FieldByName('USEF_MM').Value:=1;
            DataFields.FieldByName('VAT').Value:=18;
            DataFields.FieldByName('SELVAT').Value:=18;
            DataFields.FieldByName('RETURNVAT').Value:=18;
            DataFields.FieldByName('UNITSET_CODE').Value:='PG';
         end else dat.Read(ref);

      with dat.DataFields.FieldByName('UNITS').Lines do
        begin
             if ref=-1 then for i:=1 to 5 do AppendLine;//yeni kayıtsa satır aç.
             Item[0].FieldByName('UNIT_CODE').Value:='AD';
//             Item[0].FieldByName('BARCODE').Value:=excel.fieldbyname('Adet_Barkodu').AsString;
             Item[0].FieldByName('USEF_MTRLCLASS').Value:=1;
             Item[0].FieldByName('USEF_PURCHCLAS').Value:=1;
             Item[0].FieldByName('USEF_SALESCLAS').Value:=1;
             Item[0].FieldByName('CONV_FACT1').Value:=1;
             Item[0].FieldByName('CONV_FACT2').Value:=1;
             Item[0].FieldByName('VOLUME').Value:=excel.fieldbyname('HACIM_ADET').Value;
             Item[0].FieldByName('WEIGHT').Value:=excel.fieldbyname('AGIRLIK_ADET').Value;

             Item[1].FieldByName('UNIT_CODE').Value:='KL';
//             Item[1].FieldByName('BARCODE').Value:=excel.fieldbyname('Koli_Barkodu').AsString;
             Item[1].FieldByName('USEF_MTRLCLASS').Value:=1;
             Item[1].FieldByName('USEF_PURCHCLAS').Value:=1;
             Item[1].FieldByName('USEF_SALESCLAS').Value:=1;
             Item[1].FieldByName('CONV_FACT1').Value:=1;
             Item[1].FieldByName('CONV_FACT2').Value:=excel.fieldbyname('Koli_Ici_Adeti').value;
             Item[1].FieldByName('VOLUME').Value:=excel.fieldbyname('HACIM_KOLI').Value;
             Item[1].FieldByName('WEIGHT').Value:=excel.fieldbyname('AGIRLIK_KOLI').Value;

             Item[2].FieldByName('UNIT_CODE').Value:='PALET';
             Item[2].FieldByName('BARCODE').Value:='';
             Item[2].FieldByName('USEF_MTRLCLASS').Value:=1;
             Item[2].FieldByName('USEF_PURCHCLAS').Value:=1;
             Item[2].FieldByName('USEF_SALESCLAS').Value:=1;
             Item[2].FieldByName('CONV_FACT1').Value:=1;
             Item[2].FieldByName('CONV_FACT2').Value:=excel.fieldbyname('Palet_Ici_Koli').value;
             Item[2].FieldByName('VOLUME').Value:=excel.fieldbyname('PALET_HACIM').Value;
             Item[2].FieldByName('WEIGHT').Value:=excel.fieldbyname('PALET_AGIRLIK').Value;

             Item[3].FieldByName('UNIT_CODE').Value:='SU';
             Item[3].FieldByName('BARCODE').Value:='';
             Item[3].FieldByName('USEF_MTRLCLASS').Value:=1;
             Item[3].FieldByName('USEF_PURCHCLAS').Value:=1;
             Item[3].FieldByName('USEF_SALESCLAS').Value:=1;
             Item[3].FieldByName('CONV_FACT1').Value:=1;
             Item[3].FieldByName('CONV_FACT2').Value:=1;

             Item[4].FieldByName('UNIT_CODE').Value:='MSU';
             Item[4].FieldByName('BARCODE').Value:='';
             Item[4].FieldByName('USEF_MTRLCLASS').Value:=1;
             Item[4].FieldByName('USEF_PURCHCLAS').Value:=1;
             Item[4].FieldByName('USEF_SALESCLAS').Value:=1;
             Item[4].FieldByName('CONV_FACT1').Value:=1;
             Item[4].FieldByName('CONV_FACT2').Value:=excel.fieldbyname('ADET_MSU').Value;
       end;
       dat.Post;
       for i:=0 to dat.ValidateErrors.Count-1 do
          memo2.Lines.Add(excel.fieldbyname('UNITY_Malzeme_Kodu').AsString+' '+dat.ValidateErrors.Item.Error);

      excel.Next;
    end;
  qry1.Close;
  unityapplication1.UserLogout;
  unityapplication1.Disconnect;
  showmessage('İşlem Tamamlandı..');
except on e:exception do
  begin
     showmessage('Aktarılamadı:'+e.Message+#13#10+unityapplication1.GetLastErrorString);
  end;
end;
end;