منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

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

(23-10-22, 11:20 PM)ali_ahmed12 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
لدي اجراء مخزن مصدر التقرير فاتورة
يطبع كل شي امور تمام
لكن لو عملت فاتورة جديده يطبعه ويطبع قديم معاه ياريت الي يعرف حل يقول لي لكي اطبع جديد فقط
هدا كود استعلام اجراء مخزن

كود :

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

(24-10-22, 12:50 AM)ali_ahmed12 كتب : [ -> ]
(23-10-22, 11:20 PM)ali_ahmed12 كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
لدي اجراء مخزن مصدر التقرير فاتورة
يطبع كل شي امور تمام
لكن لو عملت فاتورة جديده يطبعه ويطبع قديم معاه ياريت الي يعرف حل يقول لي لكي اطبع جديد فقط
هدا كود استعلام اجراء مخزن

كود :

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

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

كود :

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", Me.DGV_PRODUCT.CurrentRow.Cells(0).Value.ToString())

        Form_print.CrystalReportViewer1.ReportSource = CR

        Form_print.Show()