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

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

قام بنشر

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

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

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

Top Posters In This Topic

قام بنشر

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

مع الأحترام

قام بنشر (معدل)

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

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

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

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

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

قام بنشر (معدل)

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

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

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

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

اخوكم

ابوشرف

قام بنشر

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

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

========

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

اخوكم

ابوشرف

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

قام بنشر

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

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

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

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

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

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

اخوانك

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

عنهم / ابو شرف

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

فاتورة مخازن 10.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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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



×
×
  • اضف...

Important Information