First create solution
This commit is contained in:
+239
@@ -0,0 +1,239 @@
|
||||
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
|
||||
|
||||
|
||||
'<EditorStateRuleAttribute("Disable Customers when is not empty in invoice ContractProductHeader", "Customers", ViewType.DetailView, "IsNull(Customers) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable CustomersFrom when is not empty in invoice ContractProductHeader", "CustomersFrom", ViewType.DetailView, "IsNull(CustomersFrom) = False", EditorState.Disabled)> _
|
||||
'<EditorStateRuleAttribute("Disable CurrencyName when is not empty in invoice CurrencyName", "CurrencyName", ViewType.DetailView, "IsNull(CurrencyName) = False", EditorState.Disabled)> _
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("Contracts")> _
|
||||
<DefaultProperty("DisplayName")> _
|
||||
<FileAttachment("File")> _
|
||||
<Appearance("Hide row_NettoPriceDEV when DEV is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="row_NettoPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_NettoPriceHUF when DEV isnot HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName <> 'HUF'", TargetItems:="row_NettoPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_ContractProductRows when ContractTemplate.PartnerType=ePayabels", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=1", TargetItems:="row_ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_Products when ContractTemplate.PartnerType= eReceivables", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=0", TargetItems:="row_Products", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide ContractProductRows when CurrencyName is nothing", AppearanceItemType.LayoutItem, "IsNull(CurrencyName) = True", TargetItems:="ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide ContractProductRows when CurrencyName is nothingViewItem", AppearanceItemType.ViewItem, "IsNull(CurrencyName) = True", TargetItems:="ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable ALL property when State = State.Ready", AppearanceItemType.ViewItem, "State = 1", TargetItems:="*", Enabled:=False)> _
|
||||
<Appearance("Disable Customers when is not empty in invoice ContractProductHeader", TargetItems:="Customers", Criteria:="IsNull(Customers) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable CustomersFrom when is not empty in invoice ContractProductHeader", TargetItems:="CustomersFrom", Criteria:="IsNull(CustomersFrom) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable CurrencyName when is not empty in invoice CurrencyName", TargetItems:="CurrencyName", Criteria:="IsNull(CurrencyName) = False", Enabled:=False, Context:="DetailView")> _
|
||||
<Appearance("Disable aTotable_ConProd_Payabels when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aTotable_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable aTotableD_ConProd when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aTotableD_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable aBackToRowEdit_ConProd_Payabels when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aBackToRowEdit_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class ContractProductHeader
|
||||
Inherits Contracts
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
|
||||
Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
|
||||
Me.HRResponsible = Session.FindObject(Of HRPerson) _
|
||||
(CriteriaOperator.Parse("User=?", Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))))
|
||||
End Sub
|
||||
Private _CustomersStoreHouse As Customers 'Tároló tulajdonosa ha contract product-ról van szó
|
||||
Private _AddressStoreHouse As Address 'Tárolási cím !
|
||||
Private _Customers2 As Customers 'Az adásvétel vevõje, ha szállító, eladója ha vevõ
|
||||
'---------------NonPersistent Propertys-----------------
|
||||
Private _row_Products As Products
|
||||
Private _row_ContractProductRows As ContractProductRows
|
||||
Private _row_QTT As Double
|
||||
Private _row_NettoPriceHUF As Double '-- Nettó egységár (HUF)
|
||||
Private _row_NettoPriceDEV As Double '-- Nettó egységár (DEV)
|
||||
Private _row_VAT As VAT 'ÁFA kód
|
||||
Private _row_Units As Units '-- Mennyiségi egység
|
||||
Private _row_RowGroup1 As String 'Csoportosító sor1
|
||||
Private _row_RowGroup2 As String 'Csoportosító sor2
|
||||
Private _row_PaymentOption As PaymentOption
|
||||
Private _row_APCSheetByProducts As APCSheetByProducts 'Termeltetési szerzõdés
|
||||
<RuleRequiredField("ContractProductHeader.CustomersStoreHouse", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType = 1")> _
|
||||
Property CustomersStoreHouse As Customers
|
||||
Get
|
||||
Return _CustomersStoreHouse
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("CustomersStoreHouse", _CustomersStoreHouse, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("ContractProductHeader.Customers2", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType='ePayabels'")> _
|
||||
Property Customers2 As Customers
|
||||
Get
|
||||
Return _Customers2
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers2", _Customers2, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("ContractProductHeader.AddressStoreHouse", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType='ePayabels'")> _
|
||||
Property AddressStoreHouse As Address
|
||||
Get
|
||||
Return _AddressStoreHouse
|
||||
End Get
|
||||
Set(value As Address)
|
||||
SetPropertyValue("AddressStoreHouse", _AddressStoreHouse, value)
|
||||
End Set
|
||||
End Property
|
||||
<Aggregated()> _
|
||||
<Association("ContractProductHeader-ContractProductRows", GetType(ContractProductRows)), VisibleInListView(False)> _
|
||||
ReadOnly Property ContractProductRows() As XPCollection(Of ContractProductRows)
|
||||
Get
|
||||
Return GetCollection(Of ContractProductRows)("ContractProductRows")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'---------------NonPersistent Propertys-----------------
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Products As Products
|
||||
Get
|
||||
Return _row_Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("row_Products", _row_Products, value)
|
||||
If value IsNot Nothing Then
|
||||
Me.row_Units = value.Units
|
||||
Me.row_VAT = value.VAT
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<VisibleInListView(False)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("(QTT-QTT_Out)>0 AND ContractProductHeader.ContractTemplate.PartnerType=1")>
|
||||
Property row_ContractProductRows As ContractProductRows
|
||||
Get
|
||||
Return _row_ContractProductRows
|
||||
End Get
|
||||
Set(value As ContractProductRows)
|
||||
SetPropertyValue("row_ContractProductRows", _row_ContractProductRows, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value IsNot Nothing Then
|
||||
Me.row_Units = value.Units
|
||||
Me.row_VAT = value.VAT
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
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()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_NettoPriceHUF As Double
|
||||
Get
|
||||
Return _row_NettoPriceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_NettoPriceHUF", _row_NettoPriceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_NettoPriceDEV As Double
|
||||
Get
|
||||
Return _row_NettoPriceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_NettoPriceDEV", _row_NettoPriceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
'<RuleRequiredField("ContractProductHeader-row_Customers", "aTotable_ConProd_Payabels_Contexts", TargetCriteria:="IsNull(row_VAT)=True")> _
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_VAT As VAT
|
||||
Get
|
||||
Return _row_VAT
|
||||
End Get
|
||||
Set(value As VAT)
|
||||
SetPropertyValue("row_VAT", _row_VAT, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_Units As Units
|
||||
Get
|
||||
Return _row_Units
|
||||
End Get
|
||||
Set(value As Units)
|
||||
SetPropertyValue("row_Units", _row_Units, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_RowGroup1 As String
|
||||
Get
|
||||
Return _row_RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_RowGroup1", _row_RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_RowGroup2 As String
|
||||
Get
|
||||
Return _row_RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_RowGroup2", _row_RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()>
|
||||
<ImmediatePostData()>
|
||||
<VisibleInListView(False)>
|
||||
Property row_PaymentOption As PaymentOption
|
||||
Get
|
||||
Return _row_PaymentOption
|
||||
End Get
|
||||
Set(value As PaymentOption)
|
||||
SetPropertyValue("row_PaymentOption", _row_PaymentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
'<RuleRequiredField("ContractProductHeader-row_APCSheetByProducts", "aToTable_OrderIn", targetcriteria:="OrderInParameters.IsAPCSheet=True")> _
|
||||
<NonPersistent>
|
||||
<ImmediatePostData(True), DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom'")>
|
||||
Property row_APCSheetByProducts As APCSheetByProducts
|
||||
Get
|
||||
Return _row_APCSheetByProducts
|
||||
End Get
|
||||
Set(value As APCSheetByProducts)
|
||||
SetPropertyValue("row_APCSheetByProducts", _row_APCSheetByProducts, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If value.Products IsNot Nothing Then
|
||||
row_Products = value.Products
|
||||
row_QTT = value.SumContractQuantity
|
||||
row_Units = value.Products.Units
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+59
@@ -0,0 +1,59 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports System.Linq
|
||||
Imports Nuvolar.Module.Dennis.Linq
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ContractProductLINQ
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<CustomQueryProperties("DisplayableProperties", "ProductNumber;ShortName;Unit;QTT_Free")> _
|
||||
Public Shared Function ContractProductsRowsGroup(ByVal s As Session) As IQueryable
|
||||
Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s)
|
||||
Dim query = _
|
||||
From e In _ContractProductsRowsGroup _
|
||||
Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _
|
||||
Group e By e.Products.Oid, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _
|
||||
Select New With {Key .ProductNumber = ProductNumber, _
|
||||
Key .ShortName = ShortName, _
|
||||
Key .Unit = UnitShortName, _
|
||||
Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)}
|
||||
Return query
|
||||
End Function
|
||||
<CustomQueryProperties("DisplayableProperties", "FullName;ProductNumber;ShortName;Unit;QTT_Free")> _
|
||||
Public Shared Function ContractProductsRowsCustomersGroup(ByVal s As Session) As IQueryable
|
||||
Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s)
|
||||
Dim query = _
|
||||
From e In _ContractProductsRowsGroup _
|
||||
Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _
|
||||
Group e By e.ContractProductHeader.Customers.FullName, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _
|
||||
Select New With {Key .FullName = FullName, _
|
||||
Key .ProductNumber = ProductNumber, _
|
||||
Key .ShortName = ShortName, _
|
||||
Key .Unit = UnitShortName, _
|
||||
Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)}
|
||||
Return query
|
||||
End Function
|
||||
End Class
|
||||
+119
@@ -0,0 +1,119 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports System.Linq
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ContractProductRows
|
||||
Inherits ContractRows
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Private _Products As Products
|
||||
Private _QTT_Out As Double
|
||||
Private _ContractProductHeader As ContractProductHeader
|
||||
Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
|
||||
Private _APCSheetByProducts As APCSheetByProducts 'Termeltetési szerzõdési sor
|
||||
Property Products As Products
|
||||
Get
|
||||
Return _Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("Products", _Products, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Out As Double
|
||||
Get
|
||||
Return _QTT_Out
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Out", _QTT_Out, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("ContractProductHeader-ContractProductRows", GetType(ContractProductHeader))> _
|
||||
Property ContractProductHeader() As ContractProductHeader
|
||||
Get
|
||||
Return _ContractProductHeader
|
||||
End Get
|
||||
Set(ByVal value As ContractProductHeader)
|
||||
SetPropertyValue("ContractProductHeader", _ContractProductHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowIndex() As Long
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property APCSheetByProducts As APCSheetByProducts
|
||||
Get
|
||||
Return _APCSheetByProducts
|
||||
End Get
|
||||
Set(value As APCSheetByProducts)
|
||||
SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public Sub AddRows(ByVal _p_ContractProductHeader As ContractProductHeader)
|
||||
' Sor hozzáadása
|
||||
Me.ContractProductHeader = _p_ContractProductHeader
|
||||
If _p_ContractProductHeader.row_Products IsNot Nothing Then
|
||||
Me.Products = _p_ContractProductHeader.row_Products
|
||||
Else
|
||||
Me.Products = _p_ContractProductHeader.row_ContractProductRows.Products
|
||||
End If
|
||||
Me.QTT = _p_ContractProductHeader.row_QTT
|
||||
Me.Units = _p_ContractProductHeader.row_Units
|
||||
Me.VAT = _p_ContractProductHeader.row_VAT
|
||||
Me.RowGroup1 = _p_ContractProductHeader.row_RowGroup1
|
||||
Me.RowGroup2 = _p_ContractProductHeader.row_RowGroup2
|
||||
Me.NettoPriceDEV = _p_ContractProductHeader.row_NettoPriceDEV
|
||||
Me.NettoPriceHUF = _p_ContractProductHeader.row_NettoPriceHUF
|
||||
Me.DateExecution = _p_ContractProductHeader.DateExecution
|
||||
Me.ContractRowsType = eContractRowsType.eFix
|
||||
Me.Controlling = _ContractProductHeader.ContractTemplate.Controlling
|
||||
|
||||
Dim _PaymentOption As PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
|
||||
Me.Contracts = TryCast(_p_ContractProductHeader, Contracts)
|
||||
If _p_ContractProductHeader.row_PaymentOption IsNot Nothing Then
|
||||
Me.PaymentOption = _p_ContractProductHeader.row_PaymentOption
|
||||
Else
|
||||
If _PaymentOption IsNot Nothing Then
|
||||
Me.PaymentOption = _PaymentOption
|
||||
End If
|
||||
End If
|
||||
'Me.Controlling = _p_ContractProductHeader.row_Controlling
|
||||
If _p_ContractProductHeader.row_Products IsNot Nothing Then
|
||||
Me.ShortName = _p_ContractProductHeader.row_Products.ShortName
|
||||
Else
|
||||
Me.ShortName = _p_ContractProductHeader.row_ContractProductRows.ShortName
|
||||
End If
|
||||
' Indexelés
|
||||
If _p_ContractProductHeader.ContractProductRows.Count = 0 Then
|
||||
Me.RowIndex = 0
|
||||
Else
|
||||
Me.RowIndex = _p_ContractProductHeader.ContractProductRows.Count - 1
|
||||
End If
|
||||
Me.APCSheetByProducts = _p_ContractProductHeader.row_APCSheetByProducts
|
||||
Me.Contracts.ContractRows.Add(TryCast(Me, ContractRows))
|
||||
End Sub
|
||||
Public Sub RemoveRows()
|
||||
Me.Delete()
|
||||
End Sub
|
||||
End Class
|
||||
+97
@@ -0,0 +1,97 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ContractProductRowsEvent
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ContractProductRowsIn As ContractProductRows
|
||||
Private _ContractProductRowsOut As ContractProductRows
|
||||
Private _DateExecution As Date
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
Private _QTT_Out As Double
|
||||
Private _QTT_In As Double
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
Property ContractProductRowsIn As ContractProductRows
|
||||
Get
|
||||
Return _ContractProductRowsIn
|
||||
End Get
|
||||
Set(value As ContractProductRows)
|
||||
SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ContractProductRowsOut As ContractProductRows
|
||||
Get
|
||||
Return _ContractProductRowsOut
|
||||
End Get
|
||||
Set(value As ContractProductRows)
|
||||
SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
<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 QTT_Out As Double
|
||||
Get
|
||||
Return _QTT_Out
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_Out", _QTT_Out, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_In As Double
|
||||
Get
|
||||
Return _QTT_In
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT_In", _QTT_In, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+54
@@ -0,0 +1,54 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ContractProductRowsInOut
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Private _QTT As Double
|
||||
Private _ContractProductRowsIn As ContractProductRows
|
||||
Private _ContractProductRowsOut As ContractProductRows
|
||||
|
||||
Property QTT As Double
|
||||
Get
|
||||
Return _QTT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("QTT", _QTT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ContractProductRowsIn As ContractProductRows
|
||||
Get
|
||||
Return _ContractProductRowsIn
|
||||
End Get
|
||||
Set(value As ContractProductRows)
|
||||
SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ContractProductRowsOut As ContractProductRows
|
||||
Get
|
||||
Return _ContractProductRowsOut
|
||||
End Get
|
||||
Set(value As ContractProductRows)
|
||||
SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Sub RemoveRows()
|
||||
Me.Delete()
|
||||
End Sub
|
||||
End Class
|
||||
+238
@@ -0,0 +1,238 @@
|
||||
Partial Class ContractProduct_VC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aTotable_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aTotable_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aBackToRowEdit_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aTotableD_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDown_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aUp_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aNewContractProductHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aFinalizeContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSendBackToEditContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aTotableD_ConProd_Receivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aPrintContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aTotable_ConProd_Receivables
|
||||
'
|
||||
Me.aTotable_ConProd_Receivables.Caption = "Add row"
|
||||
Me.aTotable_ConProd_Receivables.Category = "aTotable_ConProd_Receivables"
|
||||
Me.aTotable_ConProd_Receivables.ConfirmationMessage = Nothing
|
||||
Me.aTotable_ConProd_Receivables.Id = "aTotable_ConProd_Receivables"
|
||||
Me.aTotable_ConProd_Receivables.ImageName = "table_add"
|
||||
Me.aTotable_ConProd_Receivables.Shortcut = Nothing
|
||||
Me.aTotable_ConProd_Receivables.Tag = Nothing
|
||||
Me.aTotable_ConProd_Receivables.TargetObjectsCriteria = Nothing
|
||||
Me.aTotable_ConProd_Receivables.TargetViewId = ""
|
||||
Me.aTotable_ConProd_Receivables.ToolTip = Nothing
|
||||
Me.aTotable_ConProd_Receivables.TypeOfView = Nothing
|
||||
'
|
||||
'aTotable_ConProd_Payabels
|
||||
'
|
||||
Me.aTotable_ConProd_Payabels.Caption = "Add row"
|
||||
Me.aTotable_ConProd_Payabels.Category = "aTotable_ConProd_Payabels"
|
||||
Me.aTotable_ConProd_Payabels.ConfirmationMessage = Nothing
|
||||
Me.aTotable_ConProd_Payabels.Id = "aTotable_ConProd_Payabels"
|
||||
Me.aTotable_ConProd_Payabels.ImageName = "table_add"
|
||||
Me.aTotable_ConProd_Payabels.Shortcut = Nothing
|
||||
Me.aTotable_ConProd_Payabels.Tag = Nothing
|
||||
Me.aTotable_ConProd_Payabels.TargetObjectsCriteria = Nothing
|
||||
Me.aTotable_ConProd_Payabels.TargetViewId = ""
|
||||
Me.aTotable_ConProd_Payabels.ToolTip = Nothing
|
||||
Me.aTotable_ConProd_Payabels.TypeOfView = Nothing
|
||||
'
|
||||
'aBackToRowEdit_ConProd_Receivables
|
||||
'
|
||||
Me.aBackToRowEdit_ConProd_Receivables.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_ConProd_Receivables.Category = "aBackToRowEdit_ConProd_Receivables"
|
||||
Me.aBackToRowEdit_ConProd_Receivables.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Receivables.Id = "aBackToRowEdit_ConProd_Receivables"
|
||||
Me.aBackToRowEdit_ConProd_Receivables.ImageName = "table_refresh"
|
||||
Me.aBackToRowEdit_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToRowEdit_ConProd_Receivables.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Receivables.Tag = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Receivables.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Receivables.TargetViewId = ""
|
||||
Me.aBackToRowEdit_ConProd_Receivables.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Receivables.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aBackToRowEdit_ConProd_Payabels
|
||||
'
|
||||
Me.aBackToRowEdit_ConProd_Payabels.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_ConProd_Payabels.Category = "aBackToRowEdit_ConProd_Payabels"
|
||||
Me.aBackToRowEdit_ConProd_Payabels.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Payabels.Id = "aBackToRowEdit_ConProd_Payabels"
|
||||
Me.aBackToRowEdit_ConProd_Payabels.ImageName = "table_refresh"
|
||||
Me.aBackToRowEdit_ConProd_Payabels.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToRowEdit_ConProd_Payabels.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Payabels.Tag = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Payabels.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Payabels.TargetViewId = ""
|
||||
Me.aBackToRowEdit_ConProd_Payabels.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_ConProd_Payabels.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aTotableD_ConProd_Payabels
|
||||
'
|
||||
Me.aTotableD_ConProd_Payabels.Caption = "Delete row"
|
||||
Me.aTotableD_ConProd_Payabels.Category = "aTotableD_ConProd_Payabels"
|
||||
Me.aTotableD_ConProd_Payabels.ConfirmationMessage = Nothing
|
||||
Me.aTotableD_ConProd_Payabels.Id = "aTotableD_ConProd_Payabels"
|
||||
Me.aTotableD_ConProd_Payabels.ImageName = "table_delete"
|
||||
Me.aTotableD_ConProd_Payabels.Shortcut = Nothing
|
||||
Me.aTotableD_ConProd_Payabels.Tag = Nothing
|
||||
Me.aTotableD_ConProd_Payabels.TargetObjectsCriteria = Nothing
|
||||
Me.aTotableD_ConProd_Payabels.TargetViewId = ""
|
||||
Me.aTotableD_ConProd_Payabels.ToolTip = Nothing
|
||||
Me.aTotableD_ConProd_Payabels.TypeOfView = Nothing
|
||||
'
|
||||
'aDown_ContractProductRows
|
||||
'
|
||||
Me.aDown_ContractProductRows.Caption = "Down"
|
||||
Me.aDown_ContractProductRows.Category = "RecordsNavigation"
|
||||
Me.aDown_ContractProductRows.ConfirmationMessage = Nothing
|
||||
Me.aDown_ContractProductRows.Id = "aDown_ContractProductRows"
|
||||
Me.aDown_ContractProductRows.ImageName = "arrow_down_green"
|
||||
Me.aDown_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDown_ContractProductRows.Shortcut = Nothing
|
||||
Me.aDown_ContractProductRows.Tag = Nothing
|
||||
Me.aDown_ContractProductRows.TargetObjectsCriteria = Nothing
|
||||
Me.aDown_ContractProductRows.TargetViewId = Nothing
|
||||
Me.aDown_ContractProductRows.ToolTip = Nothing
|
||||
Me.aDown_ContractProductRows.TypeOfView = Nothing
|
||||
'
|
||||
'aUp_ContractProductRows
|
||||
'
|
||||
Me.aUp_ContractProductRows.Caption = "Up"
|
||||
Me.aUp_ContractProductRows.Category = "RecordsNavigation"
|
||||
Me.aUp_ContractProductRows.ConfirmationMessage = Nothing
|
||||
Me.aUp_ContractProductRows.Id = "aUp_ContractProductRows"
|
||||
Me.aUp_ContractProductRows.ImageName = "arrow_up_green"
|
||||
Me.aUp_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aUp_ContractProductRows.Shortcut = Nothing
|
||||
Me.aUp_ContractProductRows.Tag = Nothing
|
||||
Me.aUp_ContractProductRows.TargetObjectsCriteria = Nothing
|
||||
Me.aUp_ContractProductRows.TargetViewId = Nothing
|
||||
Me.aUp_ContractProductRows.ToolTip = Nothing
|
||||
Me.aUp_ContractProductRows.TypeOfView = Nothing
|
||||
'
|
||||
'aNewContractProductHeader
|
||||
'
|
||||
Me.aNewContractProductHeader.AcceptButtonCaption = Nothing
|
||||
Me.aNewContractProductHeader.CancelButtonCaption = Nothing
|
||||
Me.aNewContractProductHeader.Caption = "New Contract Product Header"
|
||||
Me.aNewContractProductHeader.Category = "ObjectsCreation"
|
||||
Me.aNewContractProductHeader.ConfirmationMessage = Nothing
|
||||
Me.aNewContractProductHeader.Id = "aNewContractProductHeader"
|
||||
Me.aNewContractProductHeader.ImageName = Nothing
|
||||
Me.aNewContractProductHeader.Shortcut = Nothing
|
||||
Me.aNewContractProductHeader.Tag = Nothing
|
||||
Me.aNewContractProductHeader.TargetObjectsCriteria = Nothing
|
||||
Me.aNewContractProductHeader.TargetViewId = Nothing
|
||||
Me.aNewContractProductHeader.ToolTip = Nothing
|
||||
Me.aNewContractProductHeader.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalizeContractProduct
|
||||
'
|
||||
Me.aFinalizeContractProduct.Caption = "Finalize Contract Product"
|
||||
Me.aFinalizeContractProduct.Category = "Edit"
|
||||
Me.aFinalizeContractProduct.ConfirmationMessage = Nothing
|
||||
Me.aFinalizeContractProduct.Id = "aFinalizeContractProduct"
|
||||
Me.aFinalizeContractProduct.ImageName = Nothing
|
||||
Me.aFinalizeContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aFinalizeContractProduct.Shortcut = Nothing
|
||||
Me.aFinalizeContractProduct.Tag = Nothing
|
||||
Me.aFinalizeContractProduct.TargetObjectsCriteria = "State in (0)"
|
||||
Me.aFinalizeContractProduct.TargetViewId = Nothing
|
||||
Me.aFinalizeContractProduct.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aFinalizeContractProduct.ToolTip = Nothing
|
||||
Me.aFinalizeContractProduct.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aSendBackToEditContractProduct
|
||||
'
|
||||
Me.aSendBackToEditContractProduct.Caption = "SendBackToEditContractProduct"
|
||||
Me.aSendBackToEditContractProduct.Category = "Edit"
|
||||
Me.aSendBackToEditContractProduct.ConfirmationMessage = Nothing
|
||||
Me.aSendBackToEditContractProduct.Id = "aSendBackToEditContractProduct"
|
||||
Me.aSendBackToEditContractProduct.ImageName = Nothing
|
||||
Me.aSendBackToEditContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aSendBackToEditContractProduct.Shortcut = Nothing
|
||||
Me.aSendBackToEditContractProduct.Tag = Nothing
|
||||
Me.aSendBackToEditContractProduct.TargetObjectsCriteria = "State in (1)"
|
||||
Me.aSendBackToEditContractProduct.TargetViewId = Nothing
|
||||
Me.aSendBackToEditContractProduct.ToolTip = Nothing
|
||||
Me.aSendBackToEditContractProduct.TypeOfView = Nothing
|
||||
'
|
||||
'aTotableD_ConProd_Receivables
|
||||
'
|
||||
Me.aTotableD_ConProd_Receivables.AcceptButtonCaption = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.CancelButtonCaption = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.Caption = "aTotableD_ConProd_Receivables"
|
||||
Me.aTotableD_ConProd_Receivables.Category = "aTotableD_ConProd_Receivables"
|
||||
Me.aTotableD_ConProd_Receivables.ConfirmationMessage = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.Id = "aTotableD_ConProd_Receivables"
|
||||
Me.aTotableD_ConProd_Receivables.ImageName = "table_delete"
|
||||
Me.aTotableD_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aTotableD_ConProd_Receivables.Shortcut = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.Tag = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.TargetObjectsCriteria = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.TargetViewId = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.ToolTip = Nothing
|
||||
Me.aTotableD_ConProd_Receivables.TypeOfView = Nothing
|
||||
'
|
||||
'aPrintContractProduct
|
||||
'
|
||||
Me.aPrintContractProduct.Caption = "aPrint Contract Product"
|
||||
Me.aPrintContractProduct.ConfirmationMessage = Nothing
|
||||
Me.aPrintContractProduct.Id = "aPrintContractProduct"
|
||||
Me.aPrintContractProduct.ImageName = Nothing
|
||||
Me.aPrintContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aPrintContractProduct.Shortcut = Nothing
|
||||
Me.aPrintContractProduct.Tag = Nothing
|
||||
Me.aPrintContractProduct.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintContractProduct.TargetObjectType = GetType(Nuvolar.[Module].ContractProductHeader)
|
||||
Me.aPrintContractProduct.TargetViewId = Nothing
|
||||
Me.aPrintContractProduct.ToolTip = Nothing
|
||||
Me.aPrintContractProduct.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aTotable_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aTotable_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aBackToRowEdit_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aTotableD_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDown_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aUp_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aNewContractProductHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aFinalizeContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSendBackToEditContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aTotableD_ConProd_Receivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aPrintContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+159
@@ -0,0 +1,159 @@
|
||||
<?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_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aTotable_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aTotableD_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 407</value>
|
||||
</metadata>
|
||||
<metadata name="aDown_ContractProductRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aUp_ContractProductRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aNewContractProductHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalizeContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aSendBackToEditContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aTotableD_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>221, 95</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+591
@@ -0,0 +1,591 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Xpo
|
||||
|
||||
Public Class ContractProduct_VC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id Like "ContractProductHeader_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().DeleteAction.TargetObjectsCriteria = "State=0 AND (DocumentNumber = '' OR IsNull(DocumentNumber)=True)"
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id Like "ContractProductHeader_DetailView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ContractProductHeader_ContractProductRows_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 ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractTemplate_ListView_PopUp" 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 = "ContractProductRowsInOut_ListView" 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)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktatás betekintése
|
||||
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ContractProductHeader_ContractProductRows_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 ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id Like "ContractProductHeader_ListView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id Like "ContractProductHeader_DetailView*" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ContractTemplate_ListView_PopUp" 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 = "ContractProductRowsInOut_ListView" 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)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
|
||||
Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktatás betekintése
|
||||
Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aContractProductHeaderNew_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _DetailViewName As String = ""
|
||||
Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)()
|
||||
_ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True))
|
||||
If View.Id = "ContractProductHeader_ListView_Receivables" Then
|
||||
_DetailViewName = "ContractProductHeader_DetailView_Receivables"
|
||||
_ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=? AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.eReceivables))
|
||||
End If
|
||||
If View.Id = "ContractProductHeader_ListView_Payabels" Then
|
||||
_DetailViewName = "ContractProductHeader_DetailView_Payables"
|
||||
_ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=? AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.ePayabels))
|
||||
End If
|
||||
If _DetailViewName <> "" Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader)
|
||||
Else
|
||||
_onew.Rollback()
|
||||
'--------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Az eladni kívánt mennyiség meghaladja maximálisan eladható mennyiséget!")
|
||||
'--------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.Execute
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
|
||||
Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
|
||||
Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
|
||||
|
||||
_ContractProductRows.ContractProductHeader = _ContractProductHeader
|
||||
|
||||
Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
|
||||
If ItemToFocus IsNot Nothing Then
|
||||
Dim ItemControl As Object
|
||||
ItemControl = ItemToFocus.Control
|
||||
ItemControl.Focus()
|
||||
End If
|
||||
|
||||
|
||||
_ContractProductRows.AddRows(_ContractProductHeader)
|
||||
|
||||
_ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows
|
||||
_ContractProductRowsEvent.QTT_In = _ContractProductHeader.row_QTT
|
||||
_ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
|
||||
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
_ContractProductHeader.row_ContractProductRows = Nothing
|
||||
_ContractProductHeader.row_NettoPriceDEV = 0
|
||||
_ContractProductHeader.row_NettoPriceHUF = 0
|
||||
_ContractProductHeader.row_Products = Nothing
|
||||
_ContractProductHeader.row_QTT = 0
|
||||
_ContractProductHeader.row_RowGroup1 = ""
|
||||
_ContractProductHeader.row_RowGroup2 = ""
|
||||
_ContractProductHeader.row_Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
|
||||
_ContractProductHeader.row_VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
|
||||
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0)
|
||||
Dim _ContractProductHeader_ListEditor As ListPropertyEditor
|
||||
|
||||
|
||||
_ContractProductHeader_ListEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
|
||||
For Each _ContractProductRows As ContractProductRows In _ContractProductHeader_ListEditor.ListView.SelectedObjects
|
||||
Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
|
||||
_ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows
|
||||
_ContractProductRowsEvent.QTT_In = _ContractProductRows.QTT * (-1)
|
||||
_ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
|
||||
|
||||
_ContractProductRows.RemoveRows()
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Payabels.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
|
||||
|
||||
Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
|
||||
If _ListView.ListView.SelectedObjects.Count > 0 Then
|
||||
|
||||
Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0) 'Régi sor változóba töltése
|
||||
|
||||
_ContractProductHeader.row_Products = _ContractProductRows.Products
|
||||
_ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV
|
||||
_ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF
|
||||
_ContractProductHeader.row_QTT = _ContractProductRows.QTT
|
||||
_ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1
|
||||
_ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2
|
||||
_ContractProductHeader.row_Units = _ContractProductRows.Units
|
||||
_ContractProductHeader.row_VAT = _ContractProductRows.VAT
|
||||
_ContractProductHeader.row_APCSheetByProducts = _ContractProductRows.APCSheetByProducts
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.Execute
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
|
||||
Dim _ContractProductRows_IN As ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("Oid=?", _ContractProductHeader.row_ContractProductRows.Oid))
|
||||
Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
|
||||
Dim _ContractProductRowsCollection As XPCollection = _ListView.ListView.ObjectSpace.CreateCollection(GetType(ContractProductRows), CriteriaOperator.Parse("ContractProductHeader=?", _ContractProductHeader))
|
||||
Dim _ContractProductRows As ContractProductRows
|
||||
Dim _MatchLine As Boolean = False
|
||||
|
||||
If _ContractProductHeader.row_QTT <= (_ContractProductRows_IN.QTT - _ContractProductRows_IN.QTT_Out) Then
|
||||
For Each _ContractProductRows_List As ContractProductRows In _ContractProductRowsCollection
|
||||
If _ContractProductRows_List.Products.Oid = _ContractProductHeader.row_ContractProductRows.Products.Oid Then
|
||||
If _ContractProductHeader.CurrencyName.ShortName = "HUF" Then
|
||||
If _ContractProductRows_List.NettoPriceHUF = _ContractProductHeader.row_NettoPriceHUF Then
|
||||
_MatchLine = True
|
||||
End If
|
||||
Else
|
||||
If _ContractProductRows_List.NettoPriceDEV = _ContractProductHeader.row_NettoPriceDEV Then
|
||||
_MatchLine = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
If _MatchLine Then
|
||||
_ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("ContractProductHeader=? AND Products=? AND NettoPriceHUF=? AND NettoPriceDEV=?", _
|
||||
_ContractProductHeader, _ContractProductHeader.row_ContractProductRows.Products, _ContractProductHeader.row_NettoPriceHUF, _ContractProductHeader.row_NettoPriceDEV))
|
||||
_ContractProductRows.QTT += _ContractProductHeader.row_QTT
|
||||
_ContractProductRows_IN.QTT_Out += _ContractProductHeader.row_QTT
|
||||
Else
|
||||
_ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
|
||||
|
||||
_ContractProductRows.ContractProductHeader = _ContractProductHeader
|
||||
_ContractProductRows.AddRows(_ContractProductHeader)
|
||||
_ContractProductRows_IN.QTT_Out += _ContractProductRows.QTT
|
||||
|
||||
End If
|
||||
|
||||
Dim _ContractProductRowsInOut As ContractProductRowsInOut = _ocur.CreateObject(Of ContractProductRowsInOut)()
|
||||
Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
|
||||
|
||||
Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
|
||||
If ItemToFocus IsNot Nothing Then
|
||||
Dim ItemControl As Object
|
||||
ItemControl = ItemToFocus.Control
|
||||
If ItemControl IsNot Nothing Then
|
||||
ItemControl.Focus()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
_ContractProductRowsInOut.QTT = _ContractProductHeader.row_QTT
|
||||
_ContractProductRowsInOut.ContractProductRowsIn = _ContractProductRows_IN
|
||||
_ContractProductRowsInOut.ContractProductRowsOut = _ContractProductRows
|
||||
|
||||
_ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows
|
||||
_ContractProductRowsEvent.ContractProductRowsIn = _ContractProductHeader.row_ContractProductRows
|
||||
_ContractProductRowsEvent.QTT_Out = _ContractProductHeader.row_QTT
|
||||
_ContractProductRowsEvent.QTT_In = 0
|
||||
_ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
|
||||
|
||||
_ContractProductHeader.row_ContractProductRows = Nothing
|
||||
_ContractProductHeader.row_NettoPriceDEV = 0
|
||||
_ContractProductHeader.row_NettoPriceHUF = 0
|
||||
_ContractProductHeader.row_Products = Nothing
|
||||
_ContractProductHeader.row_QTT = 0
|
||||
_ContractProductHeader.row_RowGroup1 = ""
|
||||
_ContractProductHeader.row_RowGroup2 = ""
|
||||
_ContractProductHeader.row_Units = Nothing
|
||||
_ContractProductHeader.row_VAT = Nothing
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
Else
|
||||
_ContractProductHeader.row_QTT = _ContractProductHeader.row_ContractProductRows.QTT - _ContractProductHeader.row_ContractProductRows.QTT_Out
|
||||
'--------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Az eladni kívánt mennyiség meghaladja maximálisan eladható mennyiséget!")
|
||||
'--------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
|
||||
' Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
|
||||
|
||||
Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
|
||||
If _ListView.ListView.SelectedObjects.Count > 0 Then
|
||||
|
||||
Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0) 'Régi sor változóba töltése
|
||||
|
||||
_ContractProductHeader.row_Products = _ContractProductRows.Products
|
||||
_ContractProductHeader.row_ContractProductRows = TryCast(_ocur.FindObject(Of ContractProductRowsInOut)(CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)), ContractProductRowsInOut).ContractProductRowsIn
|
||||
_ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV
|
||||
_ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF
|
||||
_ContractProductHeader.row_QTT = _ContractProductRows.QTT
|
||||
_ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1
|
||||
_ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2
|
||||
_ContractProductHeader.row_Units = _ContractProductRows.Units
|
||||
_ContractProductHeader.row_VAT = _ContractProductRows.VAT
|
||||
|
||||
View.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aDown_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_ContractProductRows.Execute
|
||||
' A kiválaszott sort egy sorral lejebb helyezi
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ContractProductHeader As ContractProductHeader = TryCast(View.CurrentObject, ContractProductRows).ContractProductHeader
|
||||
Dim _ContractProductRowsSelected As ContractProductRows = Nothing
|
||||
Dim _ContractProductRowsPlus As ContractProductRows = Nothing
|
||||
Dim _ContractProductRows As ContractProductRows = Nothing
|
||||
|
||||
Try
|
||||
_ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijelölt sorok közül az elsõt
|
||||
Catch
|
||||
'--------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
'--------------------------------- TESZT MIATT -------------------------------<<
|
||||
End Try
|
||||
|
||||
If _ContractProductRowsSelected.RowIndex < _ContractProductHeader.ContractProductRows.Count - 1 Then
|
||||
For Each _ContractProductRows In _ContractProductHeader.ContractProductRows
|
||||
If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex + 1 Then
|
||||
_ContractProductRowsPlus = _ContractProductRows
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _ContractProductRowsPlus IsNot Nothing Then
|
||||
_ContractProductRowsSelected.RowIndex += 1
|
||||
_ContractProductRowsPlus.RowIndex -= 1
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aUp_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_ContractProductRows.Execute
|
||||
' A kiválaszott sort egy sorral feljebb helyezi
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductRows).ContractProductHeader
|
||||
Dim _ContractProductRowsSelected As ContractProductRows = Nothing
|
||||
Dim _ContractProductRowsMinus As ContractProductRows = Nothing
|
||||
Dim _ContractProductRows As ContractProductRows = Nothing
|
||||
|
||||
Try
|
||||
_ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijelölt sorok közül az elsõt
|
||||
Catch
|
||||
' TESZT MIATT!!!! ----------------------------------------------------------------
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End Try
|
||||
|
||||
If _ContractProductRowsSelected.RowIndex > 0 Then
|
||||
For Each _ContractProductRows In _ContractProductHeader.ContractProductRows
|
||||
If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex - 1 Then
|
||||
_ContractProductRowsMinus = _ContractProductRows
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _ContractProductRowsMinus IsNot Nothing Then
|
||||
_ContractProductRowsSelected.RowIndex -= 1
|
||||
_ContractProductRowsMinus.RowIndex += 1
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
View.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aNewContractProductHeader_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aNewContractProductHeader.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As New CollectionSource(_onew, GetType(ContractTemplate))
|
||||
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria.Clear()
|
||||
_CS.Criteria("First") = CriteriaOperator.Parse("IsProducts=True")
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("ContractTemplate_ListView_PopUp", _CS, False)
|
||||
|
||||
End Sub
|
||||
Private Sub aNewContractProductHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aNewContractProductHeader.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
If e.PopupWindow.View.SelectedObjects.Count > 0 Then
|
||||
Dim _ContractTemplate As ContractTemplate = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractTemplate)
|
||||
|
||||
Dim _DetailViewName As String = ""
|
||||
|
||||
If _ContractTemplate IsNot Nothing Or e.PopupWindow.View.SelectedObjects.Count = 1 Then
|
||||
Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)()
|
||||
_ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True))
|
||||
_ContractProductHeader.ContractTemplate = _onew.GetObjectByKey(Of ContractTemplate)(_ContractTemplate.Oid)
|
||||
|
||||
If _ContractTemplate.PartnerType = ePartnerType.eReceivables Then
|
||||
_DetailViewName = "ContractProductHeader_DetailView_Receivables"
|
||||
End If
|
||||
If _ContractTemplate.PartnerType = ePartnerType.ePayabels Then
|
||||
_DetailViewName = "ContractProductHeader_DetailView_Payables"
|
||||
End If
|
||||
If _DetailViewName <> "" Then
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader)
|
||||
e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
Else
|
||||
_onew.Rollback()
|
||||
' --------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Váratlan hiba történt! A mûvelet megszakadt! " & vbNewLine & _
|
||||
"Valószínüleg hibásan került be a rendszerbe egy vagy több szerzõdési sablon!" & vbNewLine & _
|
||||
"Kérem ellenõrizze a szerzõdési sablonokat!")
|
||||
' --------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
Else
|
||||
_onew.Rollback()
|
||||
' --------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Egynél több sor van kiválasztva!")
|
||||
' --------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
Else
|
||||
_onew.Rollback()
|
||||
' --------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Nincs sor kiválasztva!")
|
||||
' --------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aFinalizeContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeContractProduct.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
|
||||
If _ContractProductHeader IsNot Nothing Then
|
||||
Dim _CustomersNGCollection As CustomersNGCollection = Nothing
|
||||
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then
|
||||
_CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _
|
||||
_ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate))
|
||||
End If
|
||||
|
||||
_ContractProductHeader.State = State.Ready
|
||||
|
||||
If _ContractProductHeader.DocumentNumber = "" Then
|
||||
If _CustomersNGCollection IsNot Nothing Then
|
||||
_ContractProductHeader.DocumentNumber = _CustomersNGCollection.NumberGenerator.GetNewNumber(_CustomersNGCollection.NumberGenerator)
|
||||
Else
|
||||
_ContractProductHeader.DocumentNumber = _ContractProductHeader.ContractTemplate.NumberGenerator.GetNewNumber(_ContractProductHeader.ContractTemplate.NumberGenerator)
|
||||
End If
|
||||
End If
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
|
||||
If _ContractProductHeader IsNot Nothing Then
|
||||
_ContractProductHeader.State = State.Preparation
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotableD_ConProd_Receivables_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aTotableD_ConProd_Receivables.CustomizePopupWindowParams
|
||||
Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
|
||||
If _ContractProductHeader_ListEditor.ListView.SelectedObjects.Count > 0 Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CS As New CollectionSource(_onew, GetType(ContractProductRowsInOut))
|
||||
_CS.BeginUpdateCriteria()
|
||||
_CS.Criteria.Clear()
|
||||
_CS.Criteria("First") = CriteriaOperator.Parse("1=2") 'CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)
|
||||
_CS.EndUpdateCriteria()
|
||||
|
||||
Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0)
|
||||
Dim _ContractProductRowsInOut_List As XPCollection = _onew.CreateCollection(GetType(ContractProductRowsInOut), CriteriaOperator.Parse("ContractProductRowsOut=?", _onew.GetObject(_ContractProductRows)))
|
||||
|
||||
For Each _ContractProductRowsInOut As ContractProductRowsInOut In _ContractProductRowsInOut_List
|
||||
|
||||
_CS.Add(_ContractProductRowsInOut)
|
||||
Next
|
||||
|
||||
e.View = Application.CreateListView("ContractProductRowsInOut_ListView", _CS, False)
|
||||
Else
|
||||
'--------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Nincs kiválasztva egy sor sem!")
|
||||
'--------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotableD_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aTotableD_ConProd_Receivables.Execute
|
||||
If e.PopupWindow.View.SelectedObjects.Count > 0 Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
|
||||
Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
|
||||
Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0)
|
||||
|
||||
For Each _ContractProductRowsInOut In e.PopupWindow.View.SelectedObjects
|
||||
Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
|
||||
Dim _ContractProductRowsInOut_Ocur As ContractProductRowsInOut = _ocur.GetObjectByKey(Of ContractProductRowsInOut)(TryCast(_ContractProductRowsInOut, ContractProductRowsInOut).Oid)
|
||||
_ContractProductRowsInOut_Ocur.ContractProductRowsIn.QTT_Out -= _ContractProductRowsInOut_Ocur.QTT
|
||||
_ContractProductRows.QTT -= _ContractProductRowsInOut_Ocur.QTT
|
||||
|
||||
_ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRowsInOut_Ocur.ContractProductRowsIn
|
||||
_ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows
|
||||
_ContractProductRowsEvent.QTT_In = 0
|
||||
_ContractProductRowsEvent.QTT_Out = _ContractProductRows.QTT
|
||||
|
||||
_ContractProductRowsInOut_Ocur.RemoveRows()
|
||||
If _ContractProductRows.QTT = 0 Then
|
||||
_ContractProductRows.RemoveRows()
|
||||
End If
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
Else
|
||||
'--------------------------------- TESZT MIATT ------------------------------->>
|
||||
Throw New Exception("*Nincs kiválasztva egy sor sem! A törlés nem hajtahtó végre!")
|
||||
'--------------------------------- TESZT MIATT -------------------------------<<
|
||||
End If
|
||||
View.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub aPrintContractProduct_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintContractProduct.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
|
||||
Try
|
||||
If _ContractProductHeader IsNot Nothing Then
|
||||
Dim _ReportData As DevExpress.Persistent.BaseImpl.ReportData = _ContractProductHeader.ContractTemplate.ReportData
|
||||
|
||||
If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
|
||||
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("ContractProductHeader.Oid=?", _ContractProductHeader.Oid), True)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user