+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل يوجد مثال عن اقفال الفترات المالية (/showthread.php?tid=18633)
هل يوجد مثال عن اقفال الفترات المالية - السيد الجوهري - 30-12-16
بمعني عدم تسجيل اي حركات فى عام 2016
والتسجيل فقط فى عام 2017
RE: هل يوجد مثال عن اقفال الفترات المالية - asemshahen - 31-12-16
نعم عن طريق تجميع الحسابات مثل حسابات الزبائن و نتيجة جرد المستودعات و حسابات الموردين وحساب الموجودات و الارباح او الخسائر في جداول و من ثم وضع كود بناء قاعدة بيانات فارغة جديدة فيها نفس الجداول و نقل خلاصة السنة المالية السابقة للجديدة .
RE: هل يوجد مثال عن اقفال الفترات المالية - السيد الجوهري - 01-01-17
(31-12-16, 01:09 PM)asemshahen كتب : نعم عن طريق تجميع الحسابات مثل حسابات الزبائن و نتيجة جرد المستودعات و حسابات الموردين وحساب الموجودات و الارباح او الخسائر في جداول و من ثم وضع كود بناء قاعدة بيانات فارغة جديدة فيها نفس الجداول و نقل خلاصة السنة المالية السابقة للجديدة .
شكرا ليس هذا ما اريد
اريد كود عندما يرى اي تاريخ في 2016 يمنع الحفظ
وشكرا
RE: هل يوجد مثال عن اقفال الفترات المالية - مساعدة - 01-01-17
السلام عليكم
تفض الكود يعمل مع كل تنتهي
كود :
Dim y As Integer = DateTimePicker1.Value.Year
If y < Now.Year Then
MsgBox("عفوا السنة " & y & " مقفلة.")
Exit Sub
End Ifيعيبها أنه يمكن تجاوزها لو تم تغيير تاريخ الجهاز للسنة التي يحاول التسجيل بها بسبب اعتماد البرنامج على تاريخ الجهاز
RE: هل يوجد مثال عن اقفال الفترات المالية - asemshahen - 04-01-17
--هذا إستعلام لعمل قاعدة البيانات للقراءة فقط و لا يمكن التعديل عليها
ALTER DATABASE DATABASE_NAME SET READ_ONLY WITH NO_WAIT
--و هذا إستعلام لإعادة قاعدة البيانات للقراءة و الكتابة
ALTER DATABASE DATABASE_NAME SET READ_WRITE WITH NO_WAIT