First create solution
This commit is contained in:
@@ -0,0 +1,80 @@
|
||||
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")> _
|
||||
'
|
||||
'<DefaultListViewOptions(MasterDetailMode.ListViewOnly, False, NewItemRowPosition.None)> _
|
||||
'<Persistent("DatabaseTableName")> _
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)>
|
||||
<DefaultProperty("Products.ShortName")>
|
||||
<Indices("Barcode;Products;BarcodeType")>
|
||||
Public Class ProductsBarcodes ' 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 _Products As Products 'Termék
|
||||
Private _Barcode As String 'Vonalkód
|
||||
Private _BarcodeType As String 'Vonalkód tipusa ('PLU','AIR','Private')
|
||||
Private _Units As Units 'Vonalkódhoz tartozó mennyiségi egység
|
||||
Private _Multiplier As Long '? DB van 1 vonalkódhoz rendelve
|
||||
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).
|
||||
Multiplier = 1
|
||||
End Sub
|
||||
<Association("Products-ProductsBarcodes", GetType(Products)), NoForeignKey()>
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Barcode As String
|
||||
Get
|
||||
Return _Barcode
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Barcode", _Barcode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BarcodeType As String
|
||||
Get
|
||||
Return _BarcodeType
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("BarcodeType", _BarcodeType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Units As Units
|
||||
Get
|
||||
Return _Units
|
||||
End Get
|
||||
Set(value As Units)
|
||||
SetPropertyValue("Units", _Units, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Multiplier As Long
|
||||
Get
|
||||
Return _Multiplier
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("Multiplier", _Multiplier, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+44
@@ -0,0 +1,44 @@
|
||||
Partial Class ProductsBarcodesVC
|
||||
|
||||
<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.aGenerateBarcodePrivate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aGenerateBarcodePrivate
|
||||
'
|
||||
Me.aGenerateBarcodePrivate.Caption = "aGenerate Barcode Private"
|
||||
Me.aGenerateBarcodePrivate.ConfirmationMessage = Nothing
|
||||
Me.aGenerateBarcodePrivate.Id = "aGenerateBarcodePrivate"
|
||||
Me.aGenerateBarcodePrivate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aGenerateBarcodePrivate.TargetObjectType = GetType(Nuvolar.[Module].Products)
|
||||
Me.aGenerateBarcodePrivate.ToolTip = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aGenerateBarcodePrivate 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="aGenerateBarcodePrivate.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,57 @@
|
||||
Imports System.Linq
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
|
||||
|
||||
' For more typical usage scenarios, be sure to check out http://documentation.devexpress.com/#Xaf/clsDevExpressExpressAppViewControllertopic.
|
||||
Partial Public Class ProductsBarcodesVC
|
||||
Inherits ViewController
|
||||
|
||||
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.
|
||||
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 aGenerateBarcodePrivate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGenerateBarcodePrivate.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _IsExists As Boolean
|
||||
|
||||
For Each _Products As Products In View.SelectedObjects
|
||||
_IsExists = False
|
||||
For Each _ProductsBarcodes As ProductsBarcodes In _Products.ProductsBarcodes
|
||||
If _ProductsBarcodes.BarcodeType = "PRIVATE" Then
|
||||
If LTrim(RTrim(_ProductsBarcodes.Barcode)) = "" Then
|
||||
_ProductsBarcodes.Barcode = GeneralFunction.EAN13Generator("2" + AlignStr(LTrim(RTrim(Mid(_Products.ProductNumber, 1, 11))), eDirection.Right, "0", 11))
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
_IsExists = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If _IsExists = False Then
|
||||
Dim _ProductsBarcodes As ProductsBarcodes = _ocur.CreateObject(Of ProductsBarcodes)()
|
||||
_ProductsBarcodes.BarcodeType = "PRIVATE"
|
||||
_ProductsBarcodes.Barcode = GeneralFunction.EAN13Generator("2" + AlignStr(LTrim(RTrim(Mid(_Products.ProductNumber, 1, 11))), eDirection.Right, "0", 11))
|
||||
_ProductsBarcodes.Products = _Products
|
||||
_ProductsBarcodes.Multiplier = 1
|
||||
_ProductsBarcodes.Units = _Products.Units
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,109 @@
|
||||
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
|
||||
'-- Termék, termék beszállítók
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False), DefaultProperty("DisplayName")> _
|
||||
Public Class CustomersOrderPriority 'Termék beszállítók !!! Egy termékhez lehet több is !!!
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersOrder As CustomersOrder
|
||||
Private _RowIndex As Long ' Sorrend !!! Kitől rendelünk elsődlegesen.
|
||||
Private _Products As Products 'Termék
|
||||
Private _DeadlineDay As Long 'Mennyi idő mulva tudja szállítani (átlagosan) napban
|
||||
Private _DeadlineWeek As Long 'Mennyi idő mulva tudja szállítani (átlagosan) hétben, ez kerekített a napi értékből
|
||||
Private _MinOrderQTT As Double 'Minimális rendelési mennyiség !
|
||||
Private _MinOrderUnit As Units 'Ehhez tartozó rendelési mennyiség
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
Property CustomersOrder As CustomersOrder
|
||||
Get
|
||||
Return _CustomersOrder
|
||||
End Get
|
||||
Set(value As CustomersOrder)
|
||||
SetPropertyValue("CustomersOrder", _CustomersOrder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowIndex As Long
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("Products-CustomersOrderPriority", GetType(Products))> _
|
||||
Property Products() As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DeadlineDay As Long
|
||||
Get
|
||||
Return _DeadlineDay
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("DeadlineDay", _DeadlineDay, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
If value Mod 7 = 0 Then
|
||||
DeadlineWeek = CType(value / 7, Long)
|
||||
Else
|
||||
DeadlineWeek = CType(value / 7, Long) + 1
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property DeadlineWeek As Long
|
||||
Get
|
||||
Return _DeadlineWeek
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("DeadlineWeek", _DeadlineWeek, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MinOrderQTT As Double
|
||||
Get
|
||||
Return _MinOrderQTT
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("MinOrderQTT", _MinOrderQTT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MinOrderUnit As Units
|
||||
Get
|
||||
Return _MinOrderUnit
|
||||
End Get
|
||||
Set(ByVal value As Units)
|
||||
SetPropertyValue("MinOrderUnit", _MinOrderUnit, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property DisplayName As String
|
||||
Get
|
||||
If CustomersOrder IsNot Nothing Then
|
||||
Return CustomersOrder.FullName
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,128 @@
|
||||
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
|
||||
|
||||
'-- Termék, termék beszállítók
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("BusinessStocks")> _
|
||||
<Appearance("Installation - ObjectCreated Disable all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
|
||||
<Appearance("Installation - UserCreated Disable all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
Public Class Installation
|
||||
Inherits HCategory
|
||||
Private _DocumentNumber As String
|
||||
Private _InstallationType As InstallationType
|
||||
Private _Description As String 'Leírás
|
||||
Private _IsParent As Boolean = True 'Szülő-e ?
|
||||
Private _UserCreated As User
|
||||
Private _ObjectCreated As Date
|
||||
Private _TakeoverProtocolRows As TakeoverProtocolRows
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If String.IsNullOrEmpty(DocumentNumber) Then
|
||||
DocumentNumber = _InstallationType.NumberGenerator.GetNewNumber(_InstallationType.NumberGenerator)
|
||||
End If
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<NonCloneable()> _
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, 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 IsParent() As Boolean
|
||||
Get
|
||||
Return _IsParent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsParent", _IsParent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property InstallationType As InstallationType
|
||||
Get
|
||||
Return _InstallationType
|
||||
End Get
|
||||
Set(value As InstallationType)
|
||||
SetPropertyValue("InstallationType", _InstallationType, 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
|
||||
<Browsable(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInDetailView(False)> _
|
||||
Property TakeoverProtocolRows As TakeoverProtocolRows
|
||||
Get
|
||||
Return _TakeoverProtocolRows
|
||||
End Get
|
||||
Set(value As TakeoverProtocolRows)
|
||||
SetPropertyValue("TakeoverProtocolRows", _TakeoverProtocolRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'-------------ReadOnly-----------
|
||||
<VisibleInListView(False)> _
|
||||
<Aggregated(), Association("Installation-InstallationDocumentations", GetType(InstallationDocumentations))> _
|
||||
Public ReadOnly Property InstallationDocumentations() As XPCollection(Of InstallationDocumentations)
|
||||
Get
|
||||
Return GetCollection(Of InstallationDocumentations)("InstallationDocumentations")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("Installation-InstallationProductsVariable", GetType(InstallationProductsVariable))> _
|
||||
ReadOnly Property InstallationProductsVariable As XPCollection(Of InstallationProductsVariable)
|
||||
Get
|
||||
Return GetCollection(Of InstallationProductsVariable)("InstallationProductsVariable")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,139 @@
|
||||
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 eInstallationDocumentationStatus
|
||||
ePublic = 0 '-- Bárki láthatja
|
||||
ePrivat = 1 '-- Csak belső használatra
|
||||
eCustomers = 2 '-- Az ügyfél akinek a gyártmány átadása történt láthatja
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("SubcontractorDocuments - Hide XML properties, when IsDashboard = False", _
|
||||
AppearanceItemType.ViewItem, "IsDashboard = False", TargetItems:="XML_ServerName;XML_UserName;XML_DatabaseName;XML_Password;XML_SqlType", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class InstallationDocumentations
|
||||
Inherits FileAttachmentBase
|
||||
Private _Installation As Installation
|
||||
Private _Status As eInstallationDocumentationStatus
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
|
||||
Private _IsDashboard As Boolean 'Műszerfal-e
|
||||
Private _XML_ServerName As String
|
||||
Private _XML_UserName As String
|
||||
Private _XML_DatabaseName As String
|
||||
Private _XML_Password As String
|
||||
Private _XML_SqlType As eSQLType
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.Status = eInstallationDocumentationStatus.eCustomers
|
||||
End Sub
|
||||
|
||||
<Persistent(), Association("Installation-InstallationDocumentations")> _
|
||||
Property Installation() As Installation
|
||||
Get
|
||||
Return _Installation
|
||||
End Get
|
||||
Set(ByVal value As Installation)
|
||||
SetPropertyValue("Installation", _Installation, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Status As eInstallationDocumentationStatus
|
||||
Get
|
||||
Return _Status
|
||||
End Get
|
||||
Set(value As eInstallationDocumentationStatus)
|
||||
SetPropertyValue("Status", _Status, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<ImmediatePostData()> _
|
||||
Property IsDashboard As Boolean
|
||||
Get
|
||||
Return _IsDashboard
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsDashboard", _IsDashboard, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("InstallationDocumentations - XML_ServerName", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
|
||||
Property XML_ServerName As String
|
||||
Get
|
||||
Return _XML_ServerName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML_ServerName", _XML_ServerName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("InstallationDocumentations - XML_UserName", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
|
||||
Property XML_UserName As String
|
||||
Get
|
||||
Return _XML_UserName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML_UserName", _XML_UserName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("InstallationDocumentations - XML_DatabaseName", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
|
||||
Property XML_DatabaseName As String
|
||||
Get
|
||||
Return _XML_DatabaseName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML_DatabaseName", _XML_DatabaseName, value)
|
||||
End Set
|
||||
End Property
|
||||
<PasswordPropertyText(True)> _
|
||||
<ValueConverter(GetType(Encryption))> _
|
||||
<RuleRequiredField("InstallationDocumentations - XML_Password", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
|
||||
Property XML_Password As String
|
||||
Get
|
||||
Return _XML_Password
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("XML_Password", _XML_Password, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("InstallationDocumentations - XML_SqlType", DefaultContexts.Save, TargetCriteria:="IsDashboard=True")> _
|
||||
Property XML_SqlType As eSQLType
|
||||
Get
|
||||
Return _XML_SqlType
|
||||
End Get
|
||||
Set(value As eSQLType)
|
||||
SetPropertyValue("XML_SqlType", _XML_SqlType, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,51 @@
|
||||
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 InstallationProductsVariable ' A gyártmány hierarchia legalsó (nem szülő !) része milyen Products-ból áll
|
||||
Inherits BaseObject
|
||||
Private _Installation As Installation
|
||||
Private _Products As Products 'Termék
|
||||
Private _QTT As Double 'Mennyiség
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<Association("Installation-InstallationProductsVariable", GetType(Installation))> _
|
||||
Property Installation As Installation
|
||||
Get
|
||||
Return _Installation
|
||||
End Get
|
||||
Set(ByVal value As Installation)
|
||||
SetPropertyValue("Installation", _Installation, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT As Double
|
||||
Get
|
||||
Return _QTT
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("QTT", _QTT, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,89 @@
|
||||
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
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem("BusinessStocks")> _
|
||||
<Appearance("Disable InstallationType-ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
|
||||
<Appearance("Disable InstallationType-UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
Public Class InstallationType
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _UserCreated As User
|
||||
Private _ObjectCreated As Date
|
||||
Private _ShortName As String
|
||||
Private _NumberGenerator As NumberGenerator
|
||||
Private _IsVirtual As Boolean = False
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, 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
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NumberGenerator As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsVirtual As Boolean
|
||||
Get
|
||||
Return _IsVirtual
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsVirtual", _IsVirtual, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,52 @@
|
||||
Partial Class InstallationVC
|
||||
|
||||
<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.aInstallation_ChangeGroups = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aInstallation_ChangeGroups
|
||||
'
|
||||
Me.aInstallation_ChangeGroups.AcceptButtonCaption = Nothing
|
||||
Me.aInstallation_ChangeGroups.CancelButtonCaption = Nothing
|
||||
Me.aInstallation_ChangeGroups.Caption = "aInstallation_ChangeGroups"
|
||||
Me.aInstallation_ChangeGroups.ConfirmationMessage = Nothing
|
||||
Me.aInstallation_ChangeGroups.Id = "aInstallation_ChangeGroups"
|
||||
Me.aInstallation_ChangeGroups.ImageName = Nothing
|
||||
Me.aInstallation_ChangeGroups.Shortcut = Nothing
|
||||
Me.aInstallation_ChangeGroups.Tag = Nothing
|
||||
Me.aInstallation_ChangeGroups.TargetObjectsCriteria = Nothing
|
||||
Me.aInstallation_ChangeGroups.TargetObjectType = GetType(Nuvolar.[Module].InstallationDocumentations)
|
||||
Me.aInstallation_ChangeGroups.TargetViewId = ""
|
||||
Me.aInstallation_ChangeGroups.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aInstallation_ChangeGroups.ToolTip = Nothing
|
||||
Me.aInstallation_ChangeGroups.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aInstallation_ChangeGroups 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="aInstallation_ChangeGroups.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>16, 21</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,80 @@
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class InstallationVC
|
||||
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()
|
||||
|
||||
If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Contacts As Contacts = _ocur.FindObject(Of Contacts)(CriteriaOperator.Parse("User = ?", _ocur.GetObject(SecuritySystem.CurrentUser)))
|
||||
|
||||
If _Contacts IsNot Nothing Then
|
||||
If _Contacts.Customers IsNot Nothing Then
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("Installation.TakeoverProtocolRows.TakeoverProtocolHeader.Customers.Oid = ? and Installation.TakeoverProtocolRows.TakeoverProtocolHeader.IsEditable=False ", _Contacts.Customers.Oid)
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
Else
|
||||
TryCast(View, ListView).CollectionSource.Criteria("ByPartner") = CriteriaOperator.Parse("1=2")
|
||||
End If
|
||||
Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Installation_InstallationDocumentations_ListView_Support" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of InstallationVC).aInstallation_ChangeGroups.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aInstallation_ChangeGroups_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInstallation_ChangeGroups.CustomizePopupWindowParams
|
||||
Try
|
||||
If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Installation_ChangeGroups_PopUp As Installation_ChangeGroups_PopUp = _onew.CreateObject(Of Installation_ChangeGroups_PopUp)()
|
||||
|
||||
_Installation_ChangeGroups_PopUp.RowGroup1 = TryCast(View.SelectedObjects(0), InstallationDocumentations).RowGroup1
|
||||
_Installation_ChangeGroups_PopUp.RowGroup2 = TryCast(View.SelectedObjects(0), InstallationDocumentations).RowGroup2
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "Installation_ChangeGroups_PopUp_DetailView", False, _Installation_ChangeGroups_PopUp)
|
||||
Catch ext As Exception
|
||||
MsgBox(ext.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aInstallation_ChangeGroups_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInstallation_ChangeGroups.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _Installation_ChangeGroups_PopUp As Installation_ChangeGroups_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), Installation_ChangeGroups_PopUp)
|
||||
If _Installation_ChangeGroups_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
For Each _InstallationDocumentations As InstallationDocumentations In View.SelectedObjects
|
||||
If _Installation_ChangeGroups_PopUp.Change_RowGroup1 Then
|
||||
_InstallationDocumentations.RowGroup1 = _Installation_ChangeGroups_PopUp.RowGroup1
|
||||
End If
|
||||
If _Installation_ChangeGroups_PopUp.Change_RowGroup2 Then
|
||||
_InstallationDocumentations.RowGroup2 = _Installation_ChangeGroups_PopUp.RowGroup2
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Catch ext As Exception
|
||||
MsgBox(ext.Message)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
+65
@@ -0,0 +1,65 @@
|
||||
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()> _
|
||||
<NonPersistent()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class Installation_ChangeGroups_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelezõ)
|
||||
Private _Change_RowGroup1 As Boolean
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelezõ)
|
||||
Private _Change_RowGroup2 As Boolean
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Change_RowGroup1 = True
|
||||
Change_RowGroup2 = True
|
||||
End Sub
|
||||
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_RowGroup1 As Boolean
|
||||
Get
|
||||
Return _Change_RowGroup1
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_RowGroup1", _Change_RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Change_RowGroup2 As Boolean
|
||||
Get
|
||||
Return _Change_RowGroup2
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Change_RowGroup2", _Change_RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,132 @@
|
||||
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 ePriceMode
|
||||
eDEVToHUF = 0
|
||||
eHUFToDEV = 1
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ModifyProductsParameters
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CurrencyRate As Double
|
||||
Private _CurrencyName As CurrencyName
|
||||
Private _ProductType As eProductType
|
||||
Private _IsProductType As Boolean = False
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
CurrencyName = Session.FindObject(Of CurrencyName)(Session.ParseCriteria("ShortName='HUF'"))
|
||||
End Sub
|
||||
|
||||
<NonPersistent()> Property Parameter_01 As String
|
||||
<NonPersistent()> Property Parameter_02 As String
|
||||
<NonPersistent()> Property Parameter_03 As String
|
||||
<NonPersistent()> Property Parameter_04 As String
|
||||
<NonPersistent()> Property Parameter_05 As String
|
||||
<NonPersistent()> Property Parameter_06 As String
|
||||
<NonPersistent()> Property Parameter_07 As String
|
||||
<NonPersistent()> Property Parameter_08 As String
|
||||
<NonPersistent()> Property Parameter_09 As String
|
||||
<NonPersistent()> Property Parameter_10 As String
|
||||
<NonPersistent()> Property IsParameter_01 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_02 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_03 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_04 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_05 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_06 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_07 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_08 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_09 As Boolean = False
|
||||
<NonPersistent()> Property IsParameter_10 As Boolean = False
|
||||
<NonPersistent()> Property IsCurrencyName As Boolean = False
|
||||
<NonPersistent()> Property IsCustomsTariffs As Boolean = False
|
||||
<NonPersistent()> Property IsCountryFrom As Boolean = False
|
||||
<NonPersistent()> Property IsCustomersOrder1 As Boolean = False
|
||||
<NonPersistent()> Property IsCustomersOrder2 As Boolean = False
|
||||
<NonPersistent()> Property IsCustomersOrder3 As Boolean = False
|
||||
<NonPersistent()> Property ProductsGroups As ProductsGroups
|
||||
<NonPersistent()> Property IsUnits As Boolean = False
|
||||
<NonPersistent()> Property IsVAT As Boolean = False
|
||||
<NonPersistent()> Property CustomersOrder1 As CustomersOrder
|
||||
<NonPersistent()> Property CustomersOrder2 As CustomersOrder
|
||||
<NonPersistent()> Property CustomersOrder3 As CustomersOrder
|
||||
<NonPersistent()> Property Units As Units
|
||||
<NonPersistent()> Property VAT As VAT
|
||||
<NonPersistent()> Property CustomsTariffs As CustomsTariffs
|
||||
<NonPersistent()> Property CountryFrom As Country
|
||||
<NonPersistent()> Property IsListPriceHUF As Boolean = False 'Listaár módosuljon ?
|
||||
<NonPersistent()> Property IsListPriceDEV As Boolean = False 'Listaár módosuljon ?
|
||||
<NonPersistent()> Property ListPricePercent As Double = 0 'Listaár %-kal módosul ? termékár változás
|
||||
<NonPersistent()> Property IsListPriceRegenerate As Boolean = False 'Listaár újraszámolódjon ? valuta váltás
|
||||
<NonPersistent()> Property PriceMode As ePriceMode = ePriceMode.eDEVToHUF
|
||||
<NonPersistent()> Property IsProducer As Boolean = False
|
||||
<NonPersistent()> Property Producer As Customers
|
||||
<NonPersistent()> Property IsDecimalIn As Boolean
|
||||
<NonPersistent()> Property IsDecimalOut As Boolean
|
||||
<NonPersistent()> Property DecimalIn As Double
|
||||
<NonPersistent()> Property DecimalOut As Double
|
||||
|
||||
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value.ShortName <> "HUF" Then
|
||||
Dim _CurrencyRate As CurrencyRate = Session.FindObject(Of CurrencyRate)(Session.ParseCriteria("IsMNB=? AND GetDate(DateValid)=? AND CurrencyName=?", True, GetSQLTime(Session).Date, value))
|
||||
If _CurrencyRate Is Nothing Then
|
||||
_CurrencyRate = Session.FindObject(Of CurrencyRate)(Session.ParseCriteria("IsMNB=? AND GetDate(DateValid)=?", True, GetSQLTime(Session).Date.AddDays(-1)))
|
||||
If _CurrencyRate IsNot Nothing Then
|
||||
CurrencyRate = _CurrencyRate.RateAverage
|
||||
End If
|
||||
Else
|
||||
If _CurrencyRate IsNot Nothing Then
|
||||
CurrencyRate = _CurrencyRate.RateAverage
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
Property CurrencyRate As Double
|
||||
Get
|
||||
Return _CurrencyRate
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CurrencyRate", _CurrencyRate, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
Property ProductType As eProductType
|
||||
Get
|
||||
Return _ProductType
|
||||
End Get
|
||||
Set(value As eProductType)
|
||||
SetPropertyValue("ProductType", _ProductType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
Property IsProductType As Boolean
|
||||
Get
|
||||
Return _IsProductType
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsProductType", _IsProductType, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,84 @@
|
||||
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()> _
|
||||
<NonPersistent()>
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class ProductFinder
|
||||
Inherits BaseObject
|
||||
Private _MasterKey As Guid
|
||||
Private _Products As Products
|
||||
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
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(), Browsable(False)>
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
Dim c As XPCollection(Of ProductFinderInfo)
|
||||
c = Me.ProductFinderInfo
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductSelect As XPCollection(Of ProductSelect)
|
||||
Get
|
||||
Return New XPCollection(Of ProductSelect)(Session)
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductSelected As XPCollection(Of ProductSelected)
|
||||
Get
|
||||
Return New XPCollection(Of ProductSelected)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property StorageOutCirculation As XPCollection(Of StorageOutCirculation)
|
||||
Get
|
||||
Return New XPCollection(Of StorageOutCirculation)(Session, CriteriaOperator.Parse("1=2"))
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property StorageComputedInfo As XPCollection(Of StorageComputedInfo)
|
||||
Get
|
||||
Return New XPCollection(Of StorageComputedInfo)(Session, CriteriaOperator.Parse("1=2"))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductFinderInfo As XPCollection(Of ProductFinderInfo)
|
||||
Get
|
||||
Return New XPCollection(Of ProductFinderInfo)(Session, CriteriaOperator.Parse("1=2"))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,52 @@
|
||||
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()> _
|
||||
<NonPersistent()>
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class ProductFinderFIFO
|
||||
Inherits BaseObject
|
||||
Private _MasterKey As Guid
|
||||
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
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
|
||||
Get
|
||||
Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse(""))
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property ProductSelectedFIFO As XPCollection(Of ProductSelectedFIFO)
|
||||
Get
|
||||
Return New XPCollection(Of ProductSelectedFIFO)(Session, CriteriaOperator.Parse("MasterKey=?", Me.MasterKey))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,46 @@
|
||||
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
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
<Appearance("Set PropertyName Font style", AppearanceItemType:="ViewItem", FontStyle:=Drawing.FontStyle.Bold, TargetItems:="PropertyName")> _
|
||||
Public Class ProductFinderInfo
|
||||
Inherits BaseObject
|
||||
Private _PropertyName As String
|
||||
Private _InfoString As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property PropertyName As String
|
||||
Get
|
||||
Return _PropertyName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("PropertyName", _PropertyName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property InfoString As String
|
||||
Get
|
||||
Return _InfoString
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("InfoString", _InfoString, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+67
@@ -0,0 +1,67 @@
|
||||
Partial Class ProductFinderVC
|
||||
|
||||
<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.aToTableProductFinder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_ProductFinder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aToTableProductFinder
|
||||
'
|
||||
Me.aToTableProductFinder.Caption = "aTo Table Product Finder"
|
||||
Me.aToTableProductFinder.Category = "aToTableProductFinder"
|
||||
Me.aToTableProductFinder.ConfirmationMessage = Nothing
|
||||
Me.aToTableProductFinder.Id = "aToTableProductFinder"
|
||||
Me.aToTableProductFinder.ImageName = Nothing
|
||||
Me.aToTableProductFinder.Shortcut = "Add"
|
||||
Me.aToTableProductFinder.Tag = Nothing
|
||||
Me.aToTableProductFinder.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableProductFinder.TargetObjectType = GetType(Nuvolar.[Module].ProductFinder)
|
||||
Me.aToTableProductFinder.TargetViewId = Nothing
|
||||
Me.aToTableProductFinder.ToolTip = Nothing
|
||||
Me.aToTableProductFinder.TypeOfView = Nothing
|
||||
'
|
||||
'aToTableD_ProductFinder
|
||||
'
|
||||
Me.aToTableD_ProductFinder.Caption = "aToTableD_ProductFinder"
|
||||
Me.aToTableD_ProductFinder.Category = "aToTableD_ProductFinder"
|
||||
Me.aToTableD_ProductFinder.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aToTableD_ProductFinder.Id = "aToTableD_ProductFinder"
|
||||
Me.aToTableD_ProductFinder.ImageName = Nothing
|
||||
Me.aToTableD_ProductFinder.Shortcut = "Subtract"
|
||||
Me.aToTableD_ProductFinder.Tag = Nothing
|
||||
Me.aToTableD_ProductFinder.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_ProductFinder.TargetObjectType = GetType(Nuvolar.[Module].ProductFinder)
|
||||
Me.aToTableD_ProductFinder.TargetViewId = Nothing
|
||||
Me.aToTableD_ProductFinder.ToolTip = Nothing
|
||||
Me.aToTableD_ProductFinder.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aToTableProductFinder As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_ProductFinder 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="aToTableProductFinder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_ProductFinder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>195, 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,126 @@
|
||||
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.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class ProductFinderVC
|
||||
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 ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "ProductFinder_DetailView" Then
|
||||
Frame.GetController(Of ProductFinderVC).aToTableProductFinder.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "ProductFinder_ProductSelect_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProductFinder_ProductSelected_ListView" Then
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ProductFinder_StorageOutCirculation_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
If View.Id = "ProductFinder_ProductFinderInfo_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aToTableProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableProductFinder.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
Dim _ProductSelect_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelect")
|
||||
Dim _ProductSelected_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelected")
|
||||
|
||||
Dim _ProductFinder As ProductFinder = TryCast(View.SelectedObjects(0), ProductFinder)
|
||||
Dim _ProductSelect As ProductSelect
|
||||
Dim _ProductSelected As ProductSelected
|
||||
|
||||
Dim _IsExists As Boolean = False
|
||||
|
||||
If _ProductSelect_ListPropertyEditor IsNot Nothing Then
|
||||
For Each _ProductSelect In _ProductSelect_ListPropertyEditor.ListView.SelectedObjects
|
||||
If _ProductSelected_ListPropertyEditor IsNot Nothing Then
|
||||
_IsExists = False
|
||||
For Each _ProductSelected In _ProductSelected_ListPropertyEditor.ListView.CollectionSource.List
|
||||
If _ProductSelected.Products Is _ProductSelect.Products Then
|
||||
_IsExists = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _IsExists Then
|
||||
_ProductSelected.QTT += 1
|
||||
Else
|
||||
_ProductSelected = _ocur.CreateObject(Of ProductSelected)()
|
||||
_ProductSelected.MasterKey = _ProductFinder.MasterKey
|
||||
_ProductSelected.Products = _ProductSelect.Products
|
||||
_ProductSelected.QTT = 1
|
||||
_ProductSelected_ListPropertyEditor.ListView.CollectionSource.Add(_ProductSelected)
|
||||
End If
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub aToTableD_ProductFinder_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aToTableD_ProductFinder.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ProductSelected_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ProductSelected")
|
||||
Dim _ProductFinder As ProductFinder = TryCast(View.SelectedObjects(0), ProductFinder)
|
||||
Dim _ProductSelected_Collection As New XPCollection(Of ProductSelected)(_onew.Session, CriteriaOperator.Parse("1=2"))
|
||||
Dim _ProductSelected As ProductSelected
|
||||
If _ProductSelected_ListPropertyEditor IsNot Nothing Then
|
||||
For Each _ProductSelected In _ProductSelected_ListPropertyEditor.ListView.SelectedObjects
|
||||
_ProductSelected_Collection.Add(_onew.GetObject(_ProductSelected))
|
||||
Next
|
||||
_onew.Delete(_ProductSelected_Collection)
|
||||
_onew.CommitChanges()
|
||||
_ProductSelected_ListPropertyEditor.ListView.CollectionSource.Reload()
|
||||
End If
|
||||
End Sub
|
||||
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
|
||||
|
||||
<DefaultClassOptions(), NonPersistent(), CreatableItem(False), NavigationItem(False)> _
|
||||
Public Class ProductFinderVariable
|
||||
Inherits BaseObject
|
||||
Private _MasterKey As Guid
|
||||
Private _Products As Products
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(), Browsable(False)>
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductSelectOriginal As XPCollection(Of ProductSelect)
|
||||
Get
|
||||
If Me.Products IsNot Nothing Then
|
||||
Return New XPCollection(Of ProductSelect)(Session, CriteriaOperator.Parse("Products=?", Me.Products))
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductSelectVariables As XPCollection(Of ProductSelect)
|
||||
Get
|
||||
Return New XPCollection(Of ProductSelect)(Session)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,68 @@
|
||||
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 ProductSelected
|
||||
Inherits BaseObject
|
||||
Private _MasterKey As Guid 'PopUP master key
|
||||
Private _Products As Products
|
||||
Private _QTT As Double
|
||||
Private _Description 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
|
||||
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT As Double
|
||||
Get
|
||||
Return _QTT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT", _QTT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,68 @@
|
||||
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 ProductSelectedFIFO
|
||||
Inherits BaseObject
|
||||
Private _MasterKey As Guid
|
||||
Private _StorageInRows As StorageInRows
|
||||
Private _QTT As Double
|
||||
Private _Description 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
|
||||
|
||||
<Browsable(False)> _
|
||||
Property MasterKey As Guid
|
||||
Get
|
||||
Return _MasterKey
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("MasterKey", _MasterKey, value)
|
||||
End Set
|
||||
End Property
|
||||
Property StorageInRows As StorageInRows
|
||||
Get
|
||||
Return _StorageInRows
|
||||
End Get
|
||||
Set(value As StorageInRows)
|
||||
SetPropertyValue("StorageInRows", _StorageInRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT As Double
|
||||
Get
|
||||
Return _QTT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT", _QTT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+127
@@ -0,0 +1,127 @@
|
||||
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 System.Linq
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()>
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class ProductsGant_CreateCustomersReport_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Customers As Customers
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _Products As Products
|
||||
Private _ProductsGantRows As ProductsGantRows
|
||||
Private _DateExecution As Date
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ProductsGantRows As ProductsGantRows
|
||||
Get
|
||||
Return _ProductsGantRows
|
||||
End Get
|
||||
Set(value As ProductsGantRows)
|
||||
SetPropertyValue("ProductsGantRows", _ProductsGantRows, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
|
||||
' ProductsGantCustomersReport.Reload()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property ProductsGantCustomersReport As XPCollection(Of ProductsGantCustomersReport)
|
||||
Get
|
||||
Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(Session)
|
||||
Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ
|
||||
Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And
|
||||
_InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = CustomersFrom.Oid And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.Customers.Oid = Customers.Oid
|
||||
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
|
||||
Select New With {Key .Products = Products}
|
||||
|
||||
|
||||
If IRXPQ.Count > 0 Then
|
||||
For Each _IRXPQ_Item In IRXPQ
|
||||
Dim _ProductsGantCustomersReport As New ProductsGantCustomersReport(Session)
|
||||
With _ProductsGantCustomersReport
|
||||
.Customers = Customers
|
||||
.Products = _IRXPQ_Item.Products
|
||||
.DateExecution = DateExecution.Date
|
||||
End With
|
||||
|
||||
_ProductsGantCustomersReport_Collection.Add(_ProductsGantCustomersReport)
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
Dim _ProductsGantCustomersReport_Existing_Collection As New XPCollection(Of ProductsGantCustomersReport) _
|
||||
(Session, CriteriaOperator.Parse("Customers=? AND Products=? AND GetDate(DateExecution)=?", Customers, Products, DateExecution.Date))
|
||||
|
||||
If _ProductsGantCustomersReport_Existing_Collection.Count > 0 Then
|
||||
For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Existing_Collection
|
||||
_ProductsGantCustomersReport_Collection.Add(_ProductsGantCustomersReport)
|
||||
Next
|
||||
End If
|
||||
|
||||
Return _ProductsGantCustomersReport_Collection
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+90
@@ -0,0 +1,90 @@
|
||||
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)> _
|
||||
<NonPersistent()> _
|
||||
Public Class ProductsGant_SetGantItemColumn_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ColumnCaption As String
|
||||
Private _IsGroupColumn As Boolean
|
||||
Private _GroupIndex As Long
|
||||
Private _IsVisable As Boolean
|
||||
Private _Index As Long
|
||||
Private _Width As Long
|
||||
Private _ColumnID As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property ColumnCaption As String
|
||||
Get
|
||||
Return _ColumnCaption
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ColumnCaption", _ColumnCaption, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsGroupColumn As Boolean
|
||||
Get
|
||||
Return _IsGroupColumn
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsGroupColumn", _IsGroupColumn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GroupIndex As Long
|
||||
Get
|
||||
Return _GroupIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("GroupIndex", _GroupIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsVisable As Boolean
|
||||
Get
|
||||
Return _IsVisable
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsVisable", _IsVisable, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Index As Long
|
||||
Get
|
||||
Return _Index
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("Index", _Index, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Width As Long
|
||||
Get
|
||||
Return _Width
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("Width", _Width, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ColumnID As String
|
||||
Get
|
||||
Return _ColumnID
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ColumnID", _ColumnID, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,41 @@
|
||||
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()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class StorageComputedInfo
|
||||
Inherits BaseObject
|
||||
Private _InfoString 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 InfoString As String
|
||||
Get
|
||||
Return _InfoString
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("InfoString", _InfoString, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,24 @@
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
<DefaultClassOptions()> _
|
||||
<Persistent("vv_ProductSelect")> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DefaultProperty("DisplayName")> _
|
||||
<Appearance("Set QTT_Will Font style", AppearanceItemType:="ViewItem", FontStyle:=Drawing.FontStyle.Bold, BackColor:="240,240,240", TargetItems:="QTT_Will")> _
|
||||
Public Class ProductSelect
|
||||
Inherits XPLiteObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<Key(True), Persistent("Oid")> Public Oid As Guid
|
||||
<Persistent("Products")> Public Products As Products
|
||||
<Persistent("StorageComputed")> Public StorageComputed As StorageComputed
|
||||
<NonPersistent()> Public QTT_Will As Double
|
||||
ReadOnly Property DisplayName As String
|
||||
Get
|
||||
Return String.Format("{0}, {1}", Products.ProductNumber, Products.ShortName)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,863 @@
|
||||
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
|
||||
Imports System.Drawing
|
||||
'-- Termék, termék beszállítók
|
||||
<DefaultClassOptions()>
|
||||
<Indices("ProductNumber", "ShortName")>
|
||||
<NavigationItem("BusinessStocks")>
|
||||
<Appearance("Disable ObjectCreated and UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated;UserCreated", Enabled:=False)>
|
||||
Public Class Products
|
||||
Inherits BaseObject
|
||||
Private _ProductType As eProductType = eProductType.eNormal
|
||||
Private _ProductsGroups As ProductsGroups 'Termék csoport
|
||||
Private _ProductNumber As String 'Termék cikkszáma, egyedi ! Nem lehet két egyforma !!!!!!
|
||||
Private _ProductCode As String 'Termék kód
|
||||
Private _ProductStrategyCode As String 'Stratégiai kód, az automatikus rendelést fogja befojásolni
|
||||
Private _ShortName As String 'Megnevezés
|
||||
Private _ShortName_Hu As String 'Megnevezés magyarul
|
||||
Private _ShortName_Gb As String 'Megnevezés angolul
|
||||
Private _ShortName_De As String 'Megnevezés németül
|
||||
Private _Description As String 'Leírás
|
||||
Private _Description_Hu As String 'Leírás magyarul
|
||||
Private _Description_Gb As String 'Leírás angolul
|
||||
Private _Description_De As String 'Leírás németül
|
||||
Private _Description_Private As String 'Belső megjegyzés a termékre vonatkozóan
|
||||
Private _VAT As VAT 'ÁFA kód
|
||||
Private _Units As Units 'Mennyiségi egység
|
||||
Private _CustomsTariff As CustomsTariffs 'Vámtarifa szj, stb
|
||||
Private _NettoWeight As Double 'Nettó súly
|
||||
Private _GrossWeight As Double 'Bruttó súly (csomagolva a nettó)
|
||||
Private _PacketUnitOut As Double 'Eladási csomagolási egység
|
||||
Private _PacketUnitIn As Double 'Beszerzési csomagolási egység
|
||||
Private _PacketMode As PacketMode 'Csomagolási mód
|
||||
Private _ListPriceOutHUF As Double 'Listaár HUF eladási !!!
|
||||
Private _ListPriceOutDEV As Double 'Listaár DEV eladási
|
||||
Private _ListPriceInHUF As Double 'Listaár HUF vételi !!!
|
||||
Private _ListPriceInDEV As Double 'Listaár DEV vételi
|
||||
Private _CurrencyName As CurrencyName 'Deviza ( ez az alapértelmezett devizája !)
|
||||
Private _CountryFrom As Country 'Származási ország !
|
||||
Private _DecimalIn As Long ' Bejövő bizonylatoknál ? tizedesre
|
||||
Private _DecimalOut As Long 'Kimenő bizonylatoknál ? tizedesre
|
||||
Private _ObjectCreated As Date 'Létrehozás dátuma
|
||||
Private _UserCreated As User 'Létrehozó
|
||||
Private _Barcode As String 'Vonalkód
|
||||
Private _MasterBusinessDirectory As BusinessDirectory
|
||||
Private _IsStoragEverUsed As Boolean
|
||||
|
||||
Private _Parameter_01 As String = ""
|
||||
Private _Parameter_02 As String = ""
|
||||
Private _Parameter_03 As String = ""
|
||||
Private _Parameter_04 As String = ""
|
||||
Private _Parameter_05 As String = ""
|
||||
Private _Parameter_06 As String = ""
|
||||
Private _Parameter_07 As String = ""
|
||||
Private _Parameter_08 As String = ""
|
||||
Private _Parameter_09 As String = ""
|
||||
Private _Parameter_10 As String = ""
|
||||
Private _HRPersonResponsible As HRPerson 'Termék felelős
|
||||
Private _HRPersonSpecialist As HRPerson 'Termék specialista
|
||||
|
||||
'//WEB ShoppingCart megjelenéshez
|
||||
Private _Picture_110x110 As Image
|
||||
Private _Picture_240x220 As Image
|
||||
Private _Picture_FullSize As Image
|
||||
Private _ProductsGroupsWEB As ProductsGroupsWEB
|
||||
|
||||
Private _Producer As Customers 'Gyártó
|
||||
Private _ADRPackingUnit As eADRPackingUnit
|
||||
Private _UNNumber As String 'UN szám (mezőgazdasági veszélyességhez) (Obsolete)
|
||||
Private _UNNumberDescription As String 'UN szám szöveges megjelenítése (Obsolete)
|
||||
Private _Agent As String 'Hatóanyag
|
||||
Private _DangerLabel As Double 'Veszélyességi bárca (Obsolete)
|
||||
Private _DangerLabelString As String 'Veszélyességi bárca szövegesen pld. 6.1,5.2
|
||||
Private _DangerClass As eDangerClass
|
||||
Private _PGNumber As String 'PG szám a veszélyességhez
|
||||
|
||||
|
||||
Private _FastCode As String 'Termék gyorskód
|
||||
Private _PLUCode As String 'Pult kód mérlegelt termékekhez
|
||||
Private _Empties As Products 'Göngyöleg
|
||||
Private _PriceColumnBruttoHUF01 As Double '1. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF02 As Double '2. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF03 As Double '3. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF04 As Double '4. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF05 As Double '5. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF06 As Double '6. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF07 As Double '7. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF08 As Double '8. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF09 As Double '9. ároszlop forintos bruttó ára
|
||||
Private _PriceColumnBruttoHUF10 As Double '10. ároszlop forintos bruttó ára
|
||||
|
||||
Private _CustomersOrder01 As CustomersOrder '1. beszállító
|
||||
Private _CustomersOrder02 As CustomersOrder '2. beszállító
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.ObjectCreated = GetSQLTime(Session)
|
||||
Me.UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
IsStoragEverUsed = False
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If IsDeleted = False Then
|
||||
If CustomersOrder01 Is Nothing Then
|
||||
If Me.CustomersOrderPriority.Count > 0 Then
|
||||
Me.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
Me.CustomersOrder01 = Me.CustomersOrderPriority(0).CustomersOrder
|
||||
End If
|
||||
End If
|
||||
If CustomersOrder02 Is Nothing Then
|
||||
If Me.CustomersOrderPriority.Count > 1 Then
|
||||
Me.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
Me.CustomersOrder02 = Me.CustomersOrderPriority(1).CustomersOrder
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Property ProductType As eProductType
|
||||
Get
|
||||
Return _ProductType
|
||||
End Get
|
||||
Set(value As eProductType)
|
||||
SetPropertyValue("ProductType", _ProductType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ProductGroups As ProductsGroups
|
||||
Get
|
||||
Return _ProductsGroups
|
||||
End Get
|
||||
Set(ByVal value As ProductsGroups)
|
||||
SetPropertyValue("ProductsGroups", _ProductsGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Products.ProductNumber.RuleRequiredField", DefaultContexts.Save)>
|
||||
<RuleUniqueValue("Products.ProductNumber.RuleUniqueValue", DefaultContexts.Save,
|
||||
CriteriaEvaluationBehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction)>
|
||||
<Size(255)>
|
||||
Property ProductNumber() As String
|
||||
Get
|
||||
Return _ProductNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ProductNumber", _ProductNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ProductCode As String
|
||||
Get
|
||||
Return _ProductCode
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ProductCode", _ProductCode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ProductStrategyCode As String
|
||||
Get
|
||||
Return _ProductStrategyCode
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ProductStrategyCode", _ProductStrategyCode, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property ShortName_Hu As String
|
||||
Get
|
||||
Return _ShortName_Hu
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName_Hu", _ShortName_Hu, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
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
|
||||
<Size(255)>
|
||||
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
|
||||
<Size(-1)>
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description_Hu() As String
|
||||
Get
|
||||
Return _Description_Hu
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description_Hu", _Description_Hu, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description_Gb() As String
|
||||
Get
|
||||
Return _Description_Gb
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description_gb", _Description_Gb, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description_De() As String
|
||||
Get
|
||||
Return _Description_De
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description_De", _Description_De, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description_Private As String
|
||||
Get
|
||||
Return _Description_Private
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description_Private", _Description_Private, value)
|
||||
End Set
|
||||
End Property
|
||||
Property VAT As VAT
|
||||
Get
|
||||
Return _VAT
|
||||
End Get
|
||||
Set(ByVal value As VAT)
|
||||
SetPropertyValue("VAT", _VAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Units As Units
|
||||
Get
|
||||
Return _Units
|
||||
End Get
|
||||
Set(ByVal value As Units)
|
||||
SetPropertyValue("Units", _Units, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomsTariff As CustomsTariffs
|
||||
Get
|
||||
Return _CustomsTariff
|
||||
End Get
|
||||
Set(ByVal value As CustomsTariffs)
|
||||
SetPropertyValue("CustomsTariff", _CustomsTariff, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NettoWeight As Double
|
||||
Get
|
||||
Return _NettoWeight
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("NettoWeight", _NettoWeight, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GrossWeight As Double
|
||||
Get
|
||||
Return _GrossWeight
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("GrossWeight", _GrossWeight, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PacketUnitOut As Double
|
||||
Get
|
||||
Return _PacketUnitOut
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PacketUnitOut", _PacketUnitOut, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PacketUnitIn As Double
|
||||
Get
|
||||
Return _PacketUnitIn
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PacketUnitIn", _PacketUnitIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PacketMode As PacketMode
|
||||
Get
|
||||
Return _PacketMode
|
||||
End Get
|
||||
Set(ByVal value As PacketMode)
|
||||
SetPropertyValue("PacketMode", _PacketMode, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ListPriceOutHUF As Double
|
||||
Get
|
||||
Return _ListPriceOutHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceOutHUF", _ListPriceOutHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceOutDEV As Double
|
||||
Get
|
||||
Return _ListPriceOutDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceOutDEV", _ListPriceOutDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceInHUF As Double
|
||||
Get
|
||||
Return _ListPriceInHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceInHUF", _ListPriceInHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceInDEV As Double
|
||||
Get
|
||||
Return _ListPriceInDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceInDEV", _ListPriceInDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("Currencyname", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CountryFrom As Country
|
||||
Get
|
||||
Return _CountryFrom
|
||||
End Get
|
||||
Set(ByVal value As Country)
|
||||
SetPropertyValue("CountryFrom", _CountryFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DecimalIn As Long
|
||||
Get
|
||||
Return _DecimalIn
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("DecimalIn", _DecimalIn, value)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
Property DecimalOut As Long
|
||||
Get
|
||||
Return _DecimalOut
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("DecimalOut", _DecimalOut, 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
|
||||
<NonCloneable>
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(50)>
|
||||
Property Barcode As String
|
||||
Get
|
||||
Return _Barcode
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Barcode", _Barcode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MasterBusinessDirectory As BusinessDirectory
|
||||
Get
|
||||
Return _MasterBusinessDirectory
|
||||
End Get
|
||||
Set(value As BusinessDirectory)
|
||||
SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)>
|
||||
<VisibleInDetailView(False)>
|
||||
Property IsStoragEverUsed As Boolean
|
||||
Get
|
||||
Return _IsStoragEverUsed
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsStoragEverUsed", _IsStoragEverUsed, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Size(255)>
|
||||
Property Parameter_01 As String
|
||||
Get
|
||||
Return _Parameter_01
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_01", _Parameter_01, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_02 As String
|
||||
Get
|
||||
Return _Parameter_02
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_02", _Parameter_02, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_03 As String
|
||||
Get
|
||||
Return _Parameter_03
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_03", _Parameter_03, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_04 As String
|
||||
Get
|
||||
Return _Parameter_04
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_04", _Parameter_04, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_05 As String
|
||||
Get
|
||||
Return _Parameter_05
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_05", _Parameter_05, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_06 As String
|
||||
Get
|
||||
Return _Parameter_06
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_06", _Parameter_06, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_07 As String
|
||||
Get
|
||||
Return _Parameter_07
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_07", _Parameter_07, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_08 As String
|
||||
Get
|
||||
Return _Parameter_08
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_08", _Parameter_08, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_09 As String
|
||||
Get
|
||||
Return _Parameter_09
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_09", _Parameter_09, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property Parameter_10 As String
|
||||
Get
|
||||
Return _Parameter_10
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Parameter_10", _Parameter_10, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPersonResponsible As HRPerson
|
||||
Get
|
||||
Return _HRPersonResponsible
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPersonResponsible", _HRPersonResponsible, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPersonSpecialist As HRPerson
|
||||
Get
|
||||
Return _HRPersonSpecialist
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPersonSpecialist", _HRPersonSpecialist, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'//WEB miatt
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))>
|
||||
Property Picture_110x110 As Image
|
||||
Get
|
||||
Return _Picture_110x110
|
||||
End Get
|
||||
Set(value As Image)
|
||||
SetPropertyValue("Picture_110x110", _Picture_110x110, value)
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))>
|
||||
Property Picture_240x220 As Image
|
||||
Get
|
||||
Return _Picture_240x220
|
||||
End Get
|
||||
Set(value As Image)
|
||||
SetPropertyValue("Picture_240x220", _Picture_240x220, value)
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))>
|
||||
Property Picture_FullSize As Image
|
||||
Get
|
||||
Return _Picture_FullSize
|
||||
End Get
|
||||
Set(value As Image)
|
||||
SetPropertyValue("Picture_FullSize", _Picture_FullSize, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ProductsGroupsWEB As ProductsGroupsWEB
|
||||
Get
|
||||
Return _ProductsGroupsWEB
|
||||
End Get
|
||||
Set(value As ProductsGroupsWEB)
|
||||
SetPropertyValue("ProductsGroupsWEB", _ProductsGroupsWEB, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'Veszélyesség
|
||||
Property Producer As Customers
|
||||
Get
|
||||
Return _Producer
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Producer", _Producer, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ADRPackingUnit As eADRPackingUnit
|
||||
Get
|
||||
Return _ADRPackingUnit
|
||||
End Get
|
||||
Set(value As eADRPackingUnit)
|
||||
SetPropertyValue("ADRPackingUnit", _ADRPackingUnit, value)
|
||||
End Set
|
||||
End Property
|
||||
Property UNNumber As String
|
||||
Get
|
||||
Return _UNNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("UNNumber", _UNNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(800)>
|
||||
Property UNNumberDescription As String
|
||||
Get
|
||||
Return _UNNumberDescription
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("UNNumberDescription", _UNNumberDescription, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Agent As String
|
||||
Get
|
||||
Return _Agent
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Agent", _Agent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DangerLabel As Double
|
||||
Get
|
||||
Return _DangerLabel
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DangerLabel", _DangerLabel, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DangerLabelString As String
|
||||
Get
|
||||
Return _DangerLabelString
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DangerLabelString", _DangerLabelString, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property DangerClass As eDangerClass
|
||||
Get
|
||||
Return _DangerClass
|
||||
End Get
|
||||
Set(value As eDangerClass)
|
||||
SetPropertyValue("DangerClass", _DangerClass, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PGNumber As String
|
||||
Get
|
||||
Return _PGNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("PGNumber", _PGNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'Vonalkód, pultkód
|
||||
Property FastCode As String
|
||||
Get
|
||||
Return _FastCode
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("FastCode", _FastCode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PLUCode As String
|
||||
Get
|
||||
Return _PLUCode
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("PLUCode", _PLUCode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Empties As Products
|
||||
Get
|
||||
Return _Empties
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Empties", _Empties, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'Ároszlop ÁRAK
|
||||
Property PriceColumnBruttoHUF01 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF01
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF01", _PriceColumnBruttoHUF01, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF02 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF02
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF02", _PriceColumnBruttoHUF02, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF03 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF03
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF03", _PriceColumnBruttoHUF03, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF04 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF04
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF04", _PriceColumnBruttoHUF04, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF05 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF05
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF05", _PriceColumnBruttoHUF05, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF06 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF01
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF06", _PriceColumnBruttoHUF06, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF07 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF01
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF07", _PriceColumnBruttoHUF07, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF08 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF01
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF08", _PriceColumnBruttoHUF08, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF09 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF09
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF09", _PriceColumnBruttoHUF09, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceColumnBruttoHUF10 As Double
|
||||
Get
|
||||
Return _PriceColumnBruttoHUF01
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceColumnBruttoHUF10", _PriceColumnBruttoHUF10, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInDetailView(False)>
|
||||
Property CustomersOrder01 As CustomersOrder
|
||||
Get
|
||||
Return _CustomersOrder01
|
||||
End Get
|
||||
Set(value As CustomersOrder)
|
||||
SetPropertyValue("CustomersOrder01", _CustomersOrder01, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)>
|
||||
Property CustomersOrder02 As CustomersOrder
|
||||
Get
|
||||
Return _CustomersOrder02
|
||||
End Get
|
||||
Set(value As CustomersOrder)
|
||||
SetPropertyValue("CustomersOrder02", _CustomersOrder02, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'//XPCollections
|
||||
<VisibleInListView(False)>
|
||||
<Association("Products-CustomersOrderPriority", GetType(CustomersOrderPriority))>
|
||||
Public ReadOnly Property CustomersOrderPriority As XPCollection(Of CustomersOrderPriority)
|
||||
Get
|
||||
Return GetCollection(Of CustomersOrderPriority)("CustomersOrderPriority")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)>
|
||||
<Association>
|
||||
Public ReadOnly Property ProductsSentence As XPCollection(Of ProductsSentence)
|
||||
Get
|
||||
Return GetCollection(Of ProductsSentence)("ProductsSentence")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)>
|
||||
<Association>
|
||||
Public ReadOnly Property ProductsUNList As XPCollection(Of ProductsUNList)
|
||||
Get
|
||||
Return GetCollection(Of ProductsUNList)("ProductsUNList")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), Aggregated(), Association("Products-ProductsDocumentations", GetType(ProductsDocumentations))>
|
||||
Public ReadOnly Property ProductsDocumentations() As XPCollection(Of ProductsDocumentations)
|
||||
Get
|
||||
Return GetCollection(Of ProductsDocumentations)("ProductsDocumentations")
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property Products_BusinessDirectory As XPCollection(Of BusinessDirectory)
|
||||
Get
|
||||
Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
If MasterBusinessDirectory IsNot Nothing Then
|
||||
If MasterBusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectory_Collection.Add(MasterBusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectory_Collection.Add(MasterBusinessDirectory)
|
||||
End If
|
||||
End If
|
||||
If ProductGroups IsNot Nothing Then
|
||||
If ProductGroups.MasterBusinessDirectory IsNot Nothing Then
|
||||
If ProductGroups.MasterBusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectory_Collection.Add(ProductGroups.MasterBusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectory_Collection, ProductGroups.MasterBusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectory_Collection.Add(ProductGroups.MasterBusinessDirectory)
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Return _BusinessDirectory_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)>
|
||||
<Association("Products-ProductsBarcodes", GetType(ProductsBarcodes)), NoForeignKey()>
|
||||
Public ReadOnly Property ProductsBarcodes As XPCollection(Of ProductsBarcodes)
|
||||
Get
|
||||
Return GetCollection(Of ProductsBarcodes)("ProductsBarcodes")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False), Aggregated()>
|
||||
<Association("Products-ProductsPictures", GetType(ProductsPictures))>
|
||||
ReadOnly Property ProductsPictures As XPCollection(Of ProductsPictures)
|
||||
Get
|
||||
Return GetCollection(Of ProductsPictures)("ProductsPictures")
|
||||
End Get
|
||||
End Property
|
||||
#Region "Other subs"
|
||||
Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
|
||||
For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
|
||||
If _BusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectoryList.Add(_BusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectoryList.Add(_BusinessDirectory)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
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 ProductsCredit
|
||||
Inherits BaseObject 'Termékcsoporthoz adott hitelkeret
|
||||
Private _ShortName As String
|
||||
Private _CurrencyName As CurrencyName
|
||||
Private _AmountHUF As Double
|
||||
Private _AmountDEV As Double
|
||||
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
|
||||
|
||||
<Association("ProductsCredit-ProductsCreditProducts", GetType(ProductsCreditProducts))> _
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductsCreditProducts As XPCollection(Of ProductsCreditProducts)
|
||||
Get
|
||||
Return GetCollection(Of ProductsCreditProducts)("ProductsCreditProducts")
|
||||
End Get
|
||||
End Property
|
||||
<Association("ProductsCredit-ProductsCreditGroups", GetType(ProductsCreditGroups))> _
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ProductsCreditGroups As XPCollection(Of ProductsCreditGroups)
|
||||
Get
|
||||
Return GetCollection(Of ProductsCreditGroups)("ProductsCreditGroups")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,49 @@
|
||||
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 ProductsCreditGroups
|
||||
Inherits BaseObject
|
||||
Private _ProductsCredit As ProductsCredit
|
||||
Private _ProductsGroups As ProductsGroups
|
||||
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
|
||||
|
||||
<Association("ProductsCredit-ProductsCreditGroups", GetType(ProductsCredit))> _
|
||||
Property ProductsCredit As ProductsCredit
|
||||
Get
|
||||
Return _ProductsCredit
|
||||
End Get
|
||||
Set(value As ProductsCredit)
|
||||
SetPropertyValue("ProductsCredit", _ProductsCredit, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ProductsGroups As ProductsGroups
|
||||
Get
|
||||
Return _ProductsGroups
|
||||
End Get
|
||||
Set(value As ProductsGroups)
|
||||
SetPropertyValue("ProductsGroups", _ProductsGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,49 @@
|
||||
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 ProductsCreditProducts
|
||||
Inherits BaseObject
|
||||
Private _ProductsCredit As ProductsCredit
|
||||
Private _Products As Products
|
||||
|
||||
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
|
||||
|
||||
<Association("ProductsCredit-ProductsCreditProducts", GetType(ProductsCredit))> _
|
||||
Property ProductsCredit As ProductsCredit
|
||||
Get
|
||||
Return _ProductsCredit
|
||||
End Get
|
||||
Set(value As ProductsCredit)
|
||||
SetPropertyValue("ProductsCredit", _ProductsCredit, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,157 @@
|
||||
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 System.Drawing
|
||||
Imports System.IO
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
Public Enum eProductsDocumentationStatus
|
||||
ePublic = 0 '-- Bárki láthatja
|
||||
ePrivat = 1 '-- Csak belső használatra
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ProductsDocumentations
|
||||
Inherits FileAttachmentBase
|
||||
Private _Products As Products
|
||||
Private _Status As eProductsDocumentationStatus
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _FileCreated As Date
|
||||
Private _FileModified As Date
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Status = eProductsDocumentationStatus.ePublic
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<Persistent(), Association("Products-ProductsDocumentations")> _
|
||||
Property Products() As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Status As eProductsDocumentationStatus
|
||||
Get
|
||||
Return _Status
|
||||
End Get
|
||||
Set(value As eProductsDocumentationStatus)
|
||||
SetPropertyValue("Status", _Status, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, 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
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileCreated As Date
|
||||
Get
|
||||
Return _FileCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("FileCreated", _FileCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileModified As Date
|
||||
Get
|
||||
Return _FileModified
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("FileModified", _FileModified, 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
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'--------ReadOnly---------
|
||||
<VisibleInDetailView(False)> _
|
||||
ReadOnly Property ImageType As Image
|
||||
Get
|
||||
Select Case LCase(Path.GetExtension(File.FileName))
|
||||
Case ".xls", ".xlsx"
|
||||
Return ImageLoader.Instance.GetImageInfo("XLS").Image
|
||||
Case ".doc", ".docx"
|
||||
Return ImageLoader.Instance.GetImageInfo("DOC").Image
|
||||
Case ".pdf"
|
||||
Return ImageLoader.Instance.GetImageInfo("PDF").Image
|
||||
Case ".txt"
|
||||
Return ImageLoader.Instance.GetImageInfo("NoImage").Image
|
||||
Case Else
|
||||
Return ImageLoader.Instance.GetImageInfo("NoImage").Image
|
||||
Return Nothing
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
Partial Class ProductsDocumentations_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.aProductsDocumentations_OpenProductGroupFolder = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aProductsDocumentations_OpenProductGroupFolder
|
||||
'
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.Caption = "aProductsDocumentations_OpenProductGroupFolder"
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.ConfirmationMessage = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.Id = "aProductsDocumentations_OpenProductGroupFolder"
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.ImageName = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.Shortcut = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.Tag = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.TargetObjectType = GetType(Nuvolar.[Module].ProductsDocumentations)
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.TargetViewId = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.ToolTip = Nothing
|
||||
Me.aProductsDocumentations_OpenProductGroupFolder.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aProductsDocumentations_OpenProductGroupFolder 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="aProductsDocumentations_OpenProductGroupFolder.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,36 @@
|
||||
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 ProductsDocumentations_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
|
||||
Private Sub aProductsDocumentations_OpenProductGroupFolder_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsDocumentations_OpenProductGroupFolder.Execute
|
||||
Try
|
||||
Dim _DefaultFolder As String = TryCast(Application.Model.Options, IModelOptionsExtender).DefaultproductsFileFolder
|
||||
Dim _Products As Products = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, Products)
|
||||
If _Products Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
If System.IO.Directory.Exists(_DefaultFolder + _Products.ProductGroups.ShortName) Then
|
||||
Process.Start("explorer.exe", _DefaultFolder + _Products.ProductGroups.ShortName)
|
||||
Else
|
||||
System.IO.Directory.CreateDirectory(_DefaultFolder + _Products.ProductGroups.ShortName)
|
||||
Process.Start("explorer.exe", _DefaultFolder + _Products.ProductGroups.ShortName)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,55 @@
|
||||
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
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("ProductsGant - CustomersFrom all time", TargetItems:="CustomersFrom", Criteria:="1=1", Enabled:=False, Context:="Any")> _
|
||||
Public Class ProductsGant
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _G2antt As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property G2antt As String
|
||||
Get
|
||||
Return _G2antt
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("G2antt", _G2antt, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'ReadOnly
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
<Association("ProductsGant - ProductsGantRows", GetType(ProductsGantRows))> _
|
||||
ReadOnly Property ProductsGantRows As XPCollection(Of ProductsGantRows)
|
||||
Get
|
||||
Return GetCollection(Of ProductsGantRows)("ProductsGantRows")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,69 @@
|
||||
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()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
<DeferredDeletion(False)> _
|
||||
Public Class ProductsGantCustomersReport
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Customers As Customers 'Partner
|
||||
Private _Products As Products 'Termék
|
||||
Private _QTT As Double 'Jelentett mennyiség
|
||||
Private _DateExecution As Date 'jelentés idõpillanata
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
'Beep()
|
||||
End Sub
|
||||
<RuleRequiredField("ProductsGantCustomersReport - Customers", DefaultContexts.Save)> _
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("ProductsGantCustomersReport - Products", DefaultContexts.Save)> _
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT As Double
|
||||
Get
|
||||
Return _QTT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT", _QTT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,80 @@
|
||||
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 ProductsGantRows
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ProductsGant As ProductsGant
|
||||
Private _Customers As Customers
|
||||
Private _Products As Products
|
||||
Private _CalculatedRotation As Double 'Kalkulált forgási sebesség
|
||||
Private _ManualRotation As Double 'Manuális forgási sebesség
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<Association("ProductsGant - ProductsGantRows", GetType(ProductsGant))> _
|
||||
Property ProductsGant As ProductsGant
|
||||
Get
|
||||
Return _ProductsGant
|
||||
End Get
|
||||
Set(value As ProductsGant)
|
||||
SetPropertyValue("ProductsGant", _ProductsGant, 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 Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CalculatedRotation As Double
|
||||
Get
|
||||
Return _CalculatedRotation
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CalculatedRotation", _CalculatedRotation, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ManualRotation As Double
|
||||
Get
|
||||
Return _ManualRotation
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ManualRotation", _ManualRotation, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'ReadOnly
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
<Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRowsBar))> _
|
||||
ReadOnly Property ProductsGantRowsBar As XPCollection(Of ProductsGantRowsBar)
|
||||
Get
|
||||
Return GetCollection(Of ProductsGantRowsBar)("ProductsGantRowsBar")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,77 @@
|
||||
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 eBarType
|
||||
eAccounted = 0
|
||||
eOrdered = 1
|
||||
eReported = 2
|
||||
eOrderArrive = 3
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class ProductsGantRowsBar
|
||||
Inherits BaseObject
|
||||
Private _ProductsGantRows As ProductsGantRows
|
||||
Private _FromDate As Date
|
||||
Private _ToDate As Date
|
||||
Private _BarType As eBarType
|
||||
Private _Caption As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<Association("ProductsGantRows - ProductsGantRowsBar", GetType(ProductsGantRows))> _
|
||||
Property ProductsGantRows As ProductsGantRows
|
||||
Get
|
||||
Return _ProductsGantRows
|
||||
End Get
|
||||
Set(value As ProductsGantRows)
|
||||
SetPropertyValue("ProductsGantRows", _ProductsGantRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FromDate As Date
|
||||
Get
|
||||
Return _FromDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("FromDate", _FromDate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ToDate As Date
|
||||
Get
|
||||
Return _ToDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ToDate", _ToDate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property BarType As eBarType
|
||||
Get
|
||||
Return _BarType
|
||||
End Get
|
||||
Set(value As eBarType)
|
||||
SetPropertyValue("BarType", _BarType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Caption As String
|
||||
Get
|
||||
Return _Caption
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Caption", _Caption, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+69
@@ -0,0 +1,69 @@
|
||||
Partial Class ProductsGant_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.aProductsGant_GerenrateProductsGantRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aProductsGant_UpdateProductsGantRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aProductsGant_GerenrateProductsGantRows
|
||||
'
|
||||
Me.aProductsGant_GerenrateProductsGantRows.Caption = "aProductsGant_GerenrateProductsGantRows"
|
||||
Me.aProductsGant_GerenrateProductsGantRows.Category = "ObjectsCreation"
|
||||
Me.aProductsGant_GerenrateProductsGantRows.ConfirmationMessage = "Biztos benne, hogy eldobja a Gant diagram jelenlegi tartalmát és újra felépíti?"
|
||||
Me.aProductsGant_GerenrateProductsGantRows.Id = "aProductsGant_GerenrateProductsGantRows"
|
||||
Me.aProductsGant_GerenrateProductsGantRows.ImageName = Nothing
|
||||
Me.aProductsGant_GerenrateProductsGantRows.Shortcut = Nothing
|
||||
Me.aProductsGant_GerenrateProductsGantRows.Tag = Nothing
|
||||
Me.aProductsGant_GerenrateProductsGantRows.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsGant_GerenrateProductsGantRows.TargetObjectType = GetType(Nuvolar.[Module].ProductsGant)
|
||||
Me.aProductsGant_GerenrateProductsGantRows.TargetViewId = Nothing
|
||||
Me.aProductsGant_GerenrateProductsGantRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aProductsGant_GerenrateProductsGantRows.ToolTip = Nothing
|
||||
Me.aProductsGant_GerenrateProductsGantRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aProductsGant_UpdateProductsGantRows
|
||||
'
|
||||
Me.aProductsGant_UpdateProductsGantRows.Caption = "aProductsGant_UpdateProductsGantRows"
|
||||
Me.aProductsGant_UpdateProductsGantRows.Category = "ObjectsCreation"
|
||||
Me.aProductsGant_UpdateProductsGantRows.ConfirmationMessage = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.Id = "aProductsGant_UpdateProductsGantRows"
|
||||
Me.aProductsGant_UpdateProductsGantRows.ImageName = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.Shortcut = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.Tag = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.TargetObjectType = GetType(Nuvolar.[Module].ProductsGant)
|
||||
Me.aProductsGant_UpdateProductsGantRows.TargetViewId = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aProductsGant_UpdateProductsGantRows.ToolTip = Nothing
|
||||
Me.aProductsGant_UpdateProductsGantRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aProductsGant_GerenrateProductsGantRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aProductsGant_UpdateProductsGantRows 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="aProductsGant_GerenrateProductsGantRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aProductsGant_UpdateProductsGantRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>310, 56</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,335 @@
|
||||
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
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports System.Linq
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
Public Class ProductsGant_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
|
||||
#Region "Overrides"
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ProductsGant_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ProductsGant_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub aProductsGant_GerenrateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_GerenrateProductsGantRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant)
|
||||
|
||||
Dim _ProductsGantRows_DELCollection As New XPCollection(Of ProductsGantRows)(_uow, CriteriaOperator.Parse("ProductsGant.Oid=?", _ProductsGant.Oid))
|
||||
If _ProductsGantRows_DELCollection.Count > 0 Then
|
||||
|
||||
Dim _ProductsGantRowsBar_DELCollection As New XPCollection(Of ProductsGantRowsBar)(_uow, CriteriaOperator.Parse("ProductsGantRows.ProductsGant.Oid=?", _ProductsGant.Oid))
|
||||
_uow.Delete(_ProductsGantRows_DELCollection)
|
||||
_uow.Delete(_ProductsGantRowsBar_DELCollection)
|
||||
|
||||
_uow.CommitChanges()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(_ocur.Session)
|
||||
Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ
|
||||
Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And
|
||||
_InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And
|
||||
String.IsNullOrEmpty(_InvoiceRowsXPQ.InvoiceHeader.DocumentNumber) = False And
|
||||
_InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
|
||||
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _
|
||||
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
|
||||
Select New With {Key .Customers = Customers, _
|
||||
Key .Products = Products}
|
||||
|
||||
' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
|
||||
|
||||
Try
|
||||
RaiseEvent InitWork(1, 1, IRXPQ.Count)
|
||||
For Each item In IRXPQ
|
||||
RaiseEvent DoWork()
|
||||
Dim _ProductsGantRows As New ProductsGantRows(_ocur.Session)
|
||||
With _ProductsGantRows
|
||||
.ProductsGant = _ProductsGant
|
||||
.Customers = item.Customers
|
||||
.Products = item.Products
|
||||
.CalculatedRotation = 0
|
||||
.ManualRotation = 0
|
||||
End With
|
||||
|
||||
'Számlázott mennyiségekhez ProductsGantRowsBar
|
||||
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _
|
||||
"InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
|
||||
|
||||
If _InvoiceRows_Collection.Count > 0 Then
|
||||
_InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
|
||||
For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection
|
||||
|
||||
Dim _ProductsGantRowsBar_OrderArrive As New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar_OrderArrive
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0)
|
||||
.ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59)
|
||||
.BarType = eBarType.eAccounted
|
||||
.Caption = _InvoiceRows.QTT
|
||||
End With
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'Adott pillanatban leadott rendelés érkezése - dinamikos cucc, frissítésnél ezeket update!
|
||||
Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("Products=?", item.Products))
|
||||
|
||||
If _CustomersOrderPriority_Collection.Count > 0 Then
|
||||
_CustomersOrderPriority_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
|
||||
Dim _ProductsGantRowsBar_OrderArrive As New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar_OrderArrive
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = GetSQLTime(_ocur.Session)
|
||||
If _CustomersOrderPriority_Collection(0).DeadlineWeek = 0 Then
|
||||
.ToDate = .FromDate.AddDays(7)
|
||||
Else
|
||||
.ToDate = .FromDate.AddDays(_CustomersOrderPriority_Collection(0).DeadlineWeek * 7)
|
||||
End If
|
||||
.BarType = eBarType.eOrderArrive
|
||||
End With
|
||||
End If
|
||||
|
||||
'Jelentett készlet
|
||||
Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("Customers=? AND Products=?", item.Customers, item.Products))
|
||||
|
||||
If _ProductsGantCustomersReport_Collection.Count > 0 Then
|
||||
For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Collection
|
||||
Dim _ProductsGantRowsBar_Reported As New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar_Reported
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = _ProductsGantCustomersReport.DateExecution
|
||||
If .ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then
|
||||
.ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
.ToDate = .FromDate.AddDays(.ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
|
||||
Else
|
||||
.ToDate = .FromDate.AddDays(_ProductsGantCustomersReport.QTT)
|
||||
End If
|
||||
.Caption = _ProductsGantCustomersReport.QTT.ToString
|
||||
.BarType = eBarType.eReported
|
||||
End With
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'Rendelések
|
||||
Dim _OrderInRowsCollection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=? AND OrderInHeader.Customers=?", _ProductsGantRows.Products, _ProductsGantRows.Customers))
|
||||
|
||||
If _OrderInRowsCollection.Count > 0 Then
|
||||
For Each _OrderInRows As OrderInRows In _OrderInRowsCollection
|
||||
Dim _ProductsGantRowsBar As New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
|
||||
.ToDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
|
||||
.BarType = eBarType.eOrdered
|
||||
.Caption = String.Format("{0}", _OrderInRows.QTT)
|
||||
End With
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
Finally
|
||||
RaiseEvent FinalWork
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aProductsGant_UpdateProductsGantRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGant_UpdateProductsGantRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _ProductsGant As ProductsGant = TryCast(View.SelectedObjects(0), ProductsGant)
|
||||
|
||||
Dim InvoiceRowsXPQ As New XPQuery(Of InvoiceRows)(_ocur.Session)
|
||||
Dim IRXPQ = From _InvoiceRowsXPQ In InvoiceRowsXPQ
|
||||
Where _InvoiceRowsXPQ.OrderInRows IsNot Nothing And
|
||||
_InvoiceRowsXPQ.OrderInRows.Products IsNot Nothing And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.IsStorno = False And
|
||||
String.IsNullOrEmpty(_InvoiceRowsXPQ.InvoiceHeader.DocumentNumber) = False And
|
||||
_InvoiceRowsXPQ.InvoiceHeader IsNot Nothing And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.IsEditable = False And
|
||||
_InvoiceRowsXPQ.InvoiceHeader.CustomersFrom.Oid = _ProductsGant.CustomersFrom.Oid
|
||||
Group _InvoiceRowsXPQ By _InvoiceRowsXPQ.InvoiceHeader.Customers, _
|
||||
_InvoiceRowsXPQ.OrderInRows.Products Into g = Group _
|
||||
Select New With {Key .Customers = Customers, _
|
||||
Key .Products = Products}
|
||||
|
||||
' _InvoiceRowsXPQ.InvoiceHeader.DateExecution.Date > #7/1/2013#
|
||||
Try
|
||||
RaiseEvent InitWork(1, 1, IRXPQ.Count)
|
||||
For Each item In IRXPQ
|
||||
RaiseEvent DoWork()
|
||||
Dim _ProductsGantRows As ProductsGantRows = _ocur.FindObject(Of ProductsGantRows)(CriteriaOperator.Parse("ProductsGant=? AND Customers=? AND Products=?", _ProductsGant, item.Customers, item.Products))
|
||||
|
||||
If _ProductsGantRows Is Nothing Then
|
||||
_ProductsGantRows = New ProductsGantRows(_ocur.Session)
|
||||
With _ProductsGantRows
|
||||
.ProductsGant = _ProductsGant
|
||||
.Customers = item.Customers
|
||||
.Products = item.Products
|
||||
.CalculatedRotation = 0
|
||||
.ManualRotation = 0
|
||||
End With
|
||||
End If
|
||||
|
||||
'Számlázott mennyiségekhez ProductsGantRowsBar
|
||||
Dim _InvoiceRows_Collection As New XPCollection(Of InvoiceRows)(_ocur.Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? AND OrderInRows.Products=? AND InvoiceHeader.IsEditable=False AND " + _
|
||||
"InvoiceHeader.IsStorno=False AND (IsNull(InvoiceHeader.DocumentNumber)=False OR InvoiceHeader.DocumentNumber<>'')", item.Customers, item.Products))
|
||||
If _InvoiceRows_Collection.Count > 0 Then
|
||||
_InvoiceRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
|
||||
For Each _InvoiceRows As InvoiceRows In _InvoiceRows_Collection
|
||||
Dim _FromDate As New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 0, 0, 0)
|
||||
Dim _ToDate = New Date(_InvoiceRows.InvoiceHeader.DateExecution.Year, _InvoiceRows.InvoiceHeader.DateExecution.Month, _InvoiceRows.InvoiceHeader.DateExecution.Day, 23, 59, 59)
|
||||
|
||||
Dim _ProductsGantRowsBar_InvoiceRows As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=0", _
|
||||
_ProductsGantRows, _FromDate, _ToDate))
|
||||
If _ProductsGantRowsBar_InvoiceRows Is Nothing Then
|
||||
_ProductsGantRowsBar_InvoiceRows = New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar_InvoiceRows
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = _FromDate
|
||||
.ToDate = _ToDate
|
||||
.BarType = eBarType.eAccounted
|
||||
.Caption = _InvoiceRows.QTT
|
||||
End With
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'Adott pillanatban leadott rendelés érkezése - dinamikos cucc, frissítésnél ezeket update!
|
||||
Dim _CustomersOrderPriority_Collection As New XPCollection(Of CustomersOrderPriority)(_ocur.Session, CriteriaOperator.Parse("Products=?", item.Products))
|
||||
|
||||
If _CustomersOrderPriority_Collection.Count > 0 Then
|
||||
_CustomersOrderPriority_Collection.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
|
||||
Dim _ProductsGantRowsBar_OrderArrive As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND BarType=3", _ProductsGantRows))
|
||||
If _ProductsGantRowsBar_OrderArrive Is Nothing Then
|
||||
_ProductsGantRowsBar_OrderArrive = New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar_OrderArrive
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = GetSQLTime(_ocur.Session).Date
|
||||
If _CustomersOrderPriority_Collection(0).DeadlineWeek = 0 Then
|
||||
.ToDate = .FromDate.AddDays(7)
|
||||
Else
|
||||
.ToDate = .FromDate.AddDays(_CustomersOrderPriority_Collection(0).DeadlineWeek * 7)
|
||||
End If
|
||||
.BarType = eBarType.eOrderArrive
|
||||
End With
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'Jelentett készlet
|
||||
Dim _ProductsGantCustomersReport_Collection As New XPCollection(Of ProductsGantCustomersReport)(_ocur.Session, CriteriaOperator.Parse("Customers=? AND Products=?", item.Customers, item.Products))
|
||||
|
||||
If _ProductsGantCustomersReport_Collection.Count > 0 Then
|
||||
For Each _ProductsGantCustomersReport As ProductsGantCustomersReport In _ProductsGantCustomersReport_Collection
|
||||
|
||||
Dim _FromDate As Date = _ProductsGantCustomersReport.DateExecution
|
||||
_ProductsGantRows.Products.CustomersOrderPriority.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
|
||||
Dim _ToDate As Date
|
||||
If _ProductsGantRows.Products.CustomersOrderPriority.Count > 0 Then
|
||||
_ToDate = _FromDate.AddDays(_ProductsGantRows.Products.CustomersOrderPriority(0).DeadlineWeek * 7)
|
||||
Else
|
||||
_ToDate = _FromDate.Date
|
||||
End If
|
||||
|
||||
|
||||
Dim _ProductsGantRowsBar_Reported As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=2", _
|
||||
_ProductsGantRows, _FromDate, _ToDate))
|
||||
If _ProductsGantRowsBar_Reported Is Nothing Then
|
||||
_ProductsGantRowsBar_Reported = New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar_Reported
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = _FromDate
|
||||
.ToDate = _ToDate
|
||||
.Caption = _ProductsGantCustomersReport.QTT.ToString
|
||||
.BarType = eBarType.eReported
|
||||
End With
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
'Rendelések
|
||||
Dim _OrderInRowsCollection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=? AND OrderInHeader.Customers=?", _ProductsGantRows.Products, _ProductsGantRows.Customers))
|
||||
|
||||
If _OrderInRowsCollection.Count > 0 Then
|
||||
For Each _OrderInRows As OrderInRows In _OrderInRowsCollection
|
||||
Dim _FromDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
|
||||
Dim _ToDate As New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
|
||||
|
||||
Dim _ProductsGantRowsBar As ProductsGantRowsBar = _ocur.FindObject(Of ProductsGantRowsBar)(CriteriaOperator.Parse("ProductsGantRows=? AND FromDate=? AND ToDate=? AND BarType=1", _
|
||||
_ProductsGantRows, _FromDate, _ToDate))
|
||||
|
||||
If _ProductsGantRowsBar Is Nothing Then
|
||||
_ProductsGantRowsBar = New ProductsGantRowsBar(_ocur.Session)
|
||||
With _ProductsGantRowsBar
|
||||
.ProductsGantRows = _ProductsGantRows
|
||||
.FromDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 0, 0, 0)
|
||||
.ToDate = New Date(_OrderInRows.OrderInHeader.DateExecution.Year, _OrderInRows.OrderInHeader.DateExecution.Month, _OrderInRows.OrderInHeader.DateExecution.Day, 23, 59, 59)
|
||||
.BarType = eBarType.eOrdered
|
||||
.Caption = String.Format("{0}", _OrderInRows.QTT)
|
||||
End With
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
Finally
|
||||
RaiseEvent FinalWork
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,109 @@
|
||||
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 System.Drawing
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("BusinessStocks")> _
|
||||
Public Class ProductsGroups
|
||||
Inherits HCategory
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _ReportData As ReportData
|
||||
Private _MasterBusinessDirectory As BusinessDirectory
|
||||
Private _Picture As System.Drawing.Image
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<RuleRequiredField("ProductsGroups - ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData As ReportData
|
||||
Get
|
||||
Return _ReportData
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData", _ReportData, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MasterBusinessDirectory As BusinessDirectory
|
||||
Get
|
||||
Return _MasterBusinessDirectory
|
||||
End Get
|
||||
Set(value As BusinessDirectory)
|
||||
SetPropertyValue("MasterBusinessDirectory", _MasterBusinessDirectory, value)
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))>
|
||||
Property Picture As Image
|
||||
Get
|
||||
Return _Picture
|
||||
End Get
|
||||
Set(value As Image)
|
||||
SetPropertyValue("Picture", _Picture, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), Aggregated(), Association("ProductsGroups-ProductsGroupsDocumentations", GetType(ProductsGroupsDocumentations))> _
|
||||
Public ReadOnly Property ProductsGroupsDocumentations() As XPCollection(Of ProductsGroupsDocumentations)
|
||||
Get
|
||||
Return GetCollection(Of ProductsGroupsDocumentations)("ProductsGroupsDocumentations")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Public ReadOnly Property ProductsGroups_BusinessDirectory As XPCollection(Of BusinessDirectory)
|
||||
Get
|
||||
Dim _BusinessDirectory_Collection As New XPCollection(Of BusinessDirectory)(Session, CriteriaOperator.Parse("1=2"))
|
||||
|
||||
If MasterBusinessDirectory IsNot Nothing Then
|
||||
If MasterBusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectory_Collection.Add(MasterBusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectory_Collection, MasterBusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectory_Collection.Add(MasterBusinessDirectory)
|
||||
End If
|
||||
End If
|
||||
Return _BusinessDirectory_Collection
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "Other subs"
|
||||
Private Sub RecursiveBusinessDirectory(_BusinessDirectoryList As XPCollection(Of BusinessDirectory), _NestedBusinessDirectory As XPCollection(Of BusinessDirectory))
|
||||
For Each _BusinessDirectory As BusinessDirectory In _NestedBusinessDirectory
|
||||
If _BusinessDirectory.Children.Count > 0 Then
|
||||
_BusinessDirectoryList.Add(_BusinessDirectory)
|
||||
RecursiveBusinessDirectory(_BusinessDirectoryList, _BusinessDirectory.NestedBusinessDirectory)
|
||||
Else
|
||||
_BusinessDirectoryList.Add(_BusinessDirectory)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,152 @@
|
||||
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 System.Drawing
|
||||
Imports System.IO
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ProductsGroupsDocumentations
|
||||
Inherits FileAttachmentBase
|
||||
Private _ProductsGroups As ProductsGroups
|
||||
Private _Status As eProductsDocumentationStatus
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _FileCreated As Date
|
||||
Private _FileModified As Date
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Status = eProductsDocumentationStatus.ePublic
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<Persistent(), Association("ProductsGroups-ProductsGroupsDocumentations")> _
|
||||
Property ProductsGroups() As ProductsGroups
|
||||
Get
|
||||
Return _ProductsGroups
|
||||
End Get
|
||||
Set(ByVal value As ProductsGroups)
|
||||
SetPropertyValue("ProductsGroups", _ProductsGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Status As eProductsDocumentationStatus
|
||||
Get
|
||||
Return _Status
|
||||
End Get
|
||||
Set(value As eProductsDocumentationStatus)
|
||||
SetPropertyValue("Status", _Status, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, 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
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileCreated As Date
|
||||
Get
|
||||
Return _FileCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("FileCreated", _FileCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileModified As Date
|
||||
Get
|
||||
Return _FileModified
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("FileModified", _FileModified, 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
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'--------ReadOnly---------
|
||||
<VisibleInDetailView(False)> _
|
||||
ReadOnly Property ImageType As Image
|
||||
Get
|
||||
Select Case LCase(Path.GetExtension(File.FileName))
|
||||
Case ".xls", ".xlsx"
|
||||
Return ImageLoader.Instance.GetImageInfo("XLS").Image
|
||||
Case ".doc", ".docx"
|
||||
Return ImageLoader.Instance.GetImageInfo("DOC").Image
|
||||
Case ".pdf"
|
||||
Return ImageLoader.Instance.GetImageInfo("PDF").Image
|
||||
Case ".txt"
|
||||
Return ImageLoader.Instance.GetImageInfo("NoImage").Image
|
||||
Case Else
|
||||
Return ImageLoader.Instance.GetImageInfo("NoImage").Image
|
||||
Return Nothing
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,59 @@
|
||||
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 ProductsGroupsWEB
|
||||
Inherits BaseObject
|
||||
Private _WEBMainGroupName As String 'Fõcsoport a WEB megjelenéshez
|
||||
Private _WebGroupName As String 'Csoport a WEB megjelenéshez
|
||||
Private _WEBDescription As String 'WEB leírás
|
||||
|
||||
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
|
||||
<Size(255)> _
|
||||
Property WEBMainGroupName As String
|
||||
Get
|
||||
Return _WEBMainGroupName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("WEBMainGroupName", _WEBMainGroupName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WebGroupName As String
|
||||
Get
|
||||
Return _WebGroupName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("WebGroupName", _WebGroupName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property WEBDescription As String
|
||||
Get
|
||||
Return _WEBDescription
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("WEBDescription", _WEBDescription, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+50
@@ -0,0 +1,50 @@
|
||||
Partial Class ProductsGroups_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.aProductsGroups_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aProductsGroups_CreateBusinessDirectory
|
||||
'
|
||||
Me.aProductsGroups_CreateBusinessDirectory.Caption = "aProductsGroups_CreateBusinessDirectory"
|
||||
Me.aProductsGroups_CreateBusinessDirectory.Category = "ObjectsCreation"
|
||||
Me.aProductsGroups_CreateBusinessDirectory.ConfirmationMessage = Nothing
|
||||
Me.aProductsGroups_CreateBusinessDirectory.Id = "aProductsGroups_CreateBusinessDirectory"
|
||||
Me.aProductsGroups_CreateBusinessDirectory.ImageName = Nothing
|
||||
Me.aProductsGroups_CreateBusinessDirectory.Shortcut = Nothing
|
||||
Me.aProductsGroups_CreateBusinessDirectory.Tag = Nothing
|
||||
Me.aProductsGroups_CreateBusinessDirectory.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsGroups_CreateBusinessDirectory.TargetObjectType = GetType(Nuvolar.[Module].ProductsGroups)
|
||||
Me.aProductsGroups_CreateBusinessDirectory.TargetViewId = ""
|
||||
Me.aProductsGroups_CreateBusinessDirectory.ToolTip = Nothing
|
||||
Me.aProductsGroups_CreateBusinessDirectory.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aProductsGroups_CreateBusinessDirectory 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="aProductsGroups_CreateBusinessDirectory.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,47 @@
|
||||
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.Data.Filtering
|
||||
|
||||
Public Class ProductsGroups_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aProductsGroups_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsGroups_CreateBusinessDirectory.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ProductsGroups As ProductsGroups = TryCast(View.SelectedObjects, ProductsGroups)
|
||||
|
||||
If _ProductsGroups.MasterBusinessDirectory Is Nothing Then
|
||||
Dim _ProductsBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("ShortName='Termékek' AND IsNull(BusinessDirectory_Parent)=True"))
|
||||
|
||||
If _ProductsBaseBusinessDirectory Is Nothing Then
|
||||
_ProductsBaseBusinessDirectory = New BusinessDirectory(_ocur.Session)
|
||||
With _ProductsBaseBusinessDirectory
|
||||
.ShortName = "Termékek"
|
||||
.BusinessDirectory_Parent = Nothing
|
||||
End With
|
||||
End If
|
||||
|
||||
Dim _ProductsGroupsBusinessDirectory As New BusinessDirectory(_ocur.Session)
|
||||
With _ProductsGroupsBusinessDirectory
|
||||
.ShortName = _ProductsGroups.ShortName
|
||||
.BusinessDirectory_Parent = _ProductsBaseBusinessDirectory
|
||||
End With
|
||||
_ProductsGroups.MasterBusinessDirectory = _ProductsGroupsBusinessDirectory
|
||||
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,48 @@
|
||||
Imports System.Linq
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports System.Drawing
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
|
||||
Public Class ProductsPictures
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Products As Products
|
||||
Private _Picture As Image
|
||||
Private _RowIndex As Integer
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
End Sub
|
||||
|
||||
<Association("Products-ProductsPictures", GetType(Products))>
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))>
|
||||
Property Picture As Image
|
||||
Get
|
||||
Return _Picture
|
||||
End Get
|
||||
Set(value As Image)
|
||||
SetPropertyValue("Picture", _Picture, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowIndex As Integer
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,44 @@
|
||||
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 ProductsSentence
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Products As Products
|
||||
Private _Sentence As Sentence
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<Association>
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Sentence As Sentence
|
||||
Get
|
||||
Return _Sentence
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Sentence)
|
||||
SetPropertyValue("Sentence", _Sentence, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
@@ -0,0 +1,44 @@
|
||||
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 ProductsUNList
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Products As Products
|
||||
Private _UNList As UNList
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
<Association>
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property UNList As UNList
|
||||
Get
|
||||
Return _UNList
|
||||
|
||||
End Get
|
||||
Set(ByVal value As UNList)
|
||||
SetPropertyValue("UNList", _UNList, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
@@ -0,0 +1,189 @@
|
||||
Partial Class ProductsVC
|
||||
|
||||
<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.aModifyProductsParameters = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aPrintSelectedProductsBarcode = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aViewStorageMoveInfo_Products = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aProductsBarcodeGenerator = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aProductsDocumentations_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aProductsDocumentations_Remove = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aProducts_Open = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aProducts_CreateBusinessDirectory = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aProducts_GenerateNotUsedList = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aModifyProductsParameters
|
||||
'
|
||||
Me.aModifyProductsParameters.AcceptButtonCaption = Nothing
|
||||
Me.aModifyProductsParameters.CancelButtonCaption = Nothing
|
||||
Me.aModifyProductsParameters.Caption = "Modify Products Parameters"
|
||||
Me.aModifyProductsParameters.ConfirmationMessage = Nothing
|
||||
Me.aModifyProductsParameters.Id = "aModifyProductsParameters"
|
||||
Me.aModifyProductsParameters.ImageName = Nothing
|
||||
Me.aModifyProductsParameters.Shortcut = Nothing
|
||||
Me.aModifyProductsParameters.Tag = Nothing
|
||||
Me.aModifyProductsParameters.TargetObjectsCriteria = Nothing
|
||||
Me.aModifyProductsParameters.TargetViewId = "Products_ListView"
|
||||
Me.aModifyProductsParameters.ToolTip = Nothing
|
||||
Me.aModifyProductsParameters.TypeOfView = Nothing
|
||||
'
|
||||
'aPrintSelectedProductsBarcode
|
||||
'
|
||||
Me.aPrintSelectedProductsBarcode.Caption = "aPrint Selected Products Barcode"
|
||||
Me.aPrintSelectedProductsBarcode.Category = "View"
|
||||
Me.aPrintSelectedProductsBarcode.ConfirmationMessage = "Do you want to execute?"
|
||||
Me.aPrintSelectedProductsBarcode.Id = "aPrintSelectedProductsBarcode"
|
||||
Me.aPrintSelectedProductsBarcode.ImageName = Nothing
|
||||
Me.aPrintSelectedProductsBarcode.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aPrintSelectedProductsBarcode.Shortcut = Nothing
|
||||
Me.aPrintSelectedProductsBarcode.Tag = Nothing
|
||||
Me.aPrintSelectedProductsBarcode.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintSelectedProductsBarcode.TargetObjectType = GetType(Nuvolar.[Module].Products)
|
||||
Me.aPrintSelectedProductsBarcode.TargetViewId = "Products_ListView"
|
||||
Me.aPrintSelectedProductsBarcode.ToolTip = Nothing
|
||||
Me.aPrintSelectedProductsBarcode.TypeOfView = Nothing
|
||||
'
|
||||
'aViewStorageMoveInfo_Products
|
||||
'
|
||||
Me.aViewStorageMoveInfo_Products.Caption = "aViewStorageMoveInfo_Products"
|
||||
Me.aViewStorageMoveInfo_Products.ConfirmationMessage = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.Id = "aViewStorageMoveInfo_Products"
|
||||
Me.aViewStorageMoveInfo_Products.ImageName = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aViewStorageMoveInfo_Products.Shortcut = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.Tag = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.TargetObjectsCriteria = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.TargetObjectType = GetType(Nuvolar.[Module].Products)
|
||||
Me.aViewStorageMoveInfo_Products.TargetViewId = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aViewStorageMoveInfo_Products.ToolTip = Nothing
|
||||
Me.aViewStorageMoveInfo_Products.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aProductsBarcodeGenerator
|
||||
'
|
||||
Me.aProductsBarcodeGenerator.Caption = "aProductsBarcodeGenerator"
|
||||
Me.aProductsBarcodeGenerator.Category = ""
|
||||
Me.aProductsBarcodeGenerator.ConfirmationMessage = "Do you want to execute?"
|
||||
Me.aProductsBarcodeGenerator.Id = "aProductsBarcodeGenerator"
|
||||
Me.aProductsBarcodeGenerator.ImageName = Nothing
|
||||
Me.aProductsBarcodeGenerator.Shortcut = Nothing
|
||||
Me.aProductsBarcodeGenerator.Tag = Nothing
|
||||
Me.aProductsBarcodeGenerator.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsBarcodeGenerator.TargetObjectType = GetType(Nuvolar.[Module].Products)
|
||||
Me.aProductsBarcodeGenerator.TargetViewId = "Products_ListView"
|
||||
Me.aProductsBarcodeGenerator.ToolTip = Nothing
|
||||
Me.aProductsBarcodeGenerator.TypeOfView = Nothing
|
||||
'
|
||||
'aProductsDocumentations_ChangeGroup
|
||||
'
|
||||
Me.aProductsDocumentations_ChangeGroup.AcceptButtonCaption = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.CancelButtonCaption = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.Caption = "aProductsDocumentations_ChangeGroup"
|
||||
Me.aProductsDocumentations_ChangeGroup.ConfirmationMessage = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.Id = "aProductsDocumentations_ChangeGroup"
|
||||
Me.aProductsDocumentations_ChangeGroup.ImageName = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aProductsDocumentations_ChangeGroup.Shortcut = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.Tag = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.TargetObjectType = GetType(Nuvolar.[Module].ProductsDocumentations)
|
||||
Me.aProductsDocumentations_ChangeGroup.TargetViewId = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.ToolTip = Nothing
|
||||
Me.aProductsDocumentations_ChangeGroup.TypeOfView = Nothing
|
||||
'
|
||||
'aProductsDocumentations_Remove
|
||||
'
|
||||
Me.aProductsDocumentations_Remove.Caption = "aProductsDocumentations_Remove"
|
||||
Me.aProductsDocumentations_Remove.Category = "Edit"
|
||||
Me.aProductsDocumentations_Remove.ConfirmationMessage = "Biztosan törlöd a kijelölt fájlokat?"
|
||||
Me.aProductsDocumentations_Remove.Id = "aProductsDocumentations_Remove"
|
||||
Me.aProductsDocumentations_Remove.ImageName = "Action_Delete"
|
||||
Me.aProductsDocumentations_Remove.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aProductsDocumentations_Remove.Shortcut = Nothing
|
||||
Me.aProductsDocumentations_Remove.Tag = Nothing
|
||||
Me.aProductsDocumentations_Remove.TargetObjectsCriteria = Nothing
|
||||
Me.aProductsDocumentations_Remove.TargetObjectType = GetType(Nuvolar.[Module].ProductsDocumentations)
|
||||
Me.aProductsDocumentations_Remove.TargetViewId = Nothing
|
||||
Me.aProductsDocumentations_Remove.ToolTip = Nothing
|
||||
Me.aProductsDocumentations_Remove.TypeOfView = Nothing
|
||||
'
|
||||
'aProducts_Open
|
||||
'
|
||||
Me.aProducts_Open.Caption = "aProducts_Open"
|
||||
Me.aProducts_Open.ConfirmationMessage = Nothing
|
||||
Me.aProducts_Open.Id = "aProducts_Open"
|
||||
Me.aProducts_Open.ImageName = Nothing
|
||||
Me.aProducts_Open.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aProducts_Open.Shortcut = Nothing
|
||||
Me.aProducts_Open.Tag = Nothing
|
||||
Me.aProducts_Open.TargetObjectsCriteria = Nothing
|
||||
Me.aProducts_Open.TargetViewId = "Products_ListView_CRM_Outlook"
|
||||
Me.aProducts_Open.ToolTip = Nothing
|
||||
Me.aProducts_Open.TypeOfView = Nothing
|
||||
'
|
||||
'aProducts_CreateBusinessDirectory
|
||||
'
|
||||
Me.aProducts_CreateBusinessDirectory.Caption = "aProducts_CreateBusinessDirectory"
|
||||
Me.aProducts_CreateBusinessDirectory.Category = "ObjectsCreation"
|
||||
Me.aProducts_CreateBusinessDirectory.ConfirmationMessage = Nothing
|
||||
Me.aProducts_CreateBusinessDirectory.Id = "aProducts_CreateBusinessDirectory"
|
||||
Me.aProducts_CreateBusinessDirectory.ImageName = Nothing
|
||||
Me.aProducts_CreateBusinessDirectory.Shortcut = Nothing
|
||||
Me.aProducts_CreateBusinessDirectory.Tag = Nothing
|
||||
Me.aProducts_CreateBusinessDirectory.TargetObjectsCriteria = Nothing
|
||||
Me.aProducts_CreateBusinessDirectory.TargetObjectType = GetType(Nuvolar.[Module].Products)
|
||||
Me.aProducts_CreateBusinessDirectory.TargetViewId = ""
|
||||
Me.aProducts_CreateBusinessDirectory.ToolTip = Nothing
|
||||
Me.aProducts_CreateBusinessDirectory.TypeOfView = Nothing
|
||||
'
|
||||
'aProducts_GenerateNotUsedList
|
||||
'
|
||||
Me.aProducts_GenerateNotUsedList.Caption = "aProducts_GenerateNotUsedList"
|
||||
Me.aProducts_GenerateNotUsedList.Category = "ObjectsCreation"
|
||||
Me.aProducts_GenerateNotUsedList.ConfirmationMessage = Nothing
|
||||
Me.aProducts_GenerateNotUsedList.Id = "aProducts_GenerateNotUsedList"
|
||||
Me.aProducts_GenerateNotUsedList.ImageName = Nothing
|
||||
Me.aProducts_GenerateNotUsedList.Shortcut = Nothing
|
||||
Me.aProducts_GenerateNotUsedList.Tag = Nothing
|
||||
Me.aProducts_GenerateNotUsedList.TargetObjectsCriteria = Nothing
|
||||
Me.aProducts_GenerateNotUsedList.TargetViewId = "Products_ListView_EverUsed"
|
||||
Me.aProducts_GenerateNotUsedList.ToolTip = Nothing
|
||||
Me.aProducts_GenerateNotUsedList.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aModifyProductsParameters As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aPrintSelectedProductsBarcode As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aViewStorageMoveInfo_Products As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aProductsBarcodeGenerator As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aProductsDocumentations_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aProductsDocumentations_Remove As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aProducts_Open As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aProducts_CreateBusinessDirectory As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aProducts_GenerateNotUsedList As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,150 @@
|
||||
<?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="aModifyProductsParameters.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintSelectedProductsBarcode.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aViewStorageMoveInfo_Products.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aProductsBarcodeGenerator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aProductsDocumentations_ChangeGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aProductsDocumentations_Remove.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aProducts_Open.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aProducts_CreateBusinessDirectory.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aProducts_GenerateNotUsedList.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>525, 275</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,462 @@
|
||||
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.Persistent.BaseImpl
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
|
||||
Public Class ProductsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Dim _Selection As ArrayList
|
||||
Dim _NoSelect As Boolean = False
|
||||
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
_Selection = New ArrayList
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
#Region "Overrides"
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "Products_ListView" Then
|
||||
AddHandler View.SelectionChanged, AddressOf SelectionChanged
|
||||
AddHandler Frame.GetController(Of DeleteObjectsViewController).DeleteAction.Executing, AddressOf Products_ListView_DeleteAction_Executing
|
||||
End If
|
||||
If View.Id = "Products_LookupListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Products_Products_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Products_ListView_EverUsed" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Products_ListView_Deleted" Then
|
||||
If TryCast(View, ListView) IsNot Nothing Then
|
||||
If TryCast(View, ListView).CollectionSource IsNot Nothing Then
|
||||
If TryCast(View, ListView).CollectionSource.Collection IsNot Nothing Then
|
||||
If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection) IsNot Nothing Then
|
||||
If TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection IsNot Nothing Then
|
||||
If TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection) IsNot Nothing Then
|
||||
TryCast(TryCast(TryCast(View, ListView).CollectionSource.Collection, ProxyCollection).OriginalCollection, XPCollection).SelectDeleted = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Products_ListView" Then
|
||||
RemoveHandler View.SelectionChanged, AddressOf SelectionChanged
|
||||
End If
|
||||
If View.Id = "Products_LookupListView" Then
|
||||
Frame.GetController(Of CloneObject.CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Products_Products_BusinessDirectory_ListView" Then
|
||||
Frame.GetController(Of LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
Private Sub SelectionChanged(sender As Object, e As System.EventArgs)
|
||||
|
||||
If _NoSelect = False Then
|
||||
_Selection.Clear()
|
||||
For Each _Products As Products In View.SelectedObjects
|
||||
_Selection.Add(_Products)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aModifyProductsParameters_CustomizePopupWindowParams(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyProductsParameters.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ModifyProductsParameters As ModifyProductsParameters = _onew.CreateObject(Of ModifyProductsParameters)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, _ModifyProductsParameters)
|
||||
End Sub
|
||||
Private Sub aModifyProductsParameters_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyProductsParameters.Execute
|
||||
Dim _ModifyProductsParameters As ModifyProductsParameters = TryCast(e.PopupWindow.View.SelectedObjects(0), ModifyProductsParameters)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
RaiseEvent InitWork(0, 1, View.SelectedObjects.Count)
|
||||
For Each _Products As Products In _Selection
|
||||
RaiseEvent DoWork()
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_01 Then
|
||||
_Products.Parameter_01 = _ModifyProductsParameters.Parameter_01
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_02 Then
|
||||
_Products.Parameter_02 = _ModifyProductsParameters.Parameter_02
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_03 Then
|
||||
_Products.Parameter_03 = _ModifyProductsParameters.Parameter_03
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_04 Then
|
||||
_Products.Parameter_04 = _ModifyProductsParameters.Parameter_04
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_05 Then
|
||||
_Products.Parameter_05 = _ModifyProductsParameters.Parameter_05
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_06 Then
|
||||
_Products.Parameter_06 = _ModifyProductsParameters.Parameter_06
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_07 Then
|
||||
_Products.Parameter_07 = _ModifyProductsParameters.Parameter_07
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_08 Then
|
||||
_Products.Parameter_08 = _ModifyProductsParameters.Parameter_08
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_09 Then
|
||||
_Products.Parameter_09 = _ModifyProductsParameters.Parameter_09
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsParameter_10 Then
|
||||
_Products.Parameter_10 = _ModifyProductsParameters.Parameter_10
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsUnits Then
|
||||
_Products.Units = _ocur.GetObjectByKey(Of Units)(_ModifyProductsParameters.Units.Oid)
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsVAT Then
|
||||
_Products.VAT = _ocur.GetObjectByKey(Of VAT)(_ModifyProductsParameters.VAT.Oid)
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsCurrencyName Then
|
||||
_Products.CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_ModifyProductsParameters.CurrencyName.Oid)
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsCustomsTariffs Then
|
||||
_Products.CustomsTariff = _ocur.GetObjectByKey(Of CustomsTariffs)(_ModifyProductsParameters.CustomsTariffs.Oid)
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsCountryFrom Then
|
||||
_Products.CountryFrom = _ocur.GetObjectByKey(Of Country)(_ModifyProductsParameters.CountryFrom.Oid)
|
||||
End If
|
||||
If _ModifyProductsParameters.IsProductType Then
|
||||
_Products.ProductType = _ModifyProductsParameters.ProductType
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.ProductsGroups IsNot Nothing Then
|
||||
Dim _ProductsGroups As ProductsGroups = _ocur.GetObjectByKey(Of ProductsGroups)(_ModifyProductsParameters.ProductsGroups.Oid)
|
||||
If _ProductsGroups IsNot Nothing Then
|
||||
_Products.ProductGroups = _ProductsGroups
|
||||
End If
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsCustomersOrder1 Then
|
||||
Dim _RowIndex1Avilable As Boolean = False
|
||||
For Each _CustomersOrderPriority In _Products.CustomersOrderPriority
|
||||
If _CustomersOrderPriority.RowIndex = 1 Then
|
||||
_RowIndex1Avilable = True
|
||||
_CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder1.Oid)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If _RowIndex1Avilable = False Then
|
||||
Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)()
|
||||
_CustomersOrderPriority_New.RowIndex = 1
|
||||
_CustomersOrderPriority_New.Products = _Products
|
||||
_CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder1.Oid)
|
||||
_CustomersOrderPriority_New.Save()
|
||||
End If
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsCustomersOrder2 Then
|
||||
Dim _RowIndex2Avilable As Boolean = False
|
||||
For Each _CustomersOrderPriority In _Products.CustomersOrderPriority
|
||||
If _CustomersOrderPriority.RowIndex = 2 Then
|
||||
_RowIndex2Avilable = True
|
||||
_CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder2.Oid)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If _RowIndex2Avilable = False Then
|
||||
Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)()
|
||||
_CustomersOrderPriority_New.RowIndex = 2
|
||||
_CustomersOrderPriority_New.Products = _Products
|
||||
_CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder2.Oid)
|
||||
_CustomersOrderPriority_New.Save()
|
||||
End If
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsCustomersOrder3 Then
|
||||
Dim _RowIndex3Avilable As Boolean = False
|
||||
For Each _CustomersOrderPriority In _Products.CustomersOrderPriority
|
||||
If _CustomersOrderPriority.RowIndex = 3 Then
|
||||
_RowIndex3Avilable = True
|
||||
_CustomersOrderPriority.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder3.Oid)
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If _RowIndex3Avilable = False Then
|
||||
Dim _CustomersOrderPriority_New As CustomersOrderPriority = _ocur.CreateObject(Of CustomersOrderPriority)()
|
||||
_CustomersOrderPriority_New.RowIndex = 3
|
||||
_CustomersOrderPriority_New.Products = _Products
|
||||
_CustomersOrderPriority_New.CustomersOrder = _ocur.GetObjectByKey(Of CustomersOrder)(_ModifyProductsParameters.CustomersOrder3.Oid)
|
||||
_CustomersOrderPriority_New.Save()
|
||||
End If
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsListPriceHUF = True Then
|
||||
_Products.ListPriceOutHUF = _Products.ListPriceOutHUF + (_Products.ListPriceOutHUF * (_ModifyProductsParameters.ListPricePercent / 100))
|
||||
End If
|
||||
If _ModifyProductsParameters.IsListPriceDEV = True Then
|
||||
_Products.ListPriceOutDEV = _Products.ListPriceOutDEV + (_Products.ListPriceOutDEV * (_ModifyProductsParameters.ListPricePercent / 100))
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsListPriceRegenerate Then
|
||||
Select Case _ModifyProductsParameters.PriceMode
|
||||
Case ePriceMode.eDEVToHUF
|
||||
_Products.ListPriceOutHUF = _Products.ListPriceOutDEV * _ModifyProductsParameters.CurrencyRate
|
||||
Case (ePriceMode.eHUFToDEV)
|
||||
_Products.ListPriceOutDEV = _Products.ListPriceOutHUF / _ModifyProductsParameters.CurrencyRate
|
||||
End Select
|
||||
End If
|
||||
If _ModifyProductsParameters.IsProducer Then 'Gyártó
|
||||
_Products.Producer = _ocur.GetObjectByKey(Of Customers)(_ModifyProductsParameters.Producer.Oid)
|
||||
End If
|
||||
|
||||
If _ModifyProductsParameters.IsDecimalIn Then _Products.DecimalIn = _ModifyProductsParameters.DecimalIn
|
||||
If _ModifyProductsParameters.IsDecimalOut Then _Products.DecimalOut = _ModifyProductsParameters.DecimalOut
|
||||
|
||||
_Products.Save()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
Private Sub aPrintSelectedProductsBarcode_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintSelectedProductsBarcode.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Name=?", "Termékek - etikett"))
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
|
||||
If View.SelectedObjects.Count = 0 Then Throw New Exception("*Egy sort ki kell jelölni, hogy a raktár azonosítható legyen!")
|
||||
|
||||
Dim _OidArray As New ArrayList
|
||||
|
||||
For Each _Products As Products In View.SelectedObjects
|
||||
_OidArray.Add(_Products.Oid)
|
||||
Next
|
||||
|
||||
Dim _InOperator As InOperator = New InOperator("Products.Oid", _OidArray)
|
||||
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _InOperator, True)
|
||||
Catch ext As Exception
|
||||
MsgBox(ext.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aViewStorageMoveInfo_Products_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewStorageMoveInfo_Products.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Products As Products = TryCast(View.SelectedObjects(0), Products)
|
||||
Dim _StorageMoveInfo As StorageMoveInfo
|
||||
If _Products IsNot Nothing Then
|
||||
_StorageMoveInfo = _onew.CreateObject(Of StorageMoveInfo)()
|
||||
_StorageMoveInfo.Products = _onew.GetObject(_Products)
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "StorageMoveInfo_DetailView", False, _StorageMoveInfo)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aProductsBarcodeGenerator_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aProductsBarcodeGenerator.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _Products_Collection As New XPCollection(Of Products)(_uow, CriteriaOperator.Parse("IsNull(Barcode)=False AND Barcode!=''"))
|
||||
_Products_Collection.Sorting.Add(New SortProperty("Barcode", DB.SortingDirection.Descending))
|
||||
|
||||
RaiseEvent InitWork(0, 1, View.SelectedObjects.Count)
|
||||
|
||||
Dim _StartIndex As Double
|
||||
If _Products_Collection.Count = 0 Then
|
||||
_StartIndex = 400000100001
|
||||
Else
|
||||
_StartIndex = Convert.ToDouble(Mid(_Products_Collection(0).Barcode, 1, 12)) + 1
|
||||
End If
|
||||
|
||||
For Each _Products As Products In View.SelectedObjects
|
||||
RaiseEvent DoWork()
|
||||
If _Products.Barcode Is Nothing Then
|
||||
_Products.Barcode = EAN13Generator((_StartIndex).ToString)
|
||||
_StartIndex += 1
|
||||
End If
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub aProductsDocumentations_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aProductsDocumentations_ChangeGroup.CustomizePopupWindowParams
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = _onew.CreateObject(Of ChangeFileAttachment_PopUp)()
|
||||
e.View = Application.CreateDetailView(_onew, "ChangeFileAttachment_PopUp_DetailView", True, _ChangeFileAttachment_PopUp)
|
||||
e.View.Tag = e.Action.Id
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aProductsDocumentations_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aProductsDocumentations_ChangeGroup.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ChangeFileAttachment_PopUp As ChangeFileAttachment_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), ChangeFileAttachment_PopUp)
|
||||
For Each _ProductsDocumentations As ProductsDocumentations In View.SelectedObjects
|
||||
If _ChangeFileAttachment_PopUp.ChangeStatus = True Then
|
||||
_ProductsDocumentations.Status = _ChangeFileAttachment_PopUp.Status
|
||||
End If
|
||||
If _ChangeFileAttachment_PopUp.ChangeRowGroup1 = True Then
|
||||
_ProductsDocumentations.RowGroup1 = _ChangeFileAttachment_PopUp.RowGroup1
|
||||
End If
|
||||
If _ChangeFileAttachment_PopUp.ChangeRowGroup2 = True Then
|
||||
_ProductsDocumentations.RowGroup2 = _ChangeFileAttachment_PopUp.RowGroup2
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Hiba")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aProductsDocumentations_Remove_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProductsDocumentations_Remove.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _PropertyCollectionSource As PropertyCollectionSource = TryCast(_ListView.CollectionSource, PropertyCollectionSource)
|
||||
|
||||
Dim _Products As Products = TryCast(_PropertyCollectionSource.MasterObject, Products)
|
||||
|
||||
For Each _ProductsDocumentations As ProductsDocumentations In e.SelectedObjects
|
||||
If _Products IsNot Nothing Then
|
||||
_Products.ProductsDocumentations.Remove(_ProductsDocumentations)
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aProducts_Open_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_Open.Execute
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Products As Products = _onew.GetObject(TryCast(View.SelectedObjects(0), Products))
|
||||
If _Products Is Nothing Then Throw New Exception("*Nem lehet azonosítani a terméket!")
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "Products_DetailView", True, _Products)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Products_ListView_DeleteAction_Executing(sender As Object, e As CancelEventArgs)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Products As Products
|
||||
'For Each _Products In View.SelectedObjects
|
||||
' 'For Each _Object In _ocur.Session.CollectReferencingObjects(_Products)
|
||||
' ' e.Cancel = True
|
||||
|
||||
' ' '// Ide kell vaami model szöveg ...
|
||||
' 'Next
|
||||
'Next
|
||||
End Sub
|
||||
Private Sub aProducts_CreateBusinessDirectory_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_CreateBusinessDirectory.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
For Each _Products As Products In View.SelectedObjects
|
||||
Dim _ProductsMasterBusinessDirectory As BusinessDirectory = Nothing
|
||||
Dim _ProductGroupsMasterBusinessDirectory As BusinessDirectory = Nothing
|
||||
|
||||
If _Products.MasterBusinessDirectory Is Nothing Then
|
||||
|
||||
If _Products.ProductGroups IsNot Nothing Then
|
||||
If _Products.ProductGroups.MasterBusinessDirectory IsNot Nothing Then
|
||||
_ProductGroupsMasterBusinessDirectory = _Products.ProductGroups.MasterBusinessDirectory
|
||||
Else
|
||||
Dim _ProductsBaseBusinessDirectory As BusinessDirectory = _ocur.FindObject(Of BusinessDirectory)(CriteriaOperator.Parse("ShortName='Termékek' AND IsNull(BusinessDirectory_Parent)=True"))
|
||||
|
||||
If _ProductsBaseBusinessDirectory Is Nothing Then
|
||||
_ProductsBaseBusinessDirectory = New BusinessDirectory(_ocur.Session)
|
||||
With _ProductsBaseBusinessDirectory
|
||||
.ShortName = "Termékek"
|
||||
.BusinessDirectory_Parent = Nothing
|
||||
End With
|
||||
End If
|
||||
_ProductGroupsMasterBusinessDirectory = New BusinessDirectory(_ocur.Session)
|
||||
With _ProductGroupsMasterBusinessDirectory
|
||||
.ShortName = _Products.ProductGroups.ShortName
|
||||
.BusinessDirectory_Parent = _ProductsBaseBusinessDirectory
|
||||
End With
|
||||
_Products.ProductGroups.MasterBusinessDirectory = _ProductGroupsMasterBusinessDirectory
|
||||
End If
|
||||
_ProductsMasterBusinessDirectory = New BusinessDirectory(_ocur.Session)
|
||||
With _ProductsMasterBusinessDirectory
|
||||
.ShortName = _Products.ShortName
|
||||
.BusinessDirectory_Parent = _ProductGroupsMasterBusinessDirectory
|
||||
End With
|
||||
End If
|
||||
|
||||
_Products.MasterBusinessDirectory = _ProductsMasterBusinessDirectory
|
||||
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
|
||||
Private Sub aProducts_GenerateNotUsedList_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aProducts_GenerateNotUsedList.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Products_Collection As New XPCollection(Of Products)(_ocur.Session)
|
||||
|
||||
RaiseEvent InitWork(1, 1, _Products_Collection.Count)
|
||||
For Each _Products As Products In _Products_Collection
|
||||
If Not _Products.IsStoragEverUsed Then
|
||||
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products))
|
||||
If _StorageInRows_Collection.Count > 0 Then
|
||||
_Products.IsStoragEverUsed = True
|
||||
Else
|
||||
Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products))
|
||||
If _OrderInRows_Collection.Count > 0 Then
|
||||
_Products.IsStoragEverUsed = True
|
||||
Else
|
||||
Dim _OrderOutRows_Collection As New XPCollection(Of OrderOutRows)(_ocur.Session, CriteriaOperator.Parse("Products=?", _Products))
|
||||
If _OrderOutRows_Collection.Count > 0 Then
|
||||
_Products.IsStoragEverUsed = True
|
||||
Else
|
||||
_Products.IsStoragEverUsed = False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
RaiseEvent DoWork()
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,8 @@
|
||||
|
||||
Public Enum eADRPackingUnit
|
||||
eNotSet = 0
|
||||
eUnit_I = 1
|
||||
eUnit_II = 2
|
||||
eUnit_III = 3
|
||||
eUnit_LQ = 4
|
||||
End Enum
|
||||
@@ -0,0 +1,7 @@
|
||||
|
||||
Public Enum eDangerClass
|
||||
eNotSet = 0
|
||||
eClassI = 1
|
||||
eClassII = 2
|
||||
eClassIII = 3
|
||||
End Enum
|
||||
@@ -0,0 +1,7 @@
|
||||
|
||||
|
||||
Public Enum eProductType
|
||||
eNormal = 0
|
||||
eSerialNumber = 1
|
||||
ePacketNumber = 2
|
||||
End Enum
|
||||
Reference in New Issue
Block a user