الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

قراءة رقم الصنف

مغلق
بدأه أحمد حمدان في 10 أغسطس 2005 · 4 رد · 786 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أعضاء المنتدى الكرام

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

أعرف أنني أسقلت عليكم بالأسئلة ولكن لم أجد أمامي غير هذا المنتدى الجميل عونا وسندا في الأزمات

أولا هذا الموضوع أنا كتبته في مشاركة غير هذه ولكن تفضل علي الأخ / walcom باقتراح أن أضعه في موضوع منفصل وها أنا أضعه في موضوع جديد

السؤال هو :

لدينا مخزن صيدلية يعمل على برنامج قديم وما زال موظف المخزن يطبع من خلال البرنامج استيكر الباركود ولكن البرنامج يطبع الاستيكر بطريقة مختلفة شوية وهي أنه يقوم بوضع ( رقم الصنف ورقم السعر وتاريخ انتهاء الاصنف داخل الاستيكر )

توضيح أكثر : هو عامل طول رقم الصنف في قاعدة البيانات 8 أرقام

وإليكم مثال ولنفترض أن هذا رقم الصنف : 12341406 في هذه الحالة رقم الصنف هو 1234 ورقم 1 هو رقم السعر ورقم 4 هو الشهر ورقمي 06 هي السنه لأنه يضع فقط الشهر والسنة فقط من تاريخ الانتهاء .

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

ولكن في الفاتورة يقرأها كلها وبرده شغال .

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

وهي على فكرة قاعدة بيانات SQL Server 2000 وبرنامجنا الجديد على فيجول بيزك 6

وسؤالي الأخير هو :

كيف لي أن أحدد رقم الصنف من وسط هذه الأرقام مهما كان حجمه رقم أو اثنين أو ثلاث أو أربع أرقام ويترك باقي الأرقام مهما كان وضعها أو موضوعها ، لأنه ممكن أن يكون رقم الصنف (1) مثلا .

وأيضا كيف يقوم البرنامج القديم بقراءة جميع الأرقام التي في الاستيكر في الفاتورة وبرده بيطلع الصنف بدون مشاكل وهل هذه طريقة سليمة .

الأخوة الأعزاء أطلت عليكم الحديث

بارك الله لي ولكم في هذا المندى الجميل

وشكرا .....................................................

#2

عفوا أخواني نسيت السؤال الثاني وهو في طباعة الاستيكر نفسه

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

وطلبي هو كيف لي أن أطبعه العدد الذي أحدده أنا بشرط أن يكون كل أثنين بجوار بعض لأن نوع الاستيكر الذي لدينا هو عبارة عن كل اثنين استيكر بجوار بعض

أو ممكن تقول الاستيكر مقسوم أثنين والطابعة عند الطباعة تخرج كل أثنين استيكر بجوار بعض وسبب ما أقوله لأن البرنامج القديم لو أعطيته أمر بطباعة استيكر واحد يقوم بإخراج اثنين استيكر مطبوعين بجوار بعض .

وشكرا ......................................

#3

للرفع

#4

اخي الكريم بالنسبة لسؤالك الاول وهو كيف تحدد رقم الصنف فقط من خلال سلسلة الارقام

هنا أخي لديك أرقام ثابته وهي الشهر والسنة فقط صحيح ؟

إذا صار معلوماً لدينا أن أول أربعة أرقام من اليمين هي خارج نطاق حساب رقم الباركود وما تبقى فهو للباركود

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

لنفرض أن سلسلة أرقام الباركود موجودة بخانة TextBox ونمثلها هنا Text1

Dim MyBaracode as Long

Mybaracode = Left$(Text1.Text, (Len(Text1.Text) - 4))

الكود السابقة يستخرج الرقم الموجود في الباركوود ويبدأ من اليسار ويترك آخر أربعة أرقام ويضعها في المتغيير MybaraCode بدون الأرقام الأربعة الأخيرة

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#5

شكرا أخي / omani

الرد واضح وأوفى بالغرض

أشكرك جزيل الشكر وبارك الله فيك وفي هذا المندى الجميل

كما أتمنى أن أحصل على إجابة للسؤال الثاني

وشكرا ..............................

هذا الموضوع مغلق.

مواضيع مشابهة