أبو إبراهيم الغامدي

6 ساعات مضت, سلمان الشهراني said:

الله يعطيك العافيه اخي ابو ابراهيم اتمنى الهدو وضبط الاعصاب 

لا تقلق! إنما هو عتاب محب لأحبابه ومكانتكما عندي عالية علو سهيل..

4 ساعات مضت, at_aziz said:

ارجو ان يكون هذا المثال بدايه طيبه لمشوارنا في هذا الموضوع المهم للغايه

بداية جيدة وفالٌ حسن.. تسمية الجداول يدل على أن هناك معرفة مكتسبة من ZATCA!..

للأسف الجهاز الذي أعمل عليه لا يوجد به برنامج أكسس

لكن.. هل قمتما بقراءة المراجع التي أرفقتها؟ أريد جوابا بنعم أو لا.. لأنه إذا كان الجواب بنعم سوف أقوم باستخدام المصطلحات التي فيها بدلا عن الكلمات والمعاني العربية!

23 ساعات مضت, at_aziz said:

وان شاء الله بتكاتف الجهود من الجميع    نطلع بنتيجة طيبه  يستفيد منها الجميع

نعم يا أبا متعب! ولكن نريدك أن تغبر يديك وتنقب معنا، لأنك من أصحاب المشاركة، ومعني بالدرجة الأولى..

منذ ساعه, سلمان الشهراني said:

المرحلة الثانيه طويله جدا ونحتاج اولا احد فاهم المطلوب كامل

يا أبا حاتم، بالفعل أنا أعطيتك الخطوات التي يجب أن تبداء بها وإذا لم توفق لفهم الخطوات فهذا يعني أنك لست بمطور نظم! فاصرف همتك لأمر أكثر ملائمة لقدراتك.

يجب أن نهتم أولا بإنشاء قاعدة بيانات بمتطلبات المكلف، وأيضا متطلبات الزكاة والدخل (ZATCA)..

لا يمكن أن نبدأ أبدا بدون قاعدة بيانات تحتوي على الجداول التالية

-- جدول بيانات المكلف

-- جدول بيانات رأس الفاتورة

-- جدول البيانات التفصيلية للفاتورة

-- جدول تذييل الفاتورة (إن لزم الأمر)

-- جدول الموردين

-- جدول العملاء (منشاءات أو أفراد)

يمكن استخدام قاعدة بيانات (NorthWind) كمثال للتأسيس..

لابد وبشدة  أن تتصور أنك تجلس مع مكلف وتناقشة في قاعدة البيانات التي تتضمن بيانات الفاتورة وتنظر إلى أي مدى توافق متطلبات المكلف مع متطلبات ZATCA..

المراجع التالية لا غني عنها في فهم المرحلة الثانية من الفوترة! صفحات قليلة يمكن أكلها مع براد شاى بعد العصر..

E-invoicing Resolution.pdfE-Invoicing-Detailed-Guidelines.pdf

أتمنى للجميع التوفيق والسداد

افترضت أن هناك من يريد أن يتعلم المرحلة الثانية من الفوترة الالكترونية خاصة ممن طرح المشاركة!

ولن يكون هذا الافتراض واقعاً مالم أشعر أن أحداً قام بكل أو بعض الخطوات التي سرتها..

المرحلة الثانية لا تقتصر على البرمجة فقط، بل هناك أمور يجب عليك كمطور أن تناقشها مع المكلف (دافع الضرائب)،منها مع ما سبق..

- أن كل الإجراءات ستتم على حساب المكلف.

- تسجيل الحلول التقنية وتعريفها في حساب المكلف.

- أين سيكون معالجة البيانات في الواجة الأمامية أو الخلفية.

- مع أمور أخري يمكن معالجتها في وقتها.

الوقت ينفد، والتفاعل مطلوب..

هذا المنتدى صرح تعليمي! والإنتاج له منتدىً يخصه..

أتمنى لكم الرشد والسداد..

الآن هنا من يريد أن يتعلم! إذن لدينا بعض الخطوات التي يجب أن نقوم بها قبل الشروع في تطوير النظام البرمجي..

1. الجلوس مع المكلف (دافع الضرائب) لمعرفة ماهية نشاطة التجاري.

2. البيانات التي يطلبها المكلف في مراقبة نشاطه التجاري.

3. تتميم هذه البيانات بمتطلبات ZATCA في بيانات الفاتورة.

4. تمثيل متطلبات المكلف و ZATCA  واقعيا في قاعدة بيانات أكسس.

5. التسجيل في منصة المطورون التجريبية، وتنزل حزمة SDK والمراجع المتعلقة بها.

البيئة التجريبية لطلبات التكامل والربط ضمن واجهة برمجة التطبيقات (API)

مجموعة أدوات التحقق من الامتثال وحزمة أدوات تطوير البرمجياتت

تنزيل جافا SE 11 ومافوق..

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

الموارد التعليمية

أتمنى ممن يريد أن يتعلم أن يكون جاداً، لأن مشوار الربط والتكامل طويل ويحتاج إلى صبر! وأنا رجل ملول، قد أترك الشرح ثم أعود إليه، وما على المحسنين سبيل..

أتمنى أن يقوم كل متعلم ببناء قاعدة البيانات التي تخصه ولا يرسلها إلى المشاركة، وسوف أقوم أنا أو أحد المتبرعين ببناء قاعدة بيانات بناءً على اقتراحات المشارين..

ألهمِ اللهُ الجميع الفهم والصبر..

حيث لا يوجد تجاوب من منشيء المشاركة على أسئلة الأعضاء فإن المشاركة لا تستحق التثبيت، وسوف أقوم بإنزالها.

في 19‏/5‏/2024 at 20:18, سلمان الشهراني said:

لذا بعد البحث عن آلية المرحلة الثانية ليتم فهمها ومن ثم طرحها بالمنتدى هنا فقد تم الاتفاق مع مؤسسه مختصه تقدم كورسات خاصه بالفاتورة الإلكترونية وذلك من خلالي انا سلمان و الاخ ابو متعب ( at_aziz )  ليتم اخذ دورة كامله في آلية الربط والتكامل مع الزكاة والدخل وسوف نقوم باذن الله بطرح جميع المحاضرات مختصرة وعلى مراحل عن طريق فيديو وايضاً نص مكتوب .

 

خطوة موفقة وأتمنى لكما مزيدا من المعرفة.

كان من الأفضل الذهاب إلى موقع الفوترة الالكترونية، منصة مطوري النظم البرمجية والاستفادة من هذه المنصة في فهم المرحلة الثانية وكيفة الربط والتكامل.

في 19‏/5‏/2024 at 20:18, سلمان الشهراني said:

المطلوب
1-  بعد طرح كل محاضرة على حده هنا نأمل من الأساتذة والاخوان المشاركة والتعاون وذلك ببرمجة المطلوب من كل مرحلة حتى يتم باذن الله الانتهاء من جميع المراحل ويتم الربط مع موقع الزكاة والدخل .

هذا الطلب غريب جدا!

كيف تريد من أعضاء المنتدى العمل من أجلك! أنت تأخذ الدورة! وتريد منا أن نصمم قاعدة البيانات ونكتب لك النصوص البرمجة! والله إن هذا لشيء عجيب!

أهلا بك أ. @محمد احمد لطفى في فريق الخبراء..

أرجو أن يتهيأ لك الوقت لترينا بعضاً من فرائدك البرمجية! 

في 28‏/1‏/2024 at 08:37, محمد التميمي said:

السلام عليكم

احترامي وتقديري لاساتذي (kkhalifa1960) الكريم البحث لا يعمل !

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

مع فائق الشكر والاحترام...

وعليكم السلام، وأهلا بك @محمد التميمي

أود لفت انتباهك إلى أمرين يتعلقان بطلبك

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد لا تكون هي المطلوبة! 

ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...

في 9‏/12‏/2023 at 18:51, gavan said:

السلام عليكم ، يمكن يكون الموضوع قديم شوية ،حيث قدم الاخ سلمان مشكلة الخطوط في جهاز العميل عند النقل ،ولكي لا اطيل عليكم قام الاخوة ولهم جزيل الشكر بتقديم حلول له ، ك اعادة تنصيب الخطوط او اعادة تنصيب الاوفيس او وحدة نمطية ،،،الخ ، ولكن لم نصل الى حل ، 

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

وعليكم السلام...

افتح مشاركة جديدة

2 ساعات مضت, عبد الله قدور said:

الفكرة عندي اني اقوم بأخذ لقطة شاشة لاشعار القبان وارفقها في قاعدة البيانات ، وعند ارسال تفاصيل الفاتورة الى العميل يجب ان تظهر الصورة بجانت التفاصيل

في هذه الحالة نريد أن نعرف من أين يأتي الخلل؟

عند حفظ الصورة المخزنة في السجل الأول من المثال، والتي لم نتمكن عرضها في المثال وفتح الملف في محرر النصوص نجد أن المف يحمل نسق مختلفا عن باقي ملفات الصور... (النسق يعني الترويسة أو التوقيع الخاص بالملف) انضروا إلى الجزء المظلل في العينة التالية

  يعتبر الجزء المظلل حشوا زائدا في ملف الصورة، بينما المتوقع أن يبدأ الملف بالنسق المبين في العينة التالية

يمكن معالجة الأمر بإزالة الحشو الزائد يدويا وسوف تظهر الصورة بالشكل الصحيح.. 

يبقى السؤال: من أين أتى هذا الحشو؟ هل هو من برنامج اللاقط؟ أم قاعدة بيانات SQL؟

أرجو منك أن تتحقق من الأمر..

10 ساعات مضت, عبد الله قدور said:

برنامج تصوير لقطة الشاشة المستخدم هو : screen presso

أنصحك أن تستخدم  ShareX

في 2‏/12‏/2023 at 13:28, عبد الله قدور said:

عمود الكائن ole عندي في نفس الجدول ، اما عندك فهو في جدول مختلف

أهلا بك @عبد الله قدور

ليس الأمر كذلك! كل مافي الأمر أن عرض الصورة غير مرتبط بمصدر بيانات النموذج..

الصورة في مثالك لها تنسيق مختلف عن نسق الصور التقليدي! ولأنها معالجة بطريقة مختلفة فلن تظهر في عارض الصور..

حاولت معالجة الصورة لكني لم أصل إلى حل إلى الآن.. إذا كانت الصور المخزنة في الجدول جميعها بهذا النسق، فسوف أبحث عن حل قدر المستطاع.. إن شاء الله

بالنسبة لمثالك قمت بالتعديل عليه حتى تتمكن من الإضافة التعديل والحفظ

Database8.accdb

في 30‏/11‏/2023 at 15:12, عبد الله قدور said:

قد قمت بتخزين صورة في كائن ole واريد ان اعرض هذه الصورة في النموذج

وعليكم السلام  أستاذ @عبد الله قدور

الأستاذ @ابو البشر ذهب بعيداً..! بسبب التوصيف غير الواضح في الاقتباس  ("لقد قمت بتخزين صورة في كائن ole")، وما ينبغي أن تكون علي العبارة ("لقد قمت بتخزين صورة في حقل ole")

لعرض الصورة المخزنة في حقل OLE  يتطلب الأمر عنصر تحكم Image، وباستخدام الخصيصة PictureData يمكن عرض الصورة

Me.ImgViewer.PictureData([Your OLE Fied])

المثال المرفق يقوم بتخزين الصورة في حقل OLE ومن ثم عرضها باستخدام عنصر التحكم Image

PictureViewer.accdb

في 2‏/11‏/2023 at 14:39, Foksh said:

هذه صورة مرفقة للملف المضغوط والملف الذي بداخله ( accdb )

أهلا @Foksh 

في ظني أن هذا ملف وورد غُيرتْ لاحقة الملف إلى accdb! هذا كل ما في الأمر!

جميع تطبيقات أوفس التي تعتمد على ملفات XML في بنائها هي من هذا القبيل!

ميزة 7z أن كل ملف يمكن إجراء فك الضغط عليه!

جرب إنشاء ملف (وورد، أكسل، بوربوينت،..) وقم بفك الضغط عنه باستخدام 7z

سوف تجد نفس النتيجة!!

الهنود، يستخدمون هذا الاسلوب لكسر كلمة المرور لهذه الملفات!! جرب مع أكسل!

هذا لا ينطبق على أكسس لأنه لا يعتمد على XML في بنائه!! 

أهلا بالجميع..

الحقيقة أن الزملاء قاموا بعمل جبار في تطويع أكسس للإنجاز الفكرة.. بارك الله في الجهود..

في 26‏/10‏/2023 at 17:32, عبدالعليم اسماعيل said:

ممكن استخدام نفس طريقه html مع الاكسس ام لا

تحقيق طريقة HTML مع أكسس أرى أن فيها صعوبة! ولم أجرب فعل ذلك..

لكن استخدام محتوى HTML  في أكسس، فذلك ممكن...

Pattern_Keypad_ADB.zip

وعليكم اسلام @عبد الله قدور

الغلط في القطعة التالية من الشفرة

' تمرير قيم المعلمات
        .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123)
        .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue")
        .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date)

عند إنشاء المحدد لا يجب أن يقترن بالمعامل (@). هذا الإقتران يكون عند إنشاء الإجراء فقط.. قم بإزالة المعامل فقط

' تمرير قيم المعلمات
        .Parameters.Append .CreateParameter("Param1", adInteger, adParamInput, , 123)
        .Parameters.Append .CreateParameter("Param2", adVarChar, adParamInput, 50, "SampleValue")
        .Parameters.Append .CreateParameter("Param3", adDate, adParamInput, , Date)

إذا أردت اعطاء المحددات قيمة جديدة لا تقم بإنشاءها مرة أخري.. فقط مرر القيم الجديدة بالطرية التالية

Param1.Value=Id
Param2.Value=Name
Param3.Value=Date

ComObj.Parametrs.Refresh

48 دقائق مضت, ابو جودي said:

الذى كنت اعرفه انها توقفت عند الاصدار 2003

كنت تعرف؟! هذا يعني أنك في ذلك التاريخ كنت راشداً!! (؟2+23=>؟؟)

نحن بحاجة إلى @شايب لحل هذي المعادلة... 

في 17‏/10‏/2023 at 01:11, Foksh said:

عمل جميل ، وفكرة أيضا جميلة أستاذي الكريم 😊

على الرحب والسعة!

هناك أمر آخر يمكن استخدامه لهذا الغرض غاب عن بالي لقلة من يهتم له! ألا وهو SwitchBoard (لوحة التبديل)! وهو يعمل في كلا البيئتين (التطويرية accdb) أو (الإنتاجية accde)! 

بعد إنشاء لوحة التبديل عن طريق المعالج، يمكنك بعد ذلك التحكم في لوحة التبديل عن طريق الجدول دون الحاجة إلى الحاجة إلى استخدام المعالج!!!

في 12‏/10‏/2023 at 13:08, Foksh said:

أنه هل من الممكن جعل المشروع أو النموذج تحديداً يقوم بإنشاء زر بناءً على عدد السجلات في جدول مثلاُ بحيث يكون مسمى كل زر هو اسم السجل في الجدول ؟

أهلا بالجميع..

أولا.. دعوني أتوجه بالشكر للاستاذ @AbuuAhmed لبعد نظره البرمجي.. فليست القضية أن تقدم حلاً! أو تسبق إليه! بل يجب أن يتعدى ذلك إلى كونه صالحا للتطبيق كمنتج!

ثانيا.. سبق لى وفي مشاركات عدة تقديم هذا المطلب ضمن الحل.. لكن لم يكن ذلك هو المطلوب من السؤال..

ثالثا.. هناك طريقتان سبق وأن استخدمتهما ضمن الحلول قمت بالمساهمة فيها وهما..

** استخدام أدوات ActiveX .. لكن ليست هي الأسهل! ولا الأجمل! وتحتاج إلى  Class Module لتمرير الأحداث

** استخدام  أدات WebBrowser   وهي الأسهل! والأجمل! في نظري!

هذه الأمثلة لتطبيق الفكرة (استخدم Office64Bit)

Database.zip

أهلا بكم..

لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!!

عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)!

فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟!

السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع).

وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function

اقتباس

 

Dim MyCheck
Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
Set AppVar = Excel.Application
ArrayVar = Array("1st Element", "2nd Element")
' Run VarType function on different types.
MyCheck = VarType(IntVar)   ' Returns 2.
MyCheck = VarType(DateVar)  ' Returns 7.
MyCheck = VarType(StrVar)   ' Returns 8.
MyCheck = VarType(AppVar)   ' Returns 8 (vbString)
                            ' even though AppVar is an object.
MyCheck = VarType(ArrayVar) ' Returns 8204 which is
                            ' `8192 + 12`, the computation of
                            ' `vbArray + vbVariant`.

 

بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ 

يمكن استخدام التابع Join  لهذا الغرض..

Private Sub cmdRequired_Click()
   Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه
   MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل
   Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل

End Sub

8 ساعات مضت, rashed7 said:

ولكن الي كنت بقصده هو أن تكون حواف أو زوايا مربع النص في التقرير بشكل بيضاوي وذلك عن طريق كود يعمل على ذلك.

إذا كان هذا الشكل البيضاوي الذي تريده

استخدم الشفرة التالية

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
   Me.ScaleMode = 6  '// Millimeters
   Me.Circle (50, 5), 18, vbMagenta, , , 0.26 '// 0.1 To 1.0
End Sub

db1.accdb

22 دقائق مضت, النجاشي said:

دوما وانت تبذل جاهدا ترضي تلاميذك وتحقق لهم ما يتمنون فهذا من طيب اصلك ا فألف تحيه اليك يالغالي

أشكر لك هذا الإطراء وأتمنى أن تحوز مشاركاتي على رضاكم..

  أهلا بكم..

أحب أن أوجه اعتذاري للأستاذ @Moosak لأني في الحقيقة لم أطلع على مشاركته المدرجة ضمن إجابته إلّا الآن..

وحسبي من مشاركتي أني كشفت عن المكان الذي يخزن فيه أكسس المصادر المضمنة..

في 11‏/2‏/2023 at 23:43, Moosak said:

وأعتقد أن الأكسس عندما تقوم باستيراد صورة ستجدها موجودة هنا من ضمن مكتبة داخلية يحتفظ فيها الأكسس بالصور والأيقونات والخلفيات والعناصر المستخدمة في التصميم .. (لاحظ مربعي النص الذان استخدمناهما سابقا )

وعليكم السلام ورحمة اله وبركاته..

أهلا بك..

في 1‏/7‏/2023 at 20:06, rashed7 said:

لدي ملف أكسس به تقرير وأرغب في أن تكون مربعات النص الموجودة في التقرير على شكل زوايا منحية أو على شكل بيضاوي.

لدي حيلة يمكن أن تستخدمها لهذا الغرض من خطوتين..

تصمم برواز منحني الزوايا ذو خلفية شفافة،  عن طريق برنامج (بوربوينت) أو أي برنامج رسم أخر.. كما في الصورة

يجب أن تحدد الألوان المطلوبة عند التصميم لأنه لا يمكن تغيرها في أكسس

بعد ذلك تذهب إلى أكسس وتعمل الخطوات التالية..

أرجو أن تكون هذه المشاركة مفيدة لك..

9 ساعات مضت, النجاشي said:

فهل هي ضروري تشغليها تو ممكن توضح لي عملهOption Explicit

هذه الخصيصة ضرورية لمن يهمه التقيد بالإعلان عن المتغيرات والتصريح عن نوعها..

وقد تسأل.. هل لتحديد نوع البيانات أهمية في معالجة البيانات؟ فالجواب: نعم، هناك فرق في زمن المعالج، بين المتغير العام والمتغير النصي عند معالجة النصوص..

عند عدم تنشيط الخصيصة، لا يزال بالإمكان التصريح عن نوع البيانات دون الحاجة إلى الإعلان عنها كما في المثال التالي

Sub TestStringVariable
	'-- $للتصريح عن متغير نصي استخدم 
	A$="One,Two,Three"
	Debug.Print A
End Sub

أما بخصوص الخطأ..

لقد قمتُ بنسخ الشفرة ولصقها، ولم أنتبه أني لم أعلن عن المتغيرات التي فيها..