تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة تفقيط في تقرير ‪Active Report
#1
انا لدي ميديول تفقيط الارقم واريد تفقيط في تقرير هل هناك طريق لاضافة تفقيط في تقرير ‪Active Report‬ جزاكم الله الف خير وبارك الله فيكم
(لا إله الا انت سبحانك اني كانت من الظلمين)
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته :

لما تطبع في الاكتيف ريبورت او الداتا ريبورت - تأخذ البيانات من جدول من قاعدة بيانات .
--
الحل :
أصنع قاعدة بيانات مؤقتة فيها جداول للنتائج التي تريد طباعة بياناتها 
وضمنها يكون قيمة الجداول (بمافيها التفقيط).
والاكتيف ريبورت يأخذ من الجدول الذي خزنت فيه البيانات في القاعدة المؤقتة ..
-
قبل الطباعة يعبئ البيانات في الجدول ..
وبعد الطباعة يقوم النظام بحذف البيانات من الجدول ..
الرد
تم الشكر بواسطة: ahmed250
#3
(27-10-21, 11:57 PM)Taha Okla كتب : السلام عليكم ورحمة الله وبركاته :

لما تطبع في الاكتيف ريبورت او الداتا ريبورت - تأخذ البيانات من جدول من قاعدة بيانات .
--
الحل :
أصنع قاعدة بيانات مؤقتة فيها جداول للنتائج التي تريد طباعة بياناتها 
وضمنها يكون قيمة الجداول (بمافيها التفقيط).
والاكتيف ريبورت يأخذ من الجدول الذي خزنت فيه البيانات في القاعدة المؤقتة ..
-
قبل الطباعة يعبئ البيانات في الجدول ..
وبعد الطباعة يقوم النظام بحذف البيانات من الجدول ..

لم افهم يااخي الكريم
(لا إله الا انت سبحانك اني كانت من الظلمين)
الرد
تم الشكر بواسطة:
#4
نعم تستطيع التفقيط كما تريد

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

بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: أشرف كريم 2
#5
(31-10-21, 11:24 AM)ahmedabdelaliem كتب : نعم تستطيع التفقيط كما تريد

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

بالتوفيق
انا لدي اكثر من فاتور واكثر من اجمالي الي في كل صفحه توجد قيمه غير فاتوره اخر
(لا إله الا انت سبحانك اني كانت من الظلمين)
الرد
تم الشكر بواسطة:
#6
تمام الاستعلام يتعمل الى اي اجمالي حبيبي ثم ارسل الاجمالي بالارقام الى المديول وبعد عملية التفقيط اظهر الاجمالي في التكست المحدد له حتى لو اكثر من حركة اجمالي في التقرير
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة:
#7
(01-11-21, 10:23 AM)ahmedabdelaliem كتب : تمام الاستعلام يتعمل الى اي اجمالي حبيبي ثم ارسل الاجمالي بالارقام الى المديول وبعد عملية التفقيط اظهر الاجمالي في التكست المحدد له حتى لو اكثر من حركة اجمالي في التقرير

ممكن مثل اخي الكريم جزاك الله الف خير
(لا إله الا انت سبحانك اني كانت من الظلمين)
الرد
تم الشكر بواسطة:
#8
اتفضل اخي ده موديول للتفقيط بالعربي

PHP كود :
Public Function Digital(ByVal AMOUNT As DoubleFLAGTYPE As String)
 
On Error Resume Next
        Select 
Case FLAGTYPE
            Case 
"EGYPT"
 
               LE " جنيها "
 
               P " قرشا "
 
               PS " قروش "
 
               POUNDS " جنيهات "
 
               V Int(Math.Abs(AMOUNT))
 
               VPS Val(Right(Format(AMOUNT"000000000000.00"), 2))
 
               WORDINTEGER AmountWord(V)
 
               WORDPS AmountWord(VPS)
 
               If WORDINTEGER <> "" And (VPS <= 2Then Result WORDINTEGER LE " و " WORDPS "فقط لاغير "
 
               If WORDINTEGER <> "" And (VPS >= And VPS <= 9Then Result WORDINTEGER LE " و " WORDPS PS "فقط لاغير "
 
               If WORDINTEGER <> "" And (VPS 9Then Result WORDINTEGER LE " و " WORDPS "فقط لاغير "
 
               If WORDINTEGER "" And (VPS <= 2Then Result WORDPS "فقط لاغير "
 
               If WORDINTEGER "" And (VPS >= And VPS <= 9Then Result WORDPS PS "فقط لاغير "
 
               If WORDINTEGER "" And VPS 9 Then Result WORDPS "فقط لاغير "
 
               If WORDINTEGER "" And VPS 0 Then Result ""
 
               If WORDINTEGER <> "" And VPS 0 Then Result WORDINTEGER LE "فقط لاغير "
 
               Digital Result
            Case 
"USA"
 
               Dollar " دينار "
 
               SENT " فلسا "
 
               SENTS "فلسان"
 
               V Int(Math.Abs(AMOUNT))
 
               VPS Val(Right(Format(AMOUNT"000000000000.000"), 3))
 
               WORDINTEGER AmountWord(V)
 
               WORDPS AmountWord(VPS)
 
               If WORDINTEGER <> "" And (VPS <= 2Then Result WORDINTEGER Dollar " و " WORDPS SENT "فقط لاغير "
 
               If WORDINTEGER <> "" And (VPS >= And VPS <= 9Then Result WORDINTEGER Dollar " و " WORDPS " " SENTS " " "فقط لاغير "
 
               If WORDINTEGER <> "" And (VPS 9Then Result WORDINTEGER Dollar " و " WORDPS SENT "فقط لاغير "
 
               If WORDINTEGER "" And (VPS <= 2Then Result WORDPS SENT "فقط لاغير "
 
               If WORDINTEGER "" And (VPS >= And VPS <= 9Then Result WORDPS " " SENTS " " "فقط لاغير "
 
               If WORDINTEGER "" And VPS 9 Then Result WORDPS SENT "فقط لاغير "
 
               If WORDINTEGER "" And VPS 0 Then Result ""
 
               If WORDINTEGER <> "" And VPS 0 Then Result WORDINTEGER Dollar "فقط لاغير "
 
               Digital Result
            Case 
"WEIGHT"
 
               TON " طن "
 
               KG " كيلو جرام "
 
               KGS "كيلو جرامات"
 
               V Int(Math.Abs(AMOUNT))
 
               VPS Val(Right(Format(AMOUNT"000000000000.000"), 3))
 
               WORDINTEGER AmountWord(V)
 
               WORDPS AmountWord(VPS)
 
               If WORDINTEGER <> "" And (VPS <= 2Then Result WORDINTEGER TON " و " WORDPS KG "فقط لاغير "
 
               If WORDINTEGER <> "" And (VPS >= And VPS <= 9Then Result WORDINTEGER TON " و " WORDPS KGS "فقط لاغير "
 
               If WORDINTEGER <> "" And (VPS 9Then Result WORDINTEGER TON " و " WORDPS KG "فقط لاغير "
 
               If WORDINTEGER "" And (VPS <= 2Then Result WORDPS KG "فقط لاغير "
 
               If WORDINTEGER "" And (VPS >= And VPS <= 9Then Result WORDPS KGS "فقط لاغير "
 
               If WORDINTEGER "" And VPS 9 Then Result WORDPS KG "فقط لاغير "
 
               If WORDINTEGER "" And VPS 0 Then Result ""
 
               If WORDINTEGER <> "" And VPS 0 Then Result WORDINTEGER TON "فقط لاغير "
 
               Digital Result
        End Select
End 
Function
Public Function 
AmountWord(ByVal AMOUNT As Double)
 
 On Error Resume Next
  
        N 
Int(AMOUNT)
 
       C Format(N"000000000000")
 
       C1 Val(Mid(C121))
 
       Select Case C1
            Case Is 
1str1 "واحد"
 
           Case Is 2str1 "اثنان"
 
           Case Is 3str1 "ثلاثة"
 
           Case Is 4str1 "اربعة"
 
           Case Is 5str1 "خمسة"
 
           Case Is 6str1 "ستة"
 
           Case Is 7str1 "سبعة"
 
           Case Is 8str1 "ثمانية"
 
           Case Is 9str1 "تسعة"
 
       End Select

        C2 
Val(Mid(C111))
 
       Select Case C2
            Case Is 
1str2 "عشر"
 
           Case Is 2str2 "عشرون"
 
           Case Is 3str2 "ثلاثون"
 
           Case Is 4str2 "اربعون"
 
           Case Is 5str2 "خمسون"
 
           Case Is 6str2 "ستون"
 
           Case Is 7str2 "سبعون"
 
           Case Is 8str2 "ثمانون"
 
           Case Is 9str2 "تسعون"
 
       End Select

        If str1 
<> "" And C2 1 Then str2 str1 " و" str2
        If str2 
"" Then str2 str1
        If C1 
And C2 1 Then str2 str2 "ة"
 
       If C1 And C2 1 Then str2 "احدى عشر"
 
       If C1 And C2 1 Then str2 "اثنى عشر"
 
       If C1 And C2 1 Then str2 str1 " " str2
        C3 
Val(Mid(C101))
 
       Select Case C3
            Case Is 
1str3 "مائة"
 
           Case Is 2str3 "مئتان"
 
           Case Is 2str3 Left(AmountWord(C3), Len(AmountWord(C3)) - 1) + "مائة"
 
       End Select
        If str3 
<> "" And str2 <> "" Then str3 str3 " و" str2
        If str3 
"" Then str3 str2

        C4 
Val(Mid(C73))
 
       Select Case C4
            Case Is 
1str4 "الف"
 
           Case Is 2str4 "الفان"
 
           Case 3 To 10str4 AmountWord(C4) + " آلاف"
 
           Case Is 10str4 AmountWord(C4) + " الف"
 
       End Select
        If str4 
<> "" And str3 <> "" Then str4 str4 " و" str3
        If str4 
"" Then str4 str3
        C5 
Val(Mid(C43))
 
       Select Case C5
            Case Is 
1str5 "مليون"
 
           Case Is 2str5 "مليونان"
 
           Case 3 To 10str5 AmountWord(C5) + " ملايين"
 
           Case Is 10str5 AmountWord(C5) + " مليون"
 
       End Select
        If str5 
<> "" And str4 <> "" Then str5 str5 " و" str4
        If str5 
"" Then str5 str4

        C6 
Val(Mid(C13))

 
       Select Case C6
            Case Is 
1str6 "مليار"
 
           Case Is 2str6 "ملياران"
 
           Case Is 2str6 AmountWord(C6) + " مليار"
 
       End Select
        If str6 
<> "" And str5 <> "" Then str6 str6 " و" str5
        If str6 
"" Then str6 str5
        AmountWord 
str6
End 
Function 
PHP كود :
Private Sub lblTotal_Change()
On Error Resume Next
Me
.Text1.Text Digital(Me.lblTotal.Caption"USA")
End Sub 
هذا الكود يقوم بعملية التفقيط 

ثم ارسل البيانات للتقرير
الموضوع سهل ان شاء الله
بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طلب طريقة عرض الاشخص من نفس الدول في تقرير واحد ahmed201 5 677 25-09-21, 03:01 PM
آخر رد: السيد الغالي
  مشكلة في حفظ عدة ملفات دفعة واحدة في الأرشفة الالكترونية awidan76 6 607 02-09-21, 05:37 PM
آخر رد: awidan76
  [vb6.0] مشكلة فى برنامج اكتيف ريبورت mohhasddx1 1 346 31-07-21, 01:37 AM
آخر رد: مصمم هاوي
  كيف أصدر من تقرير من الكرستال دون عرض شاشة الخيارات ياسر عبد الكريم 0 233 27-05-21, 07:57 PM
آخر رد: ياسر عبد الكريم
Rainbow مشكلة في الترميز tareqhbib2021 1 358 08-05-21, 04:05 AM
آخر رد: Ahmed_Mansoor
  مشكلة قراءة من قاعدة البيانات بعد تنصيب البرنامج على ويندوز 10 aboezzat84 3 674 08-04-21, 06:38 PM
آخر رد: aboezzat84
  مشكلة عدم ظهور البيانات في التقرير ahmed201 8 1,286 25-02-21, 09:27 PM
آخر رد: ahmed201
  مشكلة في تنسيق النسبة المئوية في التقرير مصمم هاوي 10 1,277 22-02-21, 09:19 PM
آخر رد: Ahmed_Mansoor
  مشكله في تقرير المبيعات ahmed201 3 664 21-02-21, 09:47 PM
آخر رد: ahmed201
  [سؤال] مشكلة طباعة في Activereport basset87 6 938 17-02-21, 11:04 PM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم