نموذج فاتورة مبيعات عربي انجليزي مع ايصال

[ضاحي الغريب]

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

اخواني الأعزاء

طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي

 

لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد

حتي تخدم شريحة كبيرة من المستخدمين

مع حركات اخي الحبيب / شوقي ربيـع

الجديد في النموذج

فورم واحد ولكن يمكنك من خلاله

الاختيار بين لغة الفاتورة (عربي - انجليزي )

ولغة الايصال (عربي - انجليزي)

اختيار سهل للاصناف

اختيار طريقة السداد

بيان رصيد العميل

واترككم مع النموذج

أدعو الله سبحانه وتعالي ان يكون النموذج

فيه الفائدة لكم 

ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب

فاتورة مبيعات اوفيسنا_2.rar

[فراس البزاز]

عمل جميل واكثر من رائع

 

وفق الله.......................................................................

[saad abed]

اخى ضاحى الغريب المميز

بارك الله فيك

افكار ممتازة

السؤال هو فين فورم الايصال

هل من الممكن فصل  progsss bar لاستخدامه مع التقارير مع التحكم فى الزمن

الفاتورة رائعة بجد هنا المنتدى زاخر بالعباقرة

[ضاحي الغريب]

عمل جميل واكثر من رائع

 

وفق الله.......................................................................

اخي الحبيب/

بارك الله فيك وجزاك خيرا

والله ولي التوفيق

[ضاحي الغريب]

اخى ضاحى الغريب المميز

بارك الله فيك

افكار ممتازة

السؤال هو فين فورم الايصال

هل من الممكن فصل  progsss bar لاستخدامه مع التقارير مع التحكم فى الزمن

الفاتورة رائعة بجد هنا المنتدى زاخر بالعباقرة

أخي الحبيب الاستاذ / سعد عابد 

مرورك شرفني

بارك الله فيك وجزاك خيرا

بالنسبة لفورم الايصال سوف افصله لك في فورم لحاله وارسله لك

وبالنسبة(( progsss bar )) هي احدي حركات اخي الحبيب / شوقي ربيع (جزاه الله خيرا)

ويمكنك بالتحكم في الوقت كما تشاء وسوف ارسلك الملف مع فورم الايصال ان شاء الله 

[رجب جاويش]

أخى الحبيب / ضاحى الغريب

ملف فى غاية الروعة والابداع

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

[saad abed]

اخى ضاحى الغريب

اخلاقك كاعمالك عالية جدا

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

اخوك

سعد عابد

[ضاحي الغريب]

أخى الحبيب / ضاحى الغريب

ملف فى غاية الروعة والابداع

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

اخي الحبيب صاحب الروائع الاستاذ/ رجب جاويش

مرورك شرفني وزين الموضوع

بارك الله فيك وجزاك الله كل خير

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

بارك الله لك في علمك ورزقك وعملك واولادك ومتعك ببرهم

امين يارب العالمين

تقبل تحياتي

[ضاحي الغريب]

اخى ضاحى الغريب

اخلاقك كاعمالك عالية جدا

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

اخوك

سعد عابد

اخي الحبيب الاستاذ / سعد عابد

بارك الله فيك وجزاك خيرا

تعلمنا منكم العطاء قبل العلم وانعم الله علينا بكم وصحبتكم الصالحة  والاخوة الخالصة لوجه الله

وهذا اقل شيء نستطيع ان نقدمه مقابل الكثير الذي اخذناه من هذا الصرح المبارك

تقبل تحياتي

[أم عبد الله]

أستاذنا الفاضل / ضاحي الغريب

 

ملف رائع بجد . جزاك الله خيراً وجعل الله أعمالك في ميزان حسناتك.

تم تعديل مايو 27, 2013 بواسطه أم عبد الله

[ضاحي الغريب]

أستاذنا الفاضل / ضاحي الغريب

 

ملف رائع بجد . جزاك الله خيراً وجعل الله أعمالك في ميزان حسناتك.

أختنا الكريمة الأستاذة / أم عبدالله

بارك الله لكِ وجزاكٍ خيرا

وجعل اعمالنا في موازين حسناتنا

ووفقنا الله واياكِ للخير

تقبلٍ تحياتي

[ابوميار]

الله يبارك فيكم   

ليس الخـلائـقُ كلـُهـم أكـفـــــــاءُ * لايستوي الجهّال والعـــلـمــــــاءُ

لايستـوي نبـعٌ تـرقرقٍٍَ مـائُــــــهُ * يروي الأنامَ وصخرة صـمــــــّاءُ

لايستــوي جنـّاتُ فيـهـا كـلـــمــا * تهوى النفوس إليه والصحــراءُ

دومـاً يموت الجاهلـون بجهلهــم * والعالـمـون بعلمـهـم أحيـــــــــاءُ

فـالعالـمون العامـلـون بعلمـهـــم * بـاقـون مـا بقيت هنـاك سـمـــــاءُ

لـله طـوعا أوقـفـوا أبدانـهـــــــم * ولِـنـشـر ديـن الله هـم أُمنـــــــــاءُ

فهُمُ المصابيح التي نُبصر بهــــا * إن داهـمـتـنـا لـيلـة ظلـمــــــــــاءُ

وهــم الغيـاث لـنـا بـكـل مُـلِـمّــةٍ * إذ لـلأئِـمـة هُـم لـهـم وكــــــــــلاءُ

إن لـم تكـونـوا منـهـمُ والــوهُــمُ * ولهـم أجـيـبـوا أيُـها العقـــــــــلاءُ

فـكـم استفاد الناس مـن أنـوارهم * عـلما كمـا استغنـى1 بهـم فقـــراءُ

بـل يؤثـرون النـاس في حاجاتِهم * وكـأنّ خـلـق الله لـهـم أبنـــــــــاءُ

كم جـاد مـنهـم للـفـقـير بقـرصــه * وطـوى وقـد سَغُـبَـت لـه أحشـاءُ

أسفي على وطني العزيز وقد خلا * من مرجعٍ يُرفع إليه الحكم والإفتاءُ

هــــلاّ تـعــود إليـــــهِ أيـّــامٌ خلت * فــي ظلِّـها نـهـجُ الـهُـدى1 وضّـاءُ

أين الملـوك مضوا ويمضي عزهم * فــي أثـرهـم عجَلاً كــذا الأمـــراء

فـلـك التـحـيـة يــا أميــر مـحـمـد * تـُهـدي إلـيـك رجـالـهـا ونســــــاءُ

هـذا ثـمـار الـعـلم والعـمـل الــذي * يـُرضـي الإلــه فـإنّ فـيـه نمــــــاءُ

والفـوز كل الفـوز يوم الحشـر إذ * يأتـي وجـنّـاتٌ إلـيـه جـــــــــــــزاءُ

إنـي لأعـجـز أن أعـدّ مـناقبـــــا * للعالمين العاملين ما لها إحصـــاءُ

فـتقبّـلـوا منّي القلـيـل وشأنكـــم * أسمى وأيـن الِشـعرُ والإنشـــــاءُ

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

[أبو سجده]

بسم الله الرحمن الرحيم

وبه نستعين

أخى الحبيب / ابوعمرو

بارك الله فيكم وجزاكم الله خيرا

بكل المقاييس عمل بسم الله ماشاء الله

جعل الله هذا العمل فى ميزان حسناتكم

رزقنا الله واياكم صالح الاعمال

ماذا عن لغة التفقيط باللغة الانجليزية

وجزاكم الله تعالى خيرا

[ضاحي الغريب]

 

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

أخي الحبيب // أبوميار

بارك الله فيك وجزاك خيرا

 

غير اعدادات الشاشة عندك الي 1280*800

هتلاقي الفورم مضبوط 

وان كنت محتاج تصغير سوف اقوم بالتعديل لتقليص حجم الفورم

تقبل تحياتي

[ضاحي الغريب]

بسم الله الرحمن الرحيم

وبه نستعين

أخى الحبيب / ابوعمرو

بارك الله فيكم وجزاكم الله خيرا

بكل المقاييس عمل بسم الله ماشاء الله

جعل الله هذا العمل فى ميزان حسناتكم

رزقنا الله واياكم صالح الاعمال

ماذا عن لغة التفقيط باللغة الانجليزية

وجزاكم الله تعالى خيرا

أخي الحبيب / ابوسلمي الغالي الاستاذ / سعيد بيرم 

بارك الله فيك وجزاك خيرا

مروك دائما يشرفني

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

وسوف اشرحها بالصور ان شاء الله

تقبل تحياتي

[ضاحي الغريب]

اخواني الافاضل

بناء علي اكثر من رسالة من اخواني بشرح النموذج مع انه بسيط

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

 

[فراس البزاز]

عمل رائع ...جميل جدااااااااااا------------------اتمنى اضافة مشاهدة الصفحة قبل الطباعة --------------

و

 

هل ممكن كيفية ترحيل كل(( أيتم ))وملحقاته الى حقل المخصص له (كودات هذا الايعاز)

 

مع التحية

تم تعديل مايو 28, 2013 بواسطه firasbazaz

[الجزيرة]

أخي ضاحي

 

ماهي الطريقة لتغيير شعار ATM لإضع بدلاً منه شعار الشبكة السعودية في فورم الايصال ؟

 

ولك الشكر

[ضاحي الغريب]

أخي ضاحي

 

ماهي الطريقة لتغيير شعار ATM لإضع بدلاً منه شعار الشبكة السعودية في فورم الايصال ؟

 

ولك الشكر

اخي الحبيب / ابوعبدالله

لتغيير الشعار اتبع كما بالصورة التالية

 

 

وهذا شعار الشبكة السعودية

 

 

 

التطبيق بالمرفقات

[الجزيرة]

أخي الحبيب / ضاحي

 

هذه الخطوات أعرفها :)

 

ولكن عند فتح الفورم من الفجول بيزك تظهر لي الفاتورة ولا يظهر لي الايصال !!

 

وشكراً لتعاونك

[احمد غانم]

الأخ الكريم ضاحي

الله يبارك جهودك الكبيره من خلال هذا الصرح الكبير

تم تعديل مايو 28, 2013 بواسطه أحمــــد غانـــم

[فراس البزاز]

عمل رائع ...جميل جدااااااااااا------------------اتمنى اضافة مشاهدة الصفحة قبل الطباعة --------------

و

 

هل ممكن كيفية ترحيل كل(( أيتم ))وملحقاته الى حقل المخصص له (كودات هذا الايعاز)

 

مع التحية

؟؟

[ضاحي الغريب]

 

عمل رائع ...جميل جدااااااااااا------------------اتمنى اضافة مشاهدة الصفحة قبل الطباعة --------------

و

 

هل ممكن كيفية ترحيل كل(( أيتم ))وملحقاته الى حقل المخصص له (كودات هذا الايعاز)

 

مع التحية

؟؟

 

معلش برجاء التوضيح مافهمت عليك

[فراس البزاز]

 

 

 

 

هل ممكن كيفية ترحيل كل(( أيتم ))وملحقاته الى حقل المخصص له (كودات هذا الايعاز)

 

مع التحية

؟؟

 

معلش برجاء التوضيح مافهمت عليك

تحية طيبة اخي الكريم

ممكن فقط الترحيل كل صنف في مكانة بالجدول ...اي المبلغ ينتقل تلقائي الى مكانة في الجدول المخصص ماهي الطريقة.(الكود المستخدم للترحيل)......وعند التحويل على الايصال ..هل توجد زر الخروج ؟؟

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

تم تعديل مايو 28, 2013 بواسطه firasbazaz

[ضاحي الغريب]

 

 

 

 

 

هل ممكن كيفية ترحيل كل(( أيتم ))وملحقاته الى حقل المخصص له (كودات هذا الايعاز)

 

مع التحية

؟؟

 

معلش برجاء التوضيح مافهمت عليك

تحية طيبة اخي الكريم

ممكن فقط الترحيل كل صنف في مكانة بالجدول ...اي المبلغ ينتقل تلقائي الى مكانة في الجدول المخصص ماهي الطريقة.(الكود المستخدم للترحيل)......وعند التحويل على الايصال ..هل توجد زر الخروج ؟؟

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

 

أخي الكريم

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

عسي يكون هو المقصود بطلبك

Private Sub CommandButton1_Click()
' شيت الادخال رقم 1
Set Sh1 = sheet1
' شرط اذا كان رقم الفاتورة فارغ لايقم بالترحيل
If InvNo_A = "" Then
MsgBox "!يجب إدخال رقم الفاتورة اولا ً", vbExclamation, "إختيار خاطئ"
  Exit Sub
End If
' شرط اذا كانت الكمية رقم ا فارغة لايقم بالترحيل
If Me.C1 = "" Or Me.QuA1 = "" Then
MsgBox "أكمل بيانات الفاتورة أولا": Exit Sub
End If
' عدد الصفوف في ورقة الادخال لبداية الادخال
ff = 4
    Do Until Sh1.Cells(ff, "a").Value = ""
        ff = ff + 1
    Loop
    ' التسلسل
 Sh1.Cells(ff, 1).Value = SN_Ar.Text
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' التاريخ
 Sh1.Cells(ff, 2).Value = Date_A.Text
 ' رقم الفاتورة
 Sh1.Cells(ff, 3).Value = InvNo_A.Text
 'بيانات العميل
 Sh1.Cells(ff, 4).Value = Cus_A.Text
 Sh1.Cells(ff, 5).Value = Addr_A.Text
  Sh1.Cells(ff, 6).Value = City_A.Text
 Sh1.Cells(ff, 7).Value = Tel_A.Text
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' رقم العميل
Sh1.Cells(ff, 8).Value = CusNo_A.Text
' الرصيد
Sh1.Cells(ff, 9).Value = Balnce_A.Text
Me.PAY1.Text = ComboBox12.Value
' طريقة السداد
Sh1.Cells(ff, 10).Value = PAY1.Text
Sh1.Cells(ff, 11).Value = Ac_a.Text
Sh1.Cells(ff, 12).Value = PatDateA.Text
Sh1.Cells(ff, 13).Value = TermA.Text
' بيانات الفاتورة بالترتيب
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' كود الصنف
 Sh1.Cells(ff, 18).Value = C1.Text
 Sh1.Cells(ff, 23).Value = C2.Text
 Sh1.Cells(ff, 28).Value = C3.Text
 Sh1.Cells(ff, 33).Value = C4.Text
 Sh1.Cells(ff, 38).Value = C5.Text
 Sh1.Cells(ff, 43).Value = C6.Text
 Sh1.Cells(ff, 48).Value = C7.Text
 Sh1.Cells(ff, 53).Value = C8.Text
 Sh1.Cells(ff, 58).Value = C9.Text
 Sh1.Cells(ff, 63).Value = C10.Text
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' الكمية
 Sh1.Cells(ff, 19).Value = QuA1.Text
 Sh1.Cells(ff, 24).Value = QuA2.Text
 Sh1.Cells(ff, 29).Value = QuA3.Text
 Sh1.Cells(ff, 34).Value = QuA4.Text
 Sh1.Cells(ff, 39).Value = QuA5.Text
 Sh1.Cells(ff, 44).Value = QuA6.Text
 Sh1.Cells(ff, 49).Value = QuA7.Text
 Sh1.Cells(ff, 54).Value = QuA8.Text
 Sh1.Cells(ff, 59).Value = QuA9.Text
 Sh1.Cells(ff, 64).Value = QuA10.Text
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''البيان
   Sh1.Cells(ff, 20).Value = DesA1.Text
 Sh1.Cells(ff, 25).Value = DesA2.Text
 Sh1.Cells(ff, 30).Value = DesA3.Text
 Sh1.Cells(ff, 35).Value = DesA4.Text
  Sh1.Cells(ff, 40).Value = DesA5.Text
 Sh1.Cells(ff, 45).Value = DesA6.Text
 Sh1.Cells(ff, 50).Value = DesA7.Text
 Sh1.Cells(ff, 55).Value = DesA8.Text
 Sh1.Cells(ff, 60).Value = DesA9.Text
 Sh1.Cells(ff, 65).Value = DesA10.Text
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''سعر الوحدة
 Sh1.Cells(ff, 21).Value = UnP1.Text
 Sh1.Cells(ff, 26).Value = UnP2.Text
 Sh1.Cells(ff, 31).Value = UnP3.Text
 Sh1.Cells(ff, 36).Value = UnP4.Text
 Sh1.Cells(ff, 41).Value = UnP5.Text
 Sh1.Cells(ff, 46).Value = UnP6.Text
 Sh1.Cells(ff, 51).Value = UnP7.Text
 Sh1.Cells(ff, 56).Value = UnP8.Text
 Sh1.Cells(ff, 61).Value = UnP9.Text
 Sh1.Cells(ff, 66).Value = UnP10.Text
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''الاجمالي
 Sh1.Cells(ff, 22).Value = Total1.Text
 Sh1.Cells(ff, 27).Value = Total2.Text
 Sh1.Cells(ff, 32).Value = Total3.Text
 Sh1.Cells(ff, 37).Value = Total4.Text
 Sh1.Cells(ff, 42).Value = Total5.Text
 Sh1.Cells(ff, 47).Value = Total6.Text
 Sh1.Cells(ff, 52).Value = Total7Text
 Sh1.Cells(ff, 57).Value = Total8.Text
 Sh1.Cells(ff, 62).Value = Total9.Text
 Sh1.Cells(ff, 67).Value = Total10.Text
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' المبلغ الاجمالي
 Sh1.Cells(ff, 14).Value = Total_A.Value
 ' الخصم بالنسبة
 Sh1.Cells(ff, 15).Value = Dis_A.Value
 ' الخصم بالمبلغ
 Sh1.Cells(ff, 16).Value = Dis_AmA.Value
 ' صافي الفاتورة
 Sh1.Cells(ff, 17).Value = NetAm_A.Value

 ' الاسطر التالية لمسح الفورم بعد الادخال
Date_A = ""
InvNo_A = ""

Cus_A = ""
Addr_A = ""
City_A = ""
Tel_A = ""

CusNo_A = ""
Balnce_A = ""
Ac_a = ""
PAY1 = ""
PatDateA = ""
TermA = ""

C1 = ""
C2 = ""
C3 = ""
C4 = ""
C5 = ""
C6 = ""
C8 = ""
C9 = ""
C10 = ""
QuA1 = ""
QuA2 = ""
QuA3 = ""
QuA4 = ""
QuA5 = ""
QuA6 = ""
QuA7 = ""
QuA8 = ""
QuA9 = ""
QuA10 = ""
DesA1 = ""
DesA2 = ""
DesA3 = ""
DesA4 = ""
DesA5 = ""
DesA6 = ""
DesA7 = ""
DesA8 = ""
DesA9 = ""
DesA10 = ""
UnP1 = ""
UnP2 = ""
UnP3 = ""
UnP4 = ""
UnP5 = ""
UnP6 = ""
UnP7 = ""
UnP8 = ""
UnP9 = ""
UnP10 = ""
Total1 = ""
Total2 = ""
Total3 = ""
Total4 = ""
Total5 = ""
Total6 = ""
Total7 = ""
Total8 = ""
Total9 = ""
Total10 = ""
Total_A = ""
Dis_A = ""
Dis_AmA = ""
NetAm_A = ""
' السطر التالي حتي يقف مؤشر الماوس علي اسم العميل
 Cus_A.SetFocus
 ' الترقيم التلقائي للتسلسل
 MM = 4
    Do Until Sh1.Cells(MM, "a").Text = ""
        MM = MM + 1
    Loop
Me.SN_Ar.Value = MM + 1 - 4
CheckBox4.Value = True
End Sub