First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,105 @@
+Imports Microsoft.VisualBasic
+Imports System
+Imports System.Linq
+Imports System.Text
+Imports DevExpress.ExpressApp
+Imports DevExpress.Data.Filtering
+Imports System.Collections.Generic
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Utils
+Imports DevExpress.ExpressApp.Layout
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.Templates
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.Model.NodeGenerators
+Imports DevExpress.XtraSpreadsheet
+Imports DevExpress.Persistent.BaseImpl
+Imports System.ComponentModel
+
+' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
+Partial Public Class InvoiceFactoringVC
+    Inherits ViewController
+    Private _SpreadsheetControl As SpreadsheetControl
+    Public Sub New()
+        InitializeComponent()
+        RegisterActions(components)
+        ' Target required Views (via the TargetXXX properties) and create their Actions.
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        ' Perform various tasks depending on the target View.
+        If View.Id = "InvoiceFactoringHeader_DetailView" Then
+            Dim _DetailView As DetailView = TryCast(View, DetailView)
+            Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML")
+            If _SpreadXML_ViewItem IsNot Nothing Then
+                AddHandler _SpreadXML_ViewItem.ControlCreated, AddressOf _SpreadXML_ViewItem_ControlCreated
+
+                AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SaveAction_Executing
+                AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf SaveAction_Executing
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnViewControlsCreated()
+        MyBase.OnViewControlsCreated()
+        ' Access and customize the target View control.
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        ' Unsubscribe from previously subscribed events and release other references and resources.
+        MyBase.OnDeactivated()
+    End Sub
+    Private Sub _SpreadXML_ViewItem_ControlCreated(sender As Object, e As EventArgs)
+        'Dim _InvoiceFactoringBank As InvoiceFactoringBank = TryCast(View.SelectedObjects(0), InvoiceFactoringBank)
+        'Dim _ItemControl As Object = TryCast(sender, ViewItem).Control
+        'Dim _SpreadUserControl As SpreadUserControl = TryCast(_ItemControl, SpreadUserControl)
+
+        '_SpreadsheetControl = TryCast(_ItemControl, SpreadUserControl).SpreadsheetControl1
+
+        'If _InvoiceFactoringBank IsNot Nothing Then
+        '    If _InvoiceFactoringBank.SpreadFile IsNot Nothing Then
+        '        Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _InvoiceFactoringBank.SpreadFile.FileName)
+        '        Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
+        '        _InvoiceFactoringBank.SpreadFile.SaveToStream(_Stream)
+        '        _Stream.Close()
+
+        '        Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
+        '        Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
+        '        Dim workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
+        '        _StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
+        '        workbook.LoadDocument(_StreamFile, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
+        '        _StreamFile.Close()
+        '    End If
+        'End If
+        'Dim _FactoringSpreadCustomFunction As New FactoringSpreadCustomFunction
+        'Dim _workbook As DevExpress.Spreadsheet.IWorkbook = _SpreadsheetControl.Document
+
+        'If (Not _workbook.CustomFunctions.Contains(_FactoringSpreadCustomFunction.Name)) Then
+        '    _workbook.CustomFunctions.Add(_FactoringSpreadCustomFunction)
+        'End If
+
+    End Sub
+    Private Sub SaveAction_Executing(sender As Object, e As CancelEventArgs)
+        'Dim _InvoiceFactoringBank As InvoiceFactoringBank = TryCast(View.SelectedObjects(0), InvoiceFactoringBank)
+        'Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        'If _SpreadsheetControl IsNot Nothing Then
+
+        '    Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "FACTORING.XML")
+        '    Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
+        '    _SpreadsheetControl.Document.SaveDocument(_Stream, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
+        '    _Stream.Close()
+
+        '    Dim _StreamFile = New System.IO.FileStream(_FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
+        '    Dim _StreamReader As New System.IO.StreamReader(_StreamFile)
+        '    _StreamFile.Seek(0, System.IO.SeekOrigin.Begin)
+
+        '    Dim _FileData As FileData
+        '    _FileData = _ocur.CreateObject(Of FileData)()
+
+        '    _FileData.LoadFromStream("FACTORING.XML", _StreamFile)
+
+        '    _InvoiceFactoringBank.SpreadFile = _FileData
+        'End If
+    End Sub
+End Class