• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

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

a7med7m

اعضاء جدد
  • عدد المشاركات

    5
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن a7med7m

  • الرتبة
    عضو جديد

طرق الإتصال

  • ICQ 0
  1. انشاء برنامج مبيعات ومخازن

    السلام عليكم  فين المشكله  اولا : الجداول المطلوبة 1-نوع الصنف(الكود -التصنيف) 2-الشركات المنتجة(الكود - الاسم ) 3-الاصناف (كود الصنف-اسم الصنف-كود التصنيف-كود الشركة المنتجة-عدد الوحدات-متوسط سعر الشراء الحالي) سوال مهم سعر البيع ثابت ويتم علية الخصم  في هذه الحالة يتم اضافة سعر البيع في جدول الاصناف ام متغير للعميل يتم انشاء جدول اسعار العملاء(كود العميل-كود الصنف-سعر البيع) 4-الموردين(الكود- الاسم) 5-العملاء(الكود- الاسم) هل مطلوب طلب شراء ثم فاتورة شراء ام تسجيل فاتورة شراء مباشرة  
  2. طلب مشروع ادارة صيدليه بالاوراكل

    اية المطلوب بالضبط انا ممكن اساعد وله قصدك المشروع بالكامل  
  3. شكرا جدا تم الحل
  4. السلام عليكم اريد المساعده استخدم vb.net 2010   عند استخدامي  الكود  الموجود تظهر رسالة الخطأ التالية فهل من حل الرسالة   System.Runtime.InteropServices.COMException was unhandled  ErrorCode=-2147319784  Message=Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))  Source=Microsoft.Office.Interop.Excel  StackTrace:       at Microsoft.Office.Interop.Excel.Workbooks.Add(Object Template)       at WindowsApplication1.Form1.Button3_Click(Object sender, EventArgs e) in c:\users\ahmed-hassan\documents\visual studio 2010\Projects\WindowsApplication1\WindowsApplication1\Form1.vb:line 143       at System.Windows.Forms.Control.OnClick(EventArgs e)       at System.Windows.Forms.Button.OnClick(EventArgs e)       at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)       at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)       at System.Windows.Forms.Control.WndProc(Message& m)       at System.Windows.Forms.ButtonBase.WndProc(Message& m)       at System.Windows.Forms.Button.WndProc(Message& m)       at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)       at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)       at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)       at System.Windows.Forms.Application.Run(ApplicationContext context)       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)       at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81       at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)       at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)       at System.Threading.ThreadHelper.ThreadStart()  InnerException:      الكود    Dim rowsTotal, colsTotal As Short         Dim I, j, iC As Short         System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor         Dim xlApp As New Excel.Application         Try             Dim excelBook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Add             Dim excelWorksheet As Microsoft.Office.Interop.Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)             xlApp.Visible = True             rowsTotal = DataGridView1.RowCount - 1             colsTotal = DataGridView1.Columns.Count - 1             Dim currCol As Integer = 1             With excelWorksheet                 .Cells.Select()                 .Cells.Delete()                 For iC = 0 To colsTotal                     If DataGridView1.Columns(iC).Visible = True Then                         .Cells(1, currCol).Value = DataGridView1.Columns(iC).HeaderText                         currCol = currCol + 1                     End If                 Next                 For I = 0 To rowsTotal                     currCol = 1                     For j = 0 To colsTotal                         If DataGridView1.Columns(j).Visible = True Then                             .Cells(I + 2, currCol).value = DataGridView1.Rows(I).Cells(j).FormattedValue                             currCol = currCol + 1                         End If                     Next j                 Next I                 .Rows("1:1").Font.FontStyle = "Bold"                 .Rows("1:1").Font.Size = 10                 .Cells.Columns.AutoFit()                 .Cells.Select()                 .Cells.EntireColumn.AutoFit()                 .Cells(1, 1).Select()             End With         Catch ex As Exception             MsgBox("Export Excel Error " & ex.Message)         Finally             System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default             xlApp = Nothing         End Try