اذهب الي المحتوي

منتديات محاسبة دوت نت

  1. قسم أستقبال مناقشات و مقالات الاعضاء الجديدة

    1. 3,745
      مشاركات
  2. قسم المحاسبة و التدقيق و المعايير المهنية الدولية و الضرائب

    1. 29,028
      مشاركات
    2. 4,013
      مشاركات
    3. 1,636
      مشاركات
  3. العلوم الاقتصادية و الإدارية و الكمية للمحاسبين

    1. 2,118
      مشاركات
    2. 1,186
      مشاركات
    3. 1,019
      مشاركات
  4. قسم علوم تكنولوجيا المعلومات و الحلول المالية لإدارة موارد المؤسسات

    1. 16,674
      مشاركات
    2. 378
      مشاركات
  5. قسم التدريب و التعليم المهني المستمر

    1. 2,430
      مشاركات
    2. 22
      مشاركات
  6. قسم أساتذة و طلاب الجامعات

    1. 2,790
      مشاركات
  7. قسم الاهتمامات المهنية الأخرى للمحاسبين و المراجعين

    1. 1,262
      مشاركات
    2. 135,911
      مشاركات
    3. 288
      مشاركات
    4. 7,441
      مشاركات
  8. قسم الاقتراحات و الشكاوى و إدارة الموقع

    1. 925
      مشاركات
  • احصائيات الاقسام

    153,947
    اجمالي الموضوعات
    213,197
    اجمالي المشاركات
  • احصائيات الاعضاء

    218,342
    الاعضاء
    1,421
    اقصي تواجد
    Mayar Arabia
    احدث الاعضاء
    Mayar Arabia
    تاريخ الانضمام
  • المتواجدين الان   2 اعضاء, 0 مجهول, 42 زوار (القائمه الكامله)

  • مشاركات

    • مشروع قيمتة 2160000 ريال لمدة سنة بدءا من 22/2/2017 دفع العميل دفعة مقدمة 324000 ريال على ان يسدد المتبقى من قيمة المشروع بفواتير شهرية يستحق مبلغها فى نهاية كل شهر فكيف تتم المعالجة المحاسبية للمشروع مع وجود ضريبة القيمة المضافة ؟
       
    • اود الاستفسار عن موضوع الضرائب في دولة الامارات حيث اني مسجل جديد وخاضع للفترة 1 سبتمبر حتى 30 نوفمبر لكن تم اصدار شهادة التسجيل في 25.11.2018 اي ان مبيعاتي خضعت لمدة 5 ايام فقط للضريبة , سؤالي هو هل اقدم فقط فترة 5 ايام او 3 شهور  ولكم جزيل الشكر
    • الموقع اكثر من رائع وموسوعة علمية فيه شغل جميل سواء فندقي او مطاعم 
    • مجهود رائع 
      تقدم للامام لديك فكرة جيدة عن قواعد البيانات بامكانك استغلالها في تطوير برنامجك  وجعله يحظى بمزايا اكثر من خلال الانتقال لقواعد بيانات حقيقية مثل الاكسيس والاس كيو ال سيرفر  تحياتي وتمنياتي لك بمزيد من التقدم ..
    • السلام عليكم
      يوجد حل مالي لمحاسبة وادارة المطاعم
      اسم البرنامج العلا سوفت 
      حسابات عامة ومخازن وتكاليف
      البرنامج يدعم الشاشات اللمس 
      البرنامج سهل الاستخدام 
      يقوم البرنامج بعمل فاتورة في احجام مختلفة
      في البرنامج حماية كبيرة يمنع حذف اوردر او الغاء فاتورة بعد تحصيلها ويمنع حذفها بعد ذلك
      البرنامج يمنع اعادة  طباعة اوردر تم اصداره
      البرنامج يقوم بحساب تكلفة الوجبة بناءا على الريسبيهات المدخلة مسبقاً
      البرنامج سهل الاستخدام يقوم بطباعة 3 نسخ اوردر للمطبخ وفاتورة تسليم وفاتورة حساب
      البرنامج يقوم بتخصيم الكميات مباشرة من مخزن المواد الخام خضروات وفواكه ولحوم وتخصيم  من المنتج التام بناءاً على امر التشغيل بالبرنامج مزايا كثيرة لا يتسع الوقت  للافصاح عنها العلا سوفت 01096620227
    • شكرا لحضرتك جزاك الله خير 
    • السلام عليكم اساتذتى الكرام -عذرا لرفعى المشاركة هنا فلا أعرف ما هو سبب عدم تمكنى من رفع مشاركة مستقلة بارك الله فيكم جميعا تعديل كود البحث فى عدة صتعديل كود البحث فى عدة صفحات من خلال الكمبوبوكس داخل الفورمفحات من خلا ل الكمبوبوكس داخل الفورمارجو التكرم على مساعدتى فى تعديل كود الفورم الموجود بالملف لكى يتم البحث فى كل الصفحات من خلال الكمبوبوكس لكى يساعدنى ذلك فى اضافة وتعديل وحذف البيانات الى جميع الصفحات وذلك من خلال اليوزرفورم ' Dim r, i As Integer Private Sub ComboBox1_Change() On Error Resume Next Dim ws As Worksheet Set ws = Sheets("ÇáÈíÇäÇÊ") Me.TextBox13.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), ws.Range("A2:G1000"), 2, 0) Me.TextBox14.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), ws.Range("A2:G1000"), 3, 0) Me.TextBox15.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), ws.Range("A2:G1000"), 4, 0) Me.TextBox16.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), ws.Range("A2:G1000"), 5, 0) Me.TextBox17.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), ws.Range("A2:G1000"), 6, 0) Me.TextBox18.Value = WorksheetFunction.VLookup(Val(Me.ComboBox1.Value), ws.Range("A2:G1000"), 7, 0) End Sub Private Sub CommandButton1_Click() For j = 1 To 6 Cells(r, j) = Controls("TextBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() If Me.ComboBox1.Value = "" Then MsgBox "ÚÝæÇ íÌÈ ÇÎÊÇÑ ÇáÔíÊ ÇáãÑÍá Çáíå ÇáÈíÇäÇÊ" Exit Sub End If Worksheets(Me.ComboBox1.Value).Activate Dim lastrow lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row lastrow = lastrow + 1 Cells(lastrow, 1) = Me.TextBox1.Value Cells(lastrow, 2) = Me.TextBox2.Value Cells(lastrow, 3) = Me.TextBox3.Value Cells(lastrow, 4) = Me.TextBox4.Value Cells(lastrow, 5) = Me.TextBox5.Value Cells(lastrow, 6) = Me.TextBox6.Value Cells(lastrow, 7) = Me.TextBox7.Value Cells(lastrow, 8) = Me.TextBox8.Value Cells(lastrow, 9) = Me.TextBox9.Value Cells(lastrow, 10) = Me.TextBox10.Value Cells(lastrow, 11) = Me.TextBox11.Value Cells(lastrow, 12) = Me.TextBox12.Value TextBox1.Value = Application.WorksheetFunction.Max(ActiveSheet.Range("A15:A44")) + 1 TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("ÓíÊã ÇáÍÐÝ åá ÃäÊ ãÊÃßÏ¿", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 6 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 6).Delete Shift:=xlUp MsgBox "ÊãÊ ÚãáíÉ ÇáÍÐÝ ÈäÌÇÍ" For y = 1 To 6 'Controls("Textbox" & y).Text = "" Next y ListBox1.Clear UserForm_Activate TextBox7 = "" End If End Sub Private Sub CommandButton4_Click() Me.PrintForm End Sub Private Sub CommandButton5_Click() End End Sub Private Sub CommandButton6_Click() TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox16.Text = "" TextBox17.Text = "" TextBox18.Text = "" End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 6 Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j) Next j r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub ListBox2_Click() TextBox1.Value = ListBox2.Column(0) TextBox2.Value = ListBox2.Column(1) TextBox3.Value = ListBox2.Column(2) TextBox4.Value = ListBox2.Column(3) TextBox5.Value = ListBox2.Column(4) TextBox6.Value = ListBox2.Column(5) TextBox7.Value = ListBox2.Column(6) TextBox8.Value = ListBox2.Column(7) 'TextBox9.Value = ListBox2.Column(8) 'TextBox10.Value = ListBox2.Column(9) End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 1 To 13 Controls("Textbox" & i).Text = "" Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A15:A44")) + 1 TextBox2.SetFocus End Sub Private Sub TextBox19_Change() If TextBox19.Value = "" Then ListBox2.Clear: Exit Sub Dim X As Worksheet Set X = ActiveSheet ListBox2.Clear k = 0 ss = X.Cells(Rows.Count, 13).End(xlUp).Row For Each c In X.Range("M15:M44" & ss) M = InStr(c, TextBox19) If M > 0 Then ListBox2.AddItem ListBox2.List(k, 0) = X.Cells(c.Row, 1).Value ListBox2.List(k, 1) = X.Cells(c.Row, 2).Value ListBox2.List(k, 2) = X.Cells(c.Row, 3).Value ListBox2.List(k, 3) = X.Cells(c.Row, 4).Value ListBox2.List(k, 4) = X.Cells(c.Row, 5).Value ListBox2.List(k, 5) = X.Cells(c.Row, 6).Value ListBox2.List(k, 6) = X.Cells(c.Row, 7).Value ListBox2.List(k, 7) = X.Cells(c.Row, 8).Value ListBox2.List(k, 8) = X.Cells(c.Row, 9).Value k = k + 1 End If Next c End Sub Private Sub TextBox20_Change() End Sub Private Sub TextBox7_Change() ListBox1.Clear For i = 1 To 6 Controls("TextBox" & i).Text = "" Next i If TextBox7 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each c In Range("B2:B" & ss) If c Like TextBox7.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(c.Row, 2).Value ListBox1.List(k, 1) = c.Row k = k + 1 End If Next c End Sub Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TextBox7.Value = "" ListBox1.Clear End Sub Private Sub TextBox8_Change() ListBox2.Clear For i = 1 To 6 Controls("TextBox" & i).Text = "" Next i If TextBox8 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row k = 0 For Each c In Range("E2:E" & ss) If c Like TextBox8.Value & "*" Then ListBox2.AddItem ListBox2.List(k, 0) = Cells(c.Row, 5).Value ListBox2.List(k, 1) = c.Row k = k + 1 End If Next c End Sub Private Sub UserForm_Activate() TextBox7.SetFocus For i = 2 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ListBox1.List(i - 2, 0) = Cells(i, 15).Value ListBox1.List(i - 2, 1) = i Next i For i = 1 To 12 Controls("TextBox" & i).Text = "" Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A15:A44")) + 1 TextBox2.SetFocus End Sub   برنامج_الشركة_2018-2019_الجديد.xlsm
    • نعم .... يتم السداد فالقانون ينص على ان استحاق الفات  يتم عند توصيل البضاعه او  التحصيل ايهما اقرب ...
    • السلام عليكم ورحمة الله  برجاء الافادة حيث انني شركة تصاميم وجميع الفواتير عندي آجل ولم تسدد عن الفترة الضريبية المستحقة  هل اقوم بدفع الضريبة عن هذه الفواتير وحتي وان لم تسدد 
    • معلومات هامه جزاكم الله خيرا
    • شكر جزيلا يوجد خطاء فى قاعدة البيانات و اسم المستخدم و كمة المرور  
    • الاجابة دى مقدمة من فريق عمل برنامج محاسبة مقاولات بابل  البرنامج المتخصص فى محاسبة وادارة شركات المقاولات الدليل المحاسبي يجب ان يكون مرن ومتناسق مع طبيعة نشاط شركتك لا يوجد دليل ثابت ولكن توجد قواعد عامة تحكمنا عند اعداد الدليل المحاسبي للشركة الدليل المحاسبي يختلف من شركة الى اخري وفقا للمنظور الذي تراه فى عرض  بياناتها سواء كانت تقارير او قوائم مالية الشكل العام لدليل شركات المقاولات   الأصول المتداولة 1 -  المستوي الاول              اصول – التزامات – مصاريف – ايرادات  وهذا التقسيم هو الشائع فى تقسيم الدليل كمستوي اول  2  - المستوي الثانى                 تقسيم الاصول  الى اصول متداولة #  اصول طويلة الاجل # ارصـــــدة مدينة اخري # مراقبة المخازن 3 - المستوي الثالث               تقسيم الاصول المتداولة الى نقدية بالصندوق # نقدية بالبنوك # عهد موظفين# سلف موظفين # العملاء   ... الخ 4 - المستوي الرابع                تقسيم النقدية بالبنــــوك   على سبيل المثال الى بنوك الاهلي # بنوك الراجحي # بنوك اخري ... الخ   5 - المستوي الخامس           تقسيم النقدية بالبنوك الاخري الى  بنك الاستثمار الوطني # البنك العربي الافريقي  # البنك  الفرنسي نبذه عامة عن كل حساب بالدليل 1 - نقدية بالصندوق      حساب مختص بالسيولة المتوفرة فى صناديق الشركة ويمكن ان تنشئ عدة صناديق وفقا لاحتياجات العمل  يمكن ان تنشئ  صندوق رئيسي للشركة  #  صندوق المشتريات #  صندوق للنثريات 2 - عهـد الموظفين حساب مختص بالعهد الخاصة بالعمل الواجب تسويتها من خلال مستندات مقدمة من امين العهدة ويضاف  اسماء الموظفين الذين يتعاملون من خلال عهدة فقط وليس كل موظفين الشركة للمزيد ....
×