Logo Destek
Logo Nostalji => Unity - Unity2 => Konuyu başlatan: A.Memmedov - 29.11.2016, 09:14
-
cari hesap odemesi icin LOD da bir uyarlama yazdim. KS.POST a geldiyinde Unity kilitlenmis olur. BUrada kimse hatani deye bilermi mene
UPackDate(Today,d,m,y)
str(d,dstr)
str(m,mstr)
str(y,ystr)
v_kscode="100.01"
v_fistarixi=ValuesToDate(dstr,mstr,ystr)
v_note="Note"
v_clcode="120.01.01"
v_clname="Musteri"
v_total=50
v_d="AA"
KS = Application.NewDataObject(29)
KS.CheckRight = False
KS.New()
KS.DataFields.FieldByName("TYPE").Value = 12
KS.DataFields.FieldByName("SD_CODE").Value = v_kscode
KS.DataFields.FieldByName("DIVISION").Value = 0
KS.DataFields.FieldByName("DEPARTMENT").Value = 0
KS.DataFields.FieldByName("DATE").Value = v_fistarixi
KS.DataFields.FieldByName("HOUR").Value = 14
KS.DataFields.FieldByName("MINUTE").Value = 45
KS.DataFields.FieldByName("AUXIL_CODE").Value ="ARG.P"
KS.DataFields.FieldByName("NUMBER").Value = "~"
KS.DataFields.FieldByName("MASTER_TITLE").Value =v_clname
KS.DataFields.FieldByName("DESCRIPTION").Value = v_note
KS.DataFields.FieldByName("AMOUNT").Value = v_total
KS.DataFields.FieldByName("SIGN").Value = 1
at_arp = KS.DataFields.FieldByName("ATTACHMENT_ARP").Lines
at_arp.AppendLine()
at_arp.item[0].FieldByName("ARP_CODE").Value =v_clcode
at_arp.item[0].FieldByName("AUXIL_CODE").Value =""
at_arp.item[0].FieldByName("TRANNO").Value = "~"
at_arp.item[0].FieldByName("DOC_NUMBER").Value =v_d
at_arp.item[0].FieldByName("DESCRIPTION").Value = v_note
at_arp.item[0].FieldByName("DEBIT").Value = v_total
at_arp.item[0].FieldByName("TC_XRATE").Value = 1
at_arp.item[0].FieldByName("TC_AMOUNT").Value =v_total
at_arp.item[0].FieldByName("AFFECT_RISK").Value =0
payment = at_arp.item[0].FieldByName("PAYMENT_LIST").Lines
i=0
v_total1=v_total
payment.AppendLine()
payment.item.FieldByName("DATE").Value = v_fistarixi
payment.item.FieldByName("MODULENR").Value = 10
payment.item.FieldByName("TRCODE").Value = 2
payment.item.FieldByName("TOTAL").Value = v_total1
payment.item.FieldByName("PROCDATE").Value =v_fistarixi
payment.item.FieldByName("TRRATE").Value = 1
payment.item.FieldByName("DISCOUNT_DUEDATE").Value = v_fistarixi
payment.item.FieldByName("PAY_NO").Value = 1
payment.item.FieldByName("DISCTRDELLIST").Value =0
v_log="NO error"
KS.OpenTrans = true
If Not KS.Post() Then
If KS.ErrorCode <> 0 Then
v_log=KS.ErrorDesc
else
warn( KS.ValidateErrors.Count)
If KS.ValidateErrors.Count > 0 Then
For i = 0 To KS.ValidateErrors.Count - 1
v_log=KS.ValidateErrors.Item.Error
Next i
End If
KS=null
end if
warn(v_log)
else
v_ficheno= KS.DataFields.FieldByName("NUMBER").Value
end if
-
Post sonrası herhangi bir hata dönmüyor mu?
-
Hayir if not KS1.POST() then satirinda ekranda donma olur ve Unitybi task managerde kapatmak zorunda kaliram
-
Windows 2010,12 bilgisayarlarda sistem kuilitlenir amma XP olan bilgisayarda denedim,orada "Method Call error IQFormProxy.PopupMenuClick
[InvokeError,Exception,0,"Catastrophic failure\r\n","",""]"
Seklinde mesaj aliram
-
Bunu boş bir database ile yapabilir misin?
sanki objeden yanıt alamıyor kilitliyor gibi
birde başka versiyonda yapma şansın var mıdır?
versiyon hatası olup olmadığını oradan anlayabiliriz.
-
Database zaten bos Manula girdiyim bir kayit var sadece. baska versyonum yok malesef. Kurumda Unity 1.90.0.2 versyonunu kullanilir. Sorunu tehminen tesbit etdim.
XML de Kasaline insert edilecek kisimda sorun yoxdur. Sadece Cari hesap fisini atarken hata alinir
at_arp1 = KS1.DataFields.FieldByName("ATTACHMENT_ARP").Lines
at_arp1 bu nesnesini olusdurmasam KSLINE bir satir dusur. Amma bu nesneni eklediyimde kilitlenir. Bu datani da manul yazdigigim fisi XML olarak export edib oradan ilgili nesneleri yazmisam. Yeni kullanilan XML taglari veri aktarimi disari ve iceride kullanillan taglarin aynisdir
-
1.90 dan bugüne çok şeyler degisti obje tarafında .
-
Malesef yeni versiyona kecid yapamiyorum. Sistemsel coklu entegrasyonlar vardir. 2017 de belke kecid ede bildik...
buna bir cozum deye bilen olacakmi? >:(
-
açıkçası bizdeki versiyonlarda bu sorunlar yok sorunu görebilmek için sizin sistemde bu işlemleri yapıp hatayı yakalamamız lazım.
bu yüzden net bir cevap veremiyoruz, sadece fikir verebiliyoruz.
peki tek kasa fişini ekleyince sıkıntı oluyor mu? isterseniz bir de bunu deneyin.
-
Sadece Kasa fisinde sorun olmur. Sorun XML e Cari hesap bilgileri ekledikden sonra yaranir.
bu setirleri eklememesem kasa fisi olusur. Amma eklediyimde hata alinir
" at_arp = KS.DataFields.FieldByName("ATTACHMENT_ARP").Lines
at_arp.AppendLine()
at_arp.item[0].FieldByName("ARP_CODE").Value =v_clcode
"
KS = Application.NewDataObject(29)
KS.CheckRight = False
KS.New()
KS.DataFields.FieldByName("TYPE").Value = 12
KS.DataFields.FieldByName("SD_CODE").Value = v_kscode
KS.DataFields.FieldByName("DIVISION").Value = 0
KS.DataFields.FieldByName("DEPARTMENT").Value = 0
KS.DataFields.FieldByName("DATE").Value = v_fistarixi
KS.DataFields.FieldByName("HOUR").Value = 14
KS.DataFields.FieldByName("MINUTE").Value = 45
KS.DataFields.FieldByName("AUXIL_CODE").Value ="ARG.P"
KS.DataFields.FieldByName("NUMBER").Value = "~"
KS.DataFields.FieldByName("MASTER_TITLE").Value =v_clname
KS.DataFields.FieldByName("DESCRIPTION").Value = v_note
KS.DataFields.FieldByName("AMOUNT").Value = v_total
KS.DataFields.FieldByName("SIGN").Value = 1
at_arp = KS.DataFields.FieldByName("ATTACHMENT_ARP").Lines
at_arp.AppendLine()
at_arp.item[0].FieldByName("ARP_CODE").Value =v_clcode
-
Projene Break Point at nerde takılıyor bi bak .