إضافة نوع العملية الى فورم الفاتورة وترحيله الى الجدول

[أبو شرف]

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

مساعدة في فاتورة.rar

[عبدالله المجرب]

السلام عليكم

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

[أبو شرف]

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

مع الأحترام

[عبدالله المجرب]

السلام عليكم

اليك الملف بعد التعديل

مساعدة في فاتورة.rar

[أبو شرف]

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

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

تم تعديل أبريل 13, 2012 بواسطه أبو شرف

[أبو شرف]

اسسسسسسسسسسستاذنا العزيز قد اثقلنا عليك اليوم ولكن نحن في انتظار الرد الأخير وشكرا لك

[عبدالله المجرب]

السلام عليكم

هل تقصد هكذا

انه اذا تم اخيار العملية ترجيع تكون مسبوقة بعلامة سالب

فقد تم التعديل فاليك المرفق للتجربة

مساعدة في فاتورة.rar

[أبو شرف]

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

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

[أبو شرف]

استاذنا الغالي نحن بدأنا العمل ولكن ارجوك ان تعدل لنا شيء بسيط وهو ان تكون عملية تحتوي على اشارة سالبة للكمية مثل ما عملت الى المبلغ اي تظهر نتيجة الترحيل ( الكمية سالبة والمبلغ الأجالي سالب ) وتمنياتنا لك بدوام الخير والصحة ونحن ناسف للألحاح ولكن نحن نمون عليك يا استاذنا ففضلك كبير ..

تم تعديل أبريل 14, 2012 بواسطه أبو شرف

[أبو شرف]

:fff: :fff: :fff: :fff: :fff: مع الأحترام

[عبدالله المجرب]

تفضل المرفق

مساعدة في فاتورة.rar

[أبو شرف]

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

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

اخوكم

ابوشرف

[عبدالله المجرب]

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

العفو منك لم اقم الا بواجبي

========

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

اخوكم

ابوشرف

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

[أبو شرف]

استادنا العزيز الغالي عبد الله المجرب ادامك الله بصراحة نحن شغالين اليوم على التعديل ومشاء الله عليك استادنا كل الصعاب اليوم تهاوت بفضل الله وجهودكم ولكن مازلنا نأمل المساعدة منك

بصراحة واجهتنا مشكلة الشراء ايضا يجب ان تكون بالسالب اي ( الترجيع . والشراء ) يجب ان يكون بالسالب لانها البضاعة الداخلة للمخزن

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

وهل من مكانية تعديل على الفاتورة عند استدعائها

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

وفقك الله يا استاذنا العزيز

اخوانك

القسم المالي والتسويقي

عنهم / ابو شرف

فاتورة بالأستدعاء.rar

فاتورة مخازن 10.rar

[أبو شرف]

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

اخوك ابو شرف

تم تعديل أبريل 15, 2012 بواسطه أبو شرف

[أبو شرف]

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

[عبدالله المجرب]

اخي ابو شرف

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

وبعد محاولتي على ملفك وجدت اختلاف بين الملفين وكذلك اليوزر فورم

لذا

ما رايك لو حاولت التعديل على فورم الاستاذ خبور وليس على الفورم التي تم العمل عليها سابقاً

[عبدالله المجرب]

ما رايك لو حاولت التعديل على فورم الاستاذ خبور وليس على الفورم التي تم العمل عليها سابقاً

هذا ما توصلت اليه

مساعدة في فاتورة.rar

[أبو شرف]

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

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

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

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

1- اشارة السالب اريدها تشمل الترجيع وكذلك تشمل الشراء

2- هل يمكن التعديل عن طريق الفاتورة عند الأستدعاء

3- كود التفقيط لا يعمل اذا وصلت اجمالي المبلغ اكثر من الف دولار يقوم بقراءات وهمية

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

5- هل بالأمكان وضع محرك بحث بأسماء الأصناف عند الضرب على خانة التفاصيل لسهولة الأدراج او على الأكواد وحسب امكانياتك

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

اخوك

ابو شرف

مساعدة في فاتورة 1.rar

[أبو شرف]

استاذنا الغالي مع التقدير

[عبدالله المجرب]

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

اللهم صلي على سيدنا محمد وعلى آله وصحبه وسلم

العفو منك اخي ابو اشرف لم اقم الا بالواجب فقط

------------------------------------------------------------------------------------------

1- اشارة السالب اريدها تشمل الترجيع وكذلك تشمل الشراء

ان شاء الله سيتم عمل اللازم

=============

2- هل يمكن التعديل عن طريق الفاتورة عند الأستدعاء

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

==============

3- كود التفقيط لا يعمل اذا وصلت اجمالي المبلغ اكثر من الف دولار يقوم بقراءات وهمية

ان شاء الله تنحل

==============

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

هذه تحتاج الى تعديل في الكود وساحاول عملها وان شاء الله تضبط

================

هل بالأمكان وضع محرك بحث بأسماء الأصناف عند الضرب على خانة التفاصيل لسهولة الأدراج او على الأكواد وحسب امكانياتك

هناك فورم للاستاذ خبور يتعلق بالبحث ابحث عنه

------------------------------------------------------------------------------------------

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

اخوك

ابو شرف

كما قلت لك سابقاً لا داعي لان تشعر بأنك تثقل علينا فنحن في الخدمة قدر المستطاع

ما اريده هو عدم الاستعجال في انتظار الردود لان الوقت له دور وخصوصاً مع امتحانات الاولاد هذه الايام

[أبو شرف]

انشششششششششششششششاء الله بالنجاج والتوففيق يارب مع تقديري

[عبدالله المجرب]

السلام عليكم

اليك ما طلبت

مساعدة في فاتورة.rar

[أبو شرف]

اساتاذ عبد الله اشكرك جزيل الشكر

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

وتقبل تحياتي

[عبدالله المجرب]

السلام عليكم

استبدل كود الزر (CommandButton1)

بهذا

Private Sub CommandButton1_Click()

On Error Resume Next

Dim KH As Integer

Dim S As Long, R As Long

If TabStrip1.Value = 1 Then GoTo 2

KH_NO = Range("رقم_الفاتورة")(2)

If Combo_AMIL.Text = "" Or ComboBox21.Text = "" Then GoTo 1

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

KH = 0

M = 0

T = 0

For S = 1 To 20

  If Me.Controls.Item(KH).Text <> "" Then

   For R = 1 To 5

	 If Me.Controls.Item(KH + R - 1).Text <> "" Then

	   T = T + 1

	 End If

   Next

   M = M + 1

  End If

  KH = KH + 5

Next

If T / M <> 5 Then

1 MsgBox "لا تستطيع الترحيل لوجود أخطاء في الفاتورة", 524288, "تنبيه"

GoTo 3

End If

'

LastRow = Cells(Rows.Count, "B").End(xlUp).Row

KH = 0

For S = 1 To M

	Cells(LastRow + S, 2) = Date

	Cells(LastRow + S, 3) = KH_NO

	Cells(LastRow + S, 4) = Combo_AMIL.Text

	Cells(LastRow + S, 10) = ComboBox21.Text

Cells(LastRow + S, 5) = Me.Controls.Item(KH).Value

Cells(LastRow + S, 6) = Me.Controls.Item(KH + 1).Value

If ComboBox21.Text = "ترجيع" Or ComboBox21.Text = "شراء" Then

	 For R = 3 To 5

		 Cells(LastRow + S, R + 4) = "-" & Me.Controls.Item(KH + R - 1).Value

	 Next

		Else

		 For R = 3 To 5

		 Cells(LastRow + S, R + 4) = Me.Controls.Item(KH + R - 1).Value

	 Next

	End If

   KH = KH + 5

Next

If MsgBox(" تم الترحيل بنجاح" _

	 & Chr(13) & Chr(13) & "هل تريد طباعة الفاتورة ؟؟؟", vbYesNo + vbQuestion + vbMsgBoxRight, "تأكيد طباعة ") = vbYes Then

2	 KHBOOR = InputBox("فضلاً  أدخل  عدد نسخ الاوراق الذي تريدها  " & Chr(13) & Chr(13) & "الافتراضي نسخة واحدة", "عدد النسخ", "1")

	 KH_PRINT

End If

End

On Error GoTo 0

3 End Sub