at_aziz قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابا جودي ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي مبلغ القيمة المضافه والاجمالي يظهر بعدد عشري طويل ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير يعني تظهر الهلالات برقمين فقط مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام الوقت مافيه مشكله تمام لاحظ الصوره المرفقه لحقول الفاتوره الاساسيه والارقام بعد جمعها في مربع النص بارك الله فيك وجزاك الله خير
moamen salem قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 في 27/11/2021 at 21:59, at_aziz said: السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابا جودي ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي مبلغ القيمة المضافه والاجمالي يظهر بعدد عشري طويل ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير يعني تظهر الهلالات برقمين فقط مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام الوقت مافيه مشكله تمام لاحظ الصوره المرفقه لحقول الفاتوره الاساسيه والارقام بعد جمعها في مربع النص بارك الله فيك وجزاك الله خير Expand نفس المشكلة حصلت معايا ولكن الحل استخدم دالة =Round([Tax];2) 1
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 (معدل) في 27/11/2021 at 21:59, at_aziz said: مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام Expand بالنسبة للرقم العشرى لابد من سؤال بناء عليه تتحدد الاجابة هل تريد التقريب الى اقرب رقم صحيح سواء اقل او اعلى ام تريد فقط اول رقمين بعد العلامة العشرية دون التقريب بالنسبة للتاريخ استخدم الدالة format لحذف رقمين من العام Format([FieldDate],"dd/mm/yy") وان اردت العام كاملا استخدم الكود الاتى لانى لا افهم ما تريد الحصول عليه تحديدا Format([FieldDate],"dd/mm/yyyy") تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 جزالله خير وبارك فيك اخي الفاضل moamen salem الف شكر لك اخي جزاك الله خير وبارك فيك اخي الفاضل ابا جودي اللي اريده سلمك الله الي اريده فقط اول رقمين بعد العلامة العشرية دون التقريب والتاريخ يكون العام كاملا راح اجرب ماذكرت اعلاه واخبرك باذن الله
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 في 28/11/2021 at 13:01, at_aziz said: الي اريده فقط اول رقمين بعد العلامة العشرية دون التقريب Expand استخدم الكود الاتى 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") 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 الف شكر لك استاذي الفاضل اباجودي دالة الرقم ضبطت تمام جربت اللي اضفها الاخ moamen salem والكود اللي اضفته لم اجربه بعد ولكن حاولت اضيف دالة التاريخ في مصدر تجميع النص لكن ماظبطت معي كيف تكون الطريقة لاحظ الصوره المرفقه اللي عليه المربع الاحمر هو حقل التاريخ
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 (معدل) في 28/11/2021 at 13:37, at_aziz said: Expand سوف تكون بهذا الشكل استبدل [DateEntered] بـ الدالة Format([DateEntered],"dd/mm/yyyy") تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 الله يعطيك العافيه جربت اضيفة داخل المجموع ماظبت تظهر لي الرسالة التالي
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 (معدل) اختصار للوقت اضقت لك المثال الاصلي في المشاركه واضفت عليه حق التاريخ مازالت تظهر عندي فيه نفس الرسالة GenerateOrReadQRCodeImageV.03.mdbFetching info... تم تعديل نوفمبر 28, 2021 بواسطه at_aziz
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 جرب المرفق ووافنى بالنتيجة GenerateOrReadQRCodeImageV.03.mdb.zipFetching info... 1
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 اضفت لك موديول جديد لاختزال الارقام بعد العلامة العشرية لاحظ تم الابقاء على رقمين فقط بعد العلام العشرية للرقم الاول وبنفس الكود فى الموديول تم الابقاء على ثلاث ارقام بعد العلامة فى الرقم الثانى 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 (معدل) بارك الله فيك وجزاك الله خير استاذي الكريم ابا جودي الله يعطيك العافيه والله ماقصرت الله يسعدك واسف جدا اتعبتك معي انحلت المشكله والان الوضع تمام اعتقد المشكله في التاريخ كانت عدم وجود الفاصله المنقوطه ; الف شكر لك استاذي الكريم والشكر موصول لكل من شارك معنا احترامي وتقدير لشخصك الكريم🌹🌹🌹 تم تعديل نوفمبر 28, 2021 بواسطه at_aziz 1
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 (معدل) في 28/11/2021 at 14:53, at_aziz said: بارك الله فيك وجزاك الله خير استاذي الكريم ابا جودي الله يعطيك العافيه والله ماقصرت الله يسعدك واسف جدا اتعبتك معي انحلت المشكله والان الوضع تمام اعتقد المشكله في التاريخ كانت عدم وجود الفاصله المنقوطه ; الف شكر لك استاذي الكريم والشكر موصول لكل من شارك معنا احترامي وتقدير لشخصك الكريم🌹🌹🌹 Expand جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء وما فى اى تعب تحت امرك والحمد لله ان المشكلة انحلت شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه , وليست هذه ; اعتذر لو كنت نسيت توضيح تلك الجزئية تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 بارك الله فيك وجزاك خير ونفع الله بك بيض الله وجهك ماقصرت الف شكر 1
moamen salem قام بنشر ديسمبر 1, 2021 قام بنشر ديسمبر 1, 2021 (معدل) في 28/11/2021 at 15:01, ابو جودي said: جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء وما فى اى تعب تحت امرك والحمد لله ان المشكلة انحلت شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه , وليست هذه ; اعتذر لو كنت نسيت توضيح تلك الجزئية Expand استاذنا الكريم ومعلمنا الجليل دلوقتي يوجد مشكلة غير عادية في ال QR للاسف انا كنت فاهمه غلط محتاجينه مشفر تشفير معين لا يمكن قراءته مع قارئ QR العادي انا هرفق لحضرتك صورة من نموذج معمول بالفيجوال دود نت ولكن للاسف مش هينفع مع الاكسس لغة التشفير Base64 تم تعديل ديسمبر 1, 2021 بواسطه moamen salem
ابو جودي قام بنشر ديسمبر 1, 2021 الكاتب قام بنشر ديسمبر 1, 2021 في 1/12/2021 at 09:04, moamen salem said: انا هرفق لحضرتك صورة من نموذج معمول بالفيجوال دود نت ولكن للاسف مش هينفع مع الاكسس Expand ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق
moamen salem قام بنشر ديسمبر 1, 2021 قام بنشر ديسمبر 1, 2021 في 1/12/2021 at 17:40, ابو جودي said: ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق Expand اشكرك جدا علي اهتمام حضرتك المشكلة انه اكثر من كود الاول باسم 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 قام بنشر ديسمبر 3, 2021 قام بنشر ديسمبر 3, 2021 في 1/12/2021 at 17:40, ابو جودي said: ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق Expand استاذي " ابو جودي " جزاك الله خير الحمد لله تم حل المشكلة ولكن عن طريق شراء برنامج مساعد من احد المطورين بحيث يحول ال QR العادي الي مشفر حسب طلبات الهيئة مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير
omarahmed1424 قام بنشر ديسمبر 4, 2021 قام بنشر ديسمبر 4, 2021 في 3/12/2021 at 21:16, moamen salem said: استاذي " ابو جودي " جزاك الله خير الحمد لله تم حل المشكلة ولكن عن طريق شراء برنامج مساعد من احد المطورين بحيث يحول ال QR العادي الي مشفر حسب طلبات الهيئة مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير Expand السلام عليكم ورحمة الله وبركاته أستاذي العزيز مؤمن سالم لدي أسئلة وهي : 1 - هل الفاتورة الصادرة من الأكسيس تصلح لدى هيئة الزكاة والدخل أصلا ؟ 2 - هل تشترط الهيئة في المرحلة الحالية من التطبيق أن يكون البرنامج متصل بها ؟ 3 - كيف يمكن تشفير الQR كود إذا كانت الهيئة تطلب ذلك ؟ وجزاكم الله خيرا
moamen salem قام بنشر ديسمبر 4, 2021 قام بنشر ديسمبر 4, 2021 في 4/12/2021 at 07:47, omarahmed1424 said: السلام عليكم ورحمة الله وبركاته أستاذي العزيز مؤمن سالم لدي أسئلة وهي : 1 - هل الفاتورة الصادرة من الأكسيس تصلح لدى هيئة الزكاة والدخل أصلا ؟ 2 - هل تشترط الهيئة في المرحلة الحالية من التطبيق أن يكون البرنامج متصل بها ؟ 3 - كيف يمكن تشفير الQR كود إذا كانت الهيئة تطلب ذلك ؟ وجزاكم الله خيرا Expand اهلا وسهلا اخي الكريم الرد علي حسب علمي والله اعلم 1- نعم 2- لا 3- انا اشتريت برنامج للقيام بذلك
omarahmed1424 قام بنشر ديسمبر 4, 2021 قام بنشر ديسمبر 4, 2021 في 4/12/2021 at 08:10, moamen salem said: اهلا وسهلا اخي الكريم الرد علي حسب علمي والله اعلم 1- نعم 2- لا 3- انا اشتريت برنامج للقيام بذلك Expand السلام عليكم ورحمة الله وبركاته وبعد ... لو تكرمت موقع شراء البرنامج لتشفير Qr وجزاكم الله خيرا
moamen salem قام بنشر ديسمبر 5, 2021 قام بنشر ديسمبر 5, 2021 في 4/12/2021 at 10:09, omarahmed1424 said: السلام عليكم ورحمة الله وبركاته وبعد ... لو تكرمت موقع شراء البرنامج لتشفير Qr وجزاكم الله خيرا Expand وعليكم السلام رقم واتساب 00201200637777
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.