ارجو من السادة المحترمين المساعدة
كيف يمكن عمل امر برمجي بلغة الفكس برو يقوم بالعمليات التالية
حساب قيم معينة مجمل الثمن قيم الضريبة....الخ
ترحيل كل من هذة القيم الىحقل معين في سجل مختلف من جدول العمليات المالية مرفقة مع رقم معرف الحساب مثل رقم معرف الزبون
مع التاكدمن عدم تكرار ترحيل الفاتورة
وكل الشكر لمن يساعد
ارجو من السادة المحترمين المساعدة
كيف يمكن كتابة كود بلغة الفكس برو يعمل المطلوب
هناك نموذج الفواتير الذي يستخدم لادخال بيانات الى جدولي الفواتير و تفاصيل الفواتير على هذا النموذج يوجد زر الم عند الضغط علية يقوم بالعمليات التالية
حساب قيم معينة مجمل الثمن قيم الضريبة....الخ
ترحيل كلواحدة من القيم المحسوبة الى حقل معين في سجل مختلف من جدول العمليات المالية مرفقة مع رقم معرف الحساب مثل رقم معرف الزبون ورقم المستند و التاريخ
مع التاكدمن عدم تكرار ترحيل الفاتورة الواحدة لاكثر من مرة
وكل الشكر لمن يساعد
عزيزي منذر لهذه العملية تحتاج استخدام لغة الاس كيو ال في استخلاص العمليات الحسابة المطلوبة وادارجها في جدول منفصل
طبعا لنظام الفواتير تحتاج جدولين جدول رئيسي وجدول آخر لتفاصيل كل فاتورة والعلاقة طبعا one to many
سوف تحتاج الى select statement و insert into table . هذا باختصار شديد ياريت تكتب لي المعادلة المطلوبة وانا سوف ازودك بالامر لذلك العملية الحسابية
اشكر الاهتمام من حذرتكم
المدخلات في قاعدة بيانات المبيعات :
جدول الفواتير :رقم الفاتورة ,معرف الزبون ,نسبة الخصم ,نسبة الضريبة , تاريخ الفاتورة , معرف حساب الخصم ,معرف حساب الضريبة , ملاحضات , معرف حساب المبيعات
جدول تفاصيل الفواتير :معرف المنتج , الكمية ,السعر
المعادلات هية :
الثمن = الكمية * السعر
الخصم = نسبة الخصم *الثمن
الضريبة =نسبة الضريبة * الثمن
صافي الثمن =الثمن -(الخصم +الضريبة
يتم ترحيل البيانات الى جدول اخر هو جدول سجل العمليات المالية الموجوج في قاعدة بيانات دفتر الاستاذ ذو الحقول التالية :
رقم العملية ,التاريخ ,معرف الحساب , المبلغ مدين , المبلغ دائن , البيان ,رقم المستند
بحيث يتم ادخال البيانات بلشكل التالي :
صافي الثمن , معرف الزبون, رقم الفاتورة ,التاريخ , الملاحضات
في الحقول :المبلغ مدين , معرف الحساب , رقم المستند , تاريخ العملية , البيان
ثم
الخصم , معرف حساب الخصم ,رقم الفاتورة , التاريخ ,الملاحضات ,
في الحقول :المبلغ مدين , معرف الحساب , رقم المستند , التاريخ , البيان
ثم
الضريبة , معرف حساب الضريبة , رقم الفاتورة , التاريخ , الملاحضات
في الحقول : المبلغ مدين , معرف الحساب ,رقم المستند , التاريخ , البيات
ثم
الثمن , معرف حساب المبيعات ,رقم الفاتورة , التاريخ , الملاحضات
في الحقول : المبلغ دائن , معرف الحساب , رقم المستند , التاريخ , البيان
وتكون عمليات الترحيل مشروطة
برقم المستنداي يتم ترحيل البيانات لنفس الفاتورة
و ان لاتتكرر عملية الترحيل لاكثر من مرة واحدة
وفي حال كون اي من بيانات النموذج غير مدخلة يتم رفض عملية الترحل واضهار رسالة خطء بذلك
كلام سليم
هذا هو المطلوب من الاول
ايه رأيك اعمل لك برنامج مصغر بها؟
اما اذا ارد حل سريع فممكن ايضا
وللة كرمك بيغمرني اذا بتعمل الاقتراح الاول
اي انشاء برنامج مصغر
ولكن اذا لم يسعك ذلك فلاباس
اود ان انوة ان الحقول المحسوبة : الثمن , صاي الثمن
ترحل بلمجموع اى مجموع الثمن لكافة الاصناف في الفاتورة
وارجو المعذرة اعدم ذكر ذلك في المعادلات السابقة
عزيزي منذر
انا عملت بشكل سريع المخطط التالي حتى ابلش بالعملية وحتى تكون بالصورة معايا ايضا
طبعا انت العملية تحتاج الى اربع علميلت select واربع عمليات insert into table
تحليل جميل ورائع واشكر االاهتمام من حضرتكم
واود ان الفت انتباة حضرتكم الى اني عنيت بالسعر المبلغ الذي يدفع بدل الوحدة الواحدة من المنتج اما الثمن فهوة يساوي سعر الوحدة الواحدة مضروبا بعدد الوحدات المباعة
وشكرا جزيلا
عزيزي منذر انتهت من عمل برنامج مصغر للمطلوب اتمنى انا يكون مفيد لك
thisform.grdIvn_tbl.RecordSource='' SELECT ivd_id,cust_id,discount_p,tax_p,inv_date,discount_id,tax_id,note; FROM ivn_tbl INTO CURSOR fullinv thisform.grdIvn_tbl.RecordSource='fullinv' ********** thisform.grdTrans_tbl.RecordSource='' SELECT * FROM trans_tbl INTO CURSOR vtrans thisform.grdTrans_tbl.RecordSource='vtrans' *********** thisform.grdDetail_tbl.RecordSource='' SELECT detail_id,inv_id,item_id,qty,price,qty*price vtotal; FROM detail_tbl INTO CURSOR vdetail thisform.grdDetail_tbl.RecordSource='vdetail' **************** thisform.grid1.RecordSource='' SELECT inv_id,SUM(vtotal) FROM vdetail; group BY inv_id INTO CURSOR vcalc thisform.grid1.RecordSource='vcalc' ************** thisform.grid2.RecordSource='' SELECT ivn_tbl.ivd_id,ivn_tbl.cust_id,ivn_tbl.inv_date,ivn_tbl.note,vcalc.sum_vtotal; FROM ivn_tbl,vcalc; where vcalc.inv_id = ivn_tbl.ivd_id; INTO CURSOR vcalc1 thisform.grid2.RecordSource='vcalc1'
على فكرة ممكن اختصار الكود لكن انا عملته بهذا الشكل حتى يكون بشكل اسهل للفهم
خذ الرابط التالي راح يساعدك بلغة الاس كيو ال
VFPman كتب:طيب عدل المسميات بالمخطط وارفعه مرة اخرى
مشكور كل الشكر على مساعدتك السخية
العفو يا عزيزي
واذا واجهتك صعوبات لا تخجل اسأل ونحن بالخدمة
وقد تحتاج بعض المعلومات لذلك راجع منتداي المتواضع ايضا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…