28-10-22, 11:20 PM
(28-10-22, 07:39 PM)ali_ahmed12 كتب :لا يزال يوجد تكرار اثناء طباعه سابق مع جديد ماحل اخ طه(28-10-22, 07:07 PM)Taha Okla كتب :(28-10-22, 05:21 PM)ali_ahmed12 كتب : السلام عليكم ورحمة الله وبركاته
لدي مشكلة في عملية طباعة التقرير وهو يطبع موجود في فاتورة مع موجود سابقا
مرفق كود طباعة واستعلام التقرير
كود :
Dim CR As New CrystalReport5
Form_print.CrystalReportViewer1.ReportSource = CR
Form_print.Show()
كود :
create proc [dbo].[Get_order_detils_for_print]
as
SELECT Tbl_Order_detils.ID_product
,Tbl_Orderes.Des
,Tbl_Orderes.ID_Order
,order_date
,salesman
,TBL_Customers.ID
,TBL_Customers.FullName
,TBL_Customers.TEL
,PRODUCTS.ID_product
,PRODUCTS.label
,Tbl_Order_detils.Qty
,Tbl_Order_detils.price
,Tbl_Order_detils.Amount
FROM [dbo].[Tbl_Order_detils]
inner join Tbl_Orderes
on Tbl_Orderes.ID_Order=Tbl_Order_detils.ID_Order
inner join TBL_Customers
on TBL_Customers.ID=Tbl_Orderes.ID_CUSTOMER
inner join PRODUCTS
on PRODUCTS.ID_product=Tbl_Order_detils.ID_product
وعليكم السلام ورحمة الله وبركاته
راجع معلوماتك في الـ SQL
المشكلة في الاستعلام ..
يجب أن تحدد على أي أساس تريد طباعة التقرير
(Where)
غيرت فيه اجراء مخزن ولزالت نفس مشكله
وهدا كود طباعه تكست بوكس 2 وهو رقم فاتورة id_order ولزالت نفس مشكله يوجد تكرار في تقريركود :
ALTER proc [dbo].[Get_order_detils_for_print]
@id int
as
SELECT Tbl_Order_detils.ID_product
,Tbl_Orderes.Des
,Tbl_Orderes.ID_Order
,order_date
,salesman
,TBL_Customers.ID
,TBL_Customers.FullName
,TBL_Customers.TEL
,PRODUCTS.ID_product
,PRODUCTS.label
,Tbl_Order_detils.Qty
,Tbl_Order_detils.price
,Tbl_Order_detils.Amount
FROM [dbo].[Tbl_Order_detils]
inner join Tbl_Orderes
on Tbl_Orderes.ID_Order=Tbl_Order_detils.ID_Order
inner join TBL_Customers
on TBL_Customers.ID=Tbl_Orderes.ID_CUSTOMER
inner join PRODUCTS
on PRODUCTS.ID_product=Tbl_Order_detils.ID_product
where Tbl_Orderes.ID_Order=@id
هدا تكرار في صورة اخر اثنين منتجات اثنين جدد اما فوق منهم من فاتورة سابقة هدا تكرار اقصد به في الطباعهكود :
Dim CR As New CrystalReport5
CR.SetParameterValue("@id", TextBox2.Text)
Form_print.CrystalReportViewer1.ReportSource = CR
Form_print.Show()
