اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

  • الردود 51
  • Created
  • اخر رد

Top Posters In This Topic

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

مع الأحترام

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

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

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

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

السلام عليكم

هل تقصد هكذا

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

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

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

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

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

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

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

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

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

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

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

اخوكم

ابوشرف

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

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

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

========

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

اخوكم

ابوشرف

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

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

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

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

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

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

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

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

اخوانك

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

عنهم / ابو شرف

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

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

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

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

اخوك ابو شرف

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

اخي ابو شرف

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

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

لذا

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

اخوك

ابو شرف

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

اخوك

ابو شرف

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

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

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

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

ولكن ظهرت حالة غريبة وهي عندما استدعي فاتورة للطباعة يتم ترحيلها وتأخذ تسلسل جديد ويظهر عدد اثنين اشارة سالبة بجانب الأرقام ( 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

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

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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



×
×
  • اضف...

Important Information