عمل فاتورة بيع

برجاء وضع الموضوع

لاني مش عارف استفيد منه علي وضعه الحالي

شكرا

السلام عليكم ...

1. أنا جربت البرنامج و لم تظهر رسالة الخطأ المذكورة , ربما هناك شي آخر يسبب هذا الخطأ .
2. ما قمت به صحيح تماما , و لكن اجعل كود الطباعة كما يلي , مع إبقاء التعديلات التي قمت بها :

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
   
       	Dim HeightInInch As Double
       	HeightInInch = ((phieght * 0.24096) + 0.90921)
       	ReportViewer1.LocalReport.DataSources.Clear()
   
       	ReportViewer1.LocalReport.ReportPath = Application.StartupPath & "\Report1.rdlc"
   
       	ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", dt))
       	cls = New WindowsF.Class2()
       	cls.BillPrint(ReportViewer1.LocalReport, 3.14961, HeightInInch, "Bullzip PDF Printer")
       	cls.m_currentPageIndex = 0
       	cls.Dispose()
   
       	cls = New WindowsF.Class2()
       	cls.BillPrint(ReportViewer1.LocalReport, 3.14961, HeightInInch, "Bullzip PDF Printer")
       	cls.m_currentPageIndex = 0
       	cls.Dispose()
       	Me.ReportViewer1.RefreshReport()
   
   
   	End Sub

3. الأخ atefkhalf2004 : المثال موجود في المشاركات السابقة ..

استاذ houssam11350_11350

انا عملت كل اللي قولتي عليه .. بس برضو نفس المشكلة ..

انا بعت لحضرتك المشروع كله اللي عندي ..

عاوز من حضرتك .. لما تفتحه تضغط علي button1 والخاص بالطباعه ولما يطبع ..

اضغط علي button2 والخاص بعمل end للبرنامج ..

ولما تضغط علي الباتون التاني .. هيظهر الايرور ...

Bills.rar

السلام عليكم ...

1. كان يجب استخدام Close بدلا من End ختى يتم نفعيل الحدث Closing .
2. يمكن تعديل الكود كمايلي :

   	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       	ReportViewer1.LocalReport.ReleaseSandboxAppDomain()
       	End
   	End Sub

انا مش عارف اقولك ايه .. غير بارك الله فيك ..

مش عارف من غير حضرتك يا استاذ حسام كنت هعمل ..

جزاك الله كل خير ..

بس معلش حاجه اخيره علشان انا عارف انك كرهتني :)

انا لما بطبع فاتوره .. الطابعه بتفطع الفاتوره بعد اخر سطر انا عامله في التقرير ..

انا كنت عاوز يعمل هامش فاض صغير تحت التقرير ,, علشان يبأي شكل الفاتورة كويس ..

ازاي ممكن اعمل كدا .. وشكرا

السلام عليكم ..

بارك الله بك أخي .. و أهلا و سهلا بك ...

1. من قائمة Report ثم Report Properties يمكننا وضع الهامش السفلي من margins ثم نضع قيمة في Bottom مثل 1cm أو أكثر من ذلك .
2. إذا لم يعمل الخيار الأول , حاول عمل زيادة طول التقرير , بتكبيره من الأسفل بشكل عادي ..

الاستاذ الفاض كاتب الموضوع الاستاذ الفاضل المشرف

اولا : نزلنت الفاتورة وبها اخطاء رغم تعديل الفريم ورك الي 3.5 برجاء ارفاقها ب الاصدار 2008 فيجوال 2008

ثانيا : امنيتي وامنية الكثير

ارفاق الفاتورة كاملة من حيث التاريخ والمشتري العميل والاصناف واجمالي الفاتورة

اي الفورم كاملا

للعلم حتي الفورم لم يفتح وبه او اظهر اخطاء تفيد عم الفتح

برجاء ارفاق الفاتورة بالاصدار 2008

رجونا منكم ونتمني تحقيق وتلبية الطلب

ربنا وهب ناس علي التفكير والابتكار

ونتمني منها الكرم باافاق الفاتورة

شكرا

السلام عليكم ...

أخي ... atefkhalf2004

1. المثال يعمل على framework 3.5 , فقط قم بتحويل المشروع باستخدام المحول المرفق في المشاركة رقم 10.
2. ما هي رسالة الخطأ التي ظهرت ...؟؟؟

للاسف استاذ حسام الطريقة اللي حضرتك قولت عليها .. مانفعتش ..

وكمان سؤال تاني لو سمحت ..

هل كل ما بتكون الفاتورة أطول حجم الخط بيكون أصغر ..

لاني ملاحظ كدا في الفواتير اللي معاي ..

وسؤال كمان .. هو المتغير phieght في المثال اللي بتتهولي في أول المضووع كان لما بيتنشئ بياخد قيمة 1

وحضرتك قولت اني دا بسبب اول صف في الجدول واللي هو (اسم الصنف , الكمية , والسعر)

طيب انا هبعت لحضرتك تقرير انا مصممه وعاوز من حضرتك تقولي ادي للمتغير phieght قيمة أد ايه ..

Report7.rar

السلام عليكم ...

1. من الــ Report Properties تم وضع الــ Page Size , مع الــ Margins .
2. في كود الطباعة , تم وضع الــ PageWidth و الــ PageHeight مع الـــ Margins . (لاحظ الهامش السفلي صفر , هذا هو سبب أنه يقطع مباشرة) .
3. لا أعرف ما هي القيمة المطلوبة للـ phieght , لكن صاحب الكود يقول في التعليقات أنه كلما زادت قيمة المتحول HeightInInch كلما نقص طول الورقة !!!! (لا أعرف لماذا).
4. حسب هذا الرابط (هنا) يجب أن تتحقق العلاقة المذكورة في الرابط , حتى نحصل على نفس الحجم و نفس عدد الصفحات .
5. الموضوع بحاجة للبحث و نرجو من الأعضاء التفاعل .

موضوع Margins انا غيرت القيمة بتاعت MarginBottom في الكلاس من صفر الي 2 وماحصلش حاجه .. ولقيت الصفحة زي ماهي

وغيرت MarginBottom من خصائص الريبورت وبروضو مافيش تغيير ..

دي حاجه ...

اما موضوع phieght انا مخليه لما بيتنشيء بياخد قيمة 1 .. في كل التقارير عندي ..

والتقرير شغال كويس .. بس هي المشكلة اني التقرير لما بيطول .. بيضغط المسافات بين السطور .. لدرجه انه ممكن يدخل سطرين في بعض ..

وبكدا التقرير مش هيتقري ..

السلام عليكم ..

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

   HeightInInch = ((phieght) + 7.90921)

   ربما كان المفروض استخدام الــ cm بدلا من in ... في كود التصدير .

2. حاول وضع قيم بشكل يديوي للمتحول HeightInInch بما يتناسب مع حجم البيانات .
3. الكود يقوم بتصدير التقرير لصورة بترميز emf و عندما قمت بحفظ الضورة للملف , و فتح الملف بالرسام , وجدت أن الصورة طبيعية , أي غير مضغوطة ... فهل علينا تغيير حجم الورق في الطابعة ....

   Dim pkCustomSize1 As New System.Drawing.Printing.PaperSize("Custom Paper Size", WidthInInch, HeightInInch)
           	printDoc.PrinterSettings.DefaultPageSettings.PaperSize = pkCustomSize1

   , ايضا لم يعمل ...؟

4. اقترح فتح موضوع جديد تشرح فيه المشكلة بوضوح ... كي يتفاعل الأعضاء مع الموضوع ..

رغم استخدام الاداة اللى حضرتك اشرت اليها

ظهر هذا الخطأ

السلام عليكم ..

أخي atefkhalf2004 ..

1. قم بإضافة فورم جديد للمشروع و اسحب العنصر ReportViewer على الفورم الجديد (و ليس crystalReprtViewer) ....
2. افتح الــ references للمشروع , هل توجد إشارات صفراء ؟
3. إذا لم تجد الأداة ReportViewer في صندوق الأدوات , حاول تغيير الــ Framework للمشروع للإصدار 3 أو 2 ...

استاذ حسام

انا لما ضفت للمتغير phieght 7 انش كان بسبب اني لما بطبع الفاتوره بلاقي الفاتوره طويله أوووي ,,

وكل ما أزود القيمة الاقي الفاتوره تصغير ..

لغايه ما بقت الفاتوره حجمها مناسب ..

انا مش عارف العيب في ايه .. ومش عارف الحل ايه ..

السلام عليكم ..

1. لم استطيع حل المشكلة تماما , لكن دعنا ننظم بعض الأمور ..
2. كل 1 إنش (in) يساوي 2.54 سم (cm).
3. نحول مقاسات التقرير للــ cm , بنقرة يميينة في االتقرير بمكان فارغ , ثم Report Properties ثم نحدد حجم الورق بــ Centimeters و نضع كل الهوامش Margins للقيمة صفر .
4. نظهر المسطرة في التقرير من نقرة يمينية في مكان فارغ ثم View ثم Ruler .
5. نضع في كود التصدير هوامش 0.5 سم لكل الجهات .
6. نقوم بتصميم التقرير الذي نريده و نقيس بالمسطرة , المسافة فوق الجدول , و ترويسة الجدول و حجم العنصر الواحد (بعضها افتراضيا ثابت) مثلا :
   1. طول ترويسة الجدول مع المسافة البيضاء فوقها هي 1.5 سم .
   2. ارتفاع العنصر الواحد في الجدول هو 0.64851 سم .
   3. و لدينا هامش علوي و سفلي من التصدير 0.5 + 0.5 = 1
   4. يكون ارتفاع التقرير بالــ cm هو (عدد العناصر في الجدول * 0.64851) + 1.5 + 1
   5. عرض التقرير لا مشكلة فيه مثلا 10 cm .
   6. قمت بتعديل الكود ليقوم بتصدير التقرير إلى صورة واحدة فقط بلاحقة emf و يقوم بفتحها عند ضغط زر الطباعة للتأكد ان التصدير تم بشكل صحيح .
   7. النتائج جيدة من أجل حوالي 40 سطر في الجدول .
   8. مقاس ورقة فاتورة البيع (ركز على آخر مشاركة).
   9. المثال في المرفقات , جربه مع طابعة الفواتير و ليس مع طابعة عادية , بسبب مشاكل حجم الورق .
      
      Bills.rar

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

ولما خليت حدد الصفوف 64 ابتدت الفاتوره تصغير الحروف وتضغط المسافات

وفي حاجه انا لاحظتها .. اني لما خليت عدد الصفوف 64 لقيت اني طول الفاتوره اللي عدد صفوفها 64 تكاد تكون نفس طول الفاتوره اللي عدد صفوفها 50 بل بالعكس الفاتوره اللي عدد صفوفها 50 اكبر بنسبه صغيره ..

بس انا عاوز افهم حضرتك عملت ايه .. والارقام اللي حضرتك كاتبها وصلت ليها ازاي

وايه معني (طول ترويسة الجدول) ومعني (ارتفاع العنصر الواحد)

ياريت شرح بشيء من التفصيل شويه .. لو ماكنش عند حضرتك مانع ..ولو مافيهاش تعب

السلام عليكم ...

1. اقتباس

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

   الحمد لله .. جيد ..

2. اقتباس

   ولما خليت حدد الصفوف 64 ابتدت الفاتوره تصغير الحروف وتضغط المسافات

   صحيح أنا قلت أن النتائج مقبولة من أجل حوالي 40 سطر .

3. اقتباس

   وفي حاجه انا لاحظتها .. اني لما خليت عدد الصفوف 64 لقيت اني طول الفاتوره اللي عدد صفوفها 64 تكاد تكون نفس طول الفاتوره اللي عدد صفوفها 50 بل بالعكس الفاتوره اللي عدد صفوفها 50 اكبر بنسبه صغيره ..

   لا اعرف ما السبب , مع العلم أننا نقوم بزيادة الطول اعتمادا على عدد الأسطر ... سأبحث بالأمر ..

4. اقتباس

   بس انا عاوز افهم حضرتك عملت ايه

   عملت الخطوات المذكورة في المشاركة السابقة فقط .. يعني استخدام cm بدلا من in .. و حساب المسافت بشكل صحيح .

5. اقتباس

   والارقام اللي حضرتك كاتبها وصلت ليها ازاي

   أنا بعد أن أظهرت المسطرة Ruler و غيرت الوحدة للــ cm , أصبح بإمكاني معرفة طول أي شي عن طريق تحريك الماوس فيتحرك معها المؤشر على المسطرة .أما بالنسبة للرقم (0.64851 سم) فقد قمت بطباعة 100 سطر في الجدول و قمت بتصدير التقرير لصورة ثم قياس ارتفاع كل الصورة بواسطة برنامج خارجي مثل الرسام أو الفوتوشوب ثم قسمت الطول الكلي مقسوما على عدد أسطر الجدول و بهذا أكون قد حسبت أرتفاع السطر الواحد و لذلك ترى ارقام بعد الفاصلة .

6. اقتباس

   وايه معني (طول ترويسة الجدول) ومعني (ارتفاع العنصر الواحد)

   ترويسة الجدول يعني اول صف في الجدول واللي هو (اسم الصنف , الكمية , والسعر)أو يسمى Table Header و "ارتفاع العنصر الواحد" يعني ارتفاع السطر في الجدول الذي يحوي البيانات أي المسافة بين الخط المستقيم في أعلى السطر و الخط المستقيم في أسفل السطر .

7. اقتباس

   ياريت شرح بشيء من التفصيل شويه .. لو ماكنش عند حضرتك مانع ..ولو مافيهاش تعب

   أرجو أن أكون قد فصلت , و لو كان هناك شئ غير واضح فلا تترد بالسؤال عنه , لأنه سيكون مفيدا لباقي الأعضاء أيضا .

لا ربنا يخليك .. شرح جميل أوووي وانا فهمت كل اللي حضرتك كتبته ..

بس المشكلة زي ماهي .. ومش لاقين حل ..

استاذ حسام دي صورة للفاتورتين اللي انا طبعتهم ولحظ حضرتك الفرق ..

الاستاذ weswes88 Icon

انا طلبت من حضرتك اي برنامج اعمل به الفاتورة اعلي الفورم رقم الفاتورة واختار العميل والتاريخ ثم جدول الاصناف اختر كود الصنف واكتب الكمية ويظهر السعر والقيمة وفي نهاية الفاتورة اجمالي الفاتورة والخصم والضريبة ثم الطباعة

اتمني ارفاق ذلك فيجوال 2008 مع اكسس

اكيد سوف تكسب ثواب

ثواب كبير

طلب في صورة رجاء واتمني الاجابة بالارفاق للطلب

شكرا

السلام عليكم ...

1. نعم لاحظت الفرق ... حسب تحليلي للمشكلة , يبدو أن هناك حجم اعظمي افتراضي للورقة , يتم الطباعة فيه و عندما يكون حجم الشئ المراد طباعته أكبر من الحجم الأفتراضي الأعظمي للورق , يتم ضغط الشكل لكي يتناسب مع حجم الورق و هذا ما يفسر ان الأسطر تنضغط على بعضها ... و الله أعلم .
2. كحل مبدئي, سنقوم بتغيير حجم الورق ... حيث يتم تحديد حجم الورق بالإنش مضروبا بــ 100 و طالما أننا نتعامل بالـــ cm إذا نقسم الحجم بالــ cm على 2.54 و نضرب الناتج بــ 100 و بالتالي :

   Dim pkCustomSize As New System.Drawing.Printing.PaperSize("Custom Paper Size", (WidthInInCM / 2.54) * 100, (HeightInInCM / 2.54) * 100)

3. الكود بالمرفقات .. و هويعمل عندي بشكل جيد من اجل 500 سطر و لكن من أجل 600 يعود حجم الورق للإفتراضي و لا تظهر كل الأسطر , ربما سببه انني استخدم طابعة PDF Printer تقوم بالطباعة لملف PDF و بالتالي ربما لا يدعم أحجام ورق كبيرة و الله أعلم .. اتمنى أن يعمل معك ..

Bills.rar

استاذ atefkhalf2004

انا مش فاهم حضرتك عاوز مني ايه .. ياريت توضح اللي حضرتك عاوزه مني بالضبط ..

استاذ حسام .. التحليل اللي حضرتك قولتله انا توقعت كدا بالظبط علشان كدا انا نزلتلك الصورتين ...

اما بخصوص الحل اللي حضرتك قدمته انا جربته ومش بيطبع غير 44 سجل بس مهما غيرت قيمة التكست

بس ياريت تقولي معني الكود دا .. واشمعني ضربت فيمة العرض والارتفاع في 100

printDoc.DefaultPageSettings.PaperSize = pkCustomSize
        	printDoc.DefaultPageSettings.Margins.Top = 0
        	printDoc.DefaultPageSettings.Margins.Bottom = 0
        	printDoc.DefaultPageSettings.Margins.Left = 0
        	printDoc.DefaultPageSettings.Margins.Right = 0

وياريت كمان تقولي هو ازاي حضرتك مدي للهوامش قيمة صفر

مع اني في بداية الكلاس بتديلة قيمة 0.5cm

اقتباس

اما بخصوص الحل اللي حضرتك قدمته انا جربته ومش بيطبع غير 44 سجل بس مهما غيرت قيمة التكست

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

اقتباس

وياريت كمان تقولي هو ازاي حضرتك مدي للهوامش قيمة صفر مع اني في بداية الكلاس بتديلة قيمة 0.5cm

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