First create solution
This commit is contained in:
+259
@@ -0,0 +1,259 @@
|
||||
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("BusinessTransactions")> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disabled IsEditable and IsStorno", "1=1", TargetItems:="IsEditable;IsStorno", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable DeliveryNoteOutHeader-DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable ObjectCreated DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable UserCreated DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="*", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable all property when IsEditable=False DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Hide Item2 DeliveryNoteOutHeader", AppearanceItemType.LayoutItem, "IsNull(DocumentNumber) Or IsNull(DeliveryNoteOutType) Or IsNull(Customers) Or IsNull(CustomersFrom) Or IsNull(ShipmentOption)", TargetItems:="Item2", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable aTotable_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotable_DeliveryNoteOut", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Hide aTotableD_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotableD_DeliveryNoteOut", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Hide aFinalize_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aFinalize_DeliveryNoteOut", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable aDown_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aDown_DeliveryNoteOut", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable aUp_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aUp_DeliveryNoteOut", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Disable aBackToEdit_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = True", TargetItems:="aBackToEdit_DeliveryNoteOut", Enabled:=False)> _
|
||||
<Appearance("DeliveryNoteOutHeader - Hide all row_ properties, when IsEditable = False", AppearanceItemType.ViewItem, "IsEditable = False", TargetItems:="row_StorageOutRowsInRows;row_QTT;row_NoteRows", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class DeliveryNoteOutHeader 'Kimenő szállítólevél fejléc
|
||||
Inherits BaseObject
|
||||
Private _DeliveryNoteOutType As DeliveryNoteOutType
|
||||
Private _DocumentNumber As String ' Sorszám
|
||||
Private _CustomersFrom As CustomersFrom ' Sajátcég
|
||||
Private _Customers As Customers ' Ügyfél
|
||||
Private _DateCreated As Date ' Létrehozás dátuma
|
||||
Private _DateExecution As Date ' Végrehajtás dátuma
|
||||
Private _ShipmentOption As ShipmentOption ' Szállítási opció
|
||||
Private _QualityOption As QualityOption ' Minőségi opció
|
||||
Private _CurrencyName As CurrencyName ' Deviza
|
||||
Private _Note As String ' Megjegyzés
|
||||
Private _TransportAddress As Address ' -- Szállítási cím
|
||||
Private _IsEditable As Boolean = True 'Szerkeszthető
|
||||
Private _IsStorno As Boolean = False 'Végleges
|
||||
Private _ObjectCreated As Date 'Objektum keletkezésének dátuma
|
||||
Private _UserCreated As User
|
||||
Private _ConnectInfo As String
|
||||
|
||||
'--Nonpersistent propertyk
|
||||
Private _row_StorageOutRowsInRows As StorageOutRowsInRows
|
||||
Private _row_QTT As Double
|
||||
Private _row_NoteRows As String 'Sor megjegyzés
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If String.IsNullOrEmpty(DocumentNumber) Then _
|
||||
_DocumentNumber = DeliveryNoteOutType.NumberGenerator.GetNewNumber(DeliveryNoteOutType.NumberGenerator)
|
||||
If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<RuleRequiredField("DeliveryNoteOutHeader.DeliveryNoteOutType", DefaultContexts.Save)> _
|
||||
Property DeliveryNoteOutType As DeliveryNoteOutType
|
||||
Get
|
||||
Return _DeliveryNoteOutType
|
||||
End Get
|
||||
Set(value As DeliveryNoteOutType)
|
||||
SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property DocumentNumber() As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutHeader.Customers", DefaultContexts.Save)> _
|
||||
Property Customers() As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutHeader.CustomersFrom", DefaultContexts.Save)> _
|
||||
Property CustomersFrom() As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateCreated() As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution() As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutHeader.ShipmentOption", DefaultContexts.Save)> _
|
||||
Property ShipmentOption() As ShipmentOption
|
||||
Get
|
||||
Return _ShipmentOption
|
||||
End Get
|
||||
Set(ByVal value As ShipmentOption)
|
||||
SetPropertyValue("ShipmentOption", _ShipmentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QualityOption() As QualityOption
|
||||
Get
|
||||
Return _QualityOption
|
||||
End Get
|
||||
Set(ByVal value As QualityOption)
|
||||
SetPropertyValue("QualityOption", _QualityOption, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyName() As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutHeader.TransportAddress", DefaultContexts.Save)> _
|
||||
Property TransportAddress As Address
|
||||
Get
|
||||
Return _TransportAddress
|
||||
End Get
|
||||
Set(value As Address)
|
||||
SetPropertyValue("TransportAddress", _TransportAddress, 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
|
||||
Property IsStorno() As Boolean
|
||||
Get
|
||||
Return _IsStorno
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsStorno", _IsStorno, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ConnectInfo As String
|
||||
Get
|
||||
Return _ConnectInfo
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ConnectInfo", _ConnectInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------ReadOnly--------
|
||||
<Association("DeliveryNoteOutHeader-DeliveryNoteOutRows", GetType(DeliveryNoteOutRows)), VisibleInListView(False)> _
|
||||
ReadOnly Property DeliveryNoteOutRows() As XPCollection(Of DeliveryNoteOutRows)
|
||||
Get
|
||||
Return GetCollection(Of DeliveryNoteOutRows)("DeliveryNoteOutRows")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'--Nonpersistent propertyk
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData(True), DataSourceProperty("StorageOutRowsInRows")>
|
||||
Property row_StorageOutRowsInRows As StorageOutRowsInRows
|
||||
Get
|
||||
Return _row_StorageOutRowsInRows
|
||||
End Get
|
||||
Set(value As StorageOutRowsInRows)
|
||||
SetPropertyValue("row_StorageOutRowsInRows", _row_StorageOutRowsInRows, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
Property row_QTT As Double
|
||||
Get
|
||||
Return _row_QTT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_QTT", _row_QTT, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
Property row_NoteRows As String
|
||||
Get
|
||||
Return _row_NoteRows
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_NoteRows", _row_NoteRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False)> _
|
||||
<Browsable(False)> _
|
||||
Private ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
|
||||
Get
|
||||
|
||||
Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows)
|
||||
Dim _Criteria As String
|
||||
|
||||
_Criteria = "(QTT_To_DeliveryOut + QTT_Will) < QTT"
|
||||
|
||||
_StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse(_Criteria))
|
||||
Return _StorageOutRowsInRows_Collection
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
+147
@@ -0,0 +1,147 @@
|
||||
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
|
||||
|
||||
'--- Kimenő szállítólevelek
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class DeliveryNoteOutRows 'Szállítólevél sorok
|
||||
Inherits BaseObject
|
||||
Private _RowIndex As Long
|
||||
Private _DeliveryNoteOutHeader As DeliveryNoteOutHeader
|
||||
Private _StorageOutRowsInRows As StorageOutRowsInRows
|
||||
Private _QTT As Double
|
||||
Private _QTT_Invoiced As Double
|
||||
Private _QTT_Will As Double
|
||||
Private _Note As String
|
||||
Private _ADRNumber As Double
|
||||
Private _OrderInRows As OrderInRows 'Szétosztás miatt kell ez a segéd mező
|
||||
Private _DividedOriginal As Long '-- 0: nincs bontva 1: fő sor 2: bontott sor
|
||||
Private _DividedGUID As Guid '-- Az összekapcsoló GUID ami a bontáshoz kell
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
'// ADR számolás !!!
|
||||
If StorageOutRowsInRows IsNot Nothing Then
|
||||
Dim _ADRFactor As Long = 0
|
||||
If StorageOutRowsInRows.StorageOutRows IsNot Nothing Then
|
||||
If StorageOutRowsInRows.StorageOutRows.Products IsNot Nothing Then
|
||||
Select Case StorageOutRowsInRows.StorageOutRows.Products.ADRPackingUnit
|
||||
Case eADRPackingUnit.eNotSet
|
||||
_ADRFactor = 0
|
||||
Case eADRPackingUnit.eUnit_I
|
||||
_ADRFactor = 50
|
||||
Case eADRPackingUnit.eUnit_II
|
||||
_ADRFactor = 3
|
||||
Case eADRPackingUnit.eUnit_III
|
||||
_ADRFactor = 1
|
||||
End Select
|
||||
If StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "to" Then
|
||||
ADRNumber = _ADRFactor * QTT * 1000
|
||||
Else
|
||||
ADRNumber = _ADRFactor * QTT
|
||||
End If
|
||||
|
||||
' ADRNumber = _ADRFactor * QTT
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
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("DeliveryNoteOutHeader-DeliveryNoteOutRows", GetType(DeliveryNoteOutHeader))> _
|
||||
Property DeliveryNoteOutHeader() As DeliveryNoteOutHeader
|
||||
Get
|
||||
Return _DeliveryNoteOutHeader
|
||||
End Get
|
||||
Set(ByVal value As DeliveryNoteOutHeader)
|
||||
SetPropertyValue("DeliveryNoteOutHeader", _DeliveryNoteOutHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("(QTT-QTT_To_DeliveryOut)>0")>
|
||||
Property StorageOutRowsInRows() As StorageOutRowsInRows
|
||||
Get
|
||||
Return _StorageOutRowsInRows
|
||||
End Get
|
||||
Set(ByVal value As StorageOutRowsInRows)
|
||||
SetPropertyValue("StorageOutRowsInRows", _StorageOutRowsInRows, 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_Invoiced As Double
|
||||
Get
|
||||
Return _QTT_Invoiced
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, 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
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ADRNumber As Double
|
||||
Get
|
||||
Return _ADRNumber
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ADRNumber", _ADRNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
|
||||
Property DividedOriginal As Long
|
||||
Get
|
||||
Return _DividedOriginal
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("DividedOriginal", _DividedOriginal, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
|
||||
Property DividedGUID As Guid
|
||||
Get
|
||||
Return _DividedGUID
|
||||
End Get
|
||||
Set(value As Guid)
|
||||
SetPropertyValue("DividedGUID", _DividedGUID, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
+98
@@ -0,0 +1,98 @@
|
||||
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 eExportMode
|
||||
eInternalwithVAT = 0 'Belföldi ÁFÁ-s
|
||||
eExternalEUwithVAT = 1 'EU-ból ÁFÁ-s
|
||||
eExternalEUNoVAT = 2 'EU-ból nem ÁFÁs
|
||||
eExternalOther = 3 ' EU-n kívüli nem ÁFÁS
|
||||
eInversVAT = 4 'Fordított adózás
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("BusinessStocks")> _
|
||||
Public Class DeliveryNoteOutType 'Kimenõ szállítólevél tipusok
|
||||
Inherits BaseObject
|
||||
Private _ExportMode As eExportMode '
|
||||
Private _IsPrice As Boolean = True 'Van-e ár
|
||||
Private _ShortName As String 'Megnevezés
|
||||
Private _Description As String 'Leírás
|
||||
Private _NumberGenerator As NumberGenerator 'Sorszám generátor
|
||||
|
||||
Private _ReportDataV2 As ReportDataV2 'Nyomtatvány V2
|
||||
Private _CurrencyName As CurrencyName
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ExportMode As eExportMode
|
||||
Get
|
||||
Return _ExportMode
|
||||
End Get
|
||||
Set(value As eExportMode)
|
||||
SetPropertyValue("ExportMode", _ExportMode, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutType.IsPrice", DefaultContexts.Save)> _
|
||||
Property IsPrice As Boolean
|
||||
Get
|
||||
Return _IsPrice
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsPrice", _IsPrice, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutType.ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutType.NumberGenerator", DefaultContexts.Save)> _
|
||||
Property NumberGenerator As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator
|
||||
End Get
|
||||
Set(value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutType.ReportDataV2", DefaultContexts.Save)>
|
||||
Property ReportDataV2 As ReportDataV2
|
||||
Get
|
||||
Return _ReportDataV2
|
||||
End Get
|
||||
Set(value As ReportDataV2)
|
||||
SetPropertyValue("ReportDataV2", _ReportDataV2, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("DeliveryNoteOutType.CurrencyName", DefaultContexts.Save)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
+259
@@ -0,0 +1,259 @@
|
||||
Partial Class DeliveryNoteOutVC
|
||||
|
||||
<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.aTotable_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aTotableD_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDown_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aUp_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalize_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aStorno_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDeliveryNoteOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToEdit_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreate_InvoiceFromStorageORIR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aDeliveryNoteOutRowsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCheckDeliveryNoteOutWeight = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aTotable_DeliveryNoteOut
|
||||
'
|
||||
Me.aTotable_DeliveryNoteOut.Caption = "Add row"
|
||||
Me.aTotable_DeliveryNoteOut.Category = "aTotable_DeliveryNoteOut"
|
||||
Me.aTotable_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aTotable_DeliveryNoteOut.Id = "aTotable_DeliveryNoteOut"
|
||||
Me.aTotable_DeliveryNoteOut.ImageName = "table_add"
|
||||
Me.aTotable_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aTotable_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aTotable_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aTotable_DeliveryNoteOut.TargetViewId = ""
|
||||
Me.aTotable_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aTotable_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aTotableD_DeliveryNoteOut
|
||||
'
|
||||
Me.aTotableD_DeliveryNoteOut.Caption = "Delete row"
|
||||
Me.aTotableD_DeliveryNoteOut.Category = "aTotableD_DeliveryNoteOut"
|
||||
Me.aTotableD_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aTotableD_DeliveryNoteOut.Id = "aTotableD_DeliveryNoteOut"
|
||||
Me.aTotableD_DeliveryNoteOut.ImageName = "table_delete"
|
||||
Me.aTotableD_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aTotableD_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aTotableD_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aTotableD_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aTotableD_DeliveryNoteOut.TargetViewId = ""
|
||||
Me.aTotableD_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aTotableD_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aDown_DeliveryNoteOut
|
||||
'
|
||||
Me.aDown_DeliveryNoteOut.Caption = "Down"
|
||||
Me.aDown_DeliveryNoteOut.Category = "RecordsNavigation"
|
||||
Me.aDown_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aDown_DeliveryNoteOut.Id = "aDown_DeliveryNoteOut"
|
||||
Me.aDown_DeliveryNoteOut.ImageName = "arrow_down_green"
|
||||
Me.aDown_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDown_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aDown_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aDown_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aDown_DeliveryNoteOut.TargetViewId = Nothing
|
||||
Me.aDown_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aDown_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aUp_DeliveryNoteOut
|
||||
'
|
||||
Me.aUp_DeliveryNoteOut.Caption = "Up"
|
||||
Me.aUp_DeliveryNoteOut.Category = "RecordsNavigation"
|
||||
Me.aUp_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aUp_DeliveryNoteOut.Id = "aUp_DeliveryNoteOut"
|
||||
Me.aUp_DeliveryNoteOut.ImageName = "arrow_up_green"
|
||||
Me.aUp_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aUp_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aUp_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aUp_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aUp_DeliveryNoteOut.TargetViewId = Nothing
|
||||
Me.aUp_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aUp_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalize_DeliveryNoteOut
|
||||
'
|
||||
Me.aFinalize_DeliveryNoteOut.Caption = "aFinalize_DeliveryNoteOut"
|
||||
Me.aFinalize_DeliveryNoteOut.Category = "ObjectsCreation"
|
||||
Me.aFinalize_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aFinalize_DeliveryNoteOut.Id = "aFinalize_DeliveryNoteOut"
|
||||
Me.aFinalize_DeliveryNoteOut.ImageName = Nothing
|
||||
Me.aFinalize_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aFinalize_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aFinalize_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aFinalize_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalize_DeliveryNoteOut.TargetViewId = ""
|
||||
Me.aFinalize_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aFinalize_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aStorno_DeliveryNoteOut
|
||||
'
|
||||
Me.aStorno_DeliveryNoteOut.Caption = "aStorno_DeliveryNoteOut"
|
||||
Me.aStorno_DeliveryNoteOut.Category = "aStorno_DeliveryNoteOut"
|
||||
Me.aStorno_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aStorno_DeliveryNoteOut.Id = "aStorno_DeliveryNoteOut"
|
||||
Me.aStorno_DeliveryNoteOut.ImageName = Nothing
|
||||
Me.aStorno_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aStorno_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aStorno_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aStorno_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aStorno_DeliveryNoteOut.TargetViewId = ""
|
||||
Me.aStorno_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aStorno_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aDeliveryNoteOutPrint
|
||||
'
|
||||
Me.aDeliveryNoteOutPrint.Caption = "aDeliveryNoteOutPrint"
|
||||
Me.aDeliveryNoteOutPrint.Category = "View"
|
||||
Me.aDeliveryNoteOutPrint.ConfirmationMessage = Nothing
|
||||
Me.aDeliveryNoteOutPrint.Id = "aDeliveryNoteOutPrint"
|
||||
Me.aDeliveryNoteOutPrint.ImageName = Nothing
|
||||
Me.aDeliveryNoteOutPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDeliveryNoteOutPrint.Shortcut = Nothing
|
||||
Me.aDeliveryNoteOutPrint.Tag = Nothing
|
||||
Me.aDeliveryNoteOutPrint.TargetObjectsCriteria = Nothing
|
||||
Me.aDeliveryNoteOutPrint.TargetViewId = Nothing
|
||||
Me.aDeliveryNoteOutPrint.ToolTip = Nothing
|
||||
Me.aDeliveryNoteOutPrint.TypeOfView = Nothing
|
||||
'
|
||||
'aBackToEdit_DeliveryNoteOut
|
||||
'
|
||||
Me.aBackToEdit_DeliveryNoteOut.Caption = "aBackToEdit_DeliveryNoteOut"
|
||||
Me.aBackToEdit_DeliveryNoteOut.Category = "Edit"
|
||||
Me.aBackToEdit_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aBackToEdit_DeliveryNoteOut.Id = "aBackToEdit_DeliveryNoteOut"
|
||||
Me.aBackToEdit_DeliveryNoteOut.ImageName = Nothing
|
||||
Me.aBackToEdit_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToEdit_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aBackToEdit_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aBackToEdit_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToEdit_DeliveryNoteOut.TargetViewId = ""
|
||||
Me.aBackToEdit_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aBackToEdit_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalizeAndNew_DeliveryNoteOut
|
||||
'
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.Caption = "aFinalizeAndNew_DeliveryNoteOut"
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.Category = "ObjectsCreation"
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.ConfirmationMessage = Nothing
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.Id = "aFinalizeAndNew_DeliveryNoteOut"
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.ImageName = Nothing
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.Shortcut = Nothing
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.Tag = Nothing
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.TargetViewId = ""
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.ToolTip = Nothing
|
||||
Me.aFinalizeAndNew_DeliveryNoteOut.TypeOfView = Nothing
|
||||
'
|
||||
'aCreate_DeliveryNoteOutFromStorageORIR
|
||||
'
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.AcceptButtonCaption = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.CancelButtonCaption = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.Caption = "aCreate_DeliveryNoteOutFromStorageORIR"
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.Category = "ObjectsCreation"
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.ConfirmationMessage = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.Id = "aCreate_DeliveryNoteOutFromStorageORIR"
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.ImageName = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.Shortcut = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.Tag = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.TargetObjectsCriteria = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.TargetViewId = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.ToolTip = Nothing
|
||||
Me.aCreate_DeliveryNoteOutFromStorageORIR.TypeOfView = Nothing
|
||||
'
|
||||
'aCreate_InvoiceFromStorageORIR
|
||||
'
|
||||
Me.aCreate_InvoiceFromStorageORIR.AcceptButtonCaption = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.CancelButtonCaption = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.Caption = "aCreate_InvoiceFromStorageORIR"
|
||||
Me.aCreate_InvoiceFromStorageORIR.Category = "ObjectsCreation"
|
||||
Me.aCreate_InvoiceFromStorageORIR.ConfirmationMessage = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.Id = "aCreate_InvoiceFromStorageORIR"
|
||||
Me.aCreate_InvoiceFromStorageORIR.ImageName = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCreate_InvoiceFromStorageORIR.Shortcut = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.Tag = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.TargetObjectsCriteria = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.TargetViewId = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.ToolTip = Nothing
|
||||
Me.aCreate_InvoiceFromStorageORIR.TypeOfView = Nothing
|
||||
'
|
||||
'aDeliveryNoteOutRowsPrint
|
||||
'
|
||||
Me.aDeliveryNoteOutRowsPrint.Caption = "aDeliveryNoteOutRowsPrint"
|
||||
Me.aDeliveryNoteOutRowsPrint.Category = "Print"
|
||||
Me.aDeliveryNoteOutRowsPrint.ConfirmationMessage = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.Id = "aDeliveryNoteOutRowsPrint"
|
||||
Me.aDeliveryNoteOutRowsPrint.ImageName = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDeliveryNoteOutRowsPrint.Shortcut = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.Tag = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.TargetObjectsCriteria = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.TargetObjectType = GetType(Nuvolar.[Module].DeliveryNoteOutRows)
|
||||
Me.aDeliveryNoteOutRowsPrint.TargetViewId = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.ToolTip = Nothing
|
||||
Me.aDeliveryNoteOutRowsPrint.TypeOfView = Nothing
|
||||
'
|
||||
'aCheckDeliveryNoteOutWeight
|
||||
'
|
||||
Me.aCheckDeliveryNoteOutWeight.Caption = "aCheck Delivery Note Out Weight"
|
||||
Me.aCheckDeliveryNoteOutWeight.ConfirmationMessage = "Are you sure ?"
|
||||
Me.aCheckDeliveryNoteOutWeight.Id = "aCheckDeliveryNoteOutWeight"
|
||||
Me.aCheckDeliveryNoteOutWeight.ImageName = Nothing
|
||||
Me.aCheckDeliveryNoteOutWeight.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCheckDeliveryNoteOutWeight.Shortcut = Nothing
|
||||
Me.aCheckDeliveryNoteOutWeight.Tag = Nothing
|
||||
Me.aCheckDeliveryNoteOutWeight.TargetObjectsCriteria = Nothing
|
||||
Me.aCheckDeliveryNoteOutWeight.TargetObjectType = GetType(Nuvolar.[Module].DeliveryNoteOutHeader)
|
||||
Me.aCheckDeliveryNoteOutWeight.TargetViewId = Nothing
|
||||
Me.aCheckDeliveryNoteOutWeight.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCheckDeliveryNoteOutWeight.ToolTip = Nothing
|
||||
Me.aCheckDeliveryNoteOutWeight.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aTotable_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aTotableD_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDown_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aUp_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalize_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aStorno_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDeliveryNoteOutPrint As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToEdit_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalizeAndNew_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreate_DeliveryNoteOutFromStorageORIR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreate_InvoiceFromStorageORIR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aDeliveryNoteOutRowsPrint As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCheckDeliveryNoteOutWeight As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+162
@@ -0,0 +1,162 @@
|
||||
<?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="aTotable_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 485</value>
|
||||
</metadata>
|
||||
<metadata name="aTotableD_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aDown_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 407</value>
|
||||
</metadata>
|
||||
<metadata name="aUp_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalize_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aStorno_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aDeliveryNoteOutPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToEdit_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalizeAndNew_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aCreate_DeliveryNoteOutFromStorageORIR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aCreate_InvoiceFromStorageORIR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aDeliveryNoteOutRowsPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aCheckDeliveryNoteOutWeight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>20, 540</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+684
@@ -0,0 +1,684 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
|
||||
Public Class DeliveryNoteOutVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False) ' kiválasztott sor fel
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False) ' kiválasztott sor le
|
||||
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDeliveryNoteOutPrint.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "DeliveryNoteOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True)
|
||||
End If
|
||||
'------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
'------------------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteView_DetailView" Then
|
||||
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "DeliveryNoteOutHeader_DetailView" Then
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader IsNot Nothing Then
|
||||
If _DeliveryNoteOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "DeliveryNoteOutHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
|
||||
|
||||
RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "StorageOutRowsInRows_LookupListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False)
|
||||
End If
|
||||
'------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
'------------------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
|
||||
If View.Id = "DeliveryNoteView_DetailView" Then
|
||||
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
|
||||
End If
|
||||
If View.Id = "DeliveryNoteOutHeader_DetailView" Then
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader IsNot Nothing Then
|
||||
If _DeliveryNoteOutHeader.IsEditable = False Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", True)
|
||||
Else
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
|
||||
Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
|
||||
End Sub
|
||||
Private Sub aUp_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_DeliveryNoteOut.Execute
|
||||
If View.SelectedObjects(0) IsNot Nothing Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.Oid)
|
||||
_DeliveryNoteOutHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
Dim _DeliveryNoteOutRowsSelected As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows)
|
||||
Dim _DeliveryNoteOutRows_Previous As DeliveryNoteOutRows = Nothing
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
|
||||
Dim _Valid_RowIndex = False
|
||||
|
||||
For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
|
||||
If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsSelected.Oid Then
|
||||
If _DeliveryNoteOutRows.Oid <> _DeliveryNoteOutHeader.DeliveryNoteOutRows(0).Oid Then
|
||||
_DeliveryNoteOutRows.RowIndex -= 1
|
||||
_Valid_RowIndex = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
_DeliveryNoteOutRows_Previous = _DeliveryNoteOutRows
|
||||
Next
|
||||
|
||||
If _DeliveryNoteOutRows_Previous IsNot Nothing And _Valid_RowIndex = True Then
|
||||
_DeliveryNoteOutRows_Previous.RowIndex += 1
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
If nestedFrame IsNot Nothing Then
|
||||
Dim parentView As View = nestedFrame.View
|
||||
parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
|
||||
Else
|
||||
'----------------------------TESZT MIATT!!!! ----------------------------------------------------------------
|
||||
Throw New Exception("***Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub aDown_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_DeliveryNoteOut.Execute
|
||||
If View.SelectedObjects(0) IsNot Nothing Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.Oid)
|
||||
_DeliveryNoteOutHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
|
||||
Dim _DeliveryNoteOutRowsSelected As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows)
|
||||
Dim _DeliveryNoteOutRows_Next As DeliveryNoteOutRows = Nothing
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
|
||||
Dim _Valid_RowIndex = False
|
||||
|
||||
For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
|
||||
If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsSelected.Oid Then
|
||||
If _DeliveryNoteOutRows.Oid <> _DeliveryNoteOutHeader.DeliveryNoteOutRows(_DeliveryNoteOutHeader.DeliveryNoteOutRows.Count - 1).Oid Then
|
||||
_DeliveryNoteOutRows_Next = _ocur.FindObject(Of DeliveryNoteOutRows)(CriteriaOperator.Parse("RowIndex=?", _DeliveryNoteOutRows.RowIndex + 1))
|
||||
_DeliveryNoteOutRows.RowIndex += 1
|
||||
_Valid_RowIndex = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If _DeliveryNoteOutRows_Next IsNot Nothing And _Valid_RowIndex = True Then
|
||||
_DeliveryNoteOutRows_Next.RowIndex -= 1
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
|
||||
If nestedFrame IsNot Nothing Then
|
||||
Dim parentView As View = nestedFrame.View
|
||||
parentView.ObjectSpace.Refresh()
|
||||
End If
|
||||
|
||||
Else
|
||||
'----------------------------TESZT MIATT!!!! ----------------------------------------------------------------
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Public Overridable Sub aDeliveryNoteOutPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeliveryNoteOutPrint.Execute
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
|
||||
If _DeliveryNoteOutHeader IsNot Nothing Then
|
||||
Dim _XAFPrintHelper As New XAFPrintHelper(_ocur, Frame, _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportDataV2, CriteriaOperator.Parse("DeliveryNoteOutHeader.Oid = ?", _DeliveryNoteOutHeader.Oid))
|
||||
_XAFPrintHelper.ShowPreviewV2()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotable_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_DeliveryNoteOut.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).Oid)
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
|
||||
If _DeliveryNoteOutHeader IsNot Nothing Then
|
||||
Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.GetObjectByKey(Of StorageOutRowsInRows)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_StorageOutRowsInRows.Oid)
|
||||
Dim _row_QTT As Double = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_QTT
|
||||
Dim _row_NoteRows As String = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_NoteRows
|
||||
|
||||
If _row_QTT <= _StorageOutRowsInRows.QTT - _StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut Then
|
||||
For Each _DeliveryNoteOutRows_Exist As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
|
||||
If _DeliveryNoteOutRows_Exist.StorageOutRowsInRows.Oid = _StorageOutRowsInRows.Oid Then
|
||||
_DeliveryNoteOutRows = _DeliveryNoteOutRows_Exist
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If _DeliveryNoteOutRows Is Nothing Then
|
||||
_DeliveryNoteOutRows = New DeliveryNoteOutRows(_ocur.Session)
|
||||
_DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows
|
||||
_DeliveryNoteOutRows.RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count
|
||||
End If
|
||||
|
||||
_DeliveryNoteOutRows.QTT += _row_QTT
|
||||
_DeliveryNoteOutRows.Note = _row_NoteRows
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut += _row_QTT
|
||||
|
||||
|
||||
|
||||
_StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut += _row_QTT
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Else
|
||||
'-----------------TESZT MAITT----------------------------
|
||||
Throw New Exception("*A kiszállítani kívánt mennyiség meghaladja kitárolt mennyiséget!" & vbNewLine & vbNewLine & _
|
||||
"Kérem ellenõrizze a beírt mennyiséget!")
|
||||
End If
|
||||
_DeliveryNoteOutHeader.row_NoteRows = ""
|
||||
_DeliveryNoteOutHeader.row_QTT = 0
|
||||
_DeliveryNoteOutHeader.row_StorageOutRowsInRows = Nothing
|
||||
End If
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled = True Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotableD_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_DeliveryNoteOut.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).Oid)
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
|
||||
Dim _DeliveryNoteOutRows_Del_Collection As New ArrayList
|
||||
Dim _DeliveryNoteOutRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("DeliveryNoteOutRows")
|
||||
If _DeliveryNoteOutRows_ListEditor IsNot Nothing Then
|
||||
For Each _DeliveryNoteOutRows_Ocur As DeliveryNoteOutRows In _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects
|
||||
_DeliveryNoteOutRows = _ocur.GetObjectByKey(Of DeliveryNoteOutRows)(_DeliveryNoteOutRows_Ocur.Oid)
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT
|
||||
|
||||
_DeliveryNoteOutRows_Del_Collection.Add(_DeliveryNoteOutRows)
|
||||
Next
|
||||
_ocur.Delete(_DeliveryNoteOutRows_Del_Collection)
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled = True Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aFinalize_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_DeliveryNoteOut.Execute, aFinalizeAndNew_DeliveryNoteOut.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportDataV2 IsNot Nothing And _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count > 0 Then
|
||||
_DeliveryNoteOutHeader.IsEditable = False
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim _XAFPrintHelper As New XAFPrintHelper(_ocur, Frame, _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportDataV2, CriteriaOperator.Parse("DeliveryNoteOutHeader.Oid = ?", _DeliveryNoteOutHeader.Oid))
|
||||
_XAFPrintHelper.ShowPreviewV2()
|
||||
|
||||
If e.Action.Id = "aFinalizeAndNew_DeliveryNoteOut" Then
|
||||
Frame.GetController(Of NewObjectViewController)().NewObjectAction.DoExecute(Frame.GetController(Of NewObjectViewController)().NewObjectAction.Items(0))
|
||||
End If
|
||||
Else
|
||||
'-----------------TESZT MAITT----------------------------
|
||||
Throw New Exception("*Nincs beállítva nyomtatvány vagy nincs egy sora sem a kimenõ szállítólevélnek!")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aStorno_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_DeliveryNoteOut.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
|
||||
If _DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*A szállítólevél már stornózva lett!")
|
||||
|
||||
For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT
|
||||
Next
|
||||
|
||||
_DeliveryNoteOutHeader.IsEditable = False
|
||||
_DeliveryNoteOutHeader.IsStorno = True
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aBackToEdit_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEdit_DeliveryNoteOut.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
|
||||
If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
|
||||
If _DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*Stornózott szállítólevelet nem lehet újra szerkeszteni!")
|
||||
_DeliveryNoteOutHeader.IsEditable = True
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aCreate_DeliveryNoteOutFromStorageORIR_Cancel(sender As Object, e As System.EventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.Cancel
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub aCreate_DeliveryNoteOutFromStorageORIR_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.GetObjectByKey(Of StorageOutRowsInRows)(TryCast(View.SelectedObjects(0), StorageOutRowsInRows).Oid)
|
||||
Dim _DeliveryNoteOutfromStorageOutrowsInRowsPopup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = _onew.CreateObject(Of DeliveryNoteOutfromStorageOutrowsInRowsPopup)()
|
||||
Dim _DeliveryNoteOutType_Collection As New XPCollection(Of DeliveryNoteOutType)(_onew.Session)
|
||||
|
||||
If _DeliveryNoteOutType_Collection.Count = 1 Then
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.DeliveryNoteOutType = _onew.GetObject(_DeliveryNoteOutType_Collection(0))
|
||||
End If
|
||||
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.Customers = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers
|
||||
|
||||
If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.ShipmentOption IsNot Nothing Then
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.ShipmentOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.ShipmentOption)
|
||||
Else
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.ShipmentOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers.ShipmentOption)
|
||||
End If
|
||||
If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.QualityOption IsNot Nothing Then
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.QualityOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.QualityOption)
|
||||
Else
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.QualityOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers.QualityOption)
|
||||
End If
|
||||
|
||||
If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.Address2 IsNot Nothing Then
|
||||
_DeliveryNoteOutfromStorageOutrowsInRowsPopup.TransportAddress = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.Address2)
|
||||
End If
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "DeliveryNoteOutfromStorageOutrowsInRowsPopup_DetailView", False, _DeliveryNoteOutfromStorageOutrowsInRowsPopup)
|
||||
End Sub
|
||||
Private Sub aCreate_DeliveryNoteOutFromStorageORIR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNOutFStorageORIR_Popup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteOutfromStorageOutrowsInRowsPopup)
|
||||
Try
|
||||
Dim _DeliveryNoteOutType As DeliveryNoteOutType = _ocur.GetObjectByKey(Of DeliveryNoteOutType)(_DeliveryNOutFStorageORIR_Popup.DeliveryNoteOutType.Oid)
|
||||
Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_DeliveryNOutFStorageORIR_Popup.Customers.Oid)
|
||||
Dim _CustomersFrom As CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_DeliveryNOutFStorageORIR_Popup.CustomersFrom.Oid)
|
||||
Dim _ShipmentOption As ShipmentOption = _ocur.GetObjectByKey(Of ShipmentOption)(_DeliveryNOutFStorageORIR_Popup.ShipmentOption.Oid)
|
||||
Dim _QualityOption As QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_DeliveryNOutFStorageORIR_Popup.QualityOption.Oid)
|
||||
Dim _CurrencyName As CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_DeliveryNOutFStorageORIR_Popup.CurrencyName.Oid)
|
||||
Dim _TransportAddress As Address = _ocur.GetObjectByKey(Of Address)(_DeliveryNOutFStorageORIR_Popup.TransportAddress.Oid)
|
||||
Dim _Note As String = _DeliveryNOutFStorageORIR_Popup.Note
|
||||
Dim _StorageOutRowsInRows As StorageOutRowsInRows = Nothing
|
||||
Dim _StorageOutRowsInRows_OrigView As StorageOutRowsInRows = Nothing
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
|
||||
|
||||
Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_ocur.Session)
|
||||
_DeliveryNoteOutHeader.DeliveryNoteOutType = _DeliveryNoteOutType
|
||||
_DeliveryNoteOutHeader.Customers = _Customers
|
||||
_DeliveryNoteOutHeader.CustomersFrom = _CustomersFrom
|
||||
_DeliveryNoteOutHeader.ShipmentOption = _ShipmentOption
|
||||
_DeliveryNoteOutHeader.QualityOption = _QualityOption
|
||||
_DeliveryNoteOutHeader.CurrencyName = _CurrencyName
|
||||
_DeliveryNoteOutHeader.TransportAddress = _TransportAddress
|
||||
_DeliveryNoteOutHeader.Note = _Note
|
||||
_DeliveryNoteOutHeader.IsEditable = False
|
||||
_DeliveryNoteOutHeader.DateCreated = GetSQLTime(_ocur.Session)
|
||||
_DeliveryNoteOutHeader.DateExecution = GetSQLTime(_ocur.Session)
|
||||
|
||||
|
||||
For Each _StorageOutRowsInRows_OrigView In View.SelectedObjects
|
||||
_StorageOutRowsInRows = _ocur.GetObjectByKey(Of StorageOutRowsInRows)(_StorageOutRowsInRows_OrigView.Oid)
|
||||
If _StorageOutRowsInRows_OrigView.QTT_Will > 0 And _StorageOutRowsInRows_OrigView.QTT_Will <= _StorageOutRowsInRows_OrigView.QTT - _StorageOutRowsInRows_OrigView.QTT_To_DeliveryOut Then
|
||||
_DeliveryNoteOutRows = New DeliveryNoteOutRows(_ocur.Session)
|
||||
If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
|
||||
_StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_DeliveryNoted += _StorageOutRowsInRows_OrigView.QTT_Will
|
||||
End If
|
||||
|
||||
_DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows
|
||||
_DeliveryNoteOutRows.QTT = _StorageOutRowsInRows_OrigView.QTT_Will
|
||||
_DeliveryNoteOutRows.RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count
|
||||
|
||||
_StorageOutRowsInRows.QTT_To_DeliveryOut += _StorageOutRowsInRows_OrigView.QTT_Will
|
||||
_StorageOutRowsInRows_OrigView.QTT_Will = 0
|
||||
End If
|
||||
Next
|
||||
If _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count = 0 Then Throw New Exception("*Nincs egy olyan sor sem, amin lenne legalább 1db kiszállítandó mennyiség!" & vbNewLine & vbNewLine & _
|
||||
"Üres szállítólevél nem hozható létre!")
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
If _DeliveryNoteOutType.ReportDataV2 IsNot Nothing Then
|
||||
Dim _XAFPrintHelper As New XAFPrintHelper(_ocur, Frame, _DeliveryNoteOutType.ReportDataV2, CriteriaOperator.Parse("DeliveryNoteOutHeader.Oid =?", _DeliveryNoteOutHeader.Oid))
|
||||
_XAFPrintHelper.ShowPreviewV2()
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End If
|
||||
Catch exp As Exception
|
||||
MsgBox(exp.Message, MsgBoxStyle.OkOnly, "Hiba!")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aCreate_InvoiceFromStorageORIR_Cancel(sender As Object, e As System.EventArgs) Handles aCreate_InvoiceFromStorageORIR.Cancel
|
||||
|
||||
End Sub
|
||||
Private Sub aCreate_InvoiceFromStorageORIR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreate_InvoiceFromStorageORIR.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows)
|
||||
Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = _onew.CreateObject(Of ORI_Invoice_Popup)()
|
||||
|
||||
Dim _InvoiceType_Collection As New XPCollection(Of InvoiceType)(_onew.Session, CriteriaOperator.Parse("CustomersFrom=? AND InvoiceTypeBase=2", _
|
||||
_onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersFrom)))
|
||||
If _InvoiceType_Collection.Count = 1 Then
|
||||
_ORI_Invoice_Popup.InvoiceType = _onew.GetObject(_InvoiceType_Collection(0))
|
||||
End If
|
||||
|
||||
_ORI_Invoice_Popup.CustomersFrom = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersFrom)
|
||||
_ORI_Invoice_Popup.Customers = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers)
|
||||
_ORI_Invoice_Popup.CurrencyName = _onew.GetObject(_DeliveryNoteOutRows.DeliveryNoteOutHeader.CurrencyName)
|
||||
_ORI_Invoice_Popup.ShipmentOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.ShipmentOption)
|
||||
_ORI_Invoice_Popup.PaymentOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.PaymentOption)
|
||||
_ORI_Invoice_Popup.DateExecution = GetSQLTime(_onew.Session)
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "ORI_Invoice_Popup_DetailView", False, _ORI_Invoice_Popup)
|
||||
End Sub
|
||||
Private Sub aCreate_InvoiceFromStorageORIR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreate_InvoiceFromStorageORIR.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup)
|
||||
Try
|
||||
Dim _InvoiceType As InvoiceType = _ocur.GetObjectByKey(Of InvoiceType)(_ORI_Invoice_Popup.InvoiceType.Oid)
|
||||
Dim _CustomersFrom As CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid)
|
||||
Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_ORI_Invoice_Popup.Customers.Oid)
|
||||
Dim _DateCreated As Date = _ORI_Invoice_Popup.DateCreated
|
||||
Dim _DateExecution As Date = _ORI_Invoice_Popup.DateExecution
|
||||
Dim _DatePayment As Date = _ORI_Invoice_Popup.DatePayment
|
||||
Dim _PaymentOption As PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ORI_Invoice_Popup.PaymentOption.Oid)
|
||||
Dim _ShipmentOption As ShipmentOption = _ocur.GetObjectByKey(Of ShipmentOption)(_ORI_Invoice_Popup.ShipmentOption.Oid)
|
||||
Dim _CurrencyName As CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_ORI_Invoice_Popup.CurrencyName.Oid)
|
||||
Dim _BankInformation As BankInformation = _ocur.GetObjectByKey(Of BankInformation)(_ORI_Invoice_Popup.BankInformation.Oid)
|
||||
Dim _Description As String = _ORI_Invoice_Popup.Description
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
|
||||
Dim _NG As NumberGenerator
|
||||
|
||||
Dim _InvoiceHeader As New InvoiceHeader(_ocur.Session)
|
||||
_InvoiceHeader.InvoiceType = _InvoiceType
|
||||
_InvoiceHeader.CustomersFrom = _CustomersFrom
|
||||
_InvoiceHeader.Customers = _Customers
|
||||
_InvoiceHeader.DateCreated = _DateCreated
|
||||
_InvoiceHeader.DateExecution = _DateExecution
|
||||
_InvoiceHeader.DatePayment = _DatePayment
|
||||
_InvoiceHeader.PaymentOption = _PaymentOption
|
||||
_InvoiceHeader.ShipmentOption = _ShipmentOption
|
||||
_InvoiceHeader.CurrencyName = _CurrencyName
|
||||
_InvoiceHeader.BankInformation = _BankInformation
|
||||
_InvoiceHeader.Description = _Description
|
||||
_InvoiceHeader.IsEditable = False
|
||||
_InvoiceHeader.IsProforma = True
|
||||
_InvoiceHeader.IsStorno = False
|
||||
If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then
|
||||
_InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution
|
||||
Else
|
||||
If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then
|
||||
_InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay)
|
||||
Else
|
||||
_InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay)
|
||||
End If
|
||||
End If
|
||||
If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then
|
||||
_NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma
|
||||
_InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG)
|
||||
End If
|
||||
|
||||
For Each _DeliveryNoteOutRows_OrigView As DeliveryNoteOutRows In View.SelectedObjects
|
||||
_DeliveryNoteOutRows = _ocur.GetObjectByKey(Of DeliveryNoteOutRows)(_DeliveryNoteOutRows_OrigView.Oid)
|
||||
|
||||
Dim _InvoiceRows As New InvoiceRows(_ocur.Session)
|
||||
|
||||
_InvoiceRows.InvoiceHeader = _InvoiceHeader
|
||||
_InvoiceRows.OrderInRows = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows
|
||||
_InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder
|
||||
_InvoiceRows.DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV
|
||||
_InvoiceRows.DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF
|
||||
_InvoiceRows.ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV
|
||||
_InvoiceRows.ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF
|
||||
_InvoiceRows.QTT = _DeliveryNoteOutRows.QTT_Will
|
||||
_InvoiceRows.QualityOption = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QualityOption
|
||||
_InvoiceRows.RowIndex = _InvoiceHeader.InvoiceRows.Count
|
||||
_InvoiceRows.ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ProductNumber & vbNewLine & _
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName
|
||||
_InvoiceRows.Units = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units
|
||||
_InvoiceRows.VAT = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.VAT
|
||||
_InvoiceRows.Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Description
|
||||
_InvoiceRows.CustomsTariffs = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
Throw New Exception(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
'----------------------View.SelectionChanged Z ----------------------------------------------------
|
||||
Private Sub StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged(sender As Object, e As EventArgs)
|
||||
If View.SelectedObjects.Count = 0 Then Exit Sub
|
||||
Dim _ActionEnabled As Boolean = True
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
If TryCast(View.SelectedObjects(0), StorageOutRowsInRows).QTT < TryCast(View.SelectedObjects(0), StorageOutRowsInRows).QTT_Will Then
|
||||
_ActionEnabled = False
|
||||
End If
|
||||
Else
|
||||
Dim _Act_CustomersFrom As CustomersFrom = TryCast(View.SelectedObjects(0), StorageOutRowsInRows).StorageOutRows.StorageOutHeader.CustomersFrom
|
||||
If _Act_CustomersFrom IsNot Nothing Then
|
||||
For Each _StorageOutRowsInRows As StorageOutRowsInRows In View.SelectedObjects
|
||||
If _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom.Oid <> _Act_CustomersFrom.Oid Or _
|
||||
_StorageOutRowsInRows.QTT < _StorageOutRowsInRows.QTT_Will Then
|
||||
_ActionEnabled = False
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Enabled.SetItemValue("", _ActionEnabled)
|
||||
|
||||
End Sub
|
||||
Private Sub DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged(sender As Object, e As EventArgs)
|
||||
If View.SelectedObjects.Count = 0 Then Exit Sub
|
||||
Dim _ActionEnabled As Boolean = True
|
||||
If View.SelectedObjects.Count = 1 Then
|
||||
If TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).QTT < TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).QTT_Will Then
|
||||
_ActionEnabled = False
|
||||
End If
|
||||
Else
|
||||
Dim _Act_CustomersFrom As CustomersFrom = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.CustomersFrom
|
||||
If _Act_CustomersFrom IsNot Nothing Then
|
||||
For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In View.SelectedObjects
|
||||
If _DeliveryNoteOutRows.DeliveryNoteOutHeader.CustomersFrom.Oid <> _Act_CustomersFrom.Oid Or _
|
||||
_DeliveryNoteOutRows.QTT < _DeliveryNoteOutRows.QTT_Will Then
|
||||
_ActionEnabled = False
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Enabled.SetItemValue("", _ActionEnabled)
|
||||
End Sub
|
||||
Private Sub aDeliveryNoteOutRowsPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDeliveryNoteOutRowsPrint.Execute
|
||||
Try
|
||||
If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader
|
||||
If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
|
||||
|
||||
Dim _XAFPrintHelper As New XAFPrintHelper(_ocur, Frame, _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportDataV2, CriteriaOperator.Parse("DeliveryNoteOutHeader.Oid = ?", _DeliveryNoteOutHeader.Oid))
|
||||
_XAFPrintHelper.ShowPreviewV2()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aCheckDeliveryNoteOutWeight_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCheckDeliveryNoteOutWeight.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader
|
||||
Dim _DeliveryNoteOutRows As DeliveryNoteOutRows
|
||||
|
||||
For Each _DeliveryNoteOutHeader In View.SelectedObjects
|
||||
For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
|
||||
If _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Weight = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Weight
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.WeightMode = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.WeightMode
|
||||
_DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Save()
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
+104
@@ -0,0 +1,104 @@
|
||||
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 DeliveryNoteOutfromStorageOutrowsInRowsPopup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Private _DeliveryNoteOutType As DeliveryNoteOutType
|
||||
Private _CustomersFrom As CustomersFrom ' Sajátcég
|
||||
Private _Customers As Customers ' Ügyfél
|
||||
Private _ShipmentOption As ShipmentOption ' Szállítási opció
|
||||
Private _QualityOption As QualityOption ' Minõségi opció
|
||||
Private _CurrencyName As CurrencyName ' Deviza
|
||||
Private _Note As String ' Megjegyzés
|
||||
Private _TransportAddress As Address ' -- Szállítási cím
|
||||
|
||||
Property DeliveryNoteOutType As DeliveryNoteOutType
|
||||
Get
|
||||
Return _DeliveryNoteOutType
|
||||
End Get
|
||||
Set(value As DeliveryNoteOutType)
|
||||
SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
If value IsNot Nothing Then
|
||||
CurrencyName = value.CurrencyName
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property Customers() As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom() As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShipmentOption() As ShipmentOption
|
||||
Get
|
||||
Return _ShipmentOption
|
||||
End Get
|
||||
Set(ByVal value As ShipmentOption)
|
||||
SetPropertyValue("ShipmentOption", _ShipmentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QualityOption() As QualityOption
|
||||
Get
|
||||
Return _QualityOption
|
||||
End Get
|
||||
Set(ByVal value As QualityOption)
|
||||
SetPropertyValue("QualityOption", _QualityOption, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CurrencyName() As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
Property TransportAddress As Address
|
||||
Get
|
||||
Return _TransportAddress
|
||||
End Get
|
||||
Set(value As Address)
|
||||
SetPropertyValue("TransportAddress", _TransportAddress, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user