merhaba
VbScript ile satış faturası eklemeye çalışıyorum faturayı ekliyorum ama satırlarını ekleyemiyorum, hehangi bir hata da döndümüyo
Lütfen daha önce vbscript ile fatura transfei yapan biri varsa yardımcı olabilimi? Kodu m aşağıdaki gibi
Teşekkürler
Dim LastError
Dim FatOk
Dim FatHataTxt
Dim i
Dim ok
Set UnityApp = CreateObject("UnityObjects.UnityApplication")
If Not IsEmpty(UnityApp) Then
If UnityApp.Login("LOGO", "LOGO", "1") Then
Set Invoice = UnityApp.NewDataObject(19)
Invoice.New
Invoice.DataFields.FieldByName("TYPE").Value = CDbl(
Invoice.DataFields.FieldByName("NUMBER").Value = CStr("AHP.10.2")
Invoice.DataFields.FieldByName("ARP_CODE").Value = CStr("M.199.0234.02")
Invoice.DataFields.FieldByName("GL_CODE").Value = CStr("120")
Invoice.DataFields.FieldByName("DATE").Value = CDate("05.02.2010")
Invoice.DataFields.FieldByName("NOTES1").Value = CStr("deneme")
Invoice.DataFields.FieldByName("NOTES2").Value = CStr("")
Invoice.DataFields.FieldByName("NOTES3").Value = CStr("")
Invoice.DataFields.FieldByName("NOTES4").Value = CStr("")
Invoice.DataFields.FieldByName("PAYMENT_CODE").Value = CStr("OP.30")
Invoice.DataFields.FieldByName("DOC_NUMBER").Value = CStr("10.2")
Set InvoiceLines = Invoice.DataFields.FieldByName("TRANSACTIONS").Lines
If InvoiceLines.AppendLine Then
InvoiceLines.Item(0).FieldByName("TYPE").Value = 4
InvoiceLines.Item(0).FieldByName("DATE").Value = CDate("05.02.2010")
InvoiceLines.Item(0).FieldByName("QUANTITY").Value = CDbl(1)
InvoiceLines.Item(0).FieldByName("PRICE").Value = CDbl(100)
InvoiceLines.Item(0).FieldByName("TOTAL").Value = CDbl(100)
InvoiceLines.Item(0).FieldByName("VAT_RATE").Value = CDbl(18)
InvoiceLines.Item(0).FieldByName("PAYMENT_CODE").Value = CStr("OP.30")
InvoiceLines.Item(0).FieldByName("DETAIL_LEVEL").Value = 0
InvoiceLines.Item(0).FieldByName("TOTAL_NET").Value = CDbl(118)
End If
If Invoice.Post Then
FatOk = "ok"
Else
For Index = 0 To Invoice.ValidateErrors.Count - 1
FatHataTxt = FatHataTxt + Invoice.ValidateErrors(Index).Error + Chr(10)
Next
End If
InvoiceLines = Empty
Invoice = Empty
UnityApp.Disconnect
UnityApp = Empty
Else
MsgBox ("Logo bağlantı hatası")
End If
End If
