[Taha Okla]

(01-01-23, 12:03 PM)h2551996 كتب : جزاك الله خير
لكن المشكلة في كود البحث بين تاريخ البداية كيف احدده
يعني كود الحبث من بداية التاريخ كيف يكون
مع العلم ان كود الترقيم لدي
يحوي السنة والشهر واليوم والساعة و الثانية
Dim orderDate As String = Now.ToString("yyyyMMddhs")

عندما تفتح الوردية تسجل ذلك في  : 
جدول ورديات الصندوق(FundShifts) 
بأن اليوزر (xMan) 
افتتح الوردية بوقت وتاريخ (StartShifts)    =Now.ToString("yyyyMMddhhmmss")
وتسجل في حقل حالة الوردية (StatusShift) أن حالة  الوردية = 'Open'
أما حقل النهاية تضع فيه أي بيان (ليس مهماً في حالة أن حالة الوردية للمستخدم المذكور = مفتوح)
-------------------------------
عندما تريد أن تسلم الوردية تبحث في جدول (FundShifts) بشرط (User) و (StatusShift) أن الحالة مفتوحة 
لأنه ليس من المعقول أن تكون  أكثر من وردية للمستخدم الواحد في حالة فتح.
من خلال جملة الاستعلام:

كود :

"Select * From FundShifts Where User ='xMan' and StatusShift = 'Open'"

وتستخرج وقت وتاريخ البداية (الترقيم الزمني التسلسلي)  الذي هو  (StartShifts)
ومن خلال هذا الرقم تبدأ بالبحث في اليوميات أو المبيعات أو ما تسميه من جداول، عن الأموال بدلاله هذا التاريخ والتاريخ الحالي.

عندما تنتهي من عرض التقرير وطباعته -تعدل سجل الوردية المفتوحة- يعني: تعطي أمر اغلاق للوردية - فيذهب لجدول الورديات ويبدل (Open) بـ (Close) 
ووتضع في حقل نهاية الوردية بترقيم وقت وتاريخ اغلاق الوردية (EndShifts)    =Now.ToString("yyyyMMddhhmmss")