Hülye update

SISBusiness.Module.Win/Updater.vb

@@ -20,16 +20,16 @@ Public Class Updater
     Public Overrides Sub UpdateDatabaseAfterUpdateSchema()
         MyBase.UpdateDatabaseAfterUpdateSchema()
 
-        Dim _FileData As DevExpress.Persistent.BaseImpl.FileData = ObjectSpace.CreateObject(Of DevExpress.Persistent.BaseImpl.FileData)()
+        'Dim _FileData As DevExpress.Persistent.BaseImpl.FileData = ObjectSpace.CreateObject(Of DevExpress.Persistent.BaseImpl.FileData)()
-        Dim _XLSImports As XLSImports
+        'Dim _XLSImports As XLSImports
-        Dim _FileStream As FileStream = File.OpenRead("Excels\XLSImports.xlsx")
+        'Dim _FileStream As FileStream = File.OpenRead("Excels\XLSImports.xlsx")
-        _XLSImports = ObjectSpace.FindObject(Of XLSImports)(CriteriaOperator.Parse("Oid=Oid"), False)
+        '_XLSImports = ObjectSpace.FindObject(Of XLSImports)(CriteriaOperator.Parse("Oid=Oid"), False)
-        If _XLSImports Is Nothing Then
+        'If _XLSImports Is Nothing Then
-            _XLSImports = ObjectSpace.CreateObject(Of XLSImports)()
+        '    _XLSImports = ObjectSpace.CreateObject(Of XLSImports)()
-            _FileData.LoadFromStream("XLSImports.xlsx", _FileStream)
+        '    _FileData.LoadFromStream("XLSImports.xlsx", _FileStream)
-            _XLSImports.XLSFileName = _FileData
+        '    _XLSImports.XLSFileName = _FileData
-            _XLSImports.Save()
+        '    _XLSImports.Save()
-        End If
+        'End If
 
         Dim _ResetObjects As ResetObjects = ObjectSpace.FindObject(Of ResetObjects)(CriteriaOperator.Parse("Oid=Oid"), False)
         If _ResetObjects Is Nothing Then

SISService/obj/x86/Release/SISService.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-4f11f7c67f24b2fed2dcfe231ad2efd13202f430
+1e5b7435147f374db03d6e24e76d720b71d57fda