ivanszabo/SISBusiness
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hülye update

Browse Source
This commit is contained in:
ivanszabo
2018-05-30 15:26:04 +02:00
parent 766436dc59
commit 66caf46b5f
4 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SISBusiness.Module.Win/Updater.vb
+10 -10
View File
@@ -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 _XLSImports As XLSImports
Dim _FileStream As FileStream = File.OpenRead("Excels\XLSImports.xlsx")
_XLSImports = ObjectSpace.FindObject(Of XLSImports)(CriteriaOperator.Parse("Oid=Oid"), False)
If _XLSImports Is Nothing Then
_XLSImports = ObjectSpace.CreateObject(Of XLSImports)()
_FileData.LoadFromStream("XLSImports.xlsx", _FileStream)
_XLSImports.XLSFileName = _FileData
_XLSImports.Save()
End If
'Dim _FileData As DevExpress.Persistent.BaseImpl.FileData = ObjectSpace.CreateObject(Of DevExpress.Persistent.BaseImpl.FileData)()
'Dim _XLSImports As XLSImports
'Dim _FileStream As FileStream = File.OpenRead("Excels\XLSImports.xlsx")
'_XLSImports = ObjectSpace.FindObject(Of XLSImports)(CriteriaOperator.Parse("Oid=Oid"), False)
'If _XLSImports Is Nothing Then
' _XLSImports = ObjectSpace.CreateObject(Of XLSImports)()
' _FileData.LoadFromStream("XLSImports.xlsx", _FileStream)
' _XLSImports.XLSFileName = _FileData
' _XLSImports.Save()
'End If
Dim _ResetObjects As ResetObjects = ObjectSpace.FindObject(Of ResetObjects)(CriteriaOperator.Parse("Oid=Oid"), False)
If _ResetObjects Is Nothing Then