Hülye update

This commit is contained in:
2018-05-30 15:26:04 +02:00
parent 766436dc59
commit 66caf46b5f
4 changed files with 11 additions and 11 deletions
BIN
View File
Binary file not shown.
+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
@@ -1 +1 @@
4f11f7c67f24b2fed2dcfe231ad2efd13202f430
1e5b7435147f374db03d6e24e76d720b71d57fda