اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • Like 13
رابط هذا التعليق
شارك

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

بارك الله فيك

افكار ممتازة

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

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

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

رابط هذا التعليق
شارك

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

 

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

اخي الحبيب/

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

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

رابط هذا التعليق
شارك

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

بارك الله فيك

افكار ممتازة

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

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

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

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

مرورك شرفني

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

اخوك

سعد عابد

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

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

اخوك

سعد عابد

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

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

 

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

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

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

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

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

تقبلٍ تحياتي

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

وبه نستعين

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

 

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

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

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

 

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

وبه نستعين

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

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

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

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

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

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

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

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

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

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

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

001gt.png

 

002qn.png

003jm.png

004yz.png

رابط هذا التعليق
شارك

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

و

 

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

 

مع التحية

تم تعديل بواسطه firasbazaz
رابط هذا التعليق
شارك

أخي ضاحي

 

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

 

ولك الشكر

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

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

 

20130528015821.png

 

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

 

 

1111111zec.jpg

 

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

رابط هذا التعليق
شارك

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

و

 

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

 

مع التحية

؟؟

رابط هذا التعليق
شارك

 

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

و

 

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

 

مع التحية

؟؟

 

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

رابط هذا التعليق
شارك

 

 

 

 

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

 

مع التحية

؟؟

 

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

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

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

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

تم تعديل بواسطه 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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information