First create solution
This commit is contained in:
+34
@@ -0,0 +1,34 @@
|
||||
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 GenerateStorageInPDALocationCollection
|
||||
Inherits BaseObject
|
||||
|
||||
Private _StoragePDAParameters As StoragePDAParameters
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property StoragePDAParameters As StoragePDAParameters
|
||||
Get
|
||||
Return _StoragePDAParameters
|
||||
End Get
|
||||
Set(value As StoragePDAParameters)
|
||||
SetPropertyValue("StoragePDAParameters", _StoragePDAParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+43
@@ -0,0 +1,43 @@
|
||||
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 StorageInRowsFromPDACollectionPopup
|
||||
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
|
||||
'____________________ReadOnly______________________________________
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
Public ReadOnly Property StoragePDACollectionRows As XPCollection(Of StoragePDACollectionRows)
|
||||
Get
|
||||
Return New XPCollection(Of StoragePDACollectionRows)(Session, CriteriaOperator.Parse("StoragePDACollectionHeader.Oid=?", Me.StoragePDACollectionHeader.Oid))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+47
@@ -0,0 +1,47 @@
|
||||
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)> _
|
||||
<NonPersistent()> _
|
||||
<Appearance("StorageInRows_Split_PopUp - HIde StorageInRows all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class StorageInRows_Split_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _QTT_Max As Double
|
||||
Private _StorageInRows As StorageInRows
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property QTT_Max As Double
|
||||
Get
|
||||
Return _QTT_Max
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Max", _QTT_Max, 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
|
||||
End Class
|
||||
+69
@@ -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
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Disable DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeliveryNoteInHeader", Enabled:=False)> _
|
||||
Public Class StorageInfromDeliveryNoteInRowsHeader
|
||||
Inherits BaseObject
|
||||
Private _DeliveryNoteInHeader As DeliveryNoteInHeader
|
||||
Private _Storage As Storage
|
||||
Private _StorageMoveType As StorageMoveType
|
||||
Private _DateCreation As Date
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<VisibleInListView(False)> _
|
||||
<Association("StorageInfromDeliveryNoteInRowsHeader-StorageInfromDeliveryNoteInRowsRows", GetType(StorageInfromDeliveryNoteInRowsRows))> _
|
||||
ReadOnly Property StorageInfromDeliveryNoteInRowsRows As XPCollection(Of StorageInfromDeliveryNoteInRowsRows)
|
||||
Get
|
||||
Return GetCollection(Of StorageInfromDeliveryNoteInRowsRows)("StorageInfromDeliveryNoteInRowsRows")
|
||||
End Get
|
||||
End Property
|
||||
Property DeliveryNoteInHeader As DeliveryNoteInHeader
|
||||
Get
|
||||
Return _DeliveryNoteInHeader
|
||||
End Get
|
||||
Set(value As DeliveryNoteInHeader)
|
||||
SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)> _
|
||||
Property Storage As Storage
|
||||
Get
|
||||
Return _Storage
|
||||
End Get
|
||||
Set(value As Storage)
|
||||
SetPropertyValue("Storage", _Storage, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' and MoveDirection=0 and MoveType=7")>
|
||||
Property StorageMoveType As StorageMoveType
|
||||
Get
|
||||
Return _StorageMoveType
|
||||
End Get
|
||||
Set(value As StorageMoveType)
|
||||
SetPropertyValue("StorageMoveType", _StorageMoveType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateCreation As Date
|
||||
Get
|
||||
Return _DateCreation
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreation", _DateCreation, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+76
@@ -0,0 +1,76 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports System.Linq
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class StorageInfromDeliveryNoteInRowsRows
|
||||
Inherits BaseObject
|
||||
Private _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader
|
||||
Private _DeliveryNoteInRows As DeliveryNoteInRows
|
||||
Private _QTT_Process As Double ' a betárolni kívánt mennyiség a sorról
|
||||
Private _QTT_Max As Double ' Maximum mennyit lehet még betárolni a sorról
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Association("StorageInfromDeliveryNoteInRowsHeader-StorageInfromDeliveryNoteInRowsRows", GetType(StorageInfromDeliveryNoteInRowsHeader))> _
|
||||
Property StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader
|
||||
Get
|
||||
Return _StorageInfromDeliveryNoteInRowsHeader
|
||||
End Get
|
||||
Set(value As StorageInfromDeliveryNoteInRowsHeader)
|
||||
SetPropertyValue("StorageInfromDeliveryNoteInRowsHeader", _StorageInfromDeliveryNoteInRowsHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DeliveryNoteInRows As DeliveryNoteInRows
|
||||
Get
|
||||
Return _DeliveryNoteInRows
|
||||
End Get
|
||||
Set(value As DeliveryNoteInRows)
|
||||
SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Process As Double
|
||||
Get
|
||||
Return _QTT_Process
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Process", _QTT_Process, value)
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property QTT_StorageIn As Double
|
||||
Get
|
||||
Dim _StorageInRows As New XPQuery(Of StorageInRows)(Session)
|
||||
Dim _QTT_Sum As Double = 0
|
||||
Dim query = From _SIR In _StorageInRows
|
||||
Where _SIR.DeliveryNoteInRows Is DeliveryNoteInRows
|
||||
Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
|
||||
Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
|
||||
|
||||
For Each item In query
|
||||
_QTT_Sum = item.QTT_Sum
|
||||
Next
|
||||
|
||||
Return _QTT_Sum
|
||||
End Get
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
Property QTT_Max As Double
|
||||
Get
|
||||
Return _QTT_Max
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Max", _QTT_Max, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+32
@@ -0,0 +1,32 @@
|
||||
Partial Class SorageByDateVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
components = New System.ComponentModel.Container()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,22 @@
|
||||
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 SorageByDateVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
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), DeferredDeletion(False)> _
|
||||
Public Class StorageByDate
|
||||
Inherits BaseObject
|
||||
Private _DateClose As Date
|
||||
Private _UserCreated As User
|
||||
Private _ObjectCreated As Date
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property DateClose As Date
|
||||
Get
|
||||
Return _DateClose
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateClose", _DateClose, 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
|
||||
End Class
|
||||
@@ -0,0 +1,263 @@
|
||||
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
|
||||
|
||||
'<EditorStateRule("Disabled properties when IsEditable=False", "*", ViewType.DetailView, "IsEditable = False", EditorState.Disabled)> _
|
||||
|
||||
<Appearance("Disabled properties when IsEditable=False", TargetItems:="*", Criteria:="IsEditable = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Hide row_ properties when IsEditable=False", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_Products;row_QTT_WILL;row_PacketNumber;row_SerialNumber;row_Weight", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable aToTable_StorageIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aToTable_StorageIn", Enabled:=False)> _
|
||||
<Appearance("Hide aToTable_StorageIn", AppearanceItemType.Action, "StorageMoveType.MoveType=6", TargetItems:="aToTable_StorageIn", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide aStorageInFromPdaCollection", AppearanceItemType.Action, "StorageMoveType.MoveType=6", TargetItems:="aStorageInFromPdaCollection", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable aToTableD_SIH", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aToTableD_SIH", Enabled:=False)> _
|
||||
<Appearance("Hide Item3 StorageOutHeader", AppearanceItemType.LayoutItem, "IsNull(Storage) Or IsNull(DocumentNumber) Or IsNull(StorageMoveType)", TargetItems:="Item3", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable StorageInRows when IsStorno=True", AppearanceItemType.ViewItem, "IsStorno=True", TargetItems:="StorageInRows", Enabled:=False)> _
|
||||
<Appearance("Hide row_PacketNumber when row_Products.ProductType!=2", AppearanceItemType.ViewItem, "row_Products.ProductType!=2", TargetItems:="row_PacketNumber", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_SerialNumber when row_Products.ProductType!=1", AppearanceItemType.ViewItem, "row_Products.ProductType!=1", TargetItems:="row_SerialNumber", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide StorageFrom property when StorageMoveType.MoveType<>6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType<>6", TargetItems:="StorageFrom", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide aStorageInHeader_InsertInventoryTransfer when StorageMoveType.MoveType<>6", AppearanceItemType.Action, "StorageMoveType.MoveType<>6", TargetItems:="aStorageInHeader_InsertInventoryTransfer,aStorageInHeader_InsertInventoryTransfer_FIFO,aCheckInventoryTransfer", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_ properties when StorageMoveType.MoveType<>6", AppearanceItemType.ViewItem, "StorageMoveType.MoveType=6", TargetItems:="row_Weight;row_Products;row_QTT_WILL;row_PacketNumber;row_SerialNumber", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("StorageTransactions")> _
|
||||
Public Class StorageInHeader
|
||||
Inherits BaseObject
|
||||
Private _StorageMoveType As StorageMoveType
|
||||
Private _DocumentNumber As String ' Bizonylatszám
|
||||
Private _ConnectInfo As String
|
||||
Private _Storage As Storage ' Raktár
|
||||
Private _StorageFrom As Storage '
|
||||
Private _CreateDate As Date ' Kiállítás dátuma
|
||||
Private _Active As Boolean = True ' Aktív
|
||||
Private _ObjectCreated As Date ' Objektum mikor készült
|
||||
Private _UserCreated As User 'Ki készítette
|
||||
Private _IsStorno As Boolean = False 'Storno e?
|
||||
Private _IsEditable As Boolean = True 'Végleges e?
|
||||
Private _IsFinalized As Boolean = False 'Volt-e már véglegesítve ?
|
||||
Private _RecipeExecutionSimple As RecipeExecutionSimple 'Melyik gyártáshoz kapcs. betárolás
|
||||
Private _StoragePDACollectionHeader As StoragePDACollectionHeader
|
||||
'--------------------------------------------------------
|
||||
Private _row_Products As Products ' Termék
|
||||
Private _row_QTT_Will As Double ' Mennyiség (szándék)
|
||||
Private _row_PacketNumber As String 'Kötegszám
|
||||
Private _row_SerialNumber As String ' Sorozatszám
|
||||
Private _row_Weight As Double
|
||||
Private _row_WeightMode As eWeightMode
|
||||
'--------------------------------------------------------
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If String.IsNullOrEmpty(DocumentNumber) Then
|
||||
DocumentNumber = _Storage.NumberGeneratorIn.GetNewNumber(_Storage.NumberGeneratorIn)
|
||||
If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber
|
||||
End If
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
CreateDate = GetSQLTime(Session)
|
||||
End Sub
|
||||
|
||||
<RuleRequiredField("StorageInHeader-StorageMoveType", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("Storage='@This.Storage' and MoveDirection=0")>
|
||||
Property StorageMoveType As StorageMoveType
|
||||
Get
|
||||
Return _StorageMoveType
|
||||
End Get
|
||||
Set(value As StorageMoveType)
|
||||
SetPropertyValue("StorageMoveType", _StorageMoveType, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("StorageIn", GetType(StorageInRows))> _
|
||||
Public ReadOnly Property StorageInRows() As XPCollection(Of StorageInRows)
|
||||
Get
|
||||
Return GetCollection(Of StorageInRows)("StorageInRows")
|
||||
End Get
|
||||
End Property
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, 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
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
Property Storage As Storage
|
||||
Get
|
||||
Return _Storage
|
||||
End Get
|
||||
Set(ByVal value As Storage)
|
||||
SetPropertyValue("Storage", _Storage, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("StorageInHeader - StorageFrom", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")> _
|
||||
Property StorageFrom As Storage
|
||||
Get
|
||||
Return _StorageFrom
|
||||
End Get
|
||||
Set(value As Storage)
|
||||
SetPropertyValue("StorageFrom", _StorageFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("StorageInHeader-CreateDate", DefaultContexts.Save)> _
|
||||
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
|
||||
Property StoragePDACollectionHeader As StoragePDACollectionHeader
|
||||
Get
|
||||
Return _StoragePDACollectionHeader
|
||||
End Get
|
||||
Set(value As StoragePDACollectionHeader)
|
||||
SetPropertyValue("StoragePDACollectionHeader", _StoragePDACollectionHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<NonPersistent()> _
|
||||
<RuleRequiredField("StorageInHeader-row_Products", "aToTable_StorageIn_Context")> _
|
||||
<VisibleInListView(False)> _
|
||||
<ImmediatePostData()> _
|
||||
Property row_Products As Products
|
||||
Get
|
||||
Return _row_Products
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("row_Products", _row_Products, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<RuleRange("StorageInHeader-row_QTT_Will", "aToTable_StorageIn_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
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_PacketNumber As String
|
||||
Get
|
||||
Return _row_PacketNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue(" row_PacketNumber", _row_PacketNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_SerialNumber As String
|
||||
Get
|
||||
Return _row_SerialNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_SerialNumber", _row_SerialNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Weight As Double
|
||||
Get
|
||||
Return _row_Weight
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_Weight", _row_Weight, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent>
|
||||
Property row_WeightMode As eWeightMode
|
||||
Get
|
||||
Return _row_WeightMode
|
||||
End Get
|
||||
Set(value As eWeightMode)
|
||||
SetPropertyValue("row_WeightMode", _row_WeightMode, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,282 @@
|
||||
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)> _
|
||||
<DefaultProperty("Products")> _
|
||||
Public Class StorageInRows
|
||||
Inherits BaseObject
|
||||
|
||||
Private _RowIndex As Long ' -- Sor szám
|
||||
Private _StorageInHeader As StorageInHeader ' -- Betárolási biz. fejléc
|
||||
Private _Products As Products ' -- Termék
|
||||
Private _QTT As Double '-- Betárolt mennyiség
|
||||
Private _QTT_Will As Double = 0 '-- Betárolási szándék
|
||||
Private _QTT_Out As Double = 0 '-- Kitárolt mennyiség ebből a betárolásból (FIFO !)
|
||||
Private _QTT_Out_Will As Double = 0 '--Az össze kitárolási szándék, info az aktuális készletről
|
||||
Private _QTT_Overstored As Double = 0 'Raktárközi mozgással áttárolt mennyiség ebből a FIFO lábból
|
||||
Private _QTT_Overstor As Double = 0 'Mennyi lett a bevételezett mennyiségből raktárközi átadással kitárolva !
|
||||
Private _QTT_Overstored_Will As Double = 0 'Raktárközi mozgással áttárolt mennyiség ebből a FIFO lábból véglegesítés nélkül
|
||||
Private _QTT_Overstor_Will As Double = 0 'Mennyi lett a bevételezett mennyiségből raktárközi átadással kitárolva véglegesítés nélkül!
|
||||
Private _Active As Boolean = True ' -- Aktív e?
|
||||
Private _OnStorno As Boolean ' -- Storno e?
|
||||
Private _DeliveryNoteInRows As DeliveryNoteInRows ' Melyik bejövő szállítólevél soráról van (ha van)
|
||||
Private _PacketNumber As String 'Kötegszám
|
||||
Private _SerialNumber As String 'Sorozatszám
|
||||
Private _Weight As Double
|
||||
Private _WeightMode As eWeightMode 'Súly értelmezése, egységsúly vagy öszsúly
|
||||
Private _Storage As Storage
|
||||
Private _StorageInRowsFrom As StorageInRows 'Raktárközi átadásnál a küldő betárolási sor
|
||||
Private _AveragePriceInHUF As Double 'Átlagár forintban
|
||||
|
||||
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 StorageInHeader IsNot Nothing Then
|
||||
Storage = StorageInHeader.Storage
|
||||
End If
|
||||
'Átlagár újraszámolása
|
||||
' Ha nincs DNIR akkor a fejléc dátumig az összes raktár+termék í8ahol van DNIR db/DNIR ár
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaved()
|
||||
MyBase.OnSaved()
|
||||
Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("Storage=? and Products=? AND IsNull(GCRecord)=True", Storage, Products))
|
||||
Dim _StorageInRows As StorageInRows
|
||||
Dim _StorageComputed As StorageComputed = Session.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Storage=? and Products=?", Storage, Products))
|
||||
If _StorageComputed IsNot Nothing Then
|
||||
_StorageComputed.QTTFree = 0
|
||||
_StorageComputed.QTTReserved = 0
|
||||
_StorageComputed.QTTReservedIn = 0
|
||||
_StorageComputed.QTTReservedOut = 0
|
||||
Else
|
||||
_StorageComputed = New StorageComputed(Session)
|
||||
_StorageComputed.Storage = StorageInHeader.Storage
|
||||
_StorageComputed.Products = Products
|
||||
End If
|
||||
For Each _StorageInRows In _StorageInRows_Collection
|
||||
_StorageComputed.QTTFree += (_StorageInRows.QTT - _StorageInRows.QTT_Out - _StorageInRows.QTT_Out_Will)
|
||||
_StorageComputed.QTTReservedIn += _StorageInRows.QTT_Will
|
||||
_StorageComputed.QTTReservedOut += _StorageInRows.QTT_Out_Will
|
||||
Next
|
||||
_StorageComputed.Save()
|
||||
Session.CommitTransaction()
|
||||
End Sub
|
||||
Public Sub AddRows(ByVal _p_StorageInHeader As StorageInHeader)
|
||||
' --- Sor hozzáadása Betárolási bizonylathoz manuálisan, vagy Rendelésből automatikusan
|
||||
If _p_StorageInHeader IsNot Nothing And _p_StorageInHeader.row_Products IsNot Nothing And _p_StorageInHeader.Active = True Then
|
||||
|
||||
Me.StorageInHeader = _p_StorageInHeader
|
||||
Me.Products = _p_StorageInHeader.row_Products
|
||||
Me.QTT_Will = _p_StorageInHeader.row_QTT_WILL
|
||||
Me.PacketNumber = _p_StorageInHeader.row_PacketNumber
|
||||
Me.SerialNumber = _p_StorageInHeader.row_SerialNumber
|
||||
Me.Weight = _p_StorageInHeader.row_Weight
|
||||
Me.WeightMode = _p_StorageInHeader.row_WeightMode
|
||||
If _p_StorageInHeader.StorageInRows.Count = 0 Then
|
||||
Me.RowIndex = 1
|
||||
Else
|
||||
Me.RowIndex = _p_StorageInHeader.StorageInRows.Count
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Public Sub RemoveRows()
|
||||
For Each _StorageInRows As StorageInRows In Me.StorageInHeader.StorageInRows
|
||||
If _StorageInRows.RowIndex > Me.RowIndex Then
|
||||
_StorageInRows.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("StorageIn", GetType(StorageInHeader))> _
|
||||
Property StorageInHeader() As StorageInHeader
|
||||
Get
|
||||
Return _StorageInHeader
|
||||
End Get
|
||||
Set(ByVal value As StorageInHeader)
|
||||
SetPropertyValue("StorageInHeader", _StorageInHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
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
|
||||
Property QTT_Will() As Double
|
||||
Get
|
||||
Return _QTT_Will
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("QTT_Will", _QTT_Will, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Out As Double
|
||||
Get
|
||||
Return _QTT_Out
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("QTT_Out", _QTT_Out, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Out_Will As Double
|
||||
Get
|
||||
Return _QTT_Out_Will
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Out_Will", _QTT_Out_Will, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Overstored As Double
|
||||
Get
|
||||
Return _QTT_Overstored
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Overstored", _QTT_Overstored, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Overstor As Double
|
||||
Get
|
||||
Return _QTT_Overstor
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Overstor", _QTT_Overstor, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Overstored_Will As Double
|
||||
Get
|
||||
Return _QTT_Overstored_Will
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Overstored_Will", _QTT_Overstored_Will, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Overstor_Will As Double
|
||||
Get
|
||||
Return _QTT_Overstor_Will
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Overstor_Will", _QTT_Overstor_Will, 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
|
||||
Property OnStorno As Boolean
|
||||
Get
|
||||
Return _OnStorno
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("OnStorno", _OnStorno, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DeliveryNoteInRows As DeliveryNoteInRows
|
||||
Get
|
||||
Return _DeliveryNoteInRows
|
||||
End Get
|
||||
Set(value As DeliveryNoteInRows)
|
||||
SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PacketNumber As String
|
||||
Get
|
||||
Return _PacketNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("PacketNumber", _PacketNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SerialNumber As String
|
||||
Get
|
||||
Return _SerialNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("SerialNumber", _SerialNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Weight As Double
|
||||
Get
|
||||
Return _Weight
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Weight", _Weight, value)
|
||||
End Set
|
||||
End Property
|
||||
Property WeightMode As eWeightMode
|
||||
Get
|
||||
Return _WeightMode
|
||||
End Get
|
||||
Set(value As eWeightMode)
|
||||
SetPropertyValue("WeightMode", _WeightMode, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Browsable(False)> _
|
||||
Property Storage As Storage
|
||||
Get
|
||||
Return _Storage
|
||||
End Get
|
||||
Set(value As Storage)
|
||||
SetPropertyValue("Storage", _Storage, value)
|
||||
End Set
|
||||
End Property
|
||||
Property StorageInRowsFrom As StorageInRows
|
||||
Get
|
||||
Return _StorageInRowsFrom
|
||||
End Get
|
||||
Set(value As StorageInRows)
|
||||
SetPropertyValue("StorageInRowsFrom", _StorageInRowsFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AveragePriceInHUF As Double
|
||||
Get
|
||||
Return _AveragePriceInHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AveragePriceInHUF", _AveragePriceInHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
'//XPCollections
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
|
||||
Get
|
||||
Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageInRows=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
@@ -0,0 +1,74 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), DeferredDeletion(False)> _
|
||||
Public Class StorageInRowsByDate 'Adott dátumra visszamenõleg készlet info sorai, amit action generál
|
||||
Inherits BaseObject
|
||||
Private _StorageInRows As StorageInRows 'Bevételi sor
|
||||
Private _StorageByDate As StorageByDate 'lekérdezõ fejléc
|
||||
Private _QTT As Double 'Mennyiség
|
||||
Private _AmountHUFFIFO As Double 'Mennyiséghez tartozó érték FIFO szerint
|
||||
Private _AmountHUFAverage As Double 'Átlagár szerinti érték
|
||||
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 StorageInRows As StorageInRows
|
||||
Get
|
||||
Return _StorageInRows
|
||||
End Get
|
||||
Set(value As StorageInRows)
|
||||
SetPropertyValue("StorageInRows", _StorageInRows, value)
|
||||
End Set
|
||||
End Property
|
||||
Property StorageByDate As StorageByDate
|
||||
Get
|
||||
Return _StorageByDate
|
||||
End Get
|
||||
Set(value As StorageByDate)
|
||||
SetPropertyValue("StorageByDate", _StorageByDate, 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 AmountHUFFIFO As Double
|
||||
Get
|
||||
Return _AmountHUFFIFO
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFFIFO", _AmountHUFFIFO, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountHUFAverage As Double
|
||||
Get
|
||||
Return _AmountHUFAverage
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUFAverage", _AmountHUFAverage, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+51
@@ -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 StorageInRowsLocation
|
||||
Inherits BaseObject
|
||||
|
||||
Private _StorageInRows As StorageInRows
|
||||
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 StorageInRows As StorageInRows
|
||||
Get
|
||||
Return _StorageInRows
|
||||
End Get
|
||||
Set(value As StorageInRows)
|
||||
SetPropertyValue("StorageInRows", _StorageInRows, 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
|
||||
+67
@@ -0,0 +1,67 @@
|
||||
Partial Class StorageTransactionsInPrint
|
||||
|
||||
<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.aStorageTransactionsInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aStorageInPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aStorageTransactionsInPrint
|
||||
'
|
||||
Me.aStorageTransactionsInPrint.Caption = "aStorageTransactionsInPrint"
|
||||
Me.aStorageTransactionsInPrint.Category = "View"
|
||||
Me.aStorageTransactionsInPrint.ConfirmationMessage = Nothing
|
||||
Me.aStorageTransactionsInPrint.Id = "aStorageTransactionsInPrint"
|
||||
Me.aStorageTransactionsInPrint.ImageName = Nothing
|
||||
Me.aStorageTransactionsInPrint.Shortcut = Nothing
|
||||
Me.aStorageTransactionsInPrint.Tag = Nothing
|
||||
Me.aStorageTransactionsInPrint.TargetObjectsCriteria = Nothing
|
||||
Me.aStorageTransactionsInPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aStorageTransactionsInPrint.TargetViewId = Nothing
|
||||
Me.aStorageTransactionsInPrint.ToolTip = Nothing
|
||||
Me.aStorageTransactionsInPrint.TypeOfView = Nothing
|
||||
'
|
||||
'aStorageInPrint
|
||||
'
|
||||
Me.aStorageInPrint.Caption = "aStorage In Print"
|
||||
Me.aStorageInPrint.ConfirmationMessage = Nothing
|
||||
Me.aStorageInPrint.Id = "aStorageInPrint"
|
||||
Me.aStorageInPrint.ImageName = "Action_Printing_Print"
|
||||
Me.aStorageInPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aStorageInPrint.Shortcut = Nothing
|
||||
Me.aStorageInPrint.Tag = Nothing
|
||||
Me.aStorageInPrint.TargetObjectsCriteria = Nothing
|
||||
Me.aStorageInPrint.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aStorageInPrint.TargetViewId = Nothing
|
||||
Me.aStorageInPrint.ToolTip = Nothing
|
||||
Me.aStorageInPrint.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aStorageTransactionsInPrint As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aStorageInPrint As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+129
@@ -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="aStorageTransactionsInPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aStorageInPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>221, 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>
|
||||
+46
@@ -0,0 +1,46 @@
|
||||
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.Persistent.BaseImpl
|
||||
|
||||
Public Class StorageTransactionsInPrint
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Private Sub aStorageTransactionsInPrint_Execute(ByVal sender As System.Object, ByVal e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorageTransactionsInPrint.Execute
|
||||
Dim _ReportData As ReportData
|
||||
Dim _StorageInHeader As StorageInHeader
|
||||
If e.SelectedObjects.Count > 0 Then
|
||||
_StorageInHeader = TryCast(e.SelectedObjects.Item(0), StorageInHeader)
|
||||
If _StorageInHeader Is Nothing Then
|
||||
Else
|
||||
_ReportData = _StorageInHeader.Storage.ReportIn
|
||||
If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then
|
||||
Else
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aStorageInPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aStorageInPrint.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _StorageInHeader As StorageInHeader = TryCast(View.SelectedObjects(0), StorageInHeader)
|
||||
|
||||
Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True)
|
||||
If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then
|
||||
Else
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Generated
+279
@@ -0,0 +1,279 @@
|
||||
Partial Class StorageTransactionsInVC
|
||||
|
||||
<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.aDown_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aUp_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTableD_SIH = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalizeAndNew_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aToTable_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToEdit_StorageInHeader = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aStorageInStorno = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aStorageInFromPdaCollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aFinalize_StorageIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aGenerateStorageInPDACollection = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aStorageInHeader_InsertInventoryTransfer = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aStorageInRows_Split = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCheckInventoryTransfer = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aDown_StorageIn
|
||||
'
|
||||
Me.aDown_StorageIn.Caption = "Down"
|
||||
Me.aDown_StorageIn.Category = "RecordsNavigation"
|
||||
Me.aDown_StorageIn.ConfirmationMessage = Nothing
|
||||
Me.aDown_StorageIn.Id = "aDown_StorageIn"
|
||||
Me.aDown_StorageIn.ImageName = "arrow_down_green"
|
||||
Me.aDown_StorageIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDown_StorageIn.Shortcut = Nothing
|
||||
Me.aDown_StorageIn.Tag = Nothing
|
||||
Me.aDown_StorageIn.TargetObjectsCriteria = Nothing
|
||||
Me.aDown_StorageIn.TargetViewId = Nothing
|
||||
Me.aDown_StorageIn.ToolTip = Nothing
|
||||
Me.aDown_StorageIn.TypeOfView = Nothing
|
||||
'
|
||||
'aUp_StorageIn
|
||||
'
|
||||
Me.aUp_StorageIn.Caption = "Up"
|
||||
Me.aUp_StorageIn.Category = "RecordsNavigation"
|
||||
Me.aUp_StorageIn.ConfirmationMessage = Nothing
|
||||
Me.aUp_StorageIn.Id = "aUp_StorageIn"
|
||||
Me.aUp_StorageIn.ImageName = "arrow_up_green"
|
||||
Me.aUp_StorageIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aUp_StorageIn.Shortcut = Nothing
|
||||
Me.aUp_StorageIn.Tag = Nothing
|
||||
Me.aUp_StorageIn.TargetObjectsCriteria = Nothing
|
||||
Me.aUp_StorageIn.TargetViewId = Nothing
|
||||
Me.aUp_StorageIn.ToolTip = Nothing
|
||||
Me.aUp_StorageIn.TypeOfView = Nothing
|
||||
'
|
||||
'aToTableD_SIH
|
||||
'
|
||||
Me.aToTableD_SIH.Caption = "Delete row"
|
||||
Me.aToTableD_SIH.Category = "aToTableD_SIH"
|
||||
Me.aToTableD_SIH.ConfirmationMessage = Nothing
|
||||
Me.aToTableD_SIH.Id = "aToTableD_SIH"
|
||||
Me.aToTableD_SIH.ImageName = Nothing
|
||||
Me.aToTableD_SIH.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aToTableD_SIH.Shortcut = Nothing
|
||||
Me.aToTableD_SIH.Tag = Nothing
|
||||
Me.aToTableD_SIH.TargetObjectsCriteria = Nothing
|
||||
Me.aToTableD_SIH.TargetViewId = ""
|
||||
Me.aToTableD_SIH.ToolTip = Nothing
|
||||
Me.aToTableD_SIH.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalizeAndNew_StorageIn
|
||||
'
|
||||
Me.aFinalizeAndNew_StorageIn.Caption = "aStorage In Final And New"
|
||||
Me.aFinalizeAndNew_StorageIn.Category = "RecordEdit"
|
||||
Me.aFinalizeAndNew_StorageIn.ConfirmationMessage = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.Id = "aFinalizeAndNew_StorageIn"
|
||||
Me.aFinalizeAndNew_StorageIn.ImageName = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.Shortcut = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.Tag = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.TargetViewId = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.ToolTip = Nothing
|
||||
Me.aFinalizeAndNew_StorageIn.TypeOfView = Nothing
|
||||
'
|
||||
'aToTable_StorageIn
|
||||
'
|
||||
Me.aToTable_StorageIn.Caption = "aSIHTo Table"
|
||||
Me.aToTable_StorageIn.Category = "aToTable_StorageIn"
|
||||
Me.aToTable_StorageIn.ConfirmationMessage = Nothing
|
||||
Me.aToTable_StorageIn.Id = "aToTable_StorageIn"
|
||||
Me.aToTable_StorageIn.ImageName = Nothing
|
||||
Me.aToTable_StorageIn.Shortcut = Nothing
|
||||
Me.aToTable_StorageIn.Tag = Nothing
|
||||
Me.aToTable_StorageIn.TargetObjectsCriteria = Nothing
|
||||
Me.aToTable_StorageIn.TargetViewId = Nothing
|
||||
Me.aToTable_StorageIn.ToolTip = Nothing
|
||||
Me.aToTable_StorageIn.TypeOfView = Nothing
|
||||
'
|
||||
'aBackToEdit_StorageInHeader
|
||||
'
|
||||
Me.aBackToEdit_StorageInHeader.Caption = "aBackToEdit_StorageInHeader"
|
||||
Me.aBackToEdit_StorageInHeader.Category = "Edit"
|
||||
Me.aBackToEdit_StorageInHeader.ConfirmationMessage = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.Id = "aBackToEdit_StorageInHeader"
|
||||
Me.aBackToEdit_StorageInHeader.ImageName = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToEdit_StorageInHeader.Shortcut = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.Tag = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.TargetViewId = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.ToolTip = Nothing
|
||||
Me.aBackToEdit_StorageInHeader.TypeOfView = Nothing
|
||||
'
|
||||
'aStorageInStorno
|
||||
'
|
||||
Me.aStorageInStorno.Caption = "aStorage In Storno"
|
||||
Me.aStorageInStorno.Category = "Edit"
|
||||
Me.aStorageInStorno.ConfirmationMessage = Nothing
|
||||
Me.aStorageInStorno.Id = "aStorageInStorno"
|
||||
Me.aStorageInStorno.ImageName = "document_delete"
|
||||
Me.aStorageInStorno.Shortcut = Nothing
|
||||
Me.aStorageInStorno.Tag = Nothing
|
||||
Me.aStorageInStorno.TargetObjectsCriteria = Nothing
|
||||
Me.aStorageInStorno.TargetViewId = Nothing
|
||||
Me.aStorageInStorno.ToolTip = Nothing
|
||||
Me.aStorageInStorno.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aStorageInFromPdaCollection
|
||||
'
|
||||
Me.aStorageInFromPdaCollection.AcceptButtonCaption = Nothing
|
||||
Me.aStorageInFromPdaCollection.CancelButtonCaption = Nothing
|
||||
Me.aStorageInFromPdaCollection.Caption = "StorageIn From Pda Collection"
|
||||
Me.aStorageInFromPdaCollection.Category = "aStorageInFromPdaCollection"
|
||||
Me.aStorageInFromPdaCollection.ConfirmationMessage = Nothing
|
||||
Me.aStorageInFromPdaCollection.Id = "aStorageInFromPdaCollection"
|
||||
Me.aStorageInFromPdaCollection.ImageName = Nothing
|
||||
Me.aStorageInFromPdaCollection.Shortcut = Nothing
|
||||
Me.aStorageInFromPdaCollection.Tag = Nothing
|
||||
Me.aStorageInFromPdaCollection.TargetObjectsCriteria = Nothing
|
||||
Me.aStorageInFromPdaCollection.TargetViewId = Nothing
|
||||
Me.aStorageInFromPdaCollection.ToolTip = Nothing
|
||||
Me.aStorageInFromPdaCollection.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalize_StorageIn
|
||||
'
|
||||
Me.aFinalize_StorageIn.Caption = "aStorage In Final"
|
||||
Me.aFinalize_StorageIn.Category = "RecordEdit"
|
||||
Me.aFinalize_StorageIn.ConfirmationMessage = Nothing
|
||||
Me.aFinalize_StorageIn.Id = "aFinalize_StorageIn"
|
||||
Me.aFinalize_StorageIn.ImageName = Nothing
|
||||
Me.aFinalize_StorageIn.Shortcut = Nothing
|
||||
Me.aFinalize_StorageIn.Tag = Nothing
|
||||
Me.aFinalize_StorageIn.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalize_StorageIn.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aFinalize_StorageIn.TargetViewId = Nothing
|
||||
Me.aFinalize_StorageIn.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalize_StorageIn.ToolTip = Nothing
|
||||
Me.aFinalize_StorageIn.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aGenerateStorageInPDACollection
|
||||
'
|
||||
Me.aGenerateStorageInPDACollection.AcceptButtonCaption = Nothing
|
||||
Me.aGenerateStorageInPDACollection.CancelButtonCaption = Nothing
|
||||
Me.aGenerateStorageInPDACollection.Caption = "aGenerateStorageInPDACollection"
|
||||
Me.aGenerateStorageInPDACollection.Category = "Edit"
|
||||
Me.aGenerateStorageInPDACollection.ConfirmationMessage = Nothing
|
||||
Me.aGenerateStorageInPDACollection.Id = "aGenerateStorageInPDACollection"
|
||||
Me.aGenerateStorageInPDACollection.ImageName = Nothing
|
||||
Me.aGenerateStorageInPDACollection.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aGenerateStorageInPDACollection.Shortcut = Nothing
|
||||
Me.aGenerateStorageInPDACollection.Tag = Nothing
|
||||
Me.aGenerateStorageInPDACollection.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateStorageInPDACollection.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aGenerateStorageInPDACollection.TargetViewId = Nothing
|
||||
Me.aGenerateStorageInPDACollection.ToolTip = Nothing
|
||||
Me.aGenerateStorageInPDACollection.TypeOfView = Nothing
|
||||
'
|
||||
'aStorageInHeader_InsertInventoryTransfer
|
||||
'
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.AcceptButtonCaption = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.CancelButtonCaption = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.Caption = "aStorageInHeader_InsertInventoryTransfer"
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.Category = "aStorageInHeader_InsertInventoryTransfer"
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.ConfirmationMessage = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.Id = "aStorageInHeader_InsertInventoryTransfer"
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.ImageName = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.Shortcut = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.Tag = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.TargetObjectsCriteria = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.TargetViewId = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.ToolTip = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer.TypeOfView = Nothing
|
||||
'
|
||||
'aStorageInRows_Split
|
||||
'
|
||||
Me.aStorageInRows_Split.AcceptButtonCaption = Nothing
|
||||
Me.aStorageInRows_Split.CancelButtonCaption = Nothing
|
||||
Me.aStorageInRows_Split.Caption = "aStorageInRows_Split"
|
||||
Me.aStorageInRows_Split.ConfirmationMessage = Nothing
|
||||
Me.aStorageInRows_Split.Id = "aStorageInRows_Split"
|
||||
Me.aStorageInRows_Split.ImageName = Nothing
|
||||
Me.aStorageInRows_Split.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aStorageInRows_Split.Shortcut = Nothing
|
||||
Me.aStorageInRows_Split.Tag = Nothing
|
||||
Me.aStorageInRows_Split.TargetObjectsCriteria = "QTT_Out_Will=0 AND QTT_Will=0"
|
||||
Me.aStorageInRows_Split.TargetObjectType = GetType(Nuvolar.[Module].StorageInRows)
|
||||
Me.aStorageInRows_Split.TargetViewId = Nothing
|
||||
Me.aStorageInRows_Split.ToolTip = Nothing
|
||||
Me.aStorageInRows_Split.TypeOfView = Nothing
|
||||
'
|
||||
'aStorageInHeader_InsertInventoryTransfer_FIFO
|
||||
'
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.AcceptButtonCaption = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.CancelButtonCaption = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Caption = "aStorageInHeader_InsertInventoryTransfer_FIFO"
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Category = "aStorageInHeader_InsertInventoryTransfer_FIFO"
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ConfirmationMessage = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Id = "aStorageInHeader_InsertInventoryTransfer_FIFO"
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ImageName = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Shortcut = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.Tag = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetObjectsCriteria = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TargetViewId = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.ToolTip = Nothing
|
||||
Me.aStorageInHeader_InsertInventoryTransfer_FIFO.TypeOfView = Nothing
|
||||
'
|
||||
'aCheckInventoryTransfer
|
||||
'
|
||||
Me.aCheckInventoryTransfer.Caption = "aCheckInventoryTransfer"
|
||||
Me.aCheckInventoryTransfer.Category = "aCheckInventoryTransfer"
|
||||
Me.aCheckInventoryTransfer.ConfirmationMessage = Nothing
|
||||
Me.aCheckInventoryTransfer.Id = "aCheckInventoryTransfer"
|
||||
Me.aCheckInventoryTransfer.ImageName = Nothing
|
||||
Me.aCheckInventoryTransfer.Shortcut = Nothing
|
||||
Me.aCheckInventoryTransfer.Tag = Nothing
|
||||
Me.aCheckInventoryTransfer.TargetObjectsCriteria = Nothing
|
||||
Me.aCheckInventoryTransfer.TargetObjectType = GetType(Nuvolar.[Module].StorageInHeader)
|
||||
Me.aCheckInventoryTransfer.TargetViewId = Nothing
|
||||
Me.aCheckInventoryTransfer.ToolTip = Nothing
|
||||
Me.aCheckInventoryTransfer.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aStorageInStorno As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalize_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDown_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aUp_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTableD_SIH As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalizeAndNew_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aToTable_StorageIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToEdit_StorageInHeader As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aStorageInFromPdaCollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aGenerateStorageInPDACollection As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aStorageInHeader_InsertInventoryTransfer As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aStorageInRows_Split As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aStorageInHeader_InsertInventoryTransfer_FIFO As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCheckInventoryTransfer As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+165
@@ -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="aDown_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>255, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aUp_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>683, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aToTableD_SIH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalizeAndNew_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>150, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aToTable_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>333, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToEdit_StorageInHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>453, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aStorageInStorno.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>185, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aStorageInFromPdaCollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>332, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalize_StorageIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>514, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aGenerateStorageInPDACollection.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aStorageInHeader_InsertInventoryTransfer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>402, 17</value>
|
||||
</metadata>
|
||||
<metadata name="aStorageInRows_Split.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aStorageInHeader_InsertInventoryTransfer_FIFO.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCheckInventoryTransfer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>328, 134</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1179
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user