اذهب الي المحتوي
أوفيسنا

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


ابو جودي

الردود الموصى بها

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

 

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

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

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

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

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

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

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

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

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

 

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

2021-11-28_00-47-11.png.9ba730f012143d679ae5c22a71dbbd1f.png

رابط هذا التعليق
شارك

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

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

 

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

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

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

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

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

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

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

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

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

 

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

2021-11-28_00-47-11.png.9ba730f012143d679ae5c22a71dbbd1f.png

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

=Round([Tax];2)

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

 

تم تعديل بواسطه ابو جودي
  • Like 1
رابط هذا التعليق
شارك

جزالله خير وبارك فيك اخي الفاضل 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")

 

  • Like 1
رابط هذا التعليق
شارك

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

دالة الرقم 

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

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

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

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

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

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

2021-11-28_16-32-36.png.abeade863a664bc299dfe24a7a73e1ea.png

رابط هذا التعليق
شارك

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

 

2021-11-28_16-32-36.png.abeade863a664bc299dfe24a7a73e1ea.png

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

[DateEntered]

بـ الدالة

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

 

تم تعديل بواسطه ابو جودي
  • Like 1
رابط هذا التعليق
شارك

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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

 

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

تم تعديل بواسطه at_aziz
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

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

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

 

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

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

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

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

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

تم تعديل بواسطه ابو جودي
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

لغة التشفير Base64

image.png.17390dbdc42289d99fd28b56ec99334c.png

WhatsApp Image 2021-12-01 at 12.01.26 PM.jpeg

تم تعديل بواسطه moamen salem
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

منذ ساعه, ابو جودي 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
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

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

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

1- نعم 

2- لا

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

رابط هذا التعليق
شارك

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

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

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

1- نعم 

2- لا

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

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

 

رابط هذا التعليق
شارك

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

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

 

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

رقم واتساب 

00201200637777

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information