Logo Forum - ambar fişi detayları aktarılmıyor

esin.kapucu

ambar fişi detayları aktarılmıyor

14/08/17 17:20 Tiger/REST

lobjects ile ambar fişi aktarımında STLINE tablosuna kayıt aktarmıyor. aktarım

yaptığımız versiyon 2.45 tir. yardımcı olabilir misiniz ?

teşekkürler.

Uluç Karadeniz

Merhaba

Aktarım yaparken kullandığınız XML şablonunu yazar mısınız ? Büyük ihtimal ile TRANSECTION kısımlarında bir hata yapmışsınızdır. Bir de daha önceki bir versiyonda deneme şansınız oldu mu aynı kod yapısını ? Versiyon hatası mı diye ?

17/08/17 13:06

esin.kapucu

merhaba,

xml değil logo direk aktarımda sıkıntı yaşıyoruz. farklı versiyonlarda denediğimizde aynı sorun mevcut. transaction yani detayların dolduğunu görüyoruz. fakat logo db den aldığımız trace fileda inserti yapmıyor. sadece başlık aktarılıyor.

teşekkürler.

17/08/17 13:12

Uluç Karadeniz

XML'den kastım post ettiğiniz alanların yazım şekliydi. Bu kullanım ile ben post işlemini satırlar ile birlikte yapabiliyorum. İsterseniz girilen değerleri değiştirip , alt kısımdaki kod bloğunu bir deneyin. Büyük ihtimal ile TRANSECTION kısmında bir yerde gözden kaçan bir hata vardır.

 objAmbr = Application.NewDataObject(1)
 objAmbr.New()
 
 objAmbr.DataFields.FieldByName("GROUP").Value = 3
 objAmbr.DataFields.FieldByName("TYPE").Value = 25 
 objAmbr.DataFields.FieldByName("DATE").Value = day
 objAmbr.DataFields.FieldByName("SOURCE_WH").Value = 1
 objAmbr.DataFields.FieldByName("DEST_WH").Value = 0
 
 transactions_lines = objAmbr.DataFields.FieldByName("TRANSACTIONS").Lines

 If transactions_lines.AppendLine() Then
 transactions_lines[0].FieldByName("ITEM_CODE").Value = codeTxt 
 transactions_lines[0].FieldByName("LINE_TYPE").Value = 0
 transactions_lines[0].FieldByName("SOURCEINDEX").Value = 1
 transactions_lines[0].FieldByName("DESTINDEX").Value = 0
 transactions_lines[0].FieldByName("LINE_NUMBER").Value = 1 
 transactions_lines[0].FieldByName("QUANTITY").Value = ambrFlt 
 transactions_lines[0].FieldByName("UNIT_CODE").Value = "ADET" 
 End if
 
 
 
 If Not objAmbr.Post() Then 
 if (objAmbr.ValidateErrors.Count > 0) then 
 tmpErrStr = "XML Hatası mevcut!" 
 Cntr = objAmbr.ValidateErrors.Count 
 For ilp = 0 To (Cntr - 1) 
 vID = objAmbr.ValidateErrors.Item[ilp].ID 
 Str(vID, strvID) 
 tmpErrStr = tmpErrStr + strvID + " , " + objAmbr.ValidateErrors.Item[ilp].Error 
 Next ilp 
 warn(tmpErrStr) 
 Else 
 tmpErrStr="" 
 tmpErrStr = "DB Hatası mevcut!" 
 ErrId = objAmbr.ErrorCode 
 Str(ErrId, strErr) 
 ErrDef = "" 
 ErrDef = objAmbr.DBErrorDesc 
 tmpErrStr = tmpErrStr + "Hata Kodu : " + strErr + " " + ErrDef 
 warn(tmpErrStr) 
 End if
 Else

17/08/17 14:18

esin.kapucu

desteğiniz için teşekkür ederim. bizim kodlarımızda detayda line_number alanı bulunmuyordu. bunu ekledik. fakat yine de detayları aktarmıyor. başka nasıl bir yol izleyebiliriz ?

22/08/17 09:09

NaciO