شخابيط وافكار : (Qr Code ) فكرة جديدة ☺

[at_aziz]

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

 

استاذي الفاضل ابا جودي

ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي

مبلغ القيمة المضافه  والاجمالي  يظهر بعدد عشري طويل 

ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير  يعني تظهر الهلالات برقمين فقط

  مثل انه يكون بهذا الشكل    200.50

وكذلك التاريخ  يحذف رقمين من العام

الوقت  مافيه مشكله تمام

لاحظ الصوره المرفقه    

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

 

بارك الله فيك وجزاك الله خير

[moamen salem]

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

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

 

استاذي الفاضل ابا جودي

ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي

مبلغ القيمة المضافه  والاجمالي  يظهر بعدد عشري طويل 

ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير  يعني تظهر الهلالات برقمين فقط

  مثل انه يكون بهذا الشكل    200.50

وكذلك التاريخ  يحذف رقمين من العام

الوقت  مافيه مشكله تمام

لاحظ الصوره المرفقه    

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

 

بارك الله فيك وجزاك الله خير

نفس المشكلة حصلت معايا ولكن الحل استخدم دالة 

=Round([Tax];2)

[ابو جودي]

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

مثل انه يكون بهذا الشكل    200.50

وكذلك التاريخ  يحذف رقمين من العام

بالنسبة للرقم العشرى لابد من سؤال بناء عليه تتحدد الاجابة

هل تريد التقريب الى اقرب رقم صحيح سواء اقل او اعلى  ام تريد فقط اول رقمين بعد العلامة العشرية دون التقريب

بالنسبة للتاريخ استخدم الدالة format  لحذف رقمين من العام

Format([FieldDate],"dd/mm/yy")

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

Format([FieldDate],"dd/mm/yyyy")

 

تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي

[at_aziz]

جزالله خير وبارك فيك اخي الفاضل moamen salem

الف شكر لك اخي

 

 

 

جزاك الله خير وبارك فيك اخي الفاضل ابا جودي

اللي اريده سلمك الله  

الي اريده فقط اول رقمين بعد العلامة العشرية دون التقريب

والتاريخ يكون العام كاملا

 

راح اجرب ماذكرت اعلاه   

واخبرك باذن الله

[ابو جودي]

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

الي اريده فقط اول رقمين بعد العلامة العشرية دون التقريب

 

استخدم الكود الاتى 

Fix(100*[Field Name])/100

او ضع الكود الاتى فى موديول وهذا ما افضله لما فيه من مرونة

Public Function SpltDta(ByVal FieldName As String, ByVal intNo As Integer)
    SpltDta = Left(FieldName, InStr(1, FieldName, ".") + intNo)
End Function

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

SpltDta([FieldName],2)

-------------------
وللتاريخ كاملا استخدم الكود

Format([FieldDate],"dd/mm/yyyy")

 

[at_aziz]

الف شكر لك استاذي الفاضل اباجودي

دالة الرقم 

ضبطت تمام  جربت اللي اضفها الاخ  moamen salem

والكود اللي اضفته   لم اجربه بعد

ولكن  حاولت اضيف دالة التاريخ في مصدر تجميع النص  لكن ماظبطت معي 

كيف تكون الطريقة

لاحظ الصوره المرفقه

اللي عليه المربع الاحمر  هو حقل التاريخ

[ابو جودي]

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

 

سوف تكون بهذا الشكل
استبدل

[DateEntered]

بـ الدالة

Format([DateEntered],"dd/mm/yyyy")

 

تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي

[at_aziz]

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

جربت اضيفة داخل المجموع  ماظبت تظهر لي  الرسالة التالي

[ابو جودي]

- ممكن مرفق لو تكرمت

[at_aziz]

اختصار للوقت اضقت لك المثال الاصلي في المشاركه  واضفت عليه حق التاريخ    

مازالت تظهر عندي فيه نفس الرسالة

 

GenerateOrReadQRCodeImageV.03.mdb

تم تعديل نوفمبر 28, 2021 بواسطه at_aziz

[ابو جودي]

جرب المرفق ووافنى بالنتيجة

 

GenerateOrReadQRCodeImageV.03.mdb.zip

[ابو جودي]

اضفت لك موديول جديد لاختزال الارقام بعد العلامة العشرية

لاحظ تم الابقاء على رقمين فقط بعد العلام العشرية للرقم الاول
وبنفس الكود فى الموديول تم الابقاء على ثلاث ارقام بعد العلامة فى الرقم الثانى

 

[at_aziz]

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

الله يعطيك العافيه   والله ماقصرت   الله يسعدك

واسف جدا اتعبتك معي

 انحلت المشكله والان الوضع تمام

اعتقد المشكله  في التاريخ كانت عدم وجود الفاصله المنقوطه   ;

 

الف شكر لك استاذي الكريم

والشكر موصول لكل من شارك معنا

 

احترامي وتقدير لشخصك الكريم🌹🌹🌹

تم تعديل نوفمبر 28, 2021 بواسطه at_aziz

[ابو جودي]

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

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

الله يعطيك العافيه   والله ماقصرت   الله يسعدك

واسف جدا اتعبتك معي

 انحلت المشكله والان الوضع تمام

اعتقد المشكله  في التاريخ كانت عدم وجود الفاصله المنقوطه   ;

 

الف شكر لك استاذي الكريم

والشكر موصول لكل من شارك معنا

 

احترامي وتقدير لشخصك الكريم🌹🌹🌹

جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء

وما فى اى تعب تحت امرك

والحمد لله ان المشكلة انحلت 

شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه ,  وليست هذه ;  اعتذر لو كنت نسيت توضيح تلك الجزئية

تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي

[at_aziz]

بارك الله فيك وجزاك خير   ونفع الله بك

بيض الله وجهك ماقصرت

الف شكر

[moamen salem]

في ٢٨‏/١١‏/٢٠٢١ at 18:01, ابو جودي said:

جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء

وما فى اى تعب تحت امرك

والحمد لله ان المشكلة انحلت 

شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه ,  وليست هذه ;  اعتذر لو كنت نسيت توضيح تلك الجزئية

استاذنا الكريم ومعلمنا الجليل 

دلوقتي يوجد مشكلة غير عادية في ال QR للاسف انا كنت فاهمه غلط 

محتاجينه مشفر تشفير معين لا يمكن قراءته مع قارئ QR العادي 

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

لغة التشفير Base64

تم تعديل ديسمبر 1, 2021 بواسطه moamen salem

[ابو جودي]

8 ساعات مضت, moamen salem said:

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

ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه
بس رجاء اريد كود مكتوب وليس مرفق

[moamen salem]

منذ ساعه, ابو جودي said:

ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه
بس رجاء اريد كود مكتوب وليس مرفق

اشكرك جدا علي اهتمام حضرتك 

المشكلة انه اكثر من كود 

الاول باسم Settings.Designer

'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.42000

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

 

Option Strict On

Option Explicit On

 

Namespace My

   

    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _

     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"),  _

     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

    Partial Friend NotInheritable Class MySettings

        Inherits Global.System.Configuration.ApplicationSettingsBase

       

        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)

       

#Region "My.Settings Auto-Save Functionality"

#If _MyType = "WindowsForms" Then

    Private Shared addedHandler As Boolean

 

    Private Shared addedHandlerLockObject As New Object

 

    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)

        If My.Application.SaveMySettingsOnExit Then

            My.Settings.Save()

        End If

    End Sub

#End If

#End Region

       

        Public Shared ReadOnly Property [Default]() As MySettings

            Get

               

#If _MyType = "WindowsForms" Then

               If Not addedHandler Then

                    SyncLock addedHandlerLockObject

                        If Not addedHandler Then

                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings

                            addedHandler = True

                        End If

                    End SyncLock

                End If

#End If

                Return defaultInstance

            End Get

        End Property

    End Class

End Namespace

 

Namespace My

   

    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _

    Friend Module MySettingsProperty

       

        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _

        Friend ReadOnly Property Settings() As Global.WindowsApplication1.My.MySettings

            Get

                Return Global.WindowsApplication1.My.MySettings.Default

            End Get

        End Property

    End Module

End Namespace

 

 

الثاني باسم Resources.Designer

 

'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.42000

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

 

Option Strict On

Option Explicit On

 

Imports System

 

Namespace My.Resources

   

    'This class was auto-generated by the StronglyTypedResourceBuilder

    'class via a tool like ResGen or Visual Studio.

    'To add or remove a member, edit your .ResX file then rerun ResGen

    'with the /str option, or rebuild your VS project.

    '''<summary>

    '''  A strongly-typed resource class, for looking up localized strings, etc.

    '''</summary>

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _

     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

    Friend Module Resources

       

        Private resourceMan As Global.System.Resources.ResourceManager

       

        Private resourceCulture As Global.System.Globalization.CultureInfo

       

        '''<summary>

        '''  Returns the cached ResourceManager instance used by this class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager

            Get

                If Object.ReferenceEquals(resourceMan, Nothing) Then

                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("WindowsApplication1.Resources", GetType(Resources).Assembly)

                    resourceMan = temp

                End If

                Return resourceMan

            End Get

        End Property

       

        '''<summary>

        '''  Overrides the current thread's CurrentUICulture property for all

        '''  resource lookups using this strongly typed resource class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

        Friend Property Culture() As Global.System.Globalization.CultureInfo

            Get

                Return resourceCulture

            End Get

            Set

                resourceCulture = value

            End Set

        End Property

    End Module

End Namespace

 

الثالث باسم  AssemblyInfo

 

 

Imports System

Imports System.Reflection

Imports System.Runtime.InteropServices

 

' General Information about an assembly is controlled through the following

' set of attributes. Change these attribute values to modify the information

' associated with an assembly.

 

' Review the values of the assembly attributes

 

<Assembly: AssemblyTitle("WindowsApplication1")>

<Assembly: AssemblyDescription("")>

<Assembly: AssemblyCompany("")>

<Assembly: AssemblyProduct("WindowsApplication1")>

<Assembly: AssemblyCopyright("Copyright ©  2018")>

<Assembly: AssemblyTrademark("")>

 

<Assembly: ComVisible(False)>

 

'The following GUID is for the ID of the typelib if this project is exposed to COM

<Assembly: Guid("3d6e3cdb-ba47-4858-a715-8a6828971e2e")>

 

' Version information for an assembly consists of the following four values:

'

'      Major Version

'      Minor Version

'      Build Number

'      Revision

'

' You can specify all the values or you can default the Build and Revision Numbers

' by using the '*' as shown below:

' <Assembly: AssemblyVersion("1.0.*")>

 

<Assembly: AssemblyVersion("1.0.0.0")>

<Assembly: AssemblyFileVersion("1.0.0.0")>

 

الرابع باسم Application.Designer

'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.42000

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

 

Option Strict On

Option Explicit On

 

Namespace My

   

    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,

    ' or if you encounter build errors in this file, go to the Project Designer

    ' (go to Project Properties or double-click the My Project node in

    ' Solution Explorer), and make changes on the Application tab.

    '

    Partial Friend Class MyApplication

       

        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _

        Public Sub New()

            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)

            Me.IsSingleInstance = false

            Me.EnableVisualStyles = true

            Me.SaveMySettingsOnExit = true

            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses

        End Sub

       

        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _

        Protected Overrides Sub OnCreateMainForm()

            Me.MainForm = Global.WindowsApplication1.Form1

        End Sub

    End Class

End Namespace

[moamen salem]

في ١‏/١٢‏/٢٠٢١ at 20:40, ابو جودي said:

ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه
بس رجاء اريد كود مكتوب وليس مرفق

استاذي " ابو جودي " 

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

مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير 

[omarahmed1424]

10 ساعات مضت, moamen salem said:

استاذي " ابو جودي " 

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

مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير 

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

أستاذي العزيز مؤمن سالم لدي أسئلة وهي : 

1 - هل الفاتورة الصادرة من الأكسيس تصلح لدى هيئة الزكاة والدخل أصلا ؟

2 - هل تشترط الهيئة في المرحلة الحالية من التطبيق أن يكون البرنامج متصل بها ؟

3 - كيف يمكن تشفير الQR كود إذا كانت الهيئة تطلب ذلك ؟

وجزاكم الله خيرا 

 

[moamen salem]

22 دقائق مضت, omarahmed1424 said:

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

أستاذي العزيز مؤمن سالم لدي أسئلة وهي : 

1 - هل الفاتورة الصادرة من الأكسيس تصلح لدى هيئة الزكاة والدخل أصلا ؟

2 - هل تشترط الهيئة في المرحلة الحالية من التطبيق أن يكون البرنامج متصل بها ؟

3 - كيف يمكن تشفير الQR كود إذا كانت الهيئة تطلب ذلك ؟

وجزاكم الله خيرا 

 

اهلا وسهلا اخي الكريم 

الرد علي حسب علمي والله اعلم 

1- نعم 

2- لا

3- انا اشتريت برنامج للقيام بذلك

[omarahmed1424]

1 ساعه مضت, moamen salem said:

اهلا وسهلا اخي الكريم 

الرد علي حسب علمي والله اعلم 

1- نعم 

2- لا

3- انا اشتريت برنامج للقيام بذلك

السلام عليكم ورحمة الله وبركاته وبعد ... لو تكرمت موقع شراء البرنامج لتشفير Qr  وجزاكم الله خيرا

 

[moamen salem]

20 ساعات مضت, omarahmed1424 said:

السلام عليكم ورحمة الله وبركاته وبعد ... لو تكرمت موقع شراء البرنامج لتشفير Qr  وجزاكم الله خيرا

 

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

رقم واتساب 

00201200637777