• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü VB NET çalışmamı nasıl C# uyarlayabilirim

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Koboy66

Yeni Üye
Katılım
12 Ara 2018
Mesajlar
42
En iyi yanıt
0
Puanları
8
Yaş
43
Konum
İstanbul
Ad Soyad
Erkan uzun
Sub add_order()
Dim connection As String = ConfigurationManager.ConnectionStrings("mysql").ConnectionString

Dim ds As New DataSet
Dim sa As New MySqlDataAdapter("SELECT * FROM oc_order where aktarma = 0 ", connection)
sa.Fill(ds)
DataGridView2.DataSource = ds.Tables(0)
DataGridView2.Refresh()
DataGridView3.Refresh()

For i = 0 To ds.Tables(0).Rows.Count - 1

Dim order = uapp.NewDataObject(UnityObjects.DataObjectType.doSalesOrderSlip)

order.New()

Dim order_id = Replace(ds.Tables(0).Rows(i).Item("order_id"), " ", "")
Dim CUSTEM = Replace(ds.Tables(0).Rows(i).Item("CODE"), " ", "")
Dim currency_code = Replace(ds.Tables(0).Rows(i).Item("currency_code"), " ", "")
Dim date_added = (ds.Tables(0).Rows(i).Item("date_added"))
Dim gelen = order_id

Dim dt As DateTime = Convert.ToDateTime(date_added)
Dim format As String = "dd.MM.yyyy"
Dim TARIH As String = dt.ToString(format)

order.DataFields.FieldByName("NUMBER").Value = "~"
order.DataFields.FieldByName("DATE").Value = TARIH
order.DataFields.FieldByName("TIME").Value = "171191089"
order.DataFields.FieldByName("DOC_NUMBER").Value = "WEB"
order.DataFields.FieldByName("ARP_CODE").Value = CUSTEM
order.DataFields.FieldByName("CURRSEL_DETAILS").Value = 2
order.ApplyCampaign()


Dim connection2 As String = ConfigurationManager.ConnectionStrings("mysql").ConnectionString
Dim gs As New DataSet
Dim ea As New MySqlDataAdapter("SELECT * FROM oc_order_product where order_id = '" & gelen & "' ", connection2)
'Dim ea As New MySqlDataAdapter("SELECT * FROM oc_order_product ", connection2)
ea.Fill(gs)
DataGridView3.DataSource = gs.Tables(0).DefaultView
DataGridView3.Refresh()

Dim transactions_lines = order.DataFields.FieldByName("TRANSACTIONS").Lines

For ia = 0 To gs.Tables(0).Rows.Count - 1

Dim order_id2 = Replace(gs.Tables(0).Rows(ia).Item("order_id"), " ", "")

If (order_id = order_id2) Then

Dim STOCKREF = Replace(gs.Tables(0).Rows(ia).Item("model"), " ", "")
Dim PRICE = gs.Tables(0).Rows(ia).Item("price")
Dim AMOUNT = gs.Tables(0).Rows(ia).Item("quantity")

transactions_lines.AppendLine()

transactions_lines((0)).FieldByName("TYPE").Value = 0
transactions_lines((transactions_lines.Count - 1)).FieldByName("MASTER_CODE").Value = STOCKREF
transactions_lines((transactions_lines.Count - 1)).FieldByName("QUANTITY").Value = AMOUNT
transactions_lines((transactions_lines.Count - 1)).FieldByName("PRICE").Value = PRICE
transactions_lines((transactions_lines.Count - 1)).FieldByName("VAT_RATE").Value = "18"
transactions_lines((transactions_lines.Count - 1)).FieldByName("UNIT_CODE").Value = "ADET"
transactions_lines((transactions_lines.Count - 1)).FieldByName("UNIT_CONV1").Value = 1
transactions_lines((transactions_lines.Count - 1)).FieldByName("UNIT_CONV2").Value = 1
transactions_lines((transactions_lines.Count - 1)).FieldByName("EDT_CURR").Value = 1


End If
Next

If (order.Post() = True) Then
Dim connection3 As MySqlConnection
connection3 = New MySqlConnection
connection3.ConnectionString = ConfigurationManager.ConnectionStrings("mysql").ConnectionString
connection3.Open()
Dim SQLCOMMANDSTRING As String = "UPDATE oc_order SET aktarma='1' WHERE order_id='" & order_id & "' "
Dim SqlCommand As New MySqlCommand(SQLCOMMANDSTRING, connection3)
Dim Count As Integer

Count = SqlCommand.ExecuteNonQuery

connection3.Close()

RichTextBox1.Text += ("LogoTiger Sipariş Aktarıldı Sipariş Numarası:") + order_id + vbCrLf


' MsgBox("POST OK !")

End If


If order.ErrorCode <> 0 Then
MsgBox("DB Error:(" + CStr(order.ErrorCode) + ") - " + order.ErrorDesc)
Else
If order.ValidateErrors.Count > 0 Then
For ai = 0 To order.ValidateErrors.Count - 1
MsgBox("XML Error :(" + CStr(order.ValidateErrors.Item(i).ID) + ")-" + order.ValidateErrors.Item(ai).Error)
Next ai
End If



End If




Next
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt