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