First create solution

This commit is contained in:
2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
File diff suppressed because it is too large Load Diff
@@ -0,0 +1,62 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
Public Class DBCColumns
Inherits BaseObject
Private _DBCTables As DBCTables
Private _ColumnName As String
Private _ColumnType As String
Private _ColumnLength As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
Property DBCTables As DBCTables
Get
Return _DBCTables
End Get
Set(value As DBCTables)
SetPropertyValue("DBCTables", _DBCTables, value)
End Set
End Property
<Size(255)> _
Property ColumnName As String
Get
Return _ColumnName
End Get
Set(value As String)
SetPropertyValue("ColumnName", _ColumnName, value)
End Set
End Property
<Size(255)> _
Property ColumnType As String
Get
Return _ColumnType
End Get
Set(value As String)
SetPropertyValue("ColumnType", _ColumnType, value)
End Set
End Property
Property ColumnLength As String
Get
Return _ColumnLength
End Get
Set(value As String)
SetPropertyValue("ColumnLength", _ColumnLength, value)
End Set
End Property
End Class
@@ -0,0 +1,67 @@
Partial Class DBCExportVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aDBCGetTables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aDBCCopyData = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aDBCGetTables
'
Me.aDBCGetTables.Caption = "aDBCGet Tables"
Me.aDBCGetTables.ConfirmationMessage = Nothing
Me.aDBCGetTables.Id = "aDBCGetTables"
Me.aDBCGetTables.ImageName = Nothing
Me.aDBCGetTables.Shortcut = Nothing
Me.aDBCGetTables.Tag = Nothing
Me.aDBCGetTables.TargetObjectsCriteria = Nothing
Me.aDBCGetTables.TargetObjectType = GetType(Nuvolar.[Module].Win.DBCLogin)
Me.aDBCGetTables.TargetViewId = Nothing
Me.aDBCGetTables.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aDBCGetTables.ToolTip = Nothing
Me.aDBCGetTables.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aDBCCopyData
'
Me.aDBCCopyData.Caption = "aDBCCopy Data"
Me.aDBCCopyData.ConfirmationMessage = Nothing
Me.aDBCCopyData.Id = "aDBCCopyData"
Me.aDBCCopyData.ImageName = Nothing
Me.aDBCCopyData.Shortcut = Nothing
Me.aDBCCopyData.Tag = Nothing
Me.aDBCCopyData.TargetObjectsCriteria = Nothing
Me.aDBCCopyData.TargetObjectType = GetType(Nuvolar.[Module].Win.DBCLogin)
Me.aDBCCopyData.TargetViewId = Nothing
Me.aDBCCopyData.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aDBCCopyData.ToolTip = Nothing
Me.aDBCCopyData.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
End Sub
Friend WithEvents aDBCGetTables As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aDBCCopyData As DevExpress.ExpressApp.Actions.SimpleAction
End Class
@@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aDBCGetTables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="aDBCCopyData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>152, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
File diff suppressed because it is too large Load Diff
@@ -0,0 +1,168 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
Public Class DBCLogin
Inherits BaseObject
Private _ShortName As String
Private _SQLType_From As eSQLType
Private _SQLServer_From As String
Private _SQLUser_From As String
Private _SQLPassword_From As String
Private _SQLDatabase_From As String
Private _SQLType_To As eSQLType
Private _SQLServer_To As String
Private _SQLUser_To As String
Private _SQLPassword_To As String
Private _SQLDatabase_To As String
Private _UserCreated As User
Private _ObjectCreated As Date
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
Property SQLType_From As eSQLType
Get
Return _SQLType_From
End Get
Set(value As eSQLType)
SetPropertyValue("SQLType_From", _SQLType_From, value)
End Set
End Property
Property SQLServer_From As String
Get
Return _SQLServer_From
End Get
Set(value As String)
SetPropertyValue("SQLServer_From", _SQLServer_From, value)
End Set
End Property
Property SQLUser_From As String
Get
Return _SQLUser_From
End Get
Set(value As String)
SetPropertyValue("SQLUser_From", _SQLUser_From, value)
End Set
End Property
Property SQLPassword_From As String
Get
Return _SQLPassword_From
End Get
Set(value As String)
SetPropertyValue("SQLPassword_From", _SQLPassword_From, value)
End Set
End Property
Property SQLDatabase_From As String
Get
Return _SQLDatabase_From
End Get
Set(value As String)
SetPropertyValue("SQLDatabase_From", _SQLDatabase_From, value)
End Set
End Property
Property SQLType_To As eSQLType
Get
Return _SQLType_To
End Get
Set(value As eSQLType)
SetPropertyValue("SQLType_To", _SQLType_To, value)
End Set
End Property
Property SQLServer_To As String
Get
Return _SQLServer_To
End Get
Set(value As String)
SetPropertyValue("SQLServer_To", _SQLServer_To, value)
End Set
End Property
Property SQLUser_To As String
Get
Return _SQLUser_To
End Get
Set(value As String)
SetPropertyValue("SQLUser_To", _SQLUser_To, value)
End Set
End Property
Property SQLPassword_To As String
Get
Return _SQLPassword_To
End Get
Set(value As String)
SetPropertyValue("SQLPassword_To", _SQLPassword_To, value)
End Set
End Property
Property SQLDatabase_To As String
Get
Return _SQLDatabase_To
End Get
Set(value As String)
SetPropertyValue("SQLDatabase_To", _SQLDatabase_To, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
'//XPCollections
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property DBCTables_From As XPCollection(Of DBCTables)
Get
Return New XPCollection(Of DBCTables)(Session, CriteriaOperator.Parse("DBCLogin=? and DBCType=0", Me))
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property DBCTables_To As XPCollection(Of DBCTables)
Get
Return New XPCollection(Of DBCTables)(Session, CriteriaOperator.Parse("DBCLogin=? and DBCType=1", Me))
End Get
End Property
End Class
@@ -0,0 +1,87 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
Public Class DBCTables
Inherits BaseObject
Private _DBCType As Long
Private _DBCLogin As DBCLogin
Private _TableName As String
Private _CreateScript As String
Private _DropScript As String
Private _DBCTableCount As Long
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
Property DBCType As Long
Get
Return _DBCType
End Get
Set(value As Long)
SetPropertyValue("DBCType", _DBCType, value)
End Set
End Property
Property DBCLogin As DBCLogin
Get
Return _DBCLogin
End Get
Set(value As DBCLogin)
SetPropertyValue("DBCLogin", _DBCLogin, value)
End Set
End Property
<Size(255)> _
Property TableName As String
Get
Return _TableName
End Get
Set(value As String)
SetPropertyValue("TableName", _TableName, value)
End Set
End Property
<Size(-1)> _
Property CreateScript As String
Get
Return _CreateScript
End Get
Set(value As String)
SetPropertyValue("CreateScript", _CreateScript, value)
End Set
End Property
<Size(-1)> _
Property DropScript As String
Get
Return _DropScript
End Get
Set(value As String)
SetPropertyValue("DropScript", _DropScript, value)
End Set
End Property
Property DBCTableCount As Long
Get
Return _DBCTableCount
End Get
Set(value As Long)
SetPropertyValue("DBCTableCount", _DBCTableCount, value)
End Set
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property DBCColumns As XPCollection(Of DBCColumns)
Get
Return New XPCollection(Of DBCColumns)(Session, CriteriaOperator.Parse("DBCTables=?", Me))
End Get
End Property
End Class
@@ -0,0 +1,82 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ImportsForm
Inherits DevExpress.XtraEditors.XtraForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components)
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ProgressBarControl1
'
Me.ProgressBarControl1.EditValue = "0"
Me.ProgressBarControl1.Location = New System.Drawing.Point(13, 28)
Me.ProgressBarControl1.Name = "ProgressBarControl1"
Me.ProgressBarControl1.Size = New System.Drawing.Size(382, 24)
Me.ProgressBarControl1.StyleController = Me.StyleController1
Me.ProgressBarControl1.TabIndex = 0
Me.ProgressBarControl1.UseWaitCursor = True
'
'LabelControl1
'
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.LabelControl1.Location = New System.Drawing.Point(13, 9)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(85, 13)
Me.LabelControl1.TabIndex = 1
Me.LabelControl1.Text = "Adatgenerálás ..."
'
'LabelControl2
'
Me.LabelControl2.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.LabelControl2.Location = New System.Drawing.Point(13, 58)
Me.LabelControl2.Name = "LabelControl2"
Me.LabelControl2.Size = New System.Drawing.Size(95, 13)
Me.LabelControl2.TabIndex = 2
Me.LabelControl2.Text = "Adatgenerálás ..."
Me.LabelControl2.Visible = False
'
'ImportsForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(407, 83)
Me.Controls.Add(Me.LabelControl2)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.ProgressBarControl1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "ImportsForm"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.TopMost = True
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
End Class
@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StyleController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
@@ -0,0 +1,12 @@
Public Class ImportsForm
WriteOnly Property SetMessage(_Message As String)
Set(value)
Me.LabelControl2.Text = value
Me.LabelControl2.Visible = True
End Set
End Property
Private Sub ImportsForm_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.LabelControl2.Visible = False
End Sub
End Class
@@ -0,0 +1,94 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class ImportsForm2
Inherits DevExpress.XtraEditors.XtraForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.ProgressBarControl1 = New DevExpress.XtraEditors.ProgressBarControl()
Me.StyleController1 = New DevExpress.XtraEditors.StyleController(Me.components)
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.ProgressBarControl2 = New DevExpress.XtraEditors.ProgressBarControl()
Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ProgressBarControl2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ProgressBarControl1
'
Me.ProgressBarControl1.EditValue = "0"
Me.ProgressBarControl1.Location = New System.Drawing.Point(13, 28)
Me.ProgressBarControl1.Name = "ProgressBarControl1"
Me.ProgressBarControl1.Size = New System.Drawing.Size(373, 24)
Me.ProgressBarControl1.StyleController = Me.StyleController1
Me.ProgressBarControl1.TabIndex = 0
Me.ProgressBarControl1.UseWaitCursor = True
'
'LabelControl1
'
Me.LabelControl1.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.LabelControl1.Location = New System.Drawing.Point(13, 9)
Me.LabelControl1.Name = "LabelControl1"
Me.LabelControl1.Size = New System.Drawing.Size(85, 13)
Me.LabelControl1.TabIndex = 1
Me.LabelControl1.Text = "Adatgenerálás ..."
'
'ProgressBarControl2
'
Me.ProgressBarControl2.Location = New System.Drawing.Point(13, 77)
Me.ProgressBarControl2.Name = "ProgressBarControl2"
Me.ProgressBarControl2.Size = New System.Drawing.Size(373, 24)
Me.ProgressBarControl2.StyleController = Me.StyleController1
Me.ProgressBarControl2.TabIndex = 3
'
'LabelControl2
'
Me.LabelControl2.Appearance.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.LabelControl2.Location = New System.Drawing.Point(13, 58)
Me.LabelControl2.Name = "LabelControl2"
Me.LabelControl2.Size = New System.Drawing.Size(85, 13)
Me.LabelControl2.TabIndex = 4
Me.LabelControl2.Text = "Adatgenerálás ..."
'
'ImportsForm2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(398, 125)
Me.Controls.Add(Me.LabelControl2)
Me.Controls.Add(Me.ProgressBarControl2)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.ProgressBarControl1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.Name = "ImportsForm2"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.TopMost = True
CType(Me.ProgressBarControl1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.StyleController1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ProgressBarControl2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ProgressBarControl1 As DevExpress.XtraEditors.ProgressBarControl
Friend WithEvents StyleController1 As DevExpress.XtraEditors.StyleController
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents ProgressBarControl2 As DevExpress.XtraEditors.ProgressBarControl
Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
End Class
@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StyleController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>
@@ -0,0 +1,13 @@
Public Class ImportsForm2
WriteOnly Property SetMessage(_Message As String)
Set(value)
Me.LabelControl2.Text = value
Me.LabelControl2.Visible = True
End Set
End Property
Private Sub ImportsForm_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.LabelControl2.Visible = True
End Sub
End Class
@@ -0,0 +1,108 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem("SQL Imports")> _
Public Class SQLImports
Inherits BaseObject
Private _SQLServer As String
Private _SQLUser As String
Private _SQLPassword As String
Private _CustomersFrom As CustomersFrom
Private _DateFrom As Date
Private _DateTo As Date
Private _Override As Boolean = False
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property SQLServer As String
Get
Return _SQLServer
End Get
Set(ByVal value As String)
SetPropertyValue("SQLServer", _SQLServer, value)
End Set
End Property
Property SQLUser As String
Get
Return _SQLUser
End Get
Set(ByVal value As String)
SetPropertyValue("SQLUser", _SQLUser, value)
End Set
End Property
Property SQLPassword As String
Get
Return _SQLPassword
End Get
Set(ByVal value As String)
SetPropertyValue("SQLPassword", _SQLPassword, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
Property DateFrom As Date
Get
Return _DateFrom
End Get
Set(value As Date)
SetPropertyValue("DateFrom", _DateFrom, value)
End Set
End Property
Property DateTo As Date
Get
Return _DateTo
End Get
Set(value As Date)
SetPropertyValue("DateTo", _DateTo, value)
End Set
End Property
Property Override As Boolean
Get
Return _Override
End Get
Set(value As Boolean)
SetPropertyValue("Override", _Override, value)
End Set
End Property
<VisibleInListView(False)> _
ReadOnly Property BankInformation As XPCollection(Of BankInformation)
Get
Return New XPCollection(Of BankInformation)(Session, CriteriaOperator.Parse("LiquidAssests.CustomerFrom=?", Me.CustomersFrom))
End Get
End Property
<VisibleInListView(False)> _
ReadOnly Property LiquidAssets_Cassa As XPCollection(Of LiquidAssets)
Get
Return New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("LiquidAssetsType in (0,2,4)"))
End Get
End Property
<VisibleInListView(False)> _
ReadOnly Property LiquidAssets_Compensation As XPCollection(Of LiquidAssets)
Get
Return New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("LiquidAssetsType=3"))
End Get
End Property
<VisibleInListView(False)> _
ReadOnly Property LiquidAssets_SpecTran As XPCollection(Of LiquidAssets)
Get
Return New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("LiquidAssetsType=5"))
End Get
End Property
End Class
@@ -0,0 +1,528 @@
Partial Class SQLImportsVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Import_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Country = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Controlling = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Procucts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Storage = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_ChartsOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_CustomersGLParameters = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_LiquidAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_VAT = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_GL = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_ProcuctsGroups = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Invoices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_UniqueObject = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Invoices_Business = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_CostHolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_CostPlace = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.JobNumberObject = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_GLBank = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_GCassa = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_SpecTran = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Contacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_GCompensation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_HRPerson = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_OrderOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Circulation = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Operations = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Offers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aScriptUpdate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_OrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_Pricing = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'Import_Customers
'
Me.Import_Customers.Caption = "Import_Customers"
Me.Import_Customers.Category = "Import_Customers"
Me.Import_Customers.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Customers.Id = "Import_Customers"
Me.Import_Customers.ImageName = Nothing
Me.Import_Customers.Shortcut = Nothing
Me.Import_Customers.Tag = Nothing
Me.Import_Customers.TargetObjectsCriteria = Nothing
Me.Import_Customers.TargetViewId = "SQLImports_DetailView"
Me.Import_Customers.ToolTip = Nothing
Me.Import_Customers.TypeOfView = Nothing
'
'Import_Country
'
Me.Import_Country.Caption = "Import_Country"
Me.Import_Country.Category = "Import_Country"
Me.Import_Country.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Country.Id = "Import_Country"
Me.Import_Country.ImageName = Nothing
Me.Import_Country.Shortcut = Nothing
Me.Import_Country.Tag = Nothing
Me.Import_Country.TargetObjectsCriteria = Nothing
Me.Import_Country.TargetViewId = "SQLImports_DetailView"
Me.Import_Country.ToolTip = Nothing
Me.Import_Country.TypeOfView = Nothing
'
'Import_Controlling
'
Me.Import_Controlling.Caption = "Import_Controlling"
Me.Import_Controlling.Category = "Import_Controlling"
Me.Import_Controlling.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Controlling.Id = "Import_Controlling"
Me.Import_Controlling.ImageName = Nothing
Me.Import_Controlling.Shortcut = Nothing
Me.Import_Controlling.Tag = Nothing
Me.Import_Controlling.TargetObjectsCriteria = Nothing
Me.Import_Controlling.TargetViewId = "SQLImports_DetailView"
Me.Import_Controlling.ToolTip = Nothing
Me.Import_Controlling.TypeOfView = Nothing
'
'Import_Procucts
'
Me.Import_Procucts.Caption = "Import_Procucts"
Me.Import_Procucts.Category = "Import_Procucts"
Me.Import_Procucts.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Procucts.Id = "Import_Procucts"
Me.Import_Procucts.ImageName = Nothing
Me.Import_Procucts.Shortcut = Nothing
Me.Import_Procucts.Tag = Nothing
Me.Import_Procucts.TargetObjectsCriteria = Nothing
Me.Import_Procucts.TargetViewId = "SQLImports_DetailView"
Me.Import_Procucts.ToolTip = Nothing
Me.Import_Procucts.TypeOfView = Nothing
'
'Import_Storage
'
Me.Import_Storage.Caption = "Import_Storage"
Me.Import_Storage.Category = "Import_Storage"
Me.Import_Storage.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Storage.Id = "Import_Storage"
Me.Import_Storage.ImageName = Nothing
Me.Import_Storage.Shortcut = Nothing
Me.Import_Storage.Tag = Nothing
Me.Import_Storage.TargetObjectsCriteria = Nothing
Me.Import_Storage.TargetViewId = "SQLImports_DetailView"
Me.Import_Storage.ToolTip = Nothing
Me.Import_Storage.TypeOfView = Nothing
'
'Import_ChartsOfAccounts
'
Me.Import_ChartsOfAccounts.Caption = "Import_ChartsOfAccounts"
Me.Import_ChartsOfAccounts.Category = "Import_ChartsOfAccounts"
Me.Import_ChartsOfAccounts.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_ChartsOfAccounts.Id = "Import_ChartsOfAccounts"
Me.Import_ChartsOfAccounts.ImageName = Nothing
Me.Import_ChartsOfAccounts.Shortcut = Nothing
Me.Import_ChartsOfAccounts.Tag = Nothing
Me.Import_ChartsOfAccounts.TargetObjectsCriteria = Nothing
Me.Import_ChartsOfAccounts.TargetViewId = "SQLImports_DetailView"
Me.Import_ChartsOfAccounts.ToolTip = Nothing
Me.Import_ChartsOfAccounts.TypeOfView = Nothing
'
'Import_CustomersGLParameters
'
Me.Import_CustomersGLParameters.Caption = "Import_CustomersGLParameters"
Me.Import_CustomersGLParameters.Category = "Import_CustomersGLParameters"
Me.Import_CustomersGLParameters.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_CustomersGLParameters.Id = "Import_CustomersGLParameters"
Me.Import_CustomersGLParameters.ImageName = Nothing
Me.Import_CustomersGLParameters.Shortcut = Nothing
Me.Import_CustomersGLParameters.Tag = Nothing
Me.Import_CustomersGLParameters.TargetObjectsCriteria = Nothing
Me.Import_CustomersGLParameters.TargetViewId = "SQLImports_DetailView"
Me.Import_CustomersGLParameters.ToolTip = Nothing
Me.Import_CustomersGLParameters.TypeOfView = Nothing
'
'Import_LiquidAssets
'
Me.Import_LiquidAssets.Caption = "Import_LiquidAssets"
Me.Import_LiquidAssets.Category = "Import_LiquidAssets"
Me.Import_LiquidAssets.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_LiquidAssets.Id = "Import_LiquidAssets"
Me.Import_LiquidAssets.ImageName = Nothing
Me.Import_LiquidAssets.Shortcut = Nothing
Me.Import_LiquidAssets.Tag = Nothing
Me.Import_LiquidAssets.TargetObjectsCriteria = Nothing
Me.Import_LiquidAssets.TargetViewId = "SQLImports_DetailView"
Me.Import_LiquidAssets.ToolTip = Nothing
Me.Import_LiquidAssets.TypeOfView = Nothing
'
'Import_VAT
'
Me.Import_VAT.Caption = "Import_VAT"
Me.Import_VAT.Category = "Import_VAT"
Me.Import_VAT.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_VAT.Id = "Import_VAT"
Me.Import_VAT.ImageName = Nothing
Me.Import_VAT.Shortcut = Nothing
Me.Import_VAT.Tag = Nothing
Me.Import_VAT.TargetObjectsCriteria = Nothing
Me.Import_VAT.TargetViewId = "SQLImports_DetailView"
Me.Import_VAT.ToolTip = Nothing
Me.Import_VAT.TypeOfView = Nothing
'
'Import_GL
'
Me.Import_GL.Caption = "Import_GL"
Me.Import_GL.Category = "Import_GL"
Me.Import_GL.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_GL.Id = "Import_GL"
Me.Import_GL.ImageName = Nothing
Me.Import_GL.Shortcut = Nothing
Me.Import_GL.Tag = Nothing
Me.Import_GL.TargetObjectsCriteria = Nothing
Me.Import_GL.TargetViewId = "SQLImports_DetailView"
Me.Import_GL.ToolTip = Nothing
Me.Import_GL.TypeOfView = Nothing
'
'Import_ProcuctsGroups
'
Me.Import_ProcuctsGroups.Caption = "Import Procucts Groups"
Me.Import_ProcuctsGroups.Category = "Import_ProcuctsGroups"
Me.Import_ProcuctsGroups.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_ProcuctsGroups.Id = "Import_ProcuctsGroups"
Me.Import_ProcuctsGroups.ImageName = Nothing
Me.Import_ProcuctsGroups.Shortcut = Nothing
Me.Import_ProcuctsGroups.Tag = Nothing
Me.Import_ProcuctsGroups.TargetObjectsCriteria = Nothing
Me.Import_ProcuctsGroups.TargetViewId = "SQLImports_DetailView"
Me.Import_ProcuctsGroups.ToolTip = Nothing
Me.Import_ProcuctsGroups.TypeOfView = Nothing
'
'Import_Invoices
'
Me.Import_Invoices.Caption = "Import invoices"
Me.Import_Invoices.Category = "Import_Invoices"
Me.Import_Invoices.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Invoices.Id = "Import_Invoices"
Me.Import_Invoices.ImageName = "document_lock"
Me.Import_Invoices.Shortcut = Nothing
Me.Import_Invoices.Tag = Nothing
Me.Import_Invoices.TargetObjectsCriteria = Nothing
Me.Import_Invoices.TargetViewId = "SQLImports_DetailView"
Me.Import_Invoices.ToolTip = Nothing
Me.Import_Invoices.TypeOfView = Nothing
'
'Import_UniqueObject
'
Me.Import_UniqueObject.Caption = "Import_UniqueObject"
Me.Import_UniqueObject.Category = "Import_UniqueObject"
Me.Import_UniqueObject.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_UniqueObject.Id = "Import_UniqueObject"
Me.Import_UniqueObject.ImageName = Nothing
Me.Import_UniqueObject.Shortcut = Nothing
Me.Import_UniqueObject.Tag = Nothing
Me.Import_UniqueObject.TargetObjectsCriteria = Nothing
Me.Import_UniqueObject.TargetViewId = "SQLImports_DetailView"
Me.Import_UniqueObject.ToolTip = Nothing
Me.Import_UniqueObject.TypeOfView = Nothing
'
'Import_Invoices_Business
'
Me.Import_Invoices_Business.Caption = "Import invoices"
Me.Import_Invoices_Business.Category = "Import_Invoices"
Me.Import_Invoices_Business.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Invoices_Business.Id = "Import_Invoices_Business"
Me.Import_Invoices_Business.ImageName = "document_lock"
Me.Import_Invoices_Business.Shortcut = Nothing
Me.Import_Invoices_Business.Tag = Nothing
Me.Import_Invoices_Business.TargetObjectsCriteria = Nothing
Me.Import_Invoices_Business.TargetViewId = "SQLImports_DetailView"
Me.Import_Invoices_Business.ToolTip = Nothing
Me.Import_Invoices_Business.TypeOfView = Nothing
'
'Import_GLAccounts
'
Me.Import_GLAccounts.Caption = "Import_GLAccounts"
Me.Import_GLAccounts.Category = "Import_GL"
Me.Import_GLAccounts.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_GLAccounts.Id = "Import_GLAccounts"
Me.Import_GLAccounts.ImageName = Nothing
Me.Import_GLAccounts.Shortcut = Nothing
Me.Import_GLAccounts.Tag = Nothing
Me.Import_GLAccounts.TargetObjectsCriteria = Nothing
Me.Import_GLAccounts.TargetViewId = "SQLImports_DetailView"
Me.Import_GLAccounts.ToolTip = Nothing
Me.Import_GLAccounts.TypeOfView = Nothing
'
'Import_CostHolder
'
Me.Import_CostHolder.Caption = "Import_CostHolder"
Me.Import_CostHolder.Category = "Import_CostHolder"
Me.Import_CostHolder.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_CostHolder.Id = "Import_CostHolder"
Me.Import_CostHolder.ImageName = Nothing
Me.Import_CostHolder.Shortcut = Nothing
Me.Import_CostHolder.Tag = Nothing
Me.Import_CostHolder.TargetObjectsCriteria = Nothing
Me.Import_CostHolder.TargetViewId = "SQLImports_DetailView"
Me.Import_CostHolder.ToolTip = Nothing
Me.Import_CostHolder.TypeOfView = Nothing
'
'Import_CostPlace
'
Me.Import_CostPlace.Caption = "Import_CostPlace"
Me.Import_CostPlace.Category = "Import_CostPlace"
Me.Import_CostPlace.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_CostPlace.Id = "Import_CostPlace"
Me.Import_CostPlace.ImageName = Nothing
Me.Import_CostPlace.Shortcut = Nothing
Me.Import_CostPlace.Tag = Nothing
Me.Import_CostPlace.TargetObjectsCriteria = Nothing
Me.Import_CostPlace.TargetViewId = "SQLImports_DetailView"
Me.Import_CostPlace.ToolTip = Nothing
Me.Import_CostPlace.TypeOfView = Nothing
'
'JobNumberObject
'
Me.JobNumberObject.Caption = "Import_JobNumberObject"
Me.JobNumberObject.Category = "Import_JobNumberObject"
Me.JobNumberObject.ConfirmationMessage = "Do you want to execute command ?"
Me.JobNumberObject.Id = "Import_JobNumberObject"
Me.JobNumberObject.ImageName = Nothing
Me.JobNumberObject.Shortcut = Nothing
Me.JobNumberObject.Tag = Nothing
Me.JobNumberObject.TargetObjectsCriteria = Nothing
Me.JobNumberObject.TargetViewId = "SQLImports_DetailView"
Me.JobNumberObject.ToolTip = Nothing
Me.JobNumberObject.TypeOfView = Nothing
'
'Import_GLBank
'
Me.Import_GLBank.Caption = "Import Bank"
Me.Import_GLBank.Category = "Import_GLBank"
Me.Import_GLBank.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_GLBank.Id = "Import_GLBank"
Me.Import_GLBank.ImageName = Nothing
Me.Import_GLBank.Shortcut = Nothing
Me.Import_GLBank.Tag = Nothing
Me.Import_GLBank.TargetObjectsCriteria = Nothing
Me.Import_GLBank.TargetViewId = "SQLImports_DetailView"
Me.Import_GLBank.ToolTip = Nothing
Me.Import_GLBank.TypeOfView = Nothing
'
'Import_GCassa
'
Me.Import_GCassa.Caption = "Import cassa"
Me.Import_GCassa.Category = "Import_GCassa"
Me.Import_GCassa.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_GCassa.Id = "Import_GCassa"
Me.Import_GCassa.ImageName = Nothing
Me.Import_GCassa.Shortcut = Nothing
Me.Import_GCassa.Tag = Nothing
Me.Import_GCassa.TargetObjectsCriteria = Nothing
Me.Import_GCassa.TargetViewId = "SQLImports_DetailView"
Me.Import_GCassa.ToolTip = Nothing
Me.Import_GCassa.TypeOfView = Nothing
'
'Import_SpecTran
'
Me.Import_SpecTran.Caption = "Import spec tran."
Me.Import_SpecTran.Category = "Import_GCassa"
Me.Import_SpecTran.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_SpecTran.Id = "Import_SpecTran"
Me.Import_SpecTran.ImageName = Nothing
Me.Import_SpecTran.Shortcut = Nothing
Me.Import_SpecTran.Tag = Nothing
Me.Import_SpecTran.TargetObjectsCriteria = Nothing
Me.Import_SpecTran.TargetViewId = "SQLImports_DetailView"
Me.Import_SpecTran.ToolTip = Nothing
Me.Import_SpecTran.TypeOfView = Nothing
'
'Import_Contacts
'
Me.Import_Contacts.Caption = "Import_Contacts"
Me.Import_Contacts.Category = "Import_Contacts"
Me.Import_Contacts.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Contacts.Id = "Import_Contacts"
Me.Import_Contacts.ImageName = Nothing
Me.Import_Contacts.Shortcut = Nothing
Me.Import_Contacts.Tag = Nothing
Me.Import_Contacts.TargetObjectsCriteria = Nothing
Me.Import_Contacts.TargetViewId = "SQLImports_DetailView"
Me.Import_Contacts.ToolTip = Nothing
Me.Import_Contacts.TypeOfView = Nothing
'
'Import_GCompensation
'
Me.Import_GCompensation.Caption = "Import cassa"
Me.Import_GCompensation.Category = "Import_GCompensation"
Me.Import_GCompensation.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_GCompensation.Id = "Import_GCompensation"
Me.Import_GCompensation.ImageName = Nothing
Me.Import_GCompensation.Shortcut = Nothing
Me.Import_GCompensation.Tag = Nothing
Me.Import_GCompensation.TargetObjectsCriteria = Nothing
Me.Import_GCompensation.TargetViewId = "SQLImports_DetailView"
Me.Import_GCompensation.ToolTip = Nothing
Me.Import_GCompensation.TypeOfView = Nothing
'
'Import_HRPerson
'
Me.Import_HRPerson.Caption = "Import_HRPerson"
Me.Import_HRPerson.Category = "Import_HRPerson"
Me.Import_HRPerson.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_HRPerson.Id = "Import_HRPerson"
Me.Import_HRPerson.ImageName = Nothing
Me.Import_HRPerson.Shortcut = Nothing
Me.Import_HRPerson.Tag = Nothing
Me.Import_HRPerson.TargetObjectsCriteria = Nothing
Me.Import_HRPerson.TargetViewId = "SQLImports_DetailView"
Me.Import_HRPerson.ToolTip = Nothing
Me.Import_HRPerson.TypeOfView = Nothing
'
'Import_OrderOut
'
Me.Import_OrderOut.Caption = "Import_OrderOut"
Me.Import_OrderOut.Category = "Import_OrderOut"
Me.Import_OrderOut.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_OrderOut.Id = "Import_OrderOut"
Me.Import_OrderOut.ImageName = Nothing
Me.Import_OrderOut.Shortcut = Nothing
Me.Import_OrderOut.Tag = Nothing
Me.Import_OrderOut.TargetObjectsCriteria = Nothing
Me.Import_OrderOut.TargetViewId = "SQLImports_DetailView"
Me.Import_OrderOut.ToolTip = Nothing
Me.Import_OrderOut.TypeOfView = Nothing
'
'Import_Circulation
'
Me.Import_Circulation.Caption = "Import_Circulation"
Me.Import_Circulation.Category = "Import_Circulation"
Me.Import_Circulation.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Circulation.Id = "Import_Circulation"
Me.Import_Circulation.ImageName = Nothing
Me.Import_Circulation.Shortcut = Nothing
Me.Import_Circulation.Tag = Nothing
Me.Import_Circulation.TargetObjectsCriteria = Nothing
Me.Import_Circulation.TargetViewId = "SQLImports_DetailView"
Me.Import_Circulation.ToolTip = Nothing
Me.Import_Circulation.TypeOfView = Nothing
'
'Import_Operations
'
Me.Import_Operations.Caption = "Import_Operations"
Me.Import_Operations.Category = ""
Me.Import_Operations.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Operations.Id = "Import_Operations"
Me.Import_Operations.ImageName = Nothing
Me.Import_Operations.Shortcut = Nothing
Me.Import_Operations.Tag = Nothing
Me.Import_Operations.TargetObjectsCriteria = Nothing
Me.Import_Operations.TargetViewId = "SQLImports_DetailView"
Me.Import_Operations.ToolTip = Nothing
Me.Import_Operations.TypeOfView = Nothing
'
'Import_Offers
'
Me.Import_Offers.Caption = "Import_Offers"
Me.Import_Offers.Category = "Import_Offers"
Me.Import_Offers.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Offers.Id = "Import_Offers"
Me.Import_Offers.ImageName = Nothing
Me.Import_Offers.Shortcut = Nothing
Me.Import_Offers.Tag = Nothing
Me.Import_Offers.TargetObjectsCriteria = Nothing
Me.Import_Offers.TargetViewId = "SQLImports_DetailView"
Me.Import_Offers.ToolTip = Nothing
Me.Import_Offers.TypeOfView = Nothing
'
'aScriptUpdate
'
Me.aScriptUpdate.Caption = "aScript Update"
Me.aScriptUpdate.ConfirmationMessage = Nothing
Me.aScriptUpdate.Id = "aScriptUpdate"
Me.aScriptUpdate.ImageName = Nothing
Me.aScriptUpdate.Shortcut = Nothing
Me.aScriptUpdate.Tag = Nothing
Me.aScriptUpdate.TargetObjectsCriteria = Nothing
Me.aScriptUpdate.TargetViewId = "SQLImports_DetailView"
Me.aScriptUpdate.ToolTip = Nothing
Me.aScriptUpdate.TypeOfView = Nothing
'
'Import_OrderIn
'
Me.Import_OrderIn.Caption = "Import_OrderIn"
Me.Import_OrderIn.Category = "Import_OrderIn"
Me.Import_OrderIn.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_OrderIn.Id = "Import_OrderIn"
Me.Import_OrderIn.ImageName = Nothing
Me.Import_OrderIn.Shortcut = Nothing
Me.Import_OrderIn.Tag = Nothing
Me.Import_OrderIn.TargetObjectsCriteria = Nothing
Me.Import_OrderIn.TargetViewId = "SQLImports_DetailView"
Me.Import_OrderIn.ToolTip = Nothing
Me.Import_OrderIn.TypeOfView = Nothing
'
'Import_Pricing
'
Me.Import_Pricing.Caption = "Import_Pricing"
Me.Import_Pricing.Category = "Import_Pricing"
Me.Import_Pricing.ConfirmationMessage = "Do you want to execute command ?"
Me.Import_Pricing.Id = "Import_Pricing"
Me.Import_Pricing.ImageName = Nothing
Me.Import_Pricing.Shortcut = Nothing
Me.Import_Pricing.Tag = Nothing
Me.Import_Pricing.TargetObjectsCriteria = Nothing
Me.Import_Pricing.TargetViewId = "SQLImports_DetailView"
Me.Import_Pricing.ToolTip = Nothing
Me.Import_Pricing.TypeOfView = Nothing
End Sub
Friend WithEvents Import_Customers As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Country As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Controlling As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Procucts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Storage As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_ChartsOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_CustomersGLParameters As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_LiquidAssets As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_VAT As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_GL As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_ProcuctsGroups As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Invoices As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_UniqueObject As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Invoices_Business As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_CostHolder As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_CostPlace As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents JobNumberObject As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_GLBank As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_GCassa As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_SpecTran As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Contacts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_GCompensation As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_HRPerson As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_OrderOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Circulation As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Operations As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Offers As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aScriptUpdate As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_OrderIn As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_Pricing As DevExpress.ExpressApp.Actions.SimpleAction
End Class
@@ -0,0 +1,216 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Import_Customers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>157, 54</value>
</metadata>
<metadata name="Import_Country.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>743, 54</value>
</metadata>
<metadata name="Import_Controlling.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>199, 128</value>
</metadata>
<metadata name="Import_Procucts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 165</value>
</metadata>
<metadata name="Import_Storage.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>809, 165</value>
</metadata>
<metadata name="Import_ChartsOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>629, 165</value>
</metadata>
<metadata name="Import_CustomersGLParameters.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>415, 165</value>
</metadata>
<metadata name="Import_LiquidAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>262, 165</value>
</metadata>
<metadata name="Import_VAT.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>150, 165</value>
</metadata>
<metadata name="Import_GL.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>805, 128</value>
</metadata>
<metadata name="Import_ProcuctsGroups.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>636, 128</value>
</metadata>
<metadata name="Import_Invoices.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>503, 128</value>
</metadata>
<metadata name="Import_UniqueObject.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 128</value>
</metadata>
<metadata name="Import_Invoices_Business.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 128</value>
</metadata>
<metadata name="Import_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>699, 91</value>
</metadata>
<metadata name="Import_CostHolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>553, 91</value>
</metadata>
<metadata name="Import_CostPlace.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>414, 91</value>
</metadata>
<metadata name="JobNumberObject.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>274, 91</value>
</metadata>
<metadata name="Import_GLBank.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>145, 91</value>
</metadata>
<metadata name="Import_GCassa.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 91</value>
</metadata>
<metadata name="Import_SpecTran.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>605, 54</value>
</metadata>
<metadata name="Import_Contacts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>471, 54</value>
</metadata>
<metadata name="Import_GCompensation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>301, 54</value>
</metadata>
<metadata name="Import_HRPerson.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 54</value>
</metadata>
<metadata name="Import_OrderOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>805, 17</value>
</metadata>
<metadata name="Import_Circulation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>536, 17</value>
</metadata>
<metadata name="Import_Operations.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>390, 17</value>
</metadata>
<metadata name="Import_Offers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>268, 17</value>
</metadata>
<metadata name="aScriptUpdate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>147, 17</value>
</metadata>
<metadata name="Import_OrderIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="Import_Pricing.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>680, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
File diff suppressed because it is too large Load Diff
@@ -0,0 +1,70 @@
Imports Microsoft.VisualBasic
Imports System
Imports System.Linq
Imports System.Text
Imports DevExpress.Xpo
Imports DevExpress.ExpressApp
Imports System.ComponentModel
Imports DevExpress.ExpressApp.DC
Imports DevExpress.Data.Filtering
Imports DevExpress.Persistent.Base
Imports System.Collections.Generic
Imports DevExpress.ExpressApp.Model
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
'<ImageName("BO_Contact")> _
'<DefaultProperty("DisplayMemberNameForLookupEditorsOfThisType")> _
'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
'<Persistent("DatabaseTableName")> _
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
Public Class SpreadImport ' Specify more UI options using a declarative approach (http://documentation.devexpress.com/#Xaf/CustomDocument2701).
Inherits BaseObject ' Inherit from a different class to provide a custom primary key, concurrency and deletion behavior, etc. (http://documentation.devexpress.com/#Xaf/CustomDocument3146).
Private _SpreadFile As FileData
Private _SpreadXML As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place your initialization code here (http://documentation.devexpress.com/#Xaf/CustomDocument2834).
End Sub
<Browsable(False)> _
Property SpreadFile As FileData
Get
Return _SpreadFile
End Get
Set(value As FileData)
SetPropertyValue("SpreadFile", _SpreadFile, value)
End Set
End Property
Property SpreadXML As String
Get
Return _SpreadXML
End Get
Set(value As String)
SetPropertyValue("SpreadXML", _SpreadXML, value)
End Set
End Property
'Private _PersistentProperty As String
'<XafDisplayName("My display name"), ToolTip("My hint message")> _
'<ModelDefault("EditMask", "(000)-00"), Index(0), VisibleInListView(False)> _
'<Persistent("DatabaseColumnName"), RuleRequiredField(DefaultContexts.Save)> _
'Public Property PersistentProperty() As String
' Get
' Return _PersistentProperty
' End Get
' Set(ByVal value As String)
' SetPropertyValue("PersistentProperty", _PersistentProperty, value)
' End Set
'End Property
'<Action(Caption:="My UI Action", ConfirmationMessage:="Are you sure?", ImageName:="Attention", AutoCommit:=True)> _
'Public Sub ActionMethod()
' ' Trigger a custom business logic for the current record in the UI (http://documentation.devexpress.com/#Xaf/CustomDocument2619).
' Me.PersistentProperty = "Paid"
'End Sub
End Class
@@ -0,0 +1,59 @@
Partial Class SpreadImportVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aSpreadImport_LoadDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aSpreadImport_SaveDocument = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aSpreadImport_LoadDocument
'
Me.aSpreadImport_LoadDocument.Caption = "aSpreadImport_LoadDocument"
Me.aSpreadImport_LoadDocument.ConfirmationMessage = Nothing
Me.aSpreadImport_LoadDocument.Id = "aSpreadImport_LoadDocument"
Me.aSpreadImport_LoadDocument.TargetObjectType = GetType(Nuvolar.[Module].Win.SpreadImport)
Me.aSpreadImport_LoadDocument.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
Me.aSpreadImport_LoadDocument.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aSpreadImport_LoadDocument.ToolTip = Nothing
Me.aSpreadImport_LoadDocument.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aSpreadImport_SaveDocument
'
Me.aSpreadImport_SaveDocument.Caption = "aSpreadImport_SaveDocument"
Me.aSpreadImport_SaveDocument.ConfirmationMessage = Nothing
Me.aSpreadImport_SaveDocument.Id = "aSpreadImport_SaveDocument"
Me.aSpreadImport_SaveDocument.TargetObjectType = GetType(Nuvolar.[Module].Win.SpreadImport)
Me.aSpreadImport_SaveDocument.TargetViewNesting = DevExpress.ExpressApp.Nesting.Root
Me.aSpreadImport_SaveDocument.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aSpreadImport_SaveDocument.ToolTip = Nothing
Me.aSpreadImport_SaveDocument.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
End Sub
Friend WithEvents aSpreadImport_LoadDocument As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aSpreadImport_SaveDocument As DevExpress.ExpressApp.Actions.SimpleAction
End Class
@@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aSpreadImport_LoadDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="aSpreadImport_SaveDocument.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>216, 19</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
@@ -0,0 +1,147 @@
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
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
Partial Public Class SpreadImportVC
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 = "SpreadImport_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
End If
AddHandler Frame.GetController(Of ModificationsController).SaveAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing
AddHandler Frame.GetController(Of ModificationsController).SaveAndCloseAction.Executing, AddressOf SpreadImport_DetailView_SaveAction_Executing
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
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 _SpreadImport As SpreadImport = TryCast(View.SelectedObjects(0), SpreadImport)
Dim _ItemControl As Object = TryCast(sender, ViewItem).Control
Dim _SpreadSimpleUserControl As SpreadSimpleUserControl = TryCast(_ItemControl, SpreadSimpleUserControl)
If _SpreadSimpleUserControl IsNot Nothing Then
_SpreadsheetControl = TryCast(_ItemControl, SpreadSimpleUserControl).SpreadsheetControl1
If _SpreadImport IsNot Nothing Then
If _SpreadImport.SpreadFile IsNot Nothing Then
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), _SpreadImport.SpreadFile.FileName)
Dim _Stream As System.IO.Stream = New System.IO.FileStream(_FilePath, System.IO.FileMode.Create)
_SpreadImport.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
End If
End Sub
Private Sub SpreadImport_DetailView_SaveAction_Executing(sender As Object, e As ComponentModel.CancelEventArgs)
Dim _SpreadImport As SpreadImport = TryCast(View.SelectedObjects(0), SpreadImport)
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _DetailView As DetailView = TryCast(View, DetailView)
Dim _SpreadXML_ViewItem As ViewItem = _DetailView.FindItem("SpreadXML")
Dim _ItemControl As Object
Dim _SpreadSimpleUserControl As SpreadSimpleUserControl
If _SpreadXML_ViewItem IsNot Nothing Then
_ItemControl = _SpreadXML_ViewItem.Control
_SpreadSimpleUserControl = TryCast(_ItemControl, SpreadSimpleUserControl)
_SpreadsheetControl = TryCast(_ItemControl, SpreadSimpleUserControl).SpreadsheetControl1
End If
If _SpreadsheetControl IsNot Nothing Then
Dim _FilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "IMPORT.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("IMPORT.XML", _StreamFile)
_SpreadImport.SpreadFile = _FileData
End If
End Sub
Private Sub aSpreadImport_LoadDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImport_LoadDocument.Execute
Dim openFileDialog1 As New Windows.Forms.OpenFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
_SpreadsheetControl.LoadDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
End If
End Sub
Private Sub aSpreadImport_SaveDocument_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aSpreadImport_SaveDocument.Execute
Dim openFileDialog1 As New Windows.Forms.SaveFileDialog()
openFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
openFileDialog1.Filter = "XML files (*.xml)|*.xml|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
_SpreadsheetControl.SaveDocument(openFileDialog1.FileName, DevExpress.Spreadsheet.DocumentFormat.OpenXml)
End If
End Sub
End Class
@@ -0,0 +1,48 @@
Partial Class StorageOperation_VC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aResetStorageForTest = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aResetStorageForTest
'
Me.aResetStorageForTest.Caption = "aReset Storage For Test"
Me.aResetStorageForTest.ConfirmationMessage = Nothing
Me.aResetStorageForTest.Id = "aResetStorageForTest"
Me.aResetStorageForTest.ImageName = "data_delete"
Me.aResetStorageForTest.Shortcut = Nothing
Me.aResetStorageForTest.Tag = Nothing
Me.aResetStorageForTest.TargetObjectsCriteria = Nothing
Me.aResetStorageForTest.TargetViewId = Nothing
Me.aResetStorageForTest.ToolTip = Nothing
Me.aResetStorageForTest.TypeOfView = Nothing
End Sub
Friend WithEvents aResetStorageForTest As DevExpress.ExpressApp.Actions.SimpleAction
End Class
@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aResetStorageForTest.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>173, 133</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
@@ -0,0 +1,186 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Public Class StorageOperation_VC
Inherits DevExpress.ExpressApp.ViewController
Dim _WaitFormClass As New WaitFormClass
Public Sub New()
MyBase.New()
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
Frame.GetController(Of StorageOperation_VC)().aResetStorageForTest.Active.SetItemValue("", False)
If View.Id = "ResetObjects_DetailView" Then
Frame.GetController(Of StorageOperation_VC)().aResetStorageForTest.Active.SetItemValue("", True)
End If
End Sub
Protected Overrides Sub OnDeactivated()
MyBase.OnDeactivated()
If View.Id = "ResetObjects_DetailView" Then
Frame.GetController(Of StorageOperation_VC)().aResetStorageForTest.Active.SetItemValue("", False)
End If
End Sub
Private Sub aResetStorageForTest_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aResetStorageForTest.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
Dim _StorageOutHeader_Collection As New XPCollection(Of StorageOutHeader)(_uow)
Dim _StorageOutRows_Collection As New XPCollection(Of StorageOutRows)(_uow)
Dim _StorageInHeader_Collection As New XPCollection(Of StorageInHeader)(_uow)
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_uow)
Dim _StorageComputed_Collection As New XPCollection(Of StorageComputed)(_uow)
Dim _StorageMoveEvents_Collection As New XPCollection(Of StorageMoveEvents)(_uow)
Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(_uow)
Dim _OrderInHeader_Collection As New XPCollection(Of OrderInHeader)(_uow)
Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_uow)
Dim _DeliveryNoteOutHeader_Collection As New XPCollection(Of DeliveryNoteOutHeader)(_uow)
Dim _DeliveryNoteOutRows_Collection As New XPCollection(Of DeliveryNoteOutRows)(_uow)
Dim _DeliveryNoteInHeader_Collection As New XPCollection(Of DeliveryNoteInHeader)(_uow)
Dim _DeliveryNoteInRows_Collection As New XPCollection(Of DeliveryNoteInRows)(_uow)
Dim _StorageComputedLocations_Collection As New XPCollection(Of StorageComputedLocations)(_uow)
Dim _StoragePDACollectionHeader_Collection As New XPCollection(Of StoragePDACollectionHeader)(_uow)
Dim _StoragePDACollectionRows_Collection As New XPCollection(Of StoragePDACollectionRows)(_uow)
_WaitFormClass.InitWork(1, 1, 16)
_WaitFormClass.DoWork()
_uow.Delete(_StorageComputed_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageInHeader_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageInRows_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageMoveEvents_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageOutHeader_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageOutRows_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageOutRowsInRows_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_OrderInHeader_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_OrderInRows_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_DeliveryNoteInHeader_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_DeliveryNoteInRows_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_DeliveryNoteOutHeader_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_DeliveryNoteOutRows_Collection)
_WaitFormClass.DoWork()
_uow.Delete(_StorageComputedLocations_Collection)
'_WaitFormClass.DoWork()
'_uow.Delete(_StoragePDACollectionHeader_Collection)
'_WaitFormClass.DoWork()
'_uow.Delete(_StoragePDACollectionRows_Collection)
_WaitFormClass.Finalwork
_uow.CommitChanges()
Dim _Products_Collection As New XPCollection(Of Products)(_uow)
Dim _Storage As Storage = _uow.FindObject(Of Storage)(CriteriaOperator.Parse("CustomersFrom.IsDefault=True"))
'_Storage = _uow.FindObject(Of Storage)(CriteriaOperator.Parse("ShortName=?", "Input anyag raktár"))
Dim _StorageInHeader As New StorageInHeader(_uow)
Dim _Rnd As New Random
_StorageInHeader.Storage = _Storage
_StorageInHeader.DocumentNumber = _Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn)
_StorageInHeader.StorageMoveType = _uow.FindObject(Of StorageMoveType)(CriteriaOperator.Parse("MoveType=?", eMoveType.NormalInput))
_WaitFormClass.InitWork(1, 1, 10)
For ik = 1 To 100
_WaitFormClass.DoWork()
Dim _StorageInRows As New StorageInRows(_uow)
Dim _StorageComputed As StorageComputed
_StorageInRows.StorageInHeader = _StorageInHeader
_StorageInRows.Products = _Products_Collection(_Rnd.Next(0, _Products_Collection.Count))
_StorageInRows.QTT_Will = _Rnd.Next(1, 1000)
_StorageInRows.RowIndex = _StorageInHeader.StorageInRows.Count
_StorageComputed = _uow.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _Storage))
If _StorageComputed Is Nothing Then
_StorageComputed = New StorageComputed(_uow)
_StorageComputed.Storage = _Storage
_StorageComputed.Products = _StorageInRows.Products
End If
_StorageComputed.QTTReservedIn += _StorageInRows.QTT_Will
Next
_WaitFormClass.Finalwork
_uow.CommitChanges()
_WaitFormClass.InitWork(1, 1, 3)
For ik = 0 To 3
_WaitFormClass.DoWork()
Dim _StorageInRows_ReNew As New StorageInRows(_uow)
Dim _StorageInHeader_ReNew As New StorageInHeader(_uow)
_StorageInRows_ReNew.StorageInHeader = _StorageInHeader_ReNew
_StorageInRows_ReNew.Products = _StorageInHeader.StorageInRows(ik).Products
_StorageInRows_ReNew.QTT_Will = _Rnd.Next(1, 1000)
_StorageInRows_ReNew.RowIndex = _StorageInHeader_ReNew.StorageInRows.Count
_StorageInHeader_ReNew.Storage = _StorageInHeader.Storage
_StorageInHeader_ReNew.DocumentNumber = _StorageInHeader.Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn)
_StorageInHeader_ReNew.StorageMoveType = _StorageInHeader.StorageMoveType
Dim _StorageComputed_ReNew As StorageComputed = _uow.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows_ReNew.Products, _StorageInHeader_ReNew.Storage))
If _StorageComputed_ReNew Is Nothing Then
_StorageComputed_ReNew = New StorageComputed(_uow)
_StorageComputed_ReNew.Storage = _Storage
_StorageComputed_ReNew.Products = _StorageInRows_ReNew.Products
End If
_StorageComputed_ReNew.QTTReservedIn += _StorageInRows_ReNew.QTT_Will
Next ik
_WaitFormClass.Finalwork
_uow.CommitChanges()
Dim _OrderInHeader As New OrderInHeader(_uow)
Dim _Customers_Collection As New XPCollection(Of Customers)(_uow)
Dim _Contacts As Contacts = Nothing
_OrderInHeader.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_StorageInHeader.Storage.CustomersFrom.Oid)
_OrderInHeader.Customers = _Customers_Collection(_Rnd.Next(0, _Customers_Collection.Count))
If _Contacts Is Nothing Then
_Contacts = New Contacts(_uow)
_Contacts.FirstName = "Tamás"
_Contacts.LastName = "Teszt"
End If
_OrderInHeader.Contacts = _Contacts
_OrderInHeader.OrderInParameters = _uow.FindObject(Of OrderInParameters)(CriteriaOperator.Parse("CustomersFrom=?", _OrderInHeader.CustomersFrom))
_OrderInHeader.DocumentNumber = _OrderInHeader.OrderInParameters.NumberGenerator.GetNewNumber(_OrderInHeader.OrderInParameters.NumberGenerator)
_OrderInHeader.PaymentOption = _uow.FindObject(Of PaymentOption)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
_OrderInHeader.ShipmentOption = _uow.FindObject(Of ShipmentOption)(CriteriaOperator.Parse("1=1"))
Dim _StorageOutHeader As New StorageOutHeader(_uow)
_StorageOutHeader.CustomersFrom = _uow.GetObjectByKey(Of CustomersFrom)(_StorageInHeader.Storage.CustomersFrom.Oid)
_StorageOutHeader.Customers = _Customers_Collection(_Rnd.Next(0, _Customers_Collection.Count))
_StorageOutHeader.Storage = _StorageInHeader.Storage
_StorageOutHeader.DocumentNumber = _Storage.NumberGeneratorOut.GetNewNumber(_Storage.NumberGeneratorOut)
_StorageOutHeader.StorageMoveType = _uow.FindObject(Of StorageMoveType)(CriteriaOperator.Parse("Storage=? AND MoveType=?", _StorageOutHeader.Storage, eMoveType.Sales))
_uow.CommitChanges()
End Sub
End Class
@@ -0,0 +1,76 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
Imports DevExpress.ExpressApp.ConditionalAppearance
Public Enum eImportPHType
eApartments = 0
eOffices = 1
eGarages = 2
eContainers = 3
eInvoiceRows = 4
End Enum
<DefaultClassOptions()> _
<NonPersistent()> _
<CreatableItem(False)> _
<NavigationItem(False)> _
<Appearance("Import_PH_Immovables_PopUp - Disable OFileName", AppearanceItemType.ViewItem, "1=1", TargetItems:="FileName", Enabled:=False)> _
<Appearance("Import_PH_Immovables_PopUp - Hide Customers", TargetItems:="Customers", Criteria:="ImportPHType != 4", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
<Appearance("Import_PH_Immovables_PopUp - Hide CustomersFrom", TargetItems:="CustomersFrom", Criteria:="ImportPHType != 4", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
Public Class Import_PH_Immovables_PopUp
Inherits BaseObject
Private _ImportPHType As eImportPHType
Private _FileName As String
Private _Customers As Customers
Private _CustomersFrom As CustomersFrom
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
<ImmediatePostData()> _
Property ImportPHType As eImportPHType
Get
Return _ImportPHType
End Get
Set(value As eImportPHType)
SetPropertyValue("ImportPHType", _ImportPHType, value)
End Set
End Property
<ImmediatePostData()> _
Property FileName As String
Get
Return _FileName
End Get
Set(value As String)
SetPropertyValue("FileName", _FileName, value)
End Set
End Property
Property Customers As Customers
Get
Return _Customers
End Get
Set(value As Customers)
SetPropertyValue("Customers", _Customers, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
End Class
@@ -0,0 +1,88 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
Public Class XLSExportImport
Inherits BaseObject
Private _ObjectType As Type
Private _ShortName As String
Private _Description As String
Private _UserCreated As User
Private _ObjectCreated As Date
Private _ExcelProperty As String
Public Sub New(ByVal session As Session)
MyBase.New(session)
' This constructor is used when an object is loaded from a persistent storage.
' Do not place any code here or place it only when the IsLoading property is false:
' if (!IsLoading){
' It is now OK to place your initialization code here.
' }
' or as an alternative, move your initialization code into the AfterConstruction method.
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
' Place here your initialization code.
End Sub
Property ObjectType As Type
Get
Return _ObjectType
End Get
Set(value As Type)
SetPropertyValue("ObjectType", _ObjectType, value)
End Set
End Property
Property ShortName As String
Get
Return _ShortName
End Get
Set(value As String)
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<Size(-1)> _
Property Description As String
Get
Return _Description
End Get
Set(value As String)
SetPropertyValue("Description", _Description, value)
End Set
End Property
<NonCloneable> _
Property UserCreated As User
Get
Return _UserCreated
End Get
Set(value As User)
SetPropertyValue("UserCreated", _UserCreated, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated As Date
Get
Return _ObjectCreated
End Get
Set(value As Date)
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
End Set
End Property
<Size(-1)> _
Property ExcelProperty As String
Get
Return _ExcelProperty
End Get
Set(value As String)
SetPropertyValue("ExcelProperty", _ExcelProperty, value)
End Set
End Property
End Class
@@ -0,0 +1,49 @@
Partial Class XLSExportImportVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.aCreateExportImportSpread = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aCreateExportImportSpread
'
Me.aCreateExportImportSpread.AcceptButtonCaption = Nothing
Me.aCreateExportImportSpread.CancelButtonCaption = Nothing
Me.aCreateExportImportSpread.Caption = "aCreate Export Import Spread"
Me.aCreateExportImportSpread.Category = "aCreateExportImportSpread"
Me.aCreateExportImportSpread.ConfirmationMessage = Nothing
Me.aCreateExportImportSpread.Id = "aCreateExportImportSpread"
Me.aCreateExportImportSpread.ToolTip = Nothing
'
'XLSExportImportVC
'
Me.Actions.Add(Me.aCreateExportImportSpread)
End Sub
Friend WithEvents aCreateExportImportSpread As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aCreateExportImportSpread.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
@@ -0,0 +1,35 @@
Imports System
Imports System.ComponentModel
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Text
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.Actions
Imports DevExpress.Persistent.Base
Public Class XLSExportImportVC
Inherits DevExpress.ExpressApp.ViewController
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Protected Overrides Sub OnActivated()
MyBase.OnActivated()
Frame.GetController(Of XLSExportImportVC).aCreateExportImportSpread.Active.SetItemValue("", False)
If View.Id = "Products_ListView" Then
Frame.GetController(Of XLSExportImportVC).aCreateExportImportSpread.Active.SetItemValue("", True)
End If
End Sub
Private Sub aCreateExportImportSpread_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aCreateExportImportSpread.Execute
End Sub
End Class
@@ -0,0 +1,28 @@
Imports System
Imports System.ComponentModel
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports DevExpress.ExpressApp
Imports DevExpress.Persistent.Base
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.Validation
<DefaultClassOptions()> _
<NavigationItem("SQL Imports")> _
Public Class XLSImports
Inherits BaseObject
Private _XLSFileName As FileData
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property XLSFileName As FileData
Get
Return _XLSFileName
End Get
Set(ByVal value As FileData)
SetPropertyValue("XLSFileName", _XLSFileName, value)
End Set
End Property
End Class
@@ -0,0 +1,248 @@
Partial Class XLSImportsVC
<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
MyClass.New()
'Required for Windows.Forms Class Composition Designer support
Container.Add(Me)
End Sub
'Component overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Component Designer
'It can be modified using the Component Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Import_XLS_Customers = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_Contacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_Products = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_ProductGroups = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_CustomersBankAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_LiquidAssets = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_ChartsOfAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_Units = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_Contracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_GLAccounts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_Services = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_XLS_KSZ = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.Import_PH_Immovables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aOpenFileDialog = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'Import_XLS_Customers
'
Me.Import_XLS_Customers.Caption = "Import_XLS_Customers"
Me.Import_XLS_Customers.ConfirmationMessage = Nothing
Me.Import_XLS_Customers.Id = "Import_XLS_Customers"
Me.Import_XLS_Customers.ImageName = Nothing
Me.Import_XLS_Customers.Shortcut = Nothing
Me.Import_XLS_Customers.Tag = Nothing
Me.Import_XLS_Customers.TargetObjectsCriteria = Nothing
Me.Import_XLS_Customers.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_Customers.ToolTip = Nothing
Me.Import_XLS_Customers.TypeOfView = Nothing
'
'Import_XLS_Contacts
'
Me.Import_XLS_Contacts.Caption = "Import_XLS_Contacts"
Me.Import_XLS_Contacts.ConfirmationMessage = Nothing
Me.Import_XLS_Contacts.Id = "Import_XLS_Contacts"
Me.Import_XLS_Contacts.ImageName = Nothing
Me.Import_XLS_Contacts.Shortcut = Nothing
Me.Import_XLS_Contacts.Tag = Nothing
Me.Import_XLS_Contacts.TargetObjectsCriteria = Nothing
Me.Import_XLS_Contacts.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_Contacts.ToolTip = Nothing
Me.Import_XLS_Contacts.TypeOfView = Nothing
'
'Import_XLS_Products
'
Me.Import_XLS_Products.Caption = "Import_XLS_Products"
Me.Import_XLS_Products.ConfirmationMessage = Nothing
Me.Import_XLS_Products.Id = "Import_XLS_Products"
Me.Import_XLS_Products.ImageName = Nothing
Me.Import_XLS_Products.Shortcut = Nothing
Me.Import_XLS_Products.Tag = Nothing
Me.Import_XLS_Products.TargetObjectsCriteria = Nothing
Me.Import_XLS_Products.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_Products.ToolTip = Nothing
Me.Import_XLS_Products.TypeOfView = Nothing
'
'Import_XLS_ProductGroups
'
Me.Import_XLS_ProductGroups.Caption = "Import_XLS_ProductGroups"
Me.Import_XLS_ProductGroups.ConfirmationMessage = Nothing
Me.Import_XLS_ProductGroups.Id = "Import_XLS_ProductGroups"
Me.Import_XLS_ProductGroups.ImageName = Nothing
Me.Import_XLS_ProductGroups.Shortcut = Nothing
Me.Import_XLS_ProductGroups.Tag = Nothing
Me.Import_XLS_ProductGroups.TargetObjectsCriteria = Nothing
Me.Import_XLS_ProductGroups.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_ProductGroups.ToolTip = Nothing
Me.Import_XLS_ProductGroups.TypeOfView = Nothing
'
'Import_XLS_CustomersBankAccounts
'
Me.Import_XLS_CustomersBankAccounts.Caption = "Import_XLS_CustomersBankAccounts"
Me.Import_XLS_CustomersBankAccounts.ConfirmationMessage = Nothing
Me.Import_XLS_CustomersBankAccounts.Id = "Import_XLS_CustomersBankAccounts"
Me.Import_XLS_CustomersBankAccounts.ImageName = Nothing
Me.Import_XLS_CustomersBankAccounts.Shortcut = Nothing
Me.Import_XLS_CustomersBankAccounts.Tag = Nothing
Me.Import_XLS_CustomersBankAccounts.TargetObjectsCriteria = Nothing
Me.Import_XLS_CustomersBankAccounts.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_CustomersBankAccounts.ToolTip = Nothing
Me.Import_XLS_CustomersBankAccounts.TypeOfView = Nothing
'
'Import_XLS_LiquidAssets
'
Me.Import_XLS_LiquidAssets.Caption = "Import_XLS_LiquidAssets"
Me.Import_XLS_LiquidAssets.ConfirmationMessage = Nothing
Me.Import_XLS_LiquidAssets.Id = "Import_XLS_LiquidAssets"
Me.Import_XLS_LiquidAssets.ImageName = Nothing
Me.Import_XLS_LiquidAssets.Shortcut = Nothing
Me.Import_XLS_LiquidAssets.Tag = Nothing
Me.Import_XLS_LiquidAssets.TargetObjectsCriteria = Nothing
Me.Import_XLS_LiquidAssets.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_LiquidAssets.ToolTip = Nothing
Me.Import_XLS_LiquidAssets.TypeOfView = Nothing
'
'Import_XLS_ChartsOfAccounts
'
Me.Import_XLS_ChartsOfAccounts.Caption = "Import_XLS_ChartsOfAccounts"
Me.Import_XLS_ChartsOfAccounts.ConfirmationMessage = Nothing
Me.Import_XLS_ChartsOfAccounts.Id = "Import_XLS_ChartsOfAccounts"
Me.Import_XLS_ChartsOfAccounts.ImageName = Nothing
Me.Import_XLS_ChartsOfAccounts.Shortcut = Nothing
Me.Import_XLS_ChartsOfAccounts.Tag = Nothing
Me.Import_XLS_ChartsOfAccounts.TargetObjectsCriteria = Nothing
Me.Import_XLS_ChartsOfAccounts.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_ChartsOfAccounts.ToolTip = Nothing
Me.Import_XLS_ChartsOfAccounts.TypeOfView = Nothing
'
'Import_XLS_Units
'
Me.Import_XLS_Units.Caption = "Import_XLS_Units"
Me.Import_XLS_Units.ConfirmationMessage = Nothing
Me.Import_XLS_Units.Id = "Import_XLS_Units"
Me.Import_XLS_Units.ImageName = Nothing
Me.Import_XLS_Units.Shortcut = Nothing
Me.Import_XLS_Units.Tag = Nothing
Me.Import_XLS_Units.TargetObjectsCriteria = Nothing
Me.Import_XLS_Units.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_Units.ToolTip = Nothing
Me.Import_XLS_Units.TypeOfView = Nothing
'
'Import_XLS_Contracts
'
Me.Import_XLS_Contracts.Caption = "Import_XLS_Contracts"
Me.Import_XLS_Contracts.ConfirmationMessage = Nothing
Me.Import_XLS_Contracts.Id = "Import_XLS_Contracts"
Me.Import_XLS_Contracts.ImageName = Nothing
Me.Import_XLS_Contracts.Shortcut = Nothing
Me.Import_XLS_Contracts.Tag = Nothing
Me.Import_XLS_Contracts.TargetObjectsCriteria = Nothing
Me.Import_XLS_Contracts.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_Contracts.ToolTip = Nothing
Me.Import_XLS_Contracts.TypeOfView = Nothing
'
'Import_XLS_GLAccounts
'
Me.Import_XLS_GLAccounts.Caption = "Import_XLS_GLAccounts"
Me.Import_XLS_GLAccounts.ConfirmationMessage = Nothing
Me.Import_XLS_GLAccounts.Id = "Import_XLS_GLAccounts"
Me.Import_XLS_GLAccounts.ImageName = Nothing
Me.Import_XLS_GLAccounts.Shortcut = Nothing
Me.Import_XLS_GLAccounts.Tag = Nothing
Me.Import_XLS_GLAccounts.TargetObjectsCriteria = Nothing
Me.Import_XLS_GLAccounts.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_GLAccounts.ToolTip = Nothing
Me.Import_XLS_GLAccounts.TypeOfView = Nothing
'
'Import_XLS_Services
'
Me.Import_XLS_Services.ActionMeaning = DevExpress.ExpressApp.Actions.ActionMeaning.Accept
Me.Import_XLS_Services.Caption = "Import services"
Me.Import_XLS_Services.ConfirmationMessage = Nothing
Me.Import_XLS_Services.Id = "Import_XLS_Services"
Me.Import_XLS_Services.ImageName = Nothing
Me.Import_XLS_Services.Shortcut = Nothing
Me.Import_XLS_Services.Tag = Nothing
Me.Import_XLS_Services.TargetObjectsCriteria = Nothing
Me.Import_XLS_Services.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_Services.ToolTip = Nothing
Me.Import_XLS_Services.TypeOfView = Nothing
'
'Import_XLS_KSZ
'
Me.Import_XLS_KSZ.Caption = "Import_XLS_KSZ"
Me.Import_XLS_KSZ.ConfirmationMessage = Nothing
Me.Import_XLS_KSZ.Id = "Import_XLS_KSZ"
Me.Import_XLS_KSZ.ImageName = Nothing
Me.Import_XLS_KSZ.Shortcut = Nothing
Me.Import_XLS_KSZ.Tag = Nothing
Me.Import_XLS_KSZ.TargetObjectsCriteria = Nothing
Me.Import_XLS_KSZ.TargetViewId = "XLSImports_DetailView"
Me.Import_XLS_KSZ.ToolTip = Nothing
Me.Import_XLS_KSZ.TypeOfView = Nothing
'
'Import_PH_Immovables
'
Me.Import_PH_Immovables.AcceptButtonCaption = Nothing
Me.Import_PH_Immovables.CancelButtonCaption = Nothing
Me.Import_PH_Immovables.Caption = "Import_PH_Immovables"
Me.Import_PH_Immovables.Category = "Import_PH_Immovables"
Me.Import_PH_Immovables.ConfirmationMessage = Nothing
Me.Import_PH_Immovables.Id = "Import_PH_Immovables"
Me.Import_PH_Immovables.ImageName = Nothing
Me.Import_PH_Immovables.Shortcut = Nothing
Me.Import_PH_Immovables.Tag = Nothing
Me.Import_PH_Immovables.TargetObjectsCriteria = Nothing
Me.Import_PH_Immovables.TargetViewId = ""
Me.Import_PH_Immovables.ToolTip = Nothing
Me.Import_PH_Immovables.TypeOfView = Nothing
'
'aOpenFileDialog
'
Me.aOpenFileDialog.Caption = "aOpen File Dialog"
Me.aOpenFileDialog.Category = "aOpenFileDialog"
Me.aOpenFileDialog.ConfirmationMessage = Nothing
Me.aOpenFileDialog.Id = "aOpenFileDialog"
Me.aOpenFileDialog.ImageName = Nothing
Me.aOpenFileDialog.Shortcut = Nothing
Me.aOpenFileDialog.Tag = Nothing
Me.aOpenFileDialog.TargetObjectsCriteria = Nothing
Me.aOpenFileDialog.TargetViewId = Nothing
Me.aOpenFileDialog.ToolTip = Nothing
Me.aOpenFileDialog.TypeOfView = Nothing
End Sub
Friend WithEvents Import_XLS_Customers As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_Contacts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_Products As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_ProductGroups As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_CustomersBankAccounts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_LiquidAssets As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_ChartsOfAccounts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_Units As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_Contracts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_GLAccounts As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_Services As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_XLS_KSZ As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents Import_PH_Immovables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aOpenFileDialog As DevExpress.ExpressApp.Actions.SimpleAction
End Class
@@ -0,0 +1,165 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="Import_XLS_Customers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="Import_XLS_Contacts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="Import_XLS_Products.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="Import_XLS_ProductGroups.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
</metadata>
<metadata name="Import_XLS_CustomersBankAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
</metadata>
<metadata name="Import_XLS_LiquidAssets.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 368</value>
</metadata>
<metadata name="Import_XLS_ChartsOfAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 407</value>
</metadata>
<metadata name="Import_XLS_Units.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 446</value>
</metadata>
<metadata name="Import_XLS_Contracts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 524</value>
</metadata>
<metadata name="Import_XLS_GLAccounts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="Import_XLS_Services.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 485</value>
</metadata>
<metadata name="Import_XLS_KSZ.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="Import_PH_Immovables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
</metadata>
<metadata name="aOpenFileDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>418, 280</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
File diff suppressed because it is too large Load Diff