15-10-12, 09:04 AM
طباعة الفواتير .
لطباعة الفواتير أكثر من طريقة ، منها ما يلي :
* اضافة العمليات المطلوب اظهارها في الفاتورة واحدة تلو الأخرى ، وتخزين ارقامها في متغيرات .
* عرض بكافة العمليات خلال مدة واختيار بعض منها ليظهر في التقارير .
الطريقة الأولى :
في الحالة الأولى بإمكاننا الاعتماد على شاشة اضافة عملية بيع ، حيث نضيف عملية البيع الأولى ونخزن رقمها في متغير a ثم الثانية ونضيفها في a وهكذا ، بالشكل التالي مثلاً - عند الضغط على زر ( اضافة ) .
كود :
if a="" then
a = Number
else
a = a & "," & Number
end ifوذلك على اعتبار Number هو رقم العملية المضافة .
وبعد الضغط على زر ( طباعة فاتورة ) أقوم بتقسيم المتغير a بواسطة الدالة Split :
كود :
b = split(a
,",")ومن ثم الدوران على عناصر المصفوفة الجديدة الناتجة من التقسيم واضافتها للتقرير :
كود :
for i = 0 to UPBount(b
)
'
'
'في النهاية سيكون بحثك على الأرقام الموجودة في المصفوفة ، ومن ثم تقوم بعرضها في تقرير عادي جداً .
الطريقة الثانية :
في هذه الطريقة سوف نعرض له شاشة فيها عمليات مببيعات اليوم أو بين تاريخين يحددهما المستخدم ، ويستطيع من خلال النقر على الجدول اضافة العمليات المطلوبة ، فمثلاً نقوم بوضع List نعرض فيها أرقام العمليات .
بالشكل التالي ، نضع الكود في حالة النقر على الجدول ضغطتين - أو أي عملية أخرى نختارها لاضافة العملية إلى التقرير - .
كود :
MsFlexrid1.Cols=1
'على اعتبار أنه صف رقم العملية
List1.AddItem MSFlexGrid1.Textتستطيع لجعل التصميم أكثر احترافية ، اضافة اسم العملية ، وأن تتيح للمستخدم حذف العناصر أو البضائع والتحكم في الليست في الترتيب وغيره .
لاحقاً قم بالاستعلام عن الأرقام المخزنة في القائمة ، وقم بوضعها في التقرير .
هناك طريقة ثالثة أفضل وأكثر استخداماً ، لن يكون لدينا جدول لعمليات البيع والشراء حيث أن كل قطعة تمثل عملية بيع ، بل سيكون لدينا في الأول جدول لعمليات البيع أو الشراء بحيث يتم تسجيل سجل واحد في كل عملية بيع كاملة ، ثم نقوم بعمل جدول فرعي بعلاقة ( واحد إلى مجموعة - Many To One ) بدلالة رقم العملية حيث نقوم باضافة القطع والكميات المضافة إلى هذه العملية .
لاحقاً في عملية الطباعة قم بطباعة كافة السجلات المعروضة بالنسبة لعملية بيع محددة .
ليست هذه هي الطرق فحسب ، بل هناك العديد من الطرق الأكثر دقة واحترافية ، ويبقى عليك اختيار الطريقة المناسبة لمشروعك .
يتبع ...
