24-03-20, 05:28 PM
(24-03-20, 02:39 PM)عبد العزيز البسكري كتب :السّلام عليكم و رحمة الله و بركاتهبارك الله فيك و لك أخي الكريم و جزاك خير الجزاء و أحسن إليك مثلما أحسنت لي بهذه المتابعة الطيّبة .. عسى الله أن يزيدها بموازين حسناتك إن شاء اللهما قصّرت صدقني .. و بكل أمانةالمشكلة أخي الكريم أنّك استعملت و أخذت البيانات من جدول واحد و ليس مثل ما هو موجود بقاعدة بياناتي المرفقةبعد البحث وجدت أنّ الإشكالية لها العديد من التساؤلات و بكل المنتدياتوجدت الحل المؤقت لكنه لم يرقْ لي صراحةفاتورة المبيعات من الأمور الحسّاسة و لا ينفع معها .. التحايل
الفورميلا .. طبعًا تتغيّر حسب حقل من الحقول الموجودةهذا مع الكريستال ريبورت .. أكيد يوجد شيء ناقص بالأكواد رغم أنّي عملت View بال Sql Server و حوّلت الأكواد .. لكن لا حياة لمن تناديالحل المباشر بدون أي لف أو دوران .. بدون أي التباسات أو تعقيداتوجدته مع تقارير الديف إكسبرس و الحمد للهأو ربّما نجد الحل عند السادة أساتذتنا الأكارم إن شاء الله
تحياتي واحتراماتي
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Me.TextBox1.Text = vbNullString Then
MessageBox.Show("الرّجاء .. إختيار كود فاتورة المبيعات", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Else
Cursor.Current = Cursors.WaitCursor
Dim AzizCrystal As New ReportDocument
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Try
Dim MyReportPath As String = Application.StartupPath & "\FolderReport\Crystal1.Rpt"
AzizCrystal.Load(MyReportPath)
With crConnectionInfo
.ServerName = Application.StartupPath & "\MARKETING.Mdb"
.DatabaseName = Application.StartupPath & "\MARKETING.Mdb"
.UserID = "Admin"
.Password = "AZERTY987654"
End With
CrTables = AzizCrystal.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
Dim Ds As New DataSet
Dim Facture_Code As String = Me.TextBox1.Text
Dim sqlINVOICES_VENTE As String = "SELECT INVOICES_VENTE_Code,INVOICES_VENTE_Date,INVOICES_VENTE_Customers_Name,INVOICES_VENTE_Total,INVOICES_VENTE_Total_Arabic,INVOICES_VENTE_Total_Quantite From TBL_INVOICES_VENTE Where INVOICES_VENTE_Code = @Pcode"
Dim Da_INVOICES_VENTE As New OleDbDataAdapter(sqlINVOICES_VENTE, Conne_2020)
Da_INVOICES_VENTE.SelectCommand.Parameters.AddWithValue("@Pcode", Facture_Code)
Da_INVOICES_VENTE.Fill(Ds, "TBL_INVOICES_VENTE")
Dim sqlINVOICES_VENTE_DETAILS As String = "SELECT INVOICES_VENTE_DETAILS_Code,INVOICES_VENTE_DETAILS_Items_Code,INVOICES_VENTE_DETAILS_Items_Name,INVOICES_VENTE_DETAILS_Quantite,INVOICES_VENTE_DETAILS_Price,INVOICES_VENTE_DETAILS_Total From TBL_INVOICES_VENTE_DETAILS Where INVOICES_VENTE_DETAILS_Code = @Pcode"
Dim Da_INVOICES_VENTE_DETAILS As New OleDbDataAdapter(sqlINVOICES_VENTE_DETAILS, Conne_2020)
Da_INVOICES_VENTE_DETAILS.SelectCommand.Parameters.AddWithValue("@Pcode", Facture_Code)
Da_INVOICES_VENTE_DETAILS.Fill(Ds, "TBL_INVOICES_VENTE_DETAILS")
If Ds.Tables(0).Rows.Count = 0 Then
MessageBox.Show("لم يتم العثور على بيانات لعرضها في التّقرير", "طباعة التقرير", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Cursor.Current = Cursors.Default
Exit Sub
Else
AzizCrystal.SetDataSource(Ds)
Dim Frm As New FrmPrinting
Frm.CrystalReportViewer1.ReportSource = AzizCrystal
Frm.CrystalReportViewer1.Zoom(100%)
Frm.CrystalReportViewer1.Refresh()
Frm.ShowDialog()
End If
AzizCrystal.Close()
AzizCrystal.Dispose()
Catch ex As Exception
'MessageBox.Show("خطأ غير متوقّع في عمليّة جلب البيانات", "طباعة التقرير")
MessageBox.Show(ex.Message, "طباعة التقرير")
End Try
End If
End Sub
