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

برنامج المخازن (برنامج جاهز)


m.hindawi

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

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

السلام عليكم

على فكرة ملف التعديل المرفق في المشاركة التي سبقت هذه فيه خطأ بسيط لذلك قمت بحذفه وادرجت ملف اخر هنا في هذه المشاركة

لمن اراد التعديل

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

بالنسبة لملاحظات الاخ ابو ايمن

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

update.rar

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

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

ساحاول ان اشرح كيفية عمل البرنامج بالنسبة للطباعة

اولا سابدا بفواتير البيع وارتجاع المبيعات وعروض الاسعار حيث انها كلها تستخدم نفس النموذج وهو نموذج مطبوع جاهز من نسختين او اكثر السبب في ذلك انها مستندات للتداول الخاجي بالاضافة الى انها مستندات داخلية تهم الحسابات في المؤسسة وبالتالي يجب ان تكون على نموذج مطبوع لو طبعت اي من المستندات على ورقة بيضاء سيظهر الشكل التالي

>

لاحظ ان الطباعة تبدأ من ثلث الورقة الثاني

ولكن البرنامج مصمم للطباعة كما قلت عى نماذج جاهزة كالشكل التالي

>

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

مقاس الورق المستخدم هو letter

بالمليمتر عرض الورقة 2150 ملم وطول الورقة 2790 ملم

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

اذا لم تكن الصورة ظاهرة اضغط على رابط الصورة لمشاهدتها لا اعرف لماذا المنتدى لم يعد يقبل صور

بالنسبة لمشاركة الاخ eldefry

راجع الموضوع من اوله هناك بعض المراجع التي يجب اضافتها اولا لكي يعمل البرنامج على جهازك

وشكرا

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

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

هل هذا يعني ان البرنامج لا يطبع الا على نماذج جاهزة للطباعة ؟؟

الا يوجد طريقة للاستفادة من النماذج الجاهزة في الاكسل نفسه ؟؟

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

أيمن أبوأنس

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

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

ثانيا المشتريات

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

تبدا ارقام سند استلام المشتريات بالرقم P1001 وارتجاع المشتريات بالرقم S1001

وهذا الشكل يبين سند استلام مشتريات

OrgN6A19210U65162.jpg

وسند ارتجاع مشتريات

واظن انه ليس بحاجة لان يحمل اسماء الاصناف ما دامت الارقام موجود ومطابقة لفاتورة الشراء

يتم طباعة سند الاستلام وارتجاع الستلام على ورق من النوع A4

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

وهو على الشكل التالي

OrgN7A19210U65162.jpg

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

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

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

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

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

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

لقد ظهرت لي رسالة الخطأ التالية عندما فتحت البرنامج

الرجاء المساعدة و لكم جزيل الشكر

زينة الطائي

Sub hide()

Sheets("data").Cells(16, 1) = 0

Dim cb As CommandBar

Dim comd() As String

With Application

.DisplayFormulaBar = False

.DisplayStatusBar = False

For Each cb In .CommandBars

If cb.Visible = True Then

Sheets("data").Cells(16, 1) = Sheets("data").Cells(16, 1) + 1

End If

Next

End With

'''''''''''''''''''''''''''''''''''

tt = Sheets("data").Cells(16, 1)

With Application

gg = 16

For Each cb In .CommandBars

If cb.Visible = True Then

Sheets("data").Cells(gg, 4) = cb.Name

gg = gg + 1

End If

Next

End With

'''''''''''''''''''''''''''''''''''

With Application

.DisplayFormulaBar = False

.DisplayStatusBar = False

For Each cb In .CommandBars

If cb.Visible = True Then

ReDim Preserve comd(Sheets("data").Cells(16, 1))

comd(UBound(comd)) = cb.Name

If cb.Name = "Worksheet Menu Bar" Then

cb.Enabled = False

Else

cb.Visible = False

End If

End If

Next cb

End With

End Sub

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

بارك الله بك اخي مصعب هنداوي على التوضيح :fff:

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

لقد ذكرت في مشاركة سابقة ان هنالك نسخة ثانية ( اصدار ثاني ) فهل يختلف عن هذه النسخة ؟ ومتى سوف تحمله على الموقع ؟

والله الموفق

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

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

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

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

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

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

اخي الكريم ايمن

الاصدار الثاني جاهز لدي ولكنني لا اريد الاستعجال في طرحه

الاصدار الاول به عيوب فنية كثيرة يمكن ان الكثير لم ينتبهوا اليها واهم هذه العيوب انه يفترض ان المشروع جديد اي انه يبدا من الصفر

لاحظ انه اذا كان لديك محل او مؤسسة فبالتاكيد انه سيكون هناك لديك عملاء وموردون واصناف وحركة كيف ستضيف هؤلاء الى البرنامج؟؟؟؟

ولا اقصد الاسماء وانما الارصدة والسداد والمدينونية على العملاء واستحقاق الموردين

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

وكذلك الامر بالنسبة للموردين

الاصدار الاثني اقوم بمراجعته حاليا

ولن اطرحه هنا الا بعد التاكد 100% من صلاحيته

وشكرا لكم

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

  • 8 months later...
بسم الله الرحمن الرحيم

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

هذه هي النسخة المعدلة من برنامج المخازن  ولقد قمت بتجارب كثيرة عليه  وانشا الله لا تحتوي على اية  خطأ  كما قمت بتعديل بسيط على القوائم واظهار واخفاء اشرطة الادوات ارجو ان تنال اعجابكم

طريقة تشغيل البرنامج

اولا فك االملف المضغوط باستخدام برنامج وين رار

ثم شغل الملف المسمى المخازن  اذا كانت بعض المراجع لديك غير معرفة سوف تظهر لك رسالة خطأ  اضغط على زر  debug      ستفتح لك قائمة هي قائمة  refrences    والتي من خلالها يتم اضافة المراجع

وهي على الشكل التالي

OrgN3A19018U65162.jpg

اولا قم بازالة جميع المراجع الموجود عندك في الجهاز

هناك بعض المراجع التي لايمكن ازالتها لانها قيد التشغيل

ثم اضف المراجع كما هي بالصورة المرفقة اعلاه

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

ملاحظة اذا لم تفتح شاشة ال refrences  تلقائيا  يمكن فتحها عن طرق التالي

اضغط alt +f11

يفتح مشروع فيجوال بيسك

ثم من القائمة  tools    اختر  refrences

ثم قم باضافة المراجع حسب الشرح

ملاحظة

بالنسبةللطباعة اذا لم يكن لديك طابعة مثبة على الجهاز قد تظهر رسالة خطأ

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

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

OrgN4A19018U65162.jpg

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

OrgN5A19018U65162.jpg

ارجو ان ينال البرنامج اعجابكم

واذا كان لديكم اية ملاحظات او استفسارات لا تترددو في طرحها هنا

<{POST_SNAPBACK}>
رابط هذا التعليق
شارك

أخي العزيز جزاك الله خيراً

عند استفسار بسيط . هل يمكن تحويل رقم إلى نص مثلا ( 1200) هل يمكن تحويله في حقل آخر إلى النص التالي ( ألف ومائتان درهم فقط لاغير ) مثلاً ، حتى يتسنى لي إنشاء سند قبض من خلال اكسل وتوجد به خانة للمبلغ بالحروف

وجزاكم الله خيراً

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

اخواني في المنتدى . السلام عليكم ورحمة الله وبركاته

ارجوا التكرم من أحد الأخوة كتابة صيغة تحويل الرقم إلى حروف

مثلاً (1200) اريد ان تظهر في خانة الحقل المخصص لكتابة المبلغ بالحروف كالتالي : ( الف ومائتان ) حتى يمكننى استخدامها فى سندات قبض وصرف مطبوعة

وجزاكم الله خيراً

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

  • 1 month later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information