[h2551996]

السلام عليكم
لدي مشروع فيجوال بيسك . نت

وقمت بإنشاء الملفات والاكواد الخاصة بتسليم الدرج
لم تحدث المشكلة ولكنه مجرد تفكير
اني قمت بعمل حقل اسمه unpaidDaily
والحقل مهمته ان المدفوع داخل واجهة البيع يضيفه
وعليه يقرأ داخل زر مجموع المباع اليوم
لنفترض مثلا ان المبيعات بدأت الساعة 11 مساءا والوردية تنتهي في اليوم الثاني 8 صباحا مثلا
كيف اتحكم في بداية الوقت منذ ان قام الكاشير بفتح الدرج
يعني انا عند بداية فتح الفورم يظهر له قائمة انه يقوم بفتح ساعات العمل
كيف اتحكم في انه عند البداية الى النهاية يقرأ المبيعات ( بغض النظر عن اليوم )
هذا كود القراءة

كود :

Public Function Sum_Record_In_Cash1_Tbl_bydate(ByVal OrderDate As Date)
       con = New SqlConnection(cs)
       Dim Number As Double
       Try
           Dim cmd As New SqlCommand(" Select Sum(UnpaidDaily) From Sale_Tbl Where OrderDate = @OrderDate And Inv_Type=@Inv_Type", con)
           cmd.Parameters.Add("@OrderDate", SqlDbType.Date).Value = "#" & OrderDate & "#"
           cmd.Parameters.AddWithValue("@Inv_Type", "نقدي")
           If con.State = 1 Then con.Close()
           con.Open()
           Number = cmd.ExecuteScalar
           con.Close()
       Catch ex As Exception
           Number = 0.00
           con.Close()
       End Try
       Return Number
   End Function

كود :

LblCash1.Text = Sum_Record_In_Cash1_Tbl_bydate(Today_Date.Value)