الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اعمار الذمم او الفواتير في البرامج المحاسبية 000 كيف تتم00 نطلب المساعدة

بدأه rmzh24 في 14 أغسطس 2008 · 11 رد · 1,427 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الاعضاء اسعد الله اوقاتكم ومنا عليكم بالصحة والعافية

اخواني نرى في البرامج المحاسبية كشوفات تبين اعمار الذمم او الفواتير ليتم تحصيلها اي كم مضى على هذة الفواتير من الزمن اقل من 30 يوم او قل من 60 يوم او اكثر من90 يوم

تم ارفاق مثال للتوضيح 000 راجيا منكم توضيح هذة النقطة لتعم الفاءدة 000 والله الموفق

RMZH24.rar

#2

أتمنى أن يكون هذا هو المطلوب :

  1.  
  2. Dim rs2 As New ADODB.Recordset
  3. If rs2.State = adStateOpen Then rs2.Close
  4.    rs2.Open "select * From MMMM WHERE ( Name LiKE '%" & Trim(Text5.Text) & "%') and (Date betwe
    en #" & (Date - 30) & "#" & "and" & "#" & Date & "#);", DB
  5.    Sum = 0
  6.     For i = 1 To rs2.RecordCount
  7.     Sum = Sum + Val(rs2![AMM])
  8.     rs2.MoveNext
  9.     Next i
  10.     Text4.Text = Format(Sum, "#.###  ÏíäÇÑ")
  11.  
  12. If rs2.State = adStateOpen Then rs2.Close
  13.    rs2.Open "select * From MMMM WHERE ( Name LiKE '%" & Trim(Text5.Text) & "%') and (Date betwe
    en #" & (Date - 60) & "#" & "and" & "#" & Date & "#);", DB
  14.       Sum = 0
  15.     For i = 1 To rs2.RecordCount
  16.     Sum = Sum + Val(rs2![AMM])
  17.     rs2.MoveNext
  18.     Next i
  19.     Text6.Text = Format(Sum, "#.###  ÏíäÇÑ")
  20.  
  21. If rs2.State = adStateOpen Then rs2.Close
  22.    rs2.Open "select * From MMMM WHERE ( Name LiKE '%" & Trim(Text5.Text) & "%') and (Date < #" 
    & (Date - 60) & "#);", DB
  23.       Sum = 0
  24.     For i = 1 To rs2.RecordCount
  25.     Sum = Sum + Val(rs2![AMM])
  26.     rs2.MoveNext
  27.     Next i
  28.     Text7.Text = Format(Sum, "#.###  ÏíäÇÑ")
  29.     Set rs2 = Nothing
  30.  


      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    

      
#3
        
        

      
الفكرة كلها في الثلاثة استعلامات التالية :
"select * From MMMM WHERE ( Name LiKE '%" & Trim(Text5.Text) & "%') and (Date betwe
en #" & (Date - 30) & "#" & "and" & "#" & Date & "#);"

"select * From MMMM WHERE ( Name LiKE '%" & Trim(Text5.Text) & "%') and (Date betwe
en #" & (Date - 60) & "#" & "and" & "#" & Date & "#);"

"select * From MMMM WHERE ( Name LiKE '%" & Trim(Text5.Text) & "%') and (Date < #" 
& (Date - 60) & "#);"

      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    

      
#4
        
        

      
اخي العزيز المبرمج احمد   اطال الله في عمرك وبارك لك
اشكرك اولا كل الشكر على سرعة الرد وعلى هذا الجهد الاكثر من رائع اسأل الله العلي العظيم ان تكون حسنة جارية في ميزان حسناتك
بصراحة اخي العزيز انا مبتدأ شيئا ما  كثرة هذة الاكواد لا يمكن ان افهمها بسهولة
لذالك الرجاء ثم الرجاء ان تضع هذة الكواد والحل على نفس المثال  المرفق 000 ولك كل الاحترام والتقدير
والله الموفق

      
      

      
    

  

    
    

      
#5
        
        

      
تم عمل اللازم ، ستجد الملف المعدل في المرفقات
AMD_RMZH24.zip

      
      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    

      
#6
        
        

      
يا ســـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لام عليك اخي المبرمج احمد الله يعطيك العافية 
حقا هذا المطلوب 100 % اكرر شكري لجهودك
اخي العزيز لي طلب اخر هذا الحل كان في حالة كشف عميل واحد فكيف تكون النتيجة مع كافة العملاء حسب المثال المرفق  مرة اخرى حيث تم التعديل فية
ارجيا منك الحل لتكتمل المعلومة في هذا الموضوع 000 والله الموفق
AMD_RMZH24.rar

      
      

      
    

  

    
    

      
#7
        
        

      
اخي المبرمج احمد  اسعد الله اوقاتك
نحن في انتظارك

      
      

      
    

  

    
    

      
#8
        
        

      
ما نزال فى الانتظار
مع التحية

      
      

      
    

  

    
    

      
#9
        
        

      
اخي المبرمج احمد اسعد الله اوقاتك
نحن في انتظارك

      
      

      
    

  

    
    

      
#10
        
        

      
وما زال البحث جاريا 0000 هل من مجيب

      
      

      
    

  

    
    

      
#11
        
        

      
وما زال البحث جاريا 0000 هل من مجيب

      
      

      
    

  

    
    

      
#12
        
        

      
وما زال البحث جاريا 0000 هل من مجيب 
اخر محاولة 000

      
      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…