ورشة عمل للمرحلة الثانية للفاتورة الإلكترونية (مهم للغاية)

[سلمان الشهراني]

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

الان المرحلة الثانية بدأت من 1 يناير 2023 يكون فيها الربط إجباري مع الزكاة والدخل  ولكن على مجموعات كل فترة مجموعة ولا شك ان الدور سياتي على الجميع  .

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

 

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

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

2- نطلب من المشرفين على هذا المنتدى تثبيت الموضوع لأهميته وشاكر للجميع .

 

مثال على المرحله الاولى.rar

تم تعديل مايو 19 بواسطه سلمان الشهراني

[at_aziz]

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

حياكم الله وبياكم جميعا يااخوان

الحقيقه هذا الموضوع  مسبب لنا قلق كثير   والى الآ لم نجد له حل كافي وشافي  في الاكسس

لان المرحله الثانيه من الفاتوره الاكترونيه اصبحت مطلوبه على المؤسسات والشركات  بشكل إلزامي

ممايجعل اكثر المبرمجين على الاكسس في حرج كبير مع عملائهم

ومثل ماتفضل اخونا الفاضل ابو حاتم سلمان 

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

 

الان المبرمج  سمح لنا بنشر شرح مختصر  للمطلبات مع ملف اكس ام ال

وملف بي دي اف فيه شرح للسلايدات اللي تم شرحها لنا على الخاص

ارجوا منكم ياخوان  الاطلاع والمساعده والاهتمام في هذا الموضوع 

لان والله انا واخي ابو حاتم   خبرتنا ضعيفه جدا في تطبيق وفهم هذه الخوارزميات  وتطبيقها على الاكسس

فنطلب من الله ثم منكم المساعده والتعاون على تطبيق وبرمجه المتطلبات على ملف اكسس

حتى يكون موضوع ثابت في المنتدى ويستفيد منه الجميع  وإثراء للجميع

وفقنا الله وإياكم لما يحب ويرضي

وسوف نوافيكم بنشر كل فصل يتم شرحه مع المبرمج  اول باول

 

 

 

 

invoice.zip الفصل الاول من الفوترة الالكترونية للمرحلة الثانية.pdf

تم تعديل مايو 19 بواسطه at_aziz

[سلمان الشهراني]

@ابو جودي
@أبو إبراهيم الغامدي
@jjafferr
@ابوخليل
@عمر ضاحى
@Foksh
@محمد احمد لطفى
@kaser906
@SEMO.Pa3x
@essam rabea
@ابوبسمله
@ناقل
@أبو عبدالله الحلوانى
@kkhalifa1960
@Elsayed Bn Gemy
@Barna
@Hamdi Edlbi-khalf
@محمد ايمن
@صالح حمادي

نداء للاخوان الخبراء والاساتذه بالتفاعل مع هذا الموضوع وليعذرني من نسيت اسمه من الخبراء والاساتذه والاخوان الافاضل 
هذا موضوع مهم للغاية ونحتاج من الجميع المشاركة قدر الامكان وشاكر للجميع




 

[ابوخليل]

السلام عليكم

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

شكرا لكم لطرح هذا الموضوع للبحث عن حل شافي وكافي من خلال اكسس

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

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

[Foksh]

السلام عليكم ورحمة الله وبركاته ، أتشرف بتلبية دعوتكم للمشاركة أخي @سلمان الشهراني .

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

 

بداية أعتقد وجوب وجود المكتبة Microsoft Script Runtime ، هذا الكود الذي خلصت به ولا أعلم إن كانت النتيجة صحيحة كما تريدون أم لا ، إلا أنني قمت بالتجربة على الموقعين في الفيديو وكانت النتيجة مرضية ومطابقة ( الموقع الأول ، الموقع الثاني ) .

 

فيما يلي ، الكود الأول لتحويل النص إلى SHA256 Hex

Function TextToBase64(ByVal text As String) As String
    Dim sha As Object
    Dim utf8Bytes() As Byte
    Dim hash() As Byte
    Dim i As Integer
    Dim hashHex As String
    Set sha = CreateObject("System.Security.Cryptography.SHA256Managed")
    utf8Bytes = StrConv(text, vbFromUnicode)
    hash = sha.ComputeHash_2(utf8Bytes)
    hashHex = ""
    For i = LBound(hash) To UBound(hash)
        hashHex = hashHex & Right("0" & Hex(hash(i)), 2)
    Next i
    TextToBase64 = Base64Encode(hashHex)
    Set sha = Nothing
End Function

Function Base64Encode(ByVal strData As String) As String
    Dim objXML As Object
    Set objXML = CreateObject("MSXML2.DOMDocument").createElement("b64")
    objXML.DataType = "bin.base64"
    objXML.nodeTypedValue = strData
    Base64Encode = objXML.text
    Set objXML = Nothing
End Function

 

والنتيجة يتكون في مربع النص ( الهدف الأول ) عن طريق زر الإستدعاء كما يلي :-

Private Sub btnComputeHash_Click()
    If IsNull(Me.txtInput) Then
        MsgBox "يرجى إدخال قيمة ليتم تشفيرها", , ""
        Me.txtInput.SetFocus
        Exit Sub
    End If
    Dim myText As String
    myText = Me.txtInput
    Dim base64Hash As String
    base64Hash = TextToBase64(myText)
    Me.txtHashOutput = base64Hash
End Sub

 

ثم باستخدام هذا الكود وبعد عدة تجارب يتم تحويل الـ Hex إلى Base64 :

Function HexToBase64(ByVal hexString As String) As String
    Dim bytes() As Byte
    Dim objXML As Object
    bytes = HexStringToBytes(hexString)
    Set objXML = CreateObject("MSXML2.DOMDocument").createElement("b64")
    objXML.DataType = "bin.base64"
    objXML.nodeTypedValue = bytes
    HexToBase64 = objXML.text
    Set objXML = Nothing
End Function

Function HexStringToBytes(ByVal hexString As String) As Byte()
    Dim bytes() As Byte
    Dim i As Integer
    ReDim bytes(Len(hexString) \ 2 - 1)
    For i = 1 To Len(hexString) Step 2
        bytes((i + 1) \ 2 - 1) = Val("&H" & Mid(hexString, i, 2))
    Next i
    HexStringToBytes = bytes
End Function

ويتم الاستدعاء في الزر كالآتي :-

Private Sub Btn_Base64_Click()
    If IsNull(Me.txtHashOutput) Then
        MsgBox "لم يتم حساب قيمة Hex بعد.", , ""
        Exit Sub
    End If
    Dim base64Value As String
    base64Value = HexToBase64(Me.txtHashOutput)
    Me.Txt_Base64 = base64Value
End Sub

 

وفي النهاية أترك التجربة للحكم والتعديل .

 

Hash Con.accdb

تم تعديل مايو 20 بواسطه Foksh

[at_aziz]

بارك الله فيك وجزاك الله خير استاذي Foksh

وكل الشكر والتقدير لحبيبنا ومعلمنا ابا خليل

بدايه موفقه وان شاء الله نصل لحال نهائي يستفيد منه الجميع

 

استاذي اثناء تجربة المثال المرفق ظهر عندي الخطا التالي

علما اني استخدم اكسس نظام 32 بت

[Foksh]

6 دقائق مضت, at_aziz said:

استاذي اثناء تجربة المثال المرفق ظهر عندي الخطا التالي

 

انا اعمل على اصدار 2016 نواة 64 ، ويعمل بكفاءة

 

20240520_180203.zip

[at_aziz]

7 دقائق مضت, Foksh said:

انا اعمل على اصدار 2016 نواة 64 ، ويعمل بكفاءة

الله يعطيك العافيه اخي 

فعلا يبدو ان المشكله عدنا بنسخة الاوفيس نظام 32 بت

[سلمان الشهراني]

@ابوخليل
@Foksh

بارك الله فيكم وشاكر لتفاعلكم والله يعطيك الف عافيه
نعم تم تجربة المثال على اوفيس 32بت  و 64 بت ويعمل بكفاءه
نتمنى من الاخوه التجربه على 32 بت لكونه الاهم 
وننتظر المشاركة من باقي الخبراء والاخوان في هذا الموضوع


 

تم تعديل مايو 20 بواسطه سلمان الشهراني

[ناقل]

11 دقائق مضت, سلمان الشهراني said:

نتمنى من الاخوه التجربه على 32 بت لكونه الاهم 

اوفيس 16 32 بت .... يعمل الملف

[ابوخليل]

اوفيس 10 .. 32 بت

يعمل

[Lamyaa]

5 ساعات مضت, ناقل said:

اوفيس 16 32 بت .... يعمل الملف

أوفيس 365 32بت .. يعمل بشكل صحيح

[gavan]

في 20‏/5‏/2024 at 17:30, ابوخليل said:

السلام عليكم

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

 

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

ممكن شرح مفصل حول استفادة ادخال هذه التقنية في برامج الاكسس بالنسبة للبقلات و المحلات الصغيرة في استخراج هاش رقم معين وما الذي نستفيد منها , تحياتي يالغالي ابو خليل 

بالمناسبة انا لم اوجه اي مشاكل , البرنامج يعمل 100% (النسخة اوفيس 2021 64x)

 

[Foksh]

سؤال على الهامش للأخ @سلمان الشهراني ولا غنى عن البقية طبعاً 

هل لهذا الموضوع علاقة بما تم طرحه هنا ؟؟

أو يساعد في تحقيق الهدف !!

[Lamyaa]

17 ساعات مضت, Foksh said:

سؤال على الهامش للأخ @سلمان الشهراني ولا غنى عن البقية طبعاً 

هل لهذا الموضوع علاقة بما تم طرحه هنا ؟؟

أو يساعد في تحقيق الهدف !!

نعم ، هي المرحلة الأولى وقد أشبعت في المنتدى شرحا وحلولا من قبل أساتذتنا الكرام وعلى رأسهم @أبو إبراهيم الغامدي و @ابو جودي

والمرحلة الأولى كانت عبارة عن ترميز لبيانات الفاتورة وإظهاره في الفاتورة من خلال QR Code

أما المرحلة الثانية فهي ربط عمليات البيع بسيرفرات وزارة الزكاة وفق الآلية التي ذكرها الأستاذ at_aziz هنا:

 

تم تعديل الثلاثاء at 19:16 بواسطه Lamyaa

[Lamyaa]

في 19‏/5‏/2024 at 20:36, at_aziz said:

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

حياكم الله وبياكم جميعا يااخوان

الحقيقه هذا الموضوع  مسبب لنا قلق كثير   والى الآ لم نجد له حل كافي وشافي  في الاكسس

لان المرحله الثانيه من الفاتوره الاكترونيه اصبحت مطلوبه على المؤسسات والشركات  بشكل إلزامي

ممايجعل اكثر المبرمجين على الاكسس في حرج كبير مع عملائهم

ومثل ماتفضل اخونا الفاضل ابو حاتم سلمان 

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

 

الان المبرمج  سمح لنا بنشر شرح مختصر  للمطلبات مع ملف اكس ام ال

وملف بي دي اف فيه شرح للسلايدات اللي تم شرحها لنا على الخاص

ارجوا منكم ياخوان  الاطلاع والمساعده والاهتمام في هذا الموضوع 

لان والله انا واخي ابو حاتم   خبرتنا ضعيفه جدا في تطبيق وفهم هذه الخوارزميات  وتطبيقها على الاكسس

فنطلب من الله ثم منكم المساعده والتعاون على تطبيق وبرمجه المتطلبات على ملف اكسس

حتى يكون موضوع ثابت في المنتدى ويستفيد منه الجميع  وإثراء للجميع

وفقنا الله وإياكم لما يحب ويرضي

وسوف نوافيكم بنشر كل فصل يتم شرحه مع المبرمج  اول باول

 

 

 

 

invoice.zip 1.57 kB · 26 downloads الفصل الاول من الفوترة الالكترونية للمرحلة الثانية.pdf 2.55 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 39 downloads

 

[ابو جودي]

يا جماعة الخير ممكن نعمل زى الموضوع فى المرحلة الاولى

نمشى خطوة بعد خطوة لانى مش فاهم عنه اى شئ مش قادر اساعد

حددوا النقاط المطلوب الوضول اليها اجمالا بإيجاز

وبعدين نستعين بالله ونحاول نحقق كل نقطة على حدة 

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

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

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

 

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

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

 

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

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

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

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

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

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