+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال (/showthread.php?tid=51390)
ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال - new_programer - 05-02-25
السلام عليكم جميعا
اريد عمل بحث برقم الصنف مع كود المورد وكود الوحدة من جدول الوحدات
لو موجود يتم جلب الباركود المرتبط بالمورد والوحدة من جدول الوحدات
ثم يتم جلب بيانات الصنف من جدول الاصناف
لو الباركود غير موجود يتم انشاء باركود جديد
مع جلب بيانات الصنف
علما انى حاولت كثيرا فى صنع الكود لكن ام اتمكن منه
مرفق مثال مع سكربت قاعدة البيانات
[attachment=30025]
الاجراء المخزن الموجود بالمثال المرفق -
تم تعديل الكود / الكود يعمل فى جلب وعرض البيانات فى حالة وجود الباركود مسجل
اريد جلب البيانات ايضا فى حالة انشاء الباركود الجديد
كود :
ALTER PROCEDURE [dbo].[StoredProcedure3]
@itemCode2 nvarchar (max),
@vindCode int,
@unitCode int
AS
DECLARE @barCode int
SET @barCode = (SELECT [barCode] FROM Items_UintesTbl WHERE [ItemCode2]=@itemCode2 AND ClaintID=@vindCode AND [UnitCode]=@unitCode )
/* التأكد من موجود باركود مسبق */
IF @barCode IS NOT NULL
select [itemCode],[itemCode2],[barCode],[ClaintID],[StoreCode],[PurchasePrice],[CostPrice]
FROM [dbo].[Items_UintesTbl] where [barCode]=@barCode
ELSE
BEGIN TRY
-- الباركود الجديد
SET @barCode = (SELECT MAX([barCode]) + 1 FROM [dbo].[Items_UintesTbl])
IF @barCode IS NULL
SET @barCode=1
select [itemCode],[itemCode2],@barCode,[ClaintID],[StoreCode],[PurchasePrice],[CostPrice]
FROM [dbo].[Items_UintesTbl] where [ItemCode2]=@itemCode2 AND ClaintID=@vindCode AND [UnitCode]=@unitCode
END TRY
BEGIN CATCH
RETURN -1
END CATCH