at_aziz قام بنشر نوفمبر 27, 2021 قام بنشر نوفمبر 27, 2021 السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابا جودي ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي مبلغ القيمة المضافه والاجمالي يظهر بعدد عشري طويل ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير يعني تظهر الهلالات برقمين فقط مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام الوقت مافيه مشكله تمام لاحظ الصوره المرفقه لحقول الفاتوره الاساسيه والارقام بعد جمعها في مربع النص بارك الله فيك وجزاك الله خير
moamen salem قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 11 ساعات مضت, at_aziz said: السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابا جودي ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي مبلغ القيمة المضافه والاجمالي يظهر بعدد عشري طويل ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير يعني تظهر الهلالات برقمين فقط مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام الوقت مافيه مشكله تمام لاحظ الصوره المرفقه لحقول الفاتوره الاساسيه والارقام بعد جمعها في مربع النص بارك الله فيك وجزاك الله خير نفس المشكلة حصلت معايا ولكن الحل استخدم دالة =Round([Tax];2) 1
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 (معدل) 15 ساعات مضت, at_aziz said: مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام بالنسبة للرقم العشرى لابد من سؤال بناء عليه تتحدد الاجابة هل تريد التقريب الى اقرب رقم صحيح سواء اقل او اعلى ام تريد فقط اول رقمين بعد العلامة العشرية دون التقريب بالنسبة للتاريخ استخدم الدالة 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 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") 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 الف شكر لك استاذي الفاضل اباجودي دالة الرقم ضبطت تمام جربت اللي اضفها الاخ moamen salem والكود اللي اضفته لم اجربه بعد ولكن حاولت اضيف دالة التاريخ في مصدر تجميع النص لكن ماظبطت معي كيف تكون الطريقة لاحظ الصوره المرفقه اللي عليه المربع الاحمر هو حقل التاريخ
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 (معدل) 20 دقائق مضت, at_aziz said: سوف تكون بهذا الشكل استبدل [DateEntered] بـ الدالة Format([DateEntered],"dd/mm/yyyy") تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 الله يعطيك العافيه جربت اضيفة داخل المجموع ماظبت تظهر لي الرسالة التالي
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 (معدل) اختصار للوقت اضقت لك المثال الاصلي في المشاركه واضفت عليه حق التاريخ مازالت تظهر عندي فيه نفس الرسالة GenerateOrReadQRCodeImageV.03.mdb تم تعديل نوفمبر 28, 2021 بواسطه at_aziz
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 جرب المرفق ووافنى بالنتيجة GenerateOrReadQRCodeImageV.03.mdb.zip 1
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 اضفت لك موديول جديد لاختزال الارقام بعد العلامة العشرية لاحظ تم الابقاء على رقمين فقط بعد العلام العشرية للرقم الاول وبنفس الكود فى الموديول تم الابقاء على ثلاث ارقام بعد العلامة فى الرقم الثانى 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 (معدل) بارك الله فيك وجزاك الله خير استاذي الكريم ابا جودي الله يعطيك العافيه والله ماقصرت الله يسعدك واسف جدا اتعبتك معي انحلت المشكله والان الوضع تمام اعتقد المشكله في التاريخ كانت عدم وجود الفاصله المنقوطه ; الف شكر لك استاذي الكريم والشكر موصول لكل من شارك معنا احترامي وتقدير لشخصك الكريم🌹🌹🌹 تم تعديل نوفمبر 28, 2021 بواسطه at_aziz 1
ابو جودي قام بنشر نوفمبر 28, 2021 الكاتب قام بنشر نوفمبر 28, 2021 (معدل) 8 دقائق مضت, at_aziz said: بارك الله فيك وجزاك الله خير استاذي الكريم ابا جودي الله يعطيك العافيه والله ماقصرت الله يسعدك واسف جدا اتعبتك معي انحلت المشكله والان الوضع تمام اعتقد المشكله في التاريخ كانت عدم وجود الفاصله المنقوطه ; الف شكر لك استاذي الكريم والشكر موصول لكل من شارك معنا احترامي وتقدير لشخصك الكريم🌹🌹🌹 جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء وما فى اى تعب تحت امرك والحمد لله ان المشكلة انحلت شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه , وليست هذه ; اعتذر لو كنت نسيت توضيح تلك الجزئية تم تعديل نوفمبر 28, 2021 بواسطه ابو جودي 1
at_aziz قام بنشر نوفمبر 28, 2021 قام بنشر نوفمبر 28, 2021 بارك الله فيك وجزاك خير ونفع الله بك بيض الله وجهك ماقصرت الف شكر 1
moamen salem قام بنشر ديسمبر 1, 2021 قام بنشر ديسمبر 1, 2021 (معدل) في ٢٨/١١/٢٠٢١ at 18:01, ابو جودي said: جزانا الله واياكم وامة محمد صل الله عليه وسلم خير الجزاء وما فى اى تعب تحت امرك والحمد لله ان المشكلة انحلت شوف انا اصدار الاكسس عندى يستخدم الفاصلة الغير منقوطة هذه , وليست هذه ; اعتذر لو كنت نسيت توضيح تلك الجزئية استاذنا الكريم ومعلمنا الجليل دلوقتي يوجد مشكلة غير عادية في ال QR للاسف انا كنت فاهمه غلط محتاجينه مشفر تشفير معين لا يمكن قراءته مع قارئ QR العادي انا هرفق لحضرتك صورة من نموذج معمول بالفيجوال دود نت ولكن للاسف مش هينفع مع الاكسس لغة التشفير Base64 تم تعديل ديسمبر 1, 2021 بواسطه moamen salem
ابو جودي قام بنشر ديسمبر 1, 2021 الكاتب قام بنشر ديسمبر 1, 2021 8 ساعات مضت, moamen salem said: انا هرفق لحضرتك صورة من نموذج معمول بالفيجوال دود نت ولكن للاسف مش هينفع مع الاكسس ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق
moamen salem قام بنشر ديسمبر 1, 2021 قام بنشر ديسمبر 1, 2021 منذ ساعه, ابو جودي 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 قام بنشر ديسمبر 3, 2021 قام بنشر ديسمبر 3, 2021 في ١/١٢/٢٠٢١ at 20:40, ابو جودي said: ممكن الكود المستخدم Encoding and decoding فى الفيجوال طيب اشوفه بس رجاء اريد كود مكتوب وليس مرفق استاذي " ابو جودي " جزاك الله خير الحمد لله تم حل المشكلة ولكن عن طريق شراء برنامج مساعد من احد المطورين بحيث يحول ال QR العادي الي مشفر حسب طلبات الهيئة مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير
omarahmed1424 قام بنشر ديسمبر 4, 2021 قام بنشر ديسمبر 4, 2021 10 ساعات مضت, moamen salem said: استاذي " ابو جودي " جزاك الله خير الحمد لله تم حل المشكلة ولكن عن طريق شراء برنامج مساعد من احد المطورين بحيث يحول ال QR العادي الي مشفر حسب طلبات الهيئة مرة اخري اشكر حضرتك واهتمامك جدا وجزااك الله كل غير السلام عليكم ورحمة الله وبركاته أستاذي العزيز مؤمن سالم لدي أسئلة وهي : 1 - هل الفاتورة الصادرة من الأكسيس تصلح لدى هيئة الزكاة والدخل أصلا ؟ 2 - هل تشترط الهيئة في المرحلة الحالية من التطبيق أن يكون البرنامج متصل بها ؟ 3 - كيف يمكن تشفير الQR كود إذا كانت الهيئة تطلب ذلك ؟ وجزاكم الله خيرا
moamen salem قام بنشر ديسمبر 4, 2021 قام بنشر ديسمبر 4, 2021 22 دقائق مضت, omarahmed1424 said: السلام عليكم ورحمة الله وبركاته أستاذي العزيز مؤمن سالم لدي أسئلة وهي : 1 - هل الفاتورة الصادرة من الأكسيس تصلح لدى هيئة الزكاة والدخل أصلا ؟ 2 - هل تشترط الهيئة في المرحلة الحالية من التطبيق أن يكون البرنامج متصل بها ؟ 3 - كيف يمكن تشفير الQR كود إذا كانت الهيئة تطلب ذلك ؟ وجزاكم الله خيرا اهلا وسهلا اخي الكريم الرد علي حسب علمي والله اعلم 1- نعم 2- لا 3- انا اشتريت برنامج للقيام بذلك
omarahmed1424 قام بنشر ديسمبر 4, 2021 قام بنشر ديسمبر 4, 2021 1 ساعه مضت, moamen salem said: اهلا وسهلا اخي الكريم الرد علي حسب علمي والله اعلم 1- نعم 2- لا 3- انا اشتريت برنامج للقيام بذلك السلام عليكم ورحمة الله وبركاته وبعد ... لو تكرمت موقع شراء البرنامج لتشفير Qr وجزاكم الله خيرا
moamen salem قام بنشر ديسمبر 5, 2021 قام بنشر ديسمبر 5, 2021 20 ساعات مضت, omarahmed1424 said: السلام عليكم ورحمة الله وبركاته وبعد ... لو تكرمت موقع شراء البرنامج لتشفير Qr وجزاكم الله خيرا وعليكم السلام رقم واتساب 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.