Reconfigure for GIT

This commit is contained in:
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
@@ -0,0 +1,35 @@
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 StorageOutRowsFromPDACollectionPopup
Inherits BaseObject
Private _StoragePDACollectionHeader As StoragePDACollectionHeader
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
Property StoragePDACollectionHeader As StoragePDACollectionHeader
Get
Return _StoragePDACollectionHeader
End Get
Set(value As StoragePDACollectionHeader)
SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
End Set
End Property
End Class
@@ -0,0 +1,179 @@
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
'------------------------ Fogyás mátrix -----------------------------------------------------------------------------------------------
Public Enum eCirculationType
eAccaount = 0 'Kiszámlázott tételek
eMoving = 1 'Mozgási tételek
End Enum
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
Public Class StorageOutCirculation 'Fogyási mátrix
Inherits BaseObject
Private _CirculationType As eCirculationType
Private _Storage As Storage 'Raktár
Private _Products As Products 'Termék
Private _YearExecution As Long 'Év
Private _Month01 As Double 'Januárban
Private _Month02 As Double 'Februárban
Private _Month03 As Double 'Márciusban
Private _Month04 As Double 'Áprilisban
Private _Month05 As Double 'Májusban
Private _Month06 As Double 'Júniusban
Private _Month07 As Double 'Júliusban
Private _Month08 As Double 'Augusztusban
Private _Month09 As Double 'Szeptemberben
Private _Month10 As Double 'Októberben
Private _Month11 As Double 'Novemberben
Private _Month12 As Double 'Decemberben
Private _Total As Double 'Év összesen
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Property CirculationType As eCirculationType
Get
Return _CirculationType
End Get
Set(value As eCirculationType)
SetPropertyValue("CirculationType", _CirculationType, value)
End Set
End Property
Property Storage As Storage
Get
Return _Storage
End Get
Set(ByVal value As Storage)
SetPropertyValue("Storage", _Storage, 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 YearExecution As Long
Get
Return _YearExecution
End Get
Set(ByVal value As Long)
SetPropertyValue("YearExecution", _YearExecution, value)
End Set
End Property
Property Month01 As Double
Get
Return _Month01
End Get
Set(ByVal value As Double)
SetPropertyValue("Month01", _Month01, value)
End Set
End Property
Property Month02 As Double
Get
Return _Month02
End Get
Set(ByVal value As Double)
SetPropertyValue("Month02", _Month02, value)
End Set
End Property
Property Month03 As Double
Get
Return _Month03
End Get
Set(ByVal value As Double)
SetPropertyValue("Month03", _Month03, value)
End Set
End Property
Property Month04 As Double
Get
Return _Month04
End Get
Set(ByVal value As Double)
SetPropertyValue("Month04", _Month04, value)
End Set
End Property
Property Month05 As Double
Get
Return _Month01
End Get
Set(ByVal value As Double)
SetPropertyValue("Month05", _Month05, value)
End Set
End Property
Property Month06 As Double
Get
Return _Month06
End Get
Set(ByVal value As Double)
SetPropertyValue("Month06", _Month06, value)
End Set
End Property
Property Month07 As Double
Get
Return _Month07
End Get
Set(ByVal value As Double)
SetPropertyValue("Month07", _Month07, value)
End Set
End Property
Property Month08 As Double
Get
Return _Month08
End Get
Set(ByVal value As Double)
SetPropertyValue("Month08", _Month08, value)
End Set
End Property
Property Month09 As Double
Get
Return _Month09
End Get
Set(ByVal value As Double)
SetPropertyValue("Month09", _Month09, value)
End Set
End Property
Property Month10 As Double
Get
Return _Month10
End Get
Set(ByVal value As Double)
SetPropertyValue("Month10", _Month10, value)
End Set
End Property
Property Month11 As Double
Get
Return _Month11
End Get
Set(ByVal value As Double)
SetPropertyValue("Month11", _Month11, value)
End Set
End Property
Property Month12 As Double
Get
Return _Month12
End Get
Set(ByVal value As Double)
SetPropertyValue("Month12", _Month12, value)
End Set
End Property
Property Total As Double
Get
Return _Total
End Get
Set(ByVal value As Double)
SetPropertyValue("Total", _Total, value)
End Set
End Property
End Class
@@ -0,0 +1,339 @@
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 eOutMode
eProducts = 0
ePacketNumber = 1
eSerialNumber = 2
End Enum
'<EditorStateRule("Disable properties when IsEditable = False", "*", ViewType.DetailView, "IsEditable = False", EditorState.Disabled)> _
'<EditorStateRuleAttribute("Disable DocumentNumber all time StorageOutHeader", "DocumentNumber", ViewType.DetailView, "1=1", EditorState.Disabled)> _
<DefaultClassOptions()> _
<NavigationItem("StorageTransactions")> _
<Appearance("Hide row_StorageInRows properties when row_OutMode=0", AppearanceItemType.ViewItem, "row_OutMode=0", TargetItems:="row_StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Hide row_StorageComputed properties when row_OutMode<>0", AppearanceItemType.ViewItem, "row_OutMode<>0", TargetItems:="row_StorageComputed", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Hide row_ properties when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_OutMode;row_QTT;row_QTT_Will;row_StorageComputed;row_StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Disable properties when IsEditable = False", TargetItems:="*", Criteria:="IsEditable = False", Enabled:=False, Context:="DetailView")> _
<Appearance("Disable DocumentNumber all time StorageOutHeader", TargetItems:="DocumentNumber", Criteria:="1=1", Enabled:=False, Context:="DetailView")> _
<Appearance("Hide Row Data", AppearanceItemType.LayoutItem, "IsEditable = False", TargetItems:="Item1", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Hide Item3 StorageOutHeader", AppearanceItemType.LayoutItem, "IsNull(Storage) Or IsNull(DocumentNumber) Or IsNull(CustomersFrom) Or IsNull(StorageMoveType) Or IsNull(Customers)", TargetItems:="Item3", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Disable Storage, CustomersFrom, StorageMoveType when IsFinalized=True", AppearanceItemType.ViewItem, "IsFinalized=True", TargetItems:="Storage;CustomersFrom;StorageMoveType", Enabled:=False)> _
<Appearance("Hide StorageTo property when StorageMoveType.MoveType<>6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType<>6", TargetItems:="StorageTo", visibility:=Editors.ViewItemVisibility.Hide)> _
<Appearance("Disable Customers property when StorageMoveType.MoveType=6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType=6", TargetItems:="Customers", Enabled:=False)> _
Public Class StorageOutHeader
Inherits BaseObject
Private _StorageMoveType As StorageMoveType
Private _CustomersFrom As CustomersFrom
Private _Customers As Customers
Private _DocumentNumber As String
Private _Storage As Storage
Private _StorageTo As Storage
Private _CreateDate As Date
Private _Active As Boolean = True
Private _ObjectCreated As Date
Private _UserCreated As User 'Ki készítette
Private _IsStorno As Boolean = False
Private _IsEditable As Boolean = True
Private _IsFinalized As Boolean = False 'Volt-e már véglegesítve ?
Private _RecipeExecutionSimple As RecipeExecutionSimple 'Melyik gyártáshoz kapcs. kitárolás
Private _WorkSheet_Header As WorkSheet_Header 'Melyik munkalaphoz kapcsolódik a kitárolás
Private _StoragePDACollectionHeader As StoragePDACollectionHeader
Private _ConnectInfo As String
'----------------------------------------------------------------------------
Private _row_OutMode As eOutMode
Private _row_QTT As Double
Private _row_QTT_Will As Double
Private _row_StorageComputed As StorageComputed
Private _row_StorageInRows As StorageInRows
'----------------------------------------------------------------------------
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
CreateDate = GetSQLTime(Session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
If String.IsNullOrEmpty(DocumentNumber) Then
_DocumentNumber = _Storage.NumberGeneratorOut.GetNewNumber(_Storage.NumberGeneratorOut)
End If
If Session.IsNewObject(Me) Then
ObjectCreated = GetSQLTime(Session)
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
End If
End Sub
<ImmediatePostData()> _
<RuleRequiredField("StorageOutHeader-StorageMoveType", DefaultContexts.Save)> _
<DataSourceCriteria("Storage='@This.Storage'")> _
Property StorageMoveType As StorageMoveType
Get
Return _StorageMoveType
End Get
Set(value As StorageMoveType)
SetPropertyValue("StorageMoveType", _StorageMoveType, value)
End Set
End Property
Property CustomersFrom As CustomersFrom
Get
Return _CustomersFrom
End Get
Set(ByVal value As CustomersFrom)
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
End Set
End Property
<ImmediatePostData()> _
Property Customers As Customers
Get
Return _Customers
End Get
Set(ByVal value As Customers)
SetPropertyValue("Customres", _Customers, value)
End Set
End Property
Property DocumentNumber() As String
Get
Return _DocumentNumber
End Get
Set(ByVal value As String)
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
End Set
End Property
<RuleRequiredField("", DefaultContexts.Save)> _
<ImmediatePostData()> _
<DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")> _
Property Storage() As Storage
Get
Return _Storage
End Get
Set(ByVal value As Storage)
SetPropertyValue("Storage", _Storage, value)
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
If StorageMoveType IsNot Nothing Then
If StorageMoveType.MoveType = eMoveType.InventoryTransfer Then
Customers = value.CustomersFrom
End If
End If
End If
End Set
End Property
<ImmediatePostData()> _
<DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")> _
<RuleRequiredField("StorageOutHeader - StorageTo", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")> _
Property StorageTo As Storage
Get
Return _StorageTo
End Get
Set(value As Storage)
SetPropertyValue("StorageTo", _StorageTo, value)
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
If StorageMoveType.MoveType = eMoveType.InventoryTransfer Then
If value Is Nothing Then
Customers = Nothing
Else
Customers = value.CustomersFrom
End If
End If
End If
End Set
End Property
Property CreateDate() As Date
Get
Return _CreateDate
End Get
Set(ByVal value As Date)
SetPropertyValue("CreateDate", _CreateDate, value)
End Set
End Property
Property Active() As Boolean
Get
Return _Active
End Get
Set(ByVal value As Boolean)
SetPropertyValue("Active", _Active, value)
End Set
End Property
<NonCloneable> _
Property ObjectCreated() As Date
Get
Return _ObjectCreated
End Get
Set(ByVal 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
Property IsStorno() As Boolean
Get
Return _IsStorno
End Get
Set(ByVal value As Boolean)
SetPropertyValue("IsStorno", _IsStorno, value)
End Set
End Property
Property IsEditable() As Boolean
Get
Return _IsEditable
End Get
Set(ByVal value As Boolean)
SetPropertyValue("IsEditable", _IsEditable, value)
End Set
End Property
<Browsable(False)> _
Property IsFinalized As Boolean
Get
Return _IsFinalized
End Get
Set(value As Boolean)
SetPropertyValue("IsFinalized", _IsFinalized, value)
End Set
End Property
Property RecipeExecutionSimple As RecipeExecutionSimple
Get
Return _RecipeExecutionSimple
End Get
Set(value As RecipeExecutionSimple)
SetPropertyValue("RecipeExecutionSimple", _RecipeExecutionSimple, value)
End Set
End Property
<DataSourceCriteria("CustomersFrom='@This.CustomersFrom' and Customers='@This.Customers' and WorkSheetState<>1")> _
Property WorkSheet_Header As WorkSheet_Header
Get
Return _WorkSheet_Header
End Get
Set(value As WorkSheet_Header)
SetPropertyValue("WorkSheet_Header", _WorkSheet_Header, value)
End Set
End Property
Property StoragePDACollectionHeader As StoragePDACollectionHeader
Get
Return _StoragePDACollectionHeader
End Get
Set(value As StoragePDACollectionHeader)
SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
End Set
End Property
Property ConnectInfo As String
Get
Return _ConnectInfo
End Get
Set(value As String)
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
End Set
End Property
'Nonpersistent
<NonPersistent()> _
<ImmediatePostData()> _
Property row_OutMode As eOutMode
Get
Return _row_OutMode
End Get
Set(value As eOutMode)
SetPropertyValue("row_OutMode", _row_OutMode, value)
End Set
End Property
<NonPersistent()> _
<VisibleInListView(False)> _
Property row_QTT() As Double
Get
Return _row_QTT
End Get
Set(ByVal value As Double)
SetPropertyValue("Row_QTT", _row_QTT, value)
End Set
End Property
<NonPersistent()> _
<RuleRange("StorageOutHeader-row_QTT_Will", "aToTable_StorageOut_Context", 0.0001, Double.MaxValue, TargetCriteria:="IsEditable=True")> _
<VisibleInListView(False)> _
Property row_QTT_Will() As Double
Get
Return _row_QTT_Will
End Get
Set(ByVal value As Double)
SetPropertyValue("Row_QTT_Will", _row_QTT_Will, value)
End Set
End Property
<ImmediatePostData()> _
<NonPersistent()> _
<DataSourceCriteria("Storage = '@This.Storage'")> _
<RuleRequiredField("StorageOutHeader-row_StorageComputed", "aToTable_StorageOut_Context", targetcriteria:="row_OutMode=0")> _
<VisibleInListView(False)> _
Property row_StorageComputed() As StorageComputed
Get
Return _row_StorageComputed
End Get
Set(ByVal value As StorageComputed)
SetPropertyValue("Row_StorageComputed", _row_StorageComputed, value)
End Set
End Property
<NonPersistent()> _
<DataSourceCriteria("StorageInHeader.Storage = '@This.Storage' and QTT>QTT_Out")> _
<RuleRequiredField("StorageOutHeader-row_StorageInRows", "aToTable_StorageOut_Context", targetcriteria:="row_OutMode<>0")> _
<VisibleInListView(False)> _
Property row_StorageInRows As StorageInRows
Get
Return _row_StorageInRows
End Get
Set(value As StorageInRows)
SetPropertyValue("row_StorageInRows", _row_StorageInRows, value)
End Set
End Property
'XPCollections
<VisibleInListView(False)> _
<Association("StorageOut", GetType(StorageOutRows))> _
Public ReadOnly Property StorageOutRows() As XPCollection(Of StorageOutRows)
Get
Return GetCollection(Of StorageOutRows)("StorageOutRows")
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
Get
Dim _StorageOutRowsInRows_Collection As New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("1=2"))
Dim _StorageOutRows As StorageOutRows
Dim _StorageOutRowsInRows As StorageOutRowsInRows
For Each _StorageOutRows In Me.StorageOutRows
For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows
_StorageOutRowsInRows_Collection.Add(_StorageOutRowsInRows)
Next
Next
Return _StorageOutRowsInRows_Collection
End Get
End Property
<VisibleInListView(False), VisibleInLookupListView(False)> _
ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
Get
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("1=2"))
Dim _StorageOutRows As StorageOutRows
Dim _StorageOutRowsInRows As StorageOutRowsInRows
For Each _StorageOutRows In Me.StorageOutRows
For Each _StorageOutRowsInRows In _StorageOutRows.StorageOutRowsInRows
_StorageInRows_Collection.Add(_StorageOutRowsInRows.StorageInRows)
Next
Next
Return _StorageInRows_Collection
End Get
End Property
End Class
@@ -0,0 +1,135 @@
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)> _
Public Class StorageOutRows
Inherits BaseObject
Private _RowIndex As Long
Private _StorageOutHeader As StorageOutHeader ' -- Kitárolás fejléc
Private _StorageComputed As StorageComputed ' -- Raktárkészlet
Private _OrderInRows As OrderInRows '-- Bejövő megrendelés sora
Private _QTT As Double ' -- Mennyiség
Private _QTT_Will As Double ' -- Mennyiség (Szándék)
Private _QTT_To_DeliveryOut As Double '-- Kiszállított mennyiség
Private _Products As Products ' -- Termék
Private _OnStorno As Boolean = False ' -- Stornírozás alatt van e?
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
QTT = 0
QTT_Will = 0
QTT_To_DeliveryOut = 0
OnStorno = False
RowIndex = -1
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero)
QTT_To_DeliveryOut = Math.Round(QTT_To_DeliveryOut, 4, MidpointRounding.AwayFromZero)
QTT_Will = Math.Round(QTT_Will, 4, MidpointRounding.AwayFromZero)
End Sub
Public Sub RemoveRows()
For Each _StorageOutRows As StorageOutRows In Me.StorageOutHeader.StorageOutRows
If _StorageOutRows.RowIndex > Me.RowIndex Then
_StorageOutRows.RowIndex -= 1
End If
Next
End Sub
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(ByVal value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
<Association("StorageOut", GetType(StorageOutHeader))> _
Property StorageOutHeader() As StorageOutHeader
Get
Return _StorageOutHeader
End Get
Set(ByVal value As StorageOutHeader)
SetPropertyValue("StorageOutHeader", _StorageOutHeader, value)
End Set
End Property
<DataSourceCriteria("Storage = '@This.StorageOutHeader.Storage'")> _
Property StorageComputed() As StorageComputed
Get
Return _StorageComputed
End Get
Set(ByVal value As StorageComputed)
SetPropertyValue("StorageComputed", _StorageComputed, value)
End Set
End Property
Property OrderInRows() As OrderInRows
Get
Return _OrderInRows
End Get
Set(ByVal value As OrderInRows)
SetPropertyValue("OrderInRows", _OrderInRows, value)
End Set
End Property
<RuleRequiredField("", DefaultContexts.Save)> _
Property QTT() As Double
Get
Return _QTT
End Get
Set(ByVal value As Double)
SetPropertyValue("QTT", _QTT, value)
End Set
End Property
<RuleRequiredField("", DefaultContexts.Save)> _
Property QTT_Will() As Double
Get
Return _QTT_Will
End Get
Set(ByVal value As Double)
_QTT_Will = value
End Set
End Property
Property QTT_To_DeliveryOut As Double
Get
Return _QTT_To_DeliveryOut
End Get
Set(value As Double)
SetPropertyValue("QTT_To_DeliveryOut", _QTT_To_DeliveryOut, 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 OnStorno() As Boolean
Get
Return _OnStorno
End Get
Set(ByVal value As Boolean)
SetPropertyValue("OnStorno", _OnStorno, value)
End Set
End Property
<VisibleInListView(False)> _
<Association("StorageOutIn", GetType(StorageOutRowsInRows))> _
Public ReadOnly Property StorageOutRowsInRows() As XPCollection(Of StorageOutRowsInRows)
Get
Return GetCollection(Of StorageOutRowsInRows)("StorageOutRowsInRows")
End Get
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
Imports DevExpress.ExpressApp.ConditionalAppearance
Imports System.Linq
Imports System.Linq.Expressions
<DefaultClassOptions()> _
<NavigationItem(False), CreatableItem(False)> _
<DefaultProperty("StorageOutRows.StorageOutHeader.DocumentNumber")> _
Public Class StorageOutRowsInRows
Inherits BaseObject
Private _RowIndex As Long
Private _StorageOutRows As StorageOutRows
Private _StorageInRows As StorageInRows
Private _QTT As Double 'Kitárolt mennyiség
Private _QTT_To_DeliveryOut As Double 'Kiszállított mennyiség
Private _QTT_Will As Double 'Kiszállítási szándék
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Protected Overrides Sub OnSaving()
MyBase.OnSaving()
QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero)
QTT_To_DeliveryOut = Math.Round(QTT_To_DeliveryOut, 4, MidpointRounding.AwayFromZero)
QTT_Will = Math.Round(QTT_Will, 4, MidpointRounding.AwayFromZero)
End Sub
Property RowIndex As Long
Get
Return _RowIndex
End Get
Set(ByVal value As Long)
SetPropertyValue("RowIndex", _RowIndex, value)
End Set
End Property
<Association("StorageOutIn", GetType(StorageOutRows))> _
Property StorageOutRows() As StorageOutRows
Get
Return _StorageOutRows
End Get
Set(ByVal value As StorageOutRows)
SetPropertyValue("StorageOutRows", _StorageOutRows, value)
End Set
End Property
Property StorageInRows() As StorageInRows
Get
Return _StorageInRows
End Get
Set(ByVal value As StorageInRows)
SetPropertyValue("StorageInRows", _StorageInRows, 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
Property QTT_To_DeliveryOut As Double
Get
Return _QTT_To_DeliveryOut
End Get
Set(value As Double)
SetPropertyValue("QTT_To_DeliveryOut", _QTT_To_DeliveryOut, value)
End Set
End Property
Property QTT_Will As Double
Get
Return _QTT_Will
End Get
Set(value As Double)
SetPropertyValue("QTT_Will", _QTT_Will, 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 StorageOutRowsLocation
Inherits BaseObject
Private _StorageOutRows As StorageOutRows
Private _StorageComputedLocations As StorageComputedLocations
Private _QTT As Double
Public Sub New(ByVal session As Session)
MyBase.New(session)
End Sub
Public Overrides Sub AfterConstruction()
MyBase.AfterConstruction()
End Sub
Property StorageOutRows As StorageOutRows
Get
Return _StorageOutRows
End Get
Set(value As StorageOutRows)
SetPropertyValue("StorageOutRows", _StorageOutRows, value)
End Set
End Property
Property StorageComputedLocations As StorageComputedLocations
Get
Return _StorageComputedLocations
End Get
Set(value As StorageComputedLocations)
SetPropertyValue("StorageComputedLocations", _StorageComputedLocations, 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
End Class
@@ -0,0 +1,68 @@
Partial Class StorageTransactionsOutPrint
<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.aStorageTransactionsOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aStorageOutRowsInRowsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
'
'aStorageTransactionsOutPrint
'
Me.aStorageTransactionsOutPrint.Caption = "aStorageTransactionsOutPrint"
Me.aStorageTransactionsOutPrint.Category = "View"
Me.aStorageTransactionsOutPrint.ConfirmationMessage = Nothing
Me.aStorageTransactionsOutPrint.Id = "aStorageTransactionsOutPrint"
Me.aStorageTransactionsOutPrint.ImageName = Nothing
Me.aStorageTransactionsOutPrint.Shortcut = Nothing
Me.aStorageTransactionsOutPrint.Tag = Nothing
Me.aStorageTransactionsOutPrint.TargetObjectsCriteria = Nothing
Me.aStorageTransactionsOutPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader)
Me.aStorageTransactionsOutPrint.TargetViewId = Nothing
Me.aStorageTransactionsOutPrint.ToolTip = Nothing
Me.aStorageTransactionsOutPrint.TypeOfView = Nothing
'
'aStorageOutRowsInRowsPrint
'
Me.aStorageOutRowsInRowsPrint.Caption = "aStorageOutRowsInRowsPrint"
Me.aStorageOutRowsInRowsPrint.Category = "Print"
Me.aStorageOutRowsInRowsPrint.ConfirmationMessage = Nothing
Me.aStorageOutRowsInRowsPrint.Id = "aStorageOutRowsInRowsPrint"
Me.aStorageOutRowsInRowsPrint.ImageName = Nothing
Me.aStorageOutRowsInRowsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageOutRowsInRowsPrint.Shortcut = Nothing
Me.aStorageOutRowsInRowsPrint.Tag = Nothing
Me.aStorageOutRowsInRowsPrint.TargetObjectsCriteria = Nothing
Me.aStorageOutRowsInRowsPrint.TargetObjectType = GetType(SISBusiness.[Module].StorageOutRowsInRows)
Me.aStorageOutRowsInRowsPrint.TargetViewId = Nothing
Me.aStorageOutRowsInRowsPrint.ToolTip = Nothing
Me.aStorageOutRowsInRowsPrint.TypeOfView = Nothing
End Sub
Friend WithEvents aStorageTransactionsOutPrint As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aStorageOutRowsInRowsPrint 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="aStorageTransactionsOutPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aStorageOutRowsInRowsPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>344, 186</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,51 @@
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
Imports DevExpress.ExpressApp.Utils
Imports DevExpress.Persistent.BaseImpl
Public Class StorageTransactionsOutPrint
Inherits DevExpress.ExpressApp.ViewController
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
RegisterActions(components)
End Sub
Private Sub aStorageTransactionsOutPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageTransactionsOutPrint.Execute
Dim _ReportData As ReportData
Dim _StorageOutHeader As StorageOutHeader
If e.SelectedObjects.Count > 0 Then
_StorageOutHeader = TryCast(e.SelectedObjects.Item(0), StorageOutHeader)
If _StorageOutHeader Is Nothing Then
Else
_ReportData = _StorageOutHeader.Storage.ReportOut
If _ReportData Is Nothing Or _StorageOutHeader Is Nothing Then
Else
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber =?", _StorageOutHeader.DocumentNumber), True)
End If
End If
End If
End Sub
Private Sub aStorageOutRowsInRowsPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageOutRowsInRowsPrint.Execute
Try
If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
Dim _StorageOutHeader As StorageOutHeader = TryCast(View.SelectedObjects(0), StorageOutRowsInRows).StorageOutRows.StorageOutHeader
If _StorageOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
Dim _ReportData As ReportData = _StorageOutHeader.Storage.ReportOut
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageOutRows.StorageOutHeader.DocumentNumber =?", _StorageOutHeader.DocumentNumber), True)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
End Try
End Sub
End Class
@@ -0,0 +1,272 @@
Partial Class StorageTransactionsOutVC
<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.aFinalizeAndNew_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aToTable_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aSOFinList_Order = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aBackToEdit_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aToTableD_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aCreateDeliveryNote = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aUp_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aDown_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aBackToStorageOutFromOrderIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aStorageOutStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aFinalize_StorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aStorageOutFromPdaCollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
Me.aCreatePDACollectionFromStorageOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
Me.aGenerateStorageOutPDACollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
'
'aFinalizeAndNew_StorageOut
'
Me.aFinalizeAndNew_StorageOut.Caption = "aStorage Out Final And New"
Me.aFinalizeAndNew_StorageOut.Category = "RecordEdit"
Me.aFinalizeAndNew_StorageOut.ConfirmationMessage = Nothing
Me.aFinalizeAndNew_StorageOut.Id = "aFinalizeAndNew_StorageOut"
Me.aFinalizeAndNew_StorageOut.ImageName = Nothing
Me.aFinalizeAndNew_StorageOut.Shortcut = Nothing
Me.aFinalizeAndNew_StorageOut.Tag = Nothing
Me.aFinalizeAndNew_StorageOut.TargetObjectsCriteria = Nothing
Me.aFinalizeAndNew_StorageOut.TargetViewId = Nothing
Me.aFinalizeAndNew_StorageOut.ToolTip = Nothing
Me.aFinalizeAndNew_StorageOut.TypeOfView = Nothing
'
'aToTable_StorageOut
'
Me.aToTable_StorageOut.Caption = "aSOHTo Table"
Me.aToTable_StorageOut.Category = "aToTable_StorageOut"
Me.aToTable_StorageOut.ConfirmationMessage = Nothing
Me.aToTable_StorageOut.Id = "aToTable_StorageOut"
Me.aToTable_StorageOut.ImageName = Nothing
Me.aToTable_StorageOut.Shortcut = Nothing
Me.aToTable_StorageOut.Tag = Nothing
Me.aToTable_StorageOut.TargetObjectsCriteria = Nothing
Me.aToTable_StorageOut.TargetViewId = Nothing
Me.aToTable_StorageOut.ToolTip = Nothing
Me.aToTable_StorageOut.TypeOfView = Nothing
'
'aSOFinList_Order
'
Me.aSOFinList_Order.Caption = "aSOFinList_Order"
Me.aSOFinList_Order.ConfirmationMessage = Nothing
Me.aSOFinList_Order.Id = "aSOFinList_Order"
Me.aSOFinList_Order.ImageName = Nothing
Me.aSOFinList_Order.Shortcut = Nothing
Me.aSOFinList_Order.Tag = Nothing
Me.aSOFinList_Order.TargetObjectsCriteria = Nothing
Me.aSOFinList_Order.TargetViewId = "StorageOutRows_ListView_Order"
Me.aSOFinList_Order.ToolTip = Nothing
Me.aSOFinList_Order.TypeOfView = Nothing
'
'aBackToEdit_StorageOut
'
Me.aBackToEdit_StorageOut.Caption = "aBack To Edit SOH"
Me.aBackToEdit_StorageOut.Category = "Edit"
Me.aBackToEdit_StorageOut.ConfirmationMessage = Nothing
Me.aBackToEdit_StorageOut.Id = "aBackToEdit_StorageOut"
Me.aBackToEdit_StorageOut.ImageName = Nothing
Me.aBackToEdit_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aBackToEdit_StorageOut.Shortcut = Nothing
Me.aBackToEdit_StorageOut.Tag = Nothing
Me.aBackToEdit_StorageOut.TargetObjectsCriteria = Nothing
Me.aBackToEdit_StorageOut.TargetViewId = ""
Me.aBackToEdit_StorageOut.ToolTip = Nothing
Me.aBackToEdit_StorageOut.TypeOfView = Nothing
'
'aToTableD_StorageOut
'
Me.aToTableD_StorageOut.Caption = "Delete row"
Me.aToTableD_StorageOut.Category = "aToTableD_StorageOut"
Me.aToTableD_StorageOut.ConfirmationMessage = Nothing
Me.aToTableD_StorageOut.Id = "aToTableD_StorageOut"
Me.aToTableD_StorageOut.ImageName = Nothing
Me.aToTableD_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aToTableD_StorageOut.Shortcut = Nothing
Me.aToTableD_StorageOut.Tag = Nothing
Me.aToTableD_StorageOut.TargetObjectsCriteria = Nothing
Me.aToTableD_StorageOut.TargetViewId = ""
Me.aToTableD_StorageOut.ToolTip = Nothing
Me.aToTableD_StorageOut.TypeOfView = Nothing
'
'aCreateDeliveryNote
'
Me.aCreateDeliveryNote.AcceptButtonCaption = Nothing
Me.aCreateDeliveryNote.CancelButtonCaption = Nothing
Me.aCreateDeliveryNote.Caption = "Create Delivery Note"
Me.aCreateDeliveryNote.ConfirmationMessage = Nothing
Me.aCreateDeliveryNote.Id = "aCreateDeliveryNote"
Me.aCreateDeliveryNote.ImageName = Nothing
Me.aCreateDeliveryNote.Shortcut = Nothing
Me.aCreateDeliveryNote.Tag = Nothing
Me.aCreateDeliveryNote.TargetObjectsCriteria = Nothing
Me.aCreateDeliveryNote.TargetViewId = Nothing
Me.aCreateDeliveryNote.ToolTip = Nothing
Me.aCreateDeliveryNote.TypeOfView = Nothing
'
'aUp_StorageOut
'
Me.aUp_StorageOut.Caption = "Up"
Me.aUp_StorageOut.Category = "RecordsNavigation"
Me.aUp_StorageOut.ConfirmationMessage = Nothing
Me.aUp_StorageOut.Id = "aUp_StorageOut"
Me.aUp_StorageOut.ImageName = "arrow_up_green"
Me.aUp_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aUp_StorageOut.Shortcut = Nothing
Me.aUp_StorageOut.Tag = Nothing
Me.aUp_StorageOut.TargetObjectsCriteria = Nothing
Me.aUp_StorageOut.TargetViewId = Nothing
Me.aUp_StorageOut.ToolTip = Nothing
Me.aUp_StorageOut.TypeOfView = Nothing
'
'aDown_StorageOut
'
Me.aDown_StorageOut.Caption = "Down"
Me.aDown_StorageOut.Category = "RecordsNavigation"
Me.aDown_StorageOut.ConfirmationMessage = Nothing
Me.aDown_StorageOut.Id = "aDown_StorageOut"
Me.aDown_StorageOut.ImageName = "arrow_down_green"
Me.aDown_StorageOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aDown_StorageOut.Shortcut = Nothing
Me.aDown_StorageOut.Tag = Nothing
Me.aDown_StorageOut.TargetObjectsCriteria = Nothing
Me.aDown_StorageOut.TargetViewId = Nothing
Me.aDown_StorageOut.ToolTip = Nothing
Me.aDown_StorageOut.TypeOfView = Nothing
'
'aBackToStorageOutFromOrderIn
'
Me.aBackToStorageOutFromOrderIn.Caption = "aBack To Storage Out From Order In"
Me.aBackToStorageOutFromOrderIn.Category = "View"
Me.aBackToStorageOutFromOrderIn.ConfirmationMessage = "Do you want to execute?"
Me.aBackToStorageOutFromOrderIn.Id = "aBackToStorageOutFromOrderIn"
Me.aBackToStorageOutFromOrderIn.ImageName = Nothing
Me.aBackToStorageOutFromOrderIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aBackToStorageOutFromOrderIn.Shortcut = Nothing
Me.aBackToStorageOutFromOrderIn.Tag = Nothing
Me.aBackToStorageOutFromOrderIn.TargetObjectsCriteria = Nothing
Me.aBackToStorageOutFromOrderIn.TargetViewId = ""
Me.aBackToStorageOutFromOrderIn.ToolTip = Nothing
Me.aBackToStorageOutFromOrderIn.TypeOfView = Nothing
'
'aStorageOutStorno
'
Me.aStorageOutStorno.Caption = "aStorage Out Storno"
Me.aStorageOutStorno.Category = "Edit"
Me.aStorageOutStorno.ConfirmationMessage = Nothing
Me.aStorageOutStorno.Id = "aStorageOutStorno"
Me.aStorageOutStorno.ImageName = "document_delete"
Me.aStorageOutStorno.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageOutStorno.Shortcut = Nothing
Me.aStorageOutStorno.Tag = Nothing
Me.aStorageOutStorno.TargetObjectsCriteria = Nothing
Me.aStorageOutStorno.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader)
Me.aStorageOutStorno.TargetViewId = Nothing
Me.aStorageOutStorno.ToolTip = Nothing
Me.aStorageOutStorno.TypeOfView = Nothing
'
'aFinalize_StorageOut
'
Me.aFinalize_StorageOut.Caption = "aStorage Out Final"
Me.aFinalize_StorageOut.Category = "RecordEdit"
Me.aFinalize_StorageOut.ConfirmationMessage = Nothing
Me.aFinalize_StorageOut.Id = "aFinalize_StorageOut"
Me.aFinalize_StorageOut.ImageName = Nothing
Me.aFinalize_StorageOut.Shortcut = Nothing
Me.aFinalize_StorageOut.Tag = Nothing
Me.aFinalize_StorageOut.TargetObjectsCriteria = Nothing
Me.aFinalize_StorageOut.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader)
Me.aFinalize_StorageOut.TargetViewId = Nothing
Me.aFinalize_StorageOut.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
Me.aFinalize_StorageOut.ToolTip = Nothing
Me.aFinalize_StorageOut.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
'
'aStorageOutFromPdaCollection
'
Me.aStorageOutFromPdaCollection.AcceptButtonCaption = Nothing
Me.aStorageOutFromPdaCollection.CancelButtonCaption = Nothing
Me.aStorageOutFromPdaCollection.Caption = "StorageOut From Pda Collection"
Me.aStorageOutFromPdaCollection.Category = "aStorageOutFromPdaCollection"
Me.aStorageOutFromPdaCollection.ConfirmationMessage = Nothing
Me.aStorageOutFromPdaCollection.Id = "aStorageOutFromPdaCollection"
Me.aStorageOutFromPdaCollection.ImageName = Nothing
Me.aStorageOutFromPdaCollection.Shortcut = Nothing
Me.aStorageOutFromPdaCollection.Tag = Nothing
Me.aStorageOutFromPdaCollection.TargetObjectsCriteria = Nothing
Me.aStorageOutFromPdaCollection.TargetViewId = Nothing
Me.aStorageOutFromPdaCollection.ToolTip = Nothing
Me.aStorageOutFromPdaCollection.TypeOfView = Nothing
'
'aCreatePDACollectionFromStorageOut
'
Me.aCreatePDACollectionFromStorageOut.Caption = "aCreatePDACollectionFromStorageOut"
Me.aCreatePDACollectionFromStorageOut.Category = "aCreatePDACollectionFromStorageOut"
Me.aCreatePDACollectionFromStorageOut.ConfirmationMessage = Nothing
Me.aCreatePDACollectionFromStorageOut.Id = "aCreatePDACollectionFromStorageOut"
Me.aCreatePDACollectionFromStorageOut.ImageName = "pda"
Me.aCreatePDACollectionFromStorageOut.Shortcut = Nothing
Me.aCreatePDACollectionFromStorageOut.Tag = Nothing
Me.aCreatePDACollectionFromStorageOut.TargetObjectsCriteria = Nothing
Me.aCreatePDACollectionFromStorageOut.TargetViewId = Nothing
Me.aCreatePDACollectionFromStorageOut.ToolTip = Nothing
Me.aCreatePDACollectionFromStorageOut.TypeOfView = Nothing
'
'aGenerateStorageOutPDACollection
'
Me.aGenerateStorageOutPDACollection.AcceptButtonCaption = Nothing
Me.aGenerateStorageOutPDACollection.CancelButtonCaption = Nothing
Me.aGenerateStorageOutPDACollection.Caption = "aGenerateStorageOutPDACollection"
Me.aGenerateStorageOutPDACollection.Category = "Edit"
Me.aGenerateStorageOutPDACollection.ConfirmationMessage = Nothing
Me.aGenerateStorageOutPDACollection.Id = "aGenerateStorageOutPDACollection"
Me.aGenerateStorageOutPDACollection.ImageName = Nothing
Me.aGenerateStorageOutPDACollection.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aGenerateStorageOutPDACollection.Shortcut = Nothing
Me.aGenerateStorageOutPDACollection.Tag = Nothing
Me.aGenerateStorageOutPDACollection.TargetObjectsCriteria = Nothing
Me.aGenerateStorageOutPDACollection.TargetObjectType = GetType(SISBusiness.[Module].StorageOutHeader)
Me.aGenerateStorageOutPDACollection.TargetViewId = Nothing
Me.aGenerateStorageOutPDACollection.ToolTip = Nothing
Me.aGenerateStorageOutPDACollection.TypeOfView = Nothing
End Sub
Friend WithEvents aFinalizeAndNew_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aToTable_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aSOFinList_Order As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aBackToEdit_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aToTableD_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aCreateDeliveryNote As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aUp_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aDown_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aBackToStorageOutFromOrderIn As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aStorageOutStorno As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aFinalize_StorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aStorageOutFromPdaCollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
Friend WithEvents aCreatePDACollectionFromStorageOut As DevExpress.ExpressApp.Actions.SimpleAction
Friend WithEvents aGenerateStorageOutPDACollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
End Class
@@ -0,0 +1,165 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aFinalizeAndNew_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 524</value>
</metadata>
<metadata name="aToTable_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 485</value>
</metadata>
<metadata name="aSOFinList_Order.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 446</value>
</metadata>
<metadata name="aBackToEdit_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 407</value>
</metadata>
<metadata name="aToTableD_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 368</value>
</metadata>
<metadata name="aCreateDeliveryNote.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
</metadata>
<metadata name="aUp_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
</metadata>
<metadata name="aDown_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<metadata name="aBackToStorageOutFromOrderIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
</metadata>
<metadata name="aStorageOutStorno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="aFinalize_StorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="aStorageOutFromPdaCollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="aCreatePDACollectionFromStorageOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
</metadata>
<metadata name="aGenerateStorageOutPDACollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>908, 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>