First create solution

2017-03-08 11:21:27 +01:00
commit a2fb86bacf
5508 changed files with 1082238 additions and 0 deletions
@@ -0,0 +1,61 @@
+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("GeneralStock")> _
+<DefaultProperty("CustomsTariffNumber")> _
+Public Class CustomsTariffs
+    Inherits BaseObject
+    Private _CustomsTariffNumber As String
+    Private _Description As String
+    Private _NAVCode As String
+    Private _NAVDescription As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property CustomsTariffNumber As String
+        Get
+            Return _CustomsTariffNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("CustomsTariffNumber", _CustomsTariffNumber, value)
+        End Set
+    End Property
+    <Size(255)>
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property NAVCode As String
+        Get
+            Return _NAVCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAVCode", _NAVCode, value)
+        End Set
+    End Property
+    <Size(255)>
+    Property NAVDescription As String
+        Get
+            Return _NAVDescription
+        End Get
+        Set(value As String)
+            SetPropertyValue("NAVDescription", _NAVDescription, value)
+        End Set
+    End Property
+End Class
+
+
@@ -0,0 +1,71 @@
+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 DocumentNote ' 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 _ShortName As String
+    Private _IsActive As Boolean
+
+    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
+
+    <Size(255)> _
+    Property ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, 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,30 @@
+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 GeneralStock
+    Inherits BaseObject
+    Private _Name As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property Name() As String
+        Get
+            Return _Name
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Name", _Name, value)
+        End Set
+    End Property
+End Class
+
+
@@ -0,0 +1,32 @@
+Partial Class GeneralStocks_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()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class
@@ -0,0 +1,38 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+
+Public Class GeneralStocks_VC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+		InitializeComponent()
+		RegisterActions(components) 
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id = "CustomsTariffs_LookupListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+        End If
+    End Sub
+
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "CustomsTariffs_LookupListView" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        End If
+    End Sub
+End Class
@@ -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("GeneralStock")>
+Public Class PacketMode
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _ShortName_Gb As String
+    Private _Shortname_De As String
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property ShortName_Gb As String
+        Get
+            Return _ShortName_Gb
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_Gb", _ShortName_Gb, value)
+        End Set
+    End Property
+    Property ShortName_De As String
+        Get
+            Return _Shortname_De
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_De", _Shortname_De, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class
+
+
@@ -0,0 +1,60 @@
+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
+
+Public Enum eSentenceType
+    R = 0
+    S = 1
+    P = 2
+    H = 3
+    EUH = 4
+End Enum
+<DefaultClassOptions()>
+<NavigationItem("GeneralStock")>
+Public Class Sentence
+    Inherits BaseObject
+
+    Private _SentenceType As eSentenceType
+    Private _ShortName As String
+    Private _Description As String
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property SentenceType As eSentenceType
+        Get
+            Return _SentenceType
+        End Get
+        Set(value As eSentenceType)
+            SetPropertyValue("SentenceType", _SentenceType, value)
+        End Set
+    End Property
+    Property ShortName As String
+        Get
+            Return _ShortName
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    <Size(1000)>
+    Property Description As String
+        Get
+            Return _Description
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+End Class
+
+
@@ -0,0 +1,42 @@
+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("GeneralStock")>
+Public Class UNList
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _Description As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+
+End Class
+
+
@@ -0,0 +1,70 @@
+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("GeneralStock")> _
+Public Class Units
+    Inherits BaseObject
+    Private _ShortName As String
+    Private _ShortName_Gb As String
+    Private _Shortname_De As String
+    Private _Description As String
+    Private _DefaultForBusinnes As Boolean = False
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ShortName As String
+        Get
+            Return _ShortName
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+    Property ShortName_Gb As String
+        Get
+            Return _ShortName_Gb
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_Gb", _ShortName_Gb, value)
+        End Set
+    End Property
+    Property ShortName_De As String
+        Get
+            Return _Shortname_De
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName_De", _Shortname_De, value)
+        End Set
+    End Property
+    Property Description As String
+        Get
+            Return _Description
+
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property DefaultForBusinnes As Boolean
+        Get
+            Return _DefaultForBusinnes
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DefaultForBusinnes", _DefaultForBusinnes, value)
+        End Set
+    End Property
+End Class
+
+