Cari hesap kassa odemesi uyarlamasinda POST methodunda olan kilitlenme

[A.Memmedov]

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

[Monsieur®]

Post sonrası herhangi bir hata dönmüyor mu?

[A.Memmedov]

Hayir if not KS1.POST()  then satirinda ekranda donma olur ve Unitybi task managerde kapatmak zorunda kaliram

[A.Memmedov]

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

[Monsieur®]

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.

[A.Memmedov]

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

[ByBirol®]

1.90 dan bugüne çok şeyler degisti obje tarafında .

[A.Memmedov]

Malesef yeni versiyona kecid yapamiyorum. Sistemsel coklu entegrasyonlar vardir. 2017 de belke kecid ede bildik...
buna bir cozum deye bilen olacakmi?   

[Monsieur®]

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.

[A.Memmedov]

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

[ByBirol®]

Projene Break Point at nerde takılıyor bi bak .