[salahalmasry]

ابراهيم ايبودمت بخير

---

(21-10-19, 10:27 AM)ابراهيم ايبو كتب :

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

اخي صلاح .. الامر يتعلق في متى يتم الحساب والاجمالي وهل يتم الاجمالي لكل تقرير اثناء العرض في الفيور ام قبل في حساب اجمالي قبل عرض الطباعة?

اذا كان للاجمالي حقل مخزن في قاعدة البيانات فهنا تحتاج الى متغير من نوع دبل تضاف له قيم اجمالي كل تقرير اثناء الضغط على زر تقرير وهكذا ستضاف له قيم كل التقارير التي قمت بطباعتها بعد ذلك عندما تريد طباعة مجموع الاجمالي لكل التقارير ستاخذ قيمة المتغير كقيمة مستقلة تعرض في تقرير الاجمالي

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

اما ان كان الحساب يتم عبر الكريستال فليس لدي فكرة عن ذلك الا اذا استطعت اخذ قيمة  الاجمالي من كل تقرير ووضعتها في متغير مثل السابق اتمنى ان اكون قد افدتك بالفكرة وهي تحتاج الى التجريب 

دمت بخير

كود :

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

ملحوظة :
انا مبعرضش التقرير على كريستال ريبورت فيور بحولة pdf بعد كدا بدمج ال  pdf وبعرضة داخل الفورم


Dim Report2 As New CrystalReport2 ' تعريف الكريستال ريبورت
       Report2.SetParameterValue("My Parameter Cell", Start.Cell.Text) '1المدخلات من الفورم
       Report2.SetParameterValue("My Parameter Fill", Start.Fill.Text) '2
       Report2.SetParameterValue("My Parameter Span", Start.Span.Text) '3


'تصدير التقرير الى pdf
       Dim CrExportOptions As ExportOptions
       Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
       Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
       CrDiskFileDestinationOptions.DiskFileName = Application.StartupPath & "\Data\$Draft$\2.pdf"

       CrFormatTypeOptions.FirstPageNumber = 1
       CrFormatTypeOptions.LastPageNumber = 1
       CrFormatTypeOptions.UsePageRange = True
       CrExportOptions = Report2.ExportOptions

       With CrExportOptions
           .ExportDestinationType = ExportDestinationType.DiskFile
           .ExportFormatType = ExportFormatType.PortableDocFormat
           .DestinationOptions = CrDiskFileDestinationOptions
           .FormatOptions = CrFormatTypeOptions
       End With
       Try
           Report2.Export()
       Catch err As Exception
           MessageBox.Show(err.ToString())
       End Try