تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة جدول و انقاص الكمية
#1
السلام عليكم .اتشرف بجد بالانضمام لمجموعتكم الرائعة
و هاي اول مشاركة لي و اطلب منكم من لطفكم التعديل على هاذ المثال فقد وجدته هنا
لما اضيف مثلا اللحم الى الفاتورة و عدده 50 

اود حين اذهب للاكسس اجد هاذي الكمية تنقص من الحقل يلي اضفته أنا باسم Qty في جدول Items
املي فيكم كبير اخواني
هاي ملف تفضلو


الملفات المرفقة
.rar   Invoice V2.rar (الحجم : 297.61 ك ب / التحميلات : 73)
الرد }}}
تم الشكر بواسطة:
#2
و عليكم السلام و رحمة الله و بركاته

المشروع التالي ينقص الكمية و يعمل جرد دائم:

برنامج الفاتورة: لأرشفة الفواتير و عمل جرد دائم للمواد.
الرد }}}
تم الشكر بواسطة: العيدروس , sendbad100 , Ahmed_Mansoor , Amir_Alzubidy
#3
اشكرك استاذ محمد على الاهتمام.يرحم والديك بالحياة و بالمماة بس يا ريت اذا ما في حرج تعدلي على ملفي فقط كوني سويت عليه اضافات وما ني قادر اغيرها
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy
#4
السلام عليكم

جرب التالي 

طبعا   انا ركزت على المطلوب فقط  ... وقمت باضافته  -----   ما زال   كودك   يحتاج الى تنقيح  

PHP كود :
Private Sub Command2_Click()

Dim Rs As New ADODB.Recordset

Dim SQLs 
As String
Dim S 
As Integer
If txtInNo.Text "" Then
MsgBox 
"ادخل رقم الفاتورة"vbCritical"رقم الفاتورة"
Exit Sub
End 
If
With Grid


SQLs 
"Select * From Invoice where InvNo=" Trim(txtInNo.Text) & ""

 
               If RSS.State adStateOpen Then RSS.Close
        RSS
.Open SQLsCNadOpenKeysetadLockPessimistic



If RSS.RecordCount 0 Then



Dim XN 
As Integer
Dim j 
As Integer
Dim JL 
As Integer
Dim sSQL 
As String
.Col 1
.Row 1

For XN = .Rows 1 To 1 Step -1
  sSQL 
""
 
 For j 1 To .Cols 1
     sSQL 
sSQL Trim(.TextMatrix(XNj))
 
 
  Next
  
  
  
  If Trim
(sSQL) = "" And .Rows 2 Then
      
.RemoveItem XN
      Else
      Exit 
For
 
     Exit Sub
      
  End 
If
 
 If .Rows <= 1 Then Exit For
Next


For XN 1 To .Rows 1
For 0 To .Cols 1
    
    If 
(.TextMatrix(XNj) = ""Then
      For JL 
0 To 5
      
.Row XN
      
.Col JL
      
.CellBackColor vbRed
      DoEvents
      Sleep 11
      
'.CellBackColor = vbWhite
      Next
      
      
      Exit Sub
  End If
Next
Next

For S = 1 To .Rows - 1

       RSS.AddNew
   RSS.Fields("InvNo") = txtInNo.Text
   RSS.Fields("InvDate") = Format(Me.DTPicker1.Value, "dd/MMM/yyyy")
   RSS.Fields("CutmrName") = Combo1.Text
   RSS.Fields("InTyp") = Combo2.Text

RSS!Code = .TextMatrix(S, 0)
RSS!ItmName = .TextMatrix(S, 1)
RSS!Pak = .TextMatrix(S, 2)
RSS!Price = .TextMatrix(S, 3)
RSS!Qty = .TextMatrix(S, 4)
RSS!Amount = .TextMatrix(S, 5)



If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT Qty FROM Items WHERE  ItmCode =" & .TextMatrix(S, 0), CN, adOpenKeyset, adLockPessimistic
Rs![Qty] = Val(Rs![Qty]) - Val(.TextMatrix(S, 3))
Rs.Update


RSS.Update

 Next
 
 MsgBox "تم حفظ بيانات الفاتورة بنجاح ", vbInformation, "حفظ"
 ClearAllA Me
lblTotal.Caption = ""
 Call Grd
 Else
 MsgBox "يوجد خطأ اثناء الحفظ --- الفاتورة مسجلة من قبل", vbCritical, "خطأ"
 End If
 End With
 
End Sub 

تم اضافة التالي فقط  في الكو دالسابق
PHP كود :
Dim Rs As New ADODB.Recordset 
 في بداية الكو د


والتالي في وسط الكود 

PHP كود :
If Rs.State 1 Then Rs.Close
Rs
.Open "SELECT Qty FROM Items WHERE  ItmCode =" & .TextMatrix(S0), CNadOpenKeysetadLockPessimistic
Rs
![Qty] = Val(Rs![Qty]) - Val(.TextMatrix(S3))
Rs.Update 

كي تعرف ما الاضافات
الرد }}}
#5
الله يكرمك استاذ sendbad100 بجد تستحق كل الشكر .هدا المطلوب بالضبط.فقط طمعي اخير بالمعروف يلي تكرمت به وهو .
جرب استاذ و انت عمال تكتب في الفاتورة و تضيف المواد مثلا انا غلطت واريد احذف فقط السطر يلي غلطت فيه.في هذا الملف لو ضغطت على حذف تنحذف كل الفاتورة بما فيها .كيف يرحم والديك مادامت الفاتورة لم اعمل لها حفظ لو اضغط على سطر الفليكس ينحذف فقط السطر يلي ضغطت عليه .اسف على كثرة طلباتي و بارك الله فيك
الرد }}}
تم الشكر بواسطة: sendbad100 , Ahmed_Mansoor , Amir_Alzubidy
#6
(22-10-17, 04:07 PM)العيدروس كتب : الله يكرمك استاذ sendbad100 بجد تستحق كل الشكر .هدا المطلوب بالضبط.فقط طمعي اخير بالمعروف يلي تكرمت به وهو .
جرب استاذ و انت عمال تكتب في الفاتورة و تضيف المواد مثلا انا غلطت واريد احذف فقط السطر يلي غلطت فيه.في هذا الملف لو ضغطت على حذف تنحذف كل الفاتورة بما فيها .كيف يرحم والديك مادامت الفاتورة لم اعمل لها حفظ لو اضغط على سطر الفليكس ينحذف فقط السطر يلي ضغطت عليه .اسف على كثرة طلباتي و بارك الله فيك

السلام عليكم جرب الكود التالي

PHP كود :
Private Sub Command1_Click()

If 
Grid.Rows 2 Then Exit Sub
 

If Grid.Rows 2 Then
Grid
.Rows 1
  
Exit Sub

Else

Grid.RemoveItem (Grid.Row)
End If
End Sub 
الرد }}}
#7
السلام عليكم .استاذ sendbad100 ميش عارف كيف اشكرك.كثر الف خيرك.فقط في عبارة block if without end if تظهر برسالة خطأ.رغم اضافة end if لكن الكود لم يمسح السطر من الفليكس.ارجو بعد اذنك النظر فيه بارك الله فيك
الرد }}}
#8
السلام  عليكم 

اشتغل معي  بدون مشاكل قبل ارسله 

انا الان بعيد عن الجهاز  

المهم 

هذا هو سطر الحذف 

لكن يجب ان تحدد الصف المراد حذفه اولا 

PHP كود :
Grid.RemoveItem (Grid.Row

جرب ورد لي خبر
الرد }}}
#9
كل شيء يشتغل زي الفل.ربنا يكرمك ووالديك استاذ sendbad100 .جربت السطر و يحذف فعلا السطر يلي ابي حذفه.بارك الله فيك الف مرة
الرد }}}
تم الشكر بواسطة: sendbad100 , sendbad100 , Amir_Alzubidy , Amir_Alzubidy
#10
السلام عليكم ورحمة الله وبركاته

الله يبارك فيك اخي sendbad100 على المجهود الرائع لمساعدة الاعضاء الكرام

المشروع ده من ايام الموقع القديم لفيجوال بيسك رحم الله اخي ابو الليث وغفر له والى القائمين على هذا الموقع جزيل الشكر والعرفان
اشكر اخي الحبيب الغالي السندبااد نشتاق اليك كثرا وبارك الله فيك
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 419 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 14 4,068 19-01-24, 02:39 PM
آخر رد: cls
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
  اضافة سجل جديد عن طريق الDataGrid اسلام الكبابى 2 951 05-07-23, 01:15 PM
آخر رد: محمد ابو ايمن
  [vb6.0] اضافة صورة دائرية داخل داتا ريبورت mohammed_atallah 2 609 13-09-22, 12:14 AM
آخر رد: كاظم هاشم البهادلي
  نسخ بيانات محددة من جدول إلى آخر مصمم هاوي 14 3,563 30-08-22, 11:53 PM
آخر رد: 2003amin
  [vb6.0] اضافة الاسماء في الليست بوكس وظهور البيانات مثل الكريدفيو وادي العوضي 6 1,311 04-06-22, 09:42 PM
آخر رد: مصمم هاوي
  [سؤال] نسخ جدول داخل قاعدة اكسس gharib 3 1,115 03-06-22, 06:06 AM
آخر رد: gharib
  كيف يمكن نقل بيانات من جدول في قاعدة بيانات الى قاعدة بيانات مثلها تماما gonm64 2 1,483 11-06-21, 04:55 PM
آخر رد: gonm64
  طريقة اضافة قيمه للموظف بشرط ahmed201 4 1,453 29-12-20, 03:07 AM
آخر رد: ahmed201

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم