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

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


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

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

برنامج الفاتورة: لأرشفة الفواتير و عمل جرد دائم للمواد.
-------------------------------------
Visual Basic Projects
-------------------------------------
الرد
تم الشكر بواسطة: العيدروس , 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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج سورس كود لبرنامج جدول خفارات الموظفين scsi7000 1 228 06-02-19, 10:22 PM
آخر رد: mlahcine
  تعبئة بيانات الكومبوكس من جدول SQLSERVER مصمم هاوي 1 192 09-12-18, 11:27 PM
آخر رد: مصمم هاوي
  محتاج سورس كود لبرنامج جدول حصص مدرسي scsi7000 2 233 12-11-18, 01:32 PM
آخر رد: elgokr
  MSFlexGrid تحديد اخر سطر بعد كل اضافة اوظهارة mustafa mohamed 2 285 29-06-18, 11:32 PM
آخر رد: mustafa mohamed
  مطلوب كود اضافة الضريبة 5 % على اجمالي الفاتورة fahad fbs 2 350 13-06-18, 05:56 PM
آخر رد: fahad fbs
  [vb6.0] ممكن المساعدة في اضافة الايام بين تاريخين في الفيلكس قريد mustafa mohamed 0 261 12-04-18, 04:30 PM
آخر رد: mustafa mohamed
  احبابى في الله هل يمكن اضافة زر بالكود ام لا mhareek 2 334 11-04-18, 01:30 AM
آخر رد: Top GreaT
  اخوانى الاحباب ارجو المساعدة فى اضافة زر جديد ونقل الاومر من زر الى زر mhareek 9 648 08-04-18, 12:44 PM
آخر رد: mhareek
Photo [vb6.0] المساعدة في تصدير بيانات الى جدول وورد hassan0379 0 355 07-04-18, 11:36 PM
آخر رد: hassan0379
  اضافة صورة الى ملف pdf الحزين اوى 0 301 05-04-18, 11:05 AM
آخر رد: الحزين اوى

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


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