[ali_ahmed12]

(15-10-22, 05:28 PM)Meen2 كتب :

(15-10-22, 05:05 PM)ali_ahmed12 كتب :

(15-10-22, 04:46 PM)Meen2 كتب :

كود :

TXT_CODE.Text = "CUS" +  (CODE_GENE("ITEMS", "ID") + 1).ToString("D7");

ممكن موقع الذي تستخدمه لتحويل

هذا موقع مشهور لتحويل الكود من #C إلى VB وأيضا من VB إلى #C
https://converter.telerik.com
لكن في بعض الأحيان تحتاج أن تقوم بتعديلات يدوية بسيطة

ممكن تحويل كود هدا يظهر لي خطا 

كود :

'======قيود الادخال
       If TXT_NAME.Text = "" Then
           TXT_NAME.BackColor = Color.Red
           TXT_NAME.Select()
           Exit Sub

       End If
       If TXT_BAR.Text = "" Then
           TXT_BAR.BackColor = Color.Red
           TXT_BAR.Select()
           Exit Sub
       End If
       If Val(TXT_TKLFA.Text) > Val(TXT_PRICE.Text) Then
           MessageBox.Show("سعر التكلفة اكبر من سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

           Exit Sub
       End If
       If Val(TXT_TKLFA.Text) = Val(TXT_PRICE.Text) Then
           MessageBox.Show("سعر تكلفة يساوي سعر البيع", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

           Exit Sub
       End If
       '============Save
       Dim DT As New DataTable
       Dim DA As New SqlDataAdapter("select *from items where item_name= '" & TXT_NAME.Text & "'or item_bar = '" & TXT_BAR.Text & "'", sqlcon)
       DA.Fill(DT)
       If DT.Rows.Count > 0 Then
           MessageBox.Show("الصنف موجود مسبقا يرجي التاكد", "رساله تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Else
           Dim DR = DT.NewRow
           DR!item_code = TXT_CODE.Text
           DR!item_name = TXT_NAME.Text
           DR!item_bar = TXT_BAR.Text
           DR!item_unit = TXT_UNIT.Text
           DR!item_tklfa = Val(TXT_TKLFA.Text)
           DR!item_price = Val(TXT_PRICE.Text)
           DR!NOTES = TXT_NOTES.Text
           DR!item_expire = DTP.Value
           DR!qty = Val(TXT_QTY.Text)
           DT.Rows.Add(DR)
           Dim SAVE As New SqlCommandBuilder(DA)
           DA.Update(DT)
           MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
           btn_new_Click(sender, e)
       End If