Reconfigure for GIT
This commit is contained in:
+49
@@ -0,0 +1,49 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class OfferInheaderFileAttachment
|
||||
Inherits FileAttachmentBase
|
||||
Private _FileType As String
|
||||
Private _OfferInHeader As OfferInHeader
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<Association("OfferInheader-OfferInheaderFileAttachment", GetType(OfferInHeader))> _
|
||||
<Browsable(False)> _
|
||||
Property OfferInHeader As OfferInHeader
|
||||
Get
|
||||
Return _OfferInHeader
|
||||
End Get
|
||||
Set(value As OfferInHeader)
|
||||
SetPropertyValue("OfferInHeader", _OfferInHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FileType As String
|
||||
Get
|
||||
Return _FileType
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("FileType", _FileType, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+528
@@ -0,0 +1,528 @@
|
||||
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
|
||||
'<EditorStateRule("Disable properties when IsEditable=False (IN)", "*", ViewType.DetailView, "IsEditable = False", EditorState.Disabled)> _
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("BusinessTransactions")> _
|
||||
<Appearance("Disable properties when IsEditable=False (IN)", TargetItems:="*", Criteria:="IsEditable = False", Enabled:=False, Context:="DetailView")> _
|
||||
<RuleCriteria("RuleCriteria IF OfferLOSTReason <> NotSet OR OfferInState <> ClosedLost THEN Save (IN)", DefaultContexts.Save, "OfferLOSTReason != 0 OR OfferInState !=2", "", SkipNullOrEmptyValues:=False)> _
|
||||
<Appearance("Hide OfferLOSTReasons when eOfferInState <> 2 (IN)", AppearanceItemType.ViewItem, "OfferInState <> 2", TargetItems:="OfferLOSTReason", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable OfferLOSTReasonDescription when OfferLOSTReason <> 7 (IN)", AppearanceItemType.ViewItem, "OfferLOSTReason <> 7", TargetItems:="OfferLOSTReasonDescription", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable OfferInHeader-Contact", AppearanceItemType.ViewItem, "IsNull(Contact)=False", TargetItems:="Contact", Enabled:=False)> _
|
||||
<Appearance("Disable OfferInHeader-Customers", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
|
||||
<Appearance("Disable OfferInHeader-OfferOutParameters", AppearanceItemType.ViewItem, "IsNull(OfferInParameters)=False", TargetItems:="OfferInParameters", Enabled:=False)> _
|
||||
<Appearance("Disable aOffersInFinal", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aOffersInFinal", Enabled:=False)> _
|
||||
<Appearance("Hide OfferInHeader _row_XX' properties when RowType = Other", AppearanceItemType.ViewItem, "row_RowType = 1", TargetItems:="row_Installation;row_Products", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide OfferInHeader Installation properties when row_RowType = Product", AppearanceItemType.ViewItem, "row_RowType = 0", TargetItems:="row_VAT;row_Description;row_Installation;row_ShortName;row_Units", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide OfferInHeader Product propertis when row_RowType = Installation", AppearanceItemType.ViewItem, "row_RowType = 2", TargetItems:="row_VAT;row_Products;row_Units;row_Description;row_ShortName", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide CloneObject-OfferIn, addrow and removerow", AppearanceItemType.Action, "IsEditable = False", TargetItems:="CloneObject;aTotable_OfferIn;aTotableD_OfferIn", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide _row_FinalPriceDEV-OfferIn if CurrencyName is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF'", TargetItems:="row_FinalPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide _row_FinalPriceHUF-OfferIn if CurrencyName is not HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName<>'HUF'", TargetItems:="row_FinalPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide row_ info when IsEditable=False OffersIn", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="row_RowType; row_Products; row_Installation; row_ShortName;" _
|
||||
& "row_Description; row_QTT; row_Units; row_VAT; row_FinalPriceHUF; row_FinalPriceDEV; row_RowGroup1; row_RowGroup2", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable ObjectCreated OfferInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
|
||||
<Appearance("Disable UserCreated OfferInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
Public Class OfferInHeader
|
||||
Inherits BaseObject
|
||||
Private _OfferInParameters As OfferInParameters 'Árajánlat paramétere, ami a sorszámot és egyéb tul. meghat.
|
||||
Private _OfferInState As eOfferInState 'Ajánlat státusz, hol tart jelenleg
|
||||
Private _OfferLOSTReason As eOfferInLOSTReason 'Ha nem fogadjuk el, miért ?
|
||||
Private _OfferLOSTReasonDescription As String ' Ha nem fogadjuk el és eOther akkor szövegesen beírni !
|
||||
Private _DocumentNumber As String 'Árajánlat száma (generálódik)
|
||||
Private _CustomersFrom As CustomersFrom 'Saját cég
|
||||
Private _Customers As Customers 'Partner, akitől az árajánlatot kapjuk szól (ez nem kötelező, de a contactból ismerje fel !)
|
||||
Private _Contact As Contacts 'Kapcsolat, akitől az árajánlatot kapjuk (ez a fő !!! kötelező)
|
||||
Private _DateCreated As Date 'Kiállítás dátuma
|
||||
Private _DateExecution As Date 'Teljesítés dátuma
|
||||
Private _DatePayment As Date 'Fiz. hat
|
||||
Private _DateDue As Date 'Érvényesség dátuma
|
||||
|
||||
Private _DateAcknowledgement As Date 'Rendelés visszaigazolás dátuma
|
||||
|
||||
Private _Description As String 'Leírás (fejlécen)
|
||||
Private _PaymentOption As PaymentOption 'Fizetési opció
|
||||
Private _ShipmentOption As ShipmentOption 'Szállítási opció
|
||||
Private _QualityOption As QualityOption 'Minőségi opció
|
||||
Private _CurrencyName As CurrencyName 'Deviza
|
||||
Private _ObjectCreated As Date 'Maga az objektum mikor készült el
|
||||
Private _UserCreated As User 'Ki készítette
|
||||
Private _IsEditable As Boolean = True 'Szerkeszthető vagy végleges ajánlat
|
||||
Private _IsStorno As Boolean = True 'Stornírozott ajánlat
|
||||
|
||||
'Excel, Word dokumentum
|
||||
Private _DocumentBody As String 'RichText dokumentum test
|
||||
Private _ExcelProperty As String 'Excel !!!
|
||||
Private _ExcelFile As FileData
|
||||
|
||||
'--- Sorok rögzítéséhez nonpersistent propertyk
|
||||
Private _row_RowType As eRowType 'Sor tipus
|
||||
Private _row_Products As Products
|
||||
Private _row_Installation As Installation
|
||||
Private _row_ShortName As String 'Megnevezés
|
||||
Private _row_Description As String 'Leírás
|
||||
Private _row_QTT As Double 'Mennyiség
|
||||
Private _row_Units As Units 'Mennyiségi egység
|
||||
Private _row_VAT As VAT 'ÁFA kód
|
||||
Private _row_FinalPriceHUF As Double 'Termék listaára HUF
|
||||
Private _row_FinalPriceDEV As Double 'Termék listaára DEV
|
||||
Private _row_RowGroup1 As String 'Csoportosító sor1
|
||||
Private _row_RowGroup2 As String 'Csoportosító sor2
|
||||
|
||||
Private _CRM_Opportunities As CRM_Opportunities
|
||||
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
If OfferInParameters Is Nothing Then
|
||||
Else
|
||||
ObjectCreated = Now
|
||||
If DocumentNumber = "" Then
|
||||
DocumentNumber = OfferInParameters.NumberGenerator.GetNewNumber(OfferInParameters.NumberGenerator)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
MyBase.Save()
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.IsEditable = True
|
||||
Me.IsStorno = False
|
||||
CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName=?", "HUF"))
|
||||
Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
|
||||
Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
|
||||
End Sub
|
||||
|
||||
<ImmediatePostData()>
|
||||
<DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")> _
|
||||
<RuleRequiredField("OfferInHeader.OfferInParameters", DefaultContexts.Save)> _
|
||||
Property OfferInParameters As OfferInParameters
|
||||
Get
|
||||
Return _OfferInParameters
|
||||
End Get
|
||||
Set(ByVal value As OfferInParameters)
|
||||
SetPropertyValue("OfferInParameters", _OfferInParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<NonCloneable()> _
|
||||
Property OfferInState As eOfferInState
|
||||
Get
|
||||
Return _OfferInState
|
||||
End Get
|
||||
Set(ByVal value As eOfferInState)
|
||||
SetPropertyValue("OfferInState", _OfferInState, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Select Case OfferInState
|
||||
Case eOfferInState.eClosedWON
|
||||
OfferLOSTReason = eOfferInLOSTReason.eNotSet
|
||||
Case eOfferInState.eInProgress
|
||||
OfferLOSTReason = eOfferInLOSTReason.eNotSet
|
||||
Case eOfferInState.eInThinkingOf
|
||||
OfferLOSTReason = eOfferInLOSTReason.eNotSet
|
||||
End Select
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<NonCloneable()> _
|
||||
Property OfferLOSTReason As eOfferInLOSTReason
|
||||
Get
|
||||
Return _OfferLOSTReason
|
||||
End Get
|
||||
Set(ByVal value As eOfferInLOSTReason)
|
||||
SetPropertyValue("OfferLOSTReason", _OfferLOSTReason, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Select Case OfferLOSTReason
|
||||
Case eOfferInLOSTReason.eNotSet
|
||||
OfferLOSTReasonDescription = ""
|
||||
Case eOfferInLOSTReason.eTooExpensive
|
||||
OfferLOSTReasonDescription = ""
|
||||
Case eOfferInLOSTReason.eTooLate
|
||||
OfferLOSTReasonDescription = ""
|
||||
Case eOfferInLOSTReason.eChooseConcurrency
|
||||
OfferLOSTReasonDescription = ""
|
||||
Case eOfferInLOSTReason.eQualityProblem
|
||||
OfferLOSTReasonDescription = ""
|
||||
Case eOfferInLOSTReason.eNoAnswer
|
||||
OfferLOSTReasonDescription = ""
|
||||
Case eOfferInLOSTReason.eWINOther
|
||||
OfferLOSTReasonDescription = ""
|
||||
End Select
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("OfferInHeader-OfferLOSTReasonDescription", DefaultContexts.Save, TargetCriteria:="OfferLOSTReason = 7")> _
|
||||
<ImmediatePostData()> _
|
||||
<Size(-1)> _
|
||||
Property OfferLOSTReasonDescription As String
|
||||
Get
|
||||
Return _OfferLOSTReasonDescription
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("OfferLOSTReasonDescription", _OfferLOSTReasonDescription, 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("OfferInHeader-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
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("OfferInHeader-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
|
||||
<ImmediatePostData()> _
|
||||
<DataSourceProperty("Customers.Contacts", DataSourcePropertyIsNullMode.SelectAll)> _
|
||||
Property Contact As Contacts
|
||||
Get
|
||||
Return _Contact
|
||||
End Get
|
||||
Set(ByVal value As Contacts)
|
||||
SetPropertyValue("Contact", _Contact, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False And value IsNot Nothing Then
|
||||
Me.Customers = value.Customers
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<RuleRequiredField("OfferInHeader-DateCreated", DefaultContexts.Save)> _
|
||||
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
|
||||
Property DatePayment As Date
|
||||
Get
|
||||
Return _DatePayment
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DatePayment", _DatePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("OfferInHeader-DateDue", DefaultContexts.Save)> _
|
||||
Property DateDue As Date
|
||||
Get
|
||||
Return _DateDue
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateDue", _DateDue, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateAcknowledgement As Date
|
||||
Get
|
||||
Return _DateAcknowledgement
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateAcknowledgement", _DateAcknowledgement, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Size(-1)>
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("OfferInHeader-PaymentOption", DefaultContexts.Save)> _
|
||||
Property PaymentOption As PaymentOption
|
||||
Get
|
||||
Return _PaymentOption
|
||||
End Get
|
||||
Set(ByVal value As PaymentOption)
|
||||
SetPropertyValue("PaymentOption", _PaymentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("OfferInHeader-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
|
||||
<RuleRequiredField("OfferInHeader-QualityOption", DefaultContexts.Save)> _
|
||||
Property QualityOption As QualityOption
|
||||
Get
|
||||
Return _QualityOption
|
||||
End Get
|
||||
Set(ByVal value As QualityOption)
|
||||
SetPropertyValue("QualityOption", _QualityOption, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("OfferInHeader-CurrencyName", DefaultContexts.Save)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(ByVal value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property IsEditable As Boolean
|
||||
Get
|
||||
Return _IsEditable
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsEditable", _IsEditable, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
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(ByVal value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
<Association("OfferInHeader", GetType(OfferInRows))> _
|
||||
Public ReadOnly Property OfferInRows() As XPCollection(Of OfferInRows)
|
||||
Get
|
||||
Return GetCollection(Of OfferInRows)("OfferInRows")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("OfferInheader-OfferInheaderFileAttachment", GetType(OfferInheaderFileAttachment))> _
|
||||
Public ReadOnly Property OfferInheaderFileAttachment As XPCollection(Of OfferInheaderFileAttachment)
|
||||
Get
|
||||
Return GetCollection(Of OfferInheaderFileAttachment)("OfferInheaderFileAttachment")
|
||||
End Get
|
||||
End Property
|
||||
' --- Excel, Word dokumentum
|
||||
<Size(-1), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property DocumentBody() As String
|
||||
Get
|
||||
Return _DocumentBody
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentBody", _DocumentBody, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property ExcelProperty As String
|
||||
Get
|
||||
Return _ExcelProperty
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ExcelProperty", _ExcelProperty, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Public Property ExcelFile As FileData
|
||||
Get
|
||||
Return _ExcelFile
|
||||
End Get
|
||||
Set(ByVal value As FileData)
|
||||
SetPropertyValue("ExcelFile", _ExcelFile, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'--- Sorok rögzítéséhez nonpersistent propertyk
|
||||
<NonPersistent()> _
|
||||
<ImmediatePostData()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_RowType As eRowType
|
||||
Get
|
||||
Return _row_RowType
|
||||
End Get
|
||||
Set(value As eRowType)
|
||||
SetPropertyValue("row_RowType", _row_RowType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Products As Products
|
||||
Get
|
||||
Return _row_Products
|
||||
End Get
|
||||
Set(value As Products)
|
||||
SetPropertyValue("row_Products", _row_Products, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Installation As Installation
|
||||
Get
|
||||
Return _row_Installation
|
||||
End Get
|
||||
Set(value As Installation)
|
||||
SetPropertyValue("row_Installation", _row_Installation, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_ShortName As String
|
||||
Get
|
||||
Return _row_ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_ShortName", _row_ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_Description As String
|
||||
Get
|
||||
Return _row_Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("row_Description", _row_Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<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()> _
|
||||
<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()> _
|
||||
<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()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_FinalPriceHUF As Double
|
||||
Get
|
||||
Return _row_FinalPriceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_FinalPriceHUF", _row_FinalPriceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<VisibleInListView(False)> _
|
||||
Property row_FinalPriceDEV As Double
|
||||
Get
|
||||
Return _row_FinalPriceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("row_FinalPriceDEV", _row_FinalPriceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonPersistent()> _
|
||||
<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()> _
|
||||
<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
|
||||
|
||||
'--- CRM ügy
|
||||
<Association("OfferInHeader-CRM_Opportunities", GetType(CRM_Opportunities))> _
|
||||
Property CRM_Opportunities As CRM_Opportunities
|
||||
Get
|
||||
Return _CRM_Opportunities
|
||||
End Get
|
||||
Set(value As CRM_Opportunities)
|
||||
SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
|
||||
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False And Me.CRM_Opportunities IsNot Nothing And Session.IsNewObject(Me) = True Then
|
||||
Me.CustomersFrom = Me.CRM_Opportunities.CustomersFrom
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+108
@@ -0,0 +1,108 @@
|
||||
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 eOfferInState
|
||||
eInProgress = 0 'Még dolgoznak rajta
|
||||
eClosedWON = 1 'Elfogadjuk
|
||||
eClosedLOST = 2 'Elutasítjuk
|
||||
eInThinkingOf = 3 'Még gondolkodunk, hogy mi legyen vele !
|
||||
eOrderOut = 4 'Megrendeltük
|
||||
eOrderOutAcknowledgement = 5 'Megrendeltük, és visszaigazolták
|
||||
End Enum
|
||||
Public Enum eOfferInLOSTReason
|
||||
eNotSet = 0 'Nincs beállitva
|
||||
eTooExpensive = 1 'Túl drága
|
||||
eTooLate = 2 'Határidő nem megfelelő
|
||||
eChooseConcurrency = 3 'Konkurenciát választottuk
|
||||
eQualityProblem = 4 'Nem megfelelő minőségű
|
||||
eNoAnswer = 5 ' Nem mondjuk meg miért
|
||||
eWINOther = 6 ' Másik árajánlatukat fogadjuk el
|
||||
eOther = 7 'Egyéb
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("BusinessStocks")> _
|
||||
Public Class OfferInParameters
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _OfferInMainType As eOfferOutMainType 'Fő tipus 1
|
||||
Private _OfferInMainType2 As eOfferOutMainType2 'Fő tipus 2
|
||||
Private _ShortName As String 'Rövid megnevezés
|
||||
Private _Description As String 'Leírás
|
||||
Private _NumberGenerator As NumberGenerator 'Sorszám generátor
|
||||
Private _ReportData As ReportData
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OfferInMainType As eOfferOutMainType
|
||||
Get
|
||||
Return _OfferInMainType
|
||||
End Get
|
||||
Set(ByVal value As eOfferOutMainType)
|
||||
SetPropertyValue("OfferOutMainType", _OfferInMainType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OfferInMainType2 As eOfferOutMainType2
|
||||
Get
|
||||
Return _OfferInMainType2
|
||||
End Get
|
||||
Set(ByVal value As eOfferOutMainType2)
|
||||
SetPropertyValue("OfferOutMainType2", _OfferInMainType2, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)>
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
Property NumberGenerator As NumberGenerator
|
||||
Get
|
||||
Return _NumberGenerator
|
||||
End Get
|
||||
Set(ByVal value As NumberGenerator)
|
||||
SetPropertyValue("NumberGenerator", _NumberGenerator, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData As ReportData
|
||||
Get
|
||||
Return _ReportData
|
||||
End Get
|
||||
Set(ByVal value As ReportData)
|
||||
SetPropertyValue("ReportData", _ReportData, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+281
@@ -0,0 +1,281 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Disable InsertServicesToOfferOut", AppearanceItemType.Action, "OfferInHeader.IsEditable = False", TargetItems:="InsertServicesToOfferIN", Enabled:=False)> _
|
||||
Public Class OfferInRows
|
||||
Inherits BaseObject
|
||||
Private _OfferInHeader As OfferInHeader 'Árajánlat fejléce
|
||||
Private _RowType As eRowType 'Sor miről szól ?
|
||||
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
|
||||
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
|
||||
Private _Product As Products 'Termék
|
||||
Private _Installation As Installation 'Gyártmány
|
||||
Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
|
||||
Private _ShortName As String 'Megnevezés -> Ez megy majd rá később a számlára is !
|
||||
Private _Description As String 'Leírás -> ez is rá fog menni a számlára !
|
||||
Private _DescriptionPrivate As String 'Na ez csak látszódjon, de nem menjen föl semmilyen doksira !!!
|
||||
Private _QTT As Double = 0 'Mennyiség. A Mennyiségi egység vagy a Products-ból, vag Installationnál DB
|
||||
Private _QualityOption As QualityOption 'Minőségi opció
|
||||
Private _Units As Units
|
||||
Private _VAT As VAT
|
||||
Private _DateAcknowledgement As Date 'Visszaigazolás dátuma
|
||||
'Árak !!!!
|
||||
Private _SumPriceHUF As Double
|
||||
Private _SumPriceDEV As Double
|
||||
Private _FinalPriceDEV As Double
|
||||
Private _FinalPriceHUF As Double
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<Association("OfferInHeader", GetType(OfferInHeader))> _
|
||||
Property OfferInHeader() As OfferInHeader
|
||||
Get
|
||||
Return _OfferInHeader
|
||||
End Get
|
||||
Set(ByVal value As OfferInHeader)
|
||||
SetPropertyValue("OfferInHeader", _OfferInHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowType() As eRowType
|
||||
Get
|
||||
Return _RowType
|
||||
End Get
|
||||
Set(ByVal value As eRowType)
|
||||
SetPropertyValue("RowType", _RowType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup1 As String
|
||||
Get
|
||||
Return _RowGroup1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RowGroup2 As String
|
||||
Get
|
||||
Return _RowGroup2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("RowGroup2", _RowGroup2, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", "aToTable_OfferIn_Contexts", TargetCriteria:="RowType=0")> _
|
||||
Property Product() As Products
|
||||
Get
|
||||
Return _Product
|
||||
End Get
|
||||
Set(ByVal value As Products)
|
||||
SetPropertyValue("Product", _Product, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Installation As Installation
|
||||
Get
|
||||
Return _Installation
|
||||
End Get
|
||||
Set(ByVal value As Installation)
|
||||
SetPropertyValue("Installation", _Installation, 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
|
||||
<Size(255)> _
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property DescriptionPrivate As String
|
||||
Get
|
||||
Return _DescriptionPrivate
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DescriptionPrivate", _DescriptionPrivate, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("", DefaultContexts.Save)> _
|
||||
<RuleRange("", DefaultContexts.Save, 0.001, 999999999)> _
|
||||
Property QTT() As Double
|
||||
Get
|
||||
Return _QTT
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("QTT", _QTT, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
SumPriceDEV = QTT * FinalPriceDEV
|
||||
SumPriceHUF = QTT * FinalPriceHUF
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property Units As Units
|
||||
Get
|
||||
Return _Units
|
||||
End Get
|
||||
Set(value As Units)
|
||||
SetPropertyValue("Units", _Units, value)
|
||||
End Set
|
||||
End Property
|
||||
Property VAT As VAT
|
||||
Get
|
||||
Return _VAT
|
||||
End Get
|
||||
Set(value As VAT)
|
||||
SetPropertyValue("VAT", _VAT, 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 DateAcknowledgement As Date
|
||||
Get
|
||||
Return _DateAcknowledgement
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateAcknowledgement", _DateAcknowledgement, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property SumPriceHUF As Double
|
||||
Get
|
||||
Return _SumPriceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceHUF", _SumPriceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SumPriceDEV As Double
|
||||
Get
|
||||
Return _SumPriceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceDEV", _SumPriceDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property FinalPriceDEV As Double
|
||||
Get
|
||||
Return _FinalPriceDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("FinalPriceDEV", _FinalPriceDEV, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
SumPriceDEV = QTT * FinalPriceDEV
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property FinalPriceHUF As Double
|
||||
Get
|
||||
Return _FinalPriceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("FinalPriceHUF", _FinalPriceHUF, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
SumPriceHUF = QTT * FinalPriceHUF
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub AddRows(ByVal _p_OfferInHeader As OfferInHeader)
|
||||
' Sor hozzáadása
|
||||
Me.OfferInHeader = _p_OfferInHeader
|
||||
|
||||
If _p_OfferInHeader.row_RowType = eRowType.IsInstallation Then ' Sor hozzáadása ha gyártmány típusú a sor
|
||||
Me.Installation = _p_OfferInHeader.row_Installation
|
||||
Me.RowType = _p_OfferInHeader.row_RowType
|
||||
Me.QTT = _p_OfferInHeader.row_QTT
|
||||
Me.Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("ShortName='DB'"))
|
||||
Me.RowGroup1 = _p_OfferInHeader.row_RowGroup1
|
||||
Me.RowGroup2 = _p_OfferInHeader.row_RowGroup2
|
||||
Me.VAT = _p_OfferInHeader.row_VAT
|
||||
|
||||
|
||||
FinalPriceDEV = _p_OfferInHeader.row_FinalPriceDEV
|
||||
FinalPriceHUF = _p_OfferInHeader.row_FinalPriceHUF
|
||||
SumPriceDEV = FinalPriceDEV * QTT
|
||||
SumPriceHUF = FinalPriceHUF * QTT
|
||||
End If
|
||||
|
||||
If _p_OfferInHeader.row_RowType = eRowType.IsOther Then ' Sor hozzáadása ha egyéb típusú a sor
|
||||
Me.ShortName = _p_OfferInHeader.row_ShortName
|
||||
Me.RowType = _p_OfferInHeader.row_RowType
|
||||
Me.QTT = _p_OfferInHeader.row_QTT
|
||||
Me.Units = _p_OfferInHeader.row_Units
|
||||
Me.Description = _p_OfferInHeader.row_Description
|
||||
Me.VAT = _p_OfferInHeader.row_VAT
|
||||
Me.RowGroup1 = _p_OfferInHeader.row_RowGroup1
|
||||
Me.RowGroup2 = _p_OfferInHeader.row_RowGroup2
|
||||
|
||||
|
||||
FinalPriceDEV = _p_OfferInHeader.row_FinalPriceDEV
|
||||
FinalPriceHUF = _p_OfferInHeader.row_FinalPriceHUF
|
||||
SumPriceDEV = FinalPriceDEV * QTT
|
||||
SumPriceHUF = FinalPriceHUF * QTT
|
||||
End If
|
||||
|
||||
If _p_OfferInHeader.row_RowType = eRowType.IsProduct Then ' Sor hozzáadása ha termék típusú a sor
|
||||
Me.Product = _p_OfferInHeader.row_Products
|
||||
Me.RowType = _p_OfferInHeader.row_RowType
|
||||
Me.QTT = _p_OfferInHeader.row_QTT
|
||||
Me.Units = _p_OfferInHeader.row_Units
|
||||
Me.VAT = _p_OfferInHeader.row_Products.VAT
|
||||
Me.RowGroup1 = _p_OfferInHeader.row_RowGroup1
|
||||
Me.RowGroup2 = _p_OfferInHeader.row_RowGroup2
|
||||
|
||||
FinalPriceDEV = _p_OfferInHeader.row_FinalPriceDEV
|
||||
FinalPriceHUF = _p_OfferInHeader.row_FinalPriceHUF
|
||||
SumPriceDEV = FinalPriceDEV * QTT
|
||||
SumPriceHUF = FinalPriceHUF * QTT
|
||||
End If
|
||||
|
||||
' Indexelés
|
||||
If _p_OfferInHeader.OfferInRows.Count = 0 Then
|
||||
Me.RowIndex = 0
|
||||
Else
|
||||
Me.RowIndex = _p_OfferInHeader.OfferInRows.Count - 1
|
||||
End If
|
||||
End Sub
|
||||
Public Sub RemoveRows()
|
||||
Me.Delete()
|
||||
End Sub
|
||||
End Class
|
||||
+282
@@ -0,0 +1,282 @@
|
||||
Partial Class OffersInVC
|
||||
|
||||
<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.aTotableD_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aTotable_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aUp_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDown_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOffersInFinal = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOffersIn_ChangeRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aInsertServicesToOfferIN = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aBackToRowEdit_OfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOfferIn_ChangeState = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCloneOfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aPrintOfferIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aOfferIn_CreateDeliveryNoteIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aOfferIn_RegenerateDEV = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aOfferInHeader_AddOfferOutHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aTotableD_OfferIn
|
||||
'
|
||||
Me.aTotableD_OfferIn.Caption = "Delete row"
|
||||
Me.aTotableD_OfferIn.Category = "aTotableD_OfferIn"
|
||||
Me.aTotableD_OfferIn.ConfirmationMessage = Nothing
|
||||
Me.aTotableD_OfferIn.Id = "aTotableD_OfferIn"
|
||||
Me.aTotableD_OfferIn.ImageName = "table_delete"
|
||||
Me.aTotableD_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aTotableD_OfferIn.Shortcut = Nothing
|
||||
Me.aTotableD_OfferIn.Tag = Nothing
|
||||
Me.aTotableD_OfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aTotableD_OfferIn.TargetViewId = ""
|
||||
Me.aTotableD_OfferIn.ToolTip = Nothing
|
||||
Me.aTotableD_OfferIn.TypeOfView = Nothing
|
||||
'
|
||||
'aTotable_OfferIn
|
||||
'
|
||||
Me.aTotable_OfferIn.Caption = "Add row"
|
||||
Me.aTotable_OfferIn.Category = "aTotable_OfferIn"
|
||||
Me.aTotable_OfferIn.ConfirmationMessage = Nothing
|
||||
Me.aTotable_OfferIn.Id = "aTotable_OfferIn"
|
||||
Me.aTotable_OfferIn.ImageName = "table_add"
|
||||
Me.aTotable_OfferIn.Shortcut = Nothing
|
||||
Me.aTotable_OfferIn.Tag = Nothing
|
||||
Me.aTotable_OfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aTotable_OfferIn.TargetViewId = ""
|
||||
Me.aTotable_OfferIn.ToolTip = Nothing
|
||||
Me.aTotable_OfferIn.TypeOfView = Nothing
|
||||
'
|
||||
'aUp_OfferIn
|
||||
'
|
||||
Me.aUp_OfferIn.Caption = "Up"
|
||||
Me.aUp_OfferIn.Category = "RecordsNavigation"
|
||||
Me.aUp_OfferIn.ConfirmationMessage = Nothing
|
||||
Me.aUp_OfferIn.Id = "aUp_OfferIn"
|
||||
Me.aUp_OfferIn.ImageName = "arrow_up_green"
|
||||
Me.aUp_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aUp_OfferIn.Shortcut = Nothing
|
||||
Me.aUp_OfferIn.Tag = Nothing
|
||||
Me.aUp_OfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aUp_OfferIn.TargetViewId = Nothing
|
||||
Me.aUp_OfferIn.ToolTip = Nothing
|
||||
Me.aUp_OfferIn.TypeOfView = Nothing
|
||||
'
|
||||
'aDown_OfferIn
|
||||
'
|
||||
Me.aDown_OfferIn.Caption = "Down"
|
||||
Me.aDown_OfferIn.Category = "RecordsNavigation"
|
||||
Me.aDown_OfferIn.ConfirmationMessage = Nothing
|
||||
Me.aDown_OfferIn.Id = "aDown_OfferIn"
|
||||
Me.aDown_OfferIn.ImageName = "arrow_down_green"
|
||||
Me.aDown_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aDown_OfferIn.Shortcut = Nothing
|
||||
Me.aDown_OfferIn.Tag = Nothing
|
||||
Me.aDown_OfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aDown_OfferIn.TargetViewId = Nothing
|
||||
Me.aDown_OfferIn.ToolTip = Nothing
|
||||
Me.aDown_OfferIn.TypeOfView = Nothing
|
||||
'
|
||||
'aOffersInFinal
|
||||
'
|
||||
Me.aOffersInFinal.Caption = "aOffersInFinal"
|
||||
Me.aOffersInFinal.Category = "RecordEdit"
|
||||
Me.aOffersInFinal.ConfirmationMessage = Nothing
|
||||
Me.aOffersInFinal.Id = "aOffersInFinal"
|
||||
Me.aOffersInFinal.ImageName = "MenuBar_SaveAndClose"
|
||||
Me.aOffersInFinal.Shortcut = Nothing
|
||||
Me.aOffersInFinal.Tag = Nothing
|
||||
Me.aOffersInFinal.TargetObjectsCriteria = Nothing
|
||||
Me.aOffersInFinal.TargetViewId = Nothing
|
||||
Me.aOffersInFinal.ToolTip = Nothing
|
||||
Me.aOffersInFinal.TypeOfView = Nothing
|
||||
'
|
||||
'aOffersIn_ChangeRows
|
||||
'
|
||||
Me.aOffersIn_ChangeRows.AcceptButtonCaption = Nothing
|
||||
Me.aOffersIn_ChangeRows.CancelButtonCaption = Nothing
|
||||
Me.aOffersIn_ChangeRows.Caption = "Change data in selected rows"
|
||||
Me.aOffersIn_ChangeRows.ConfirmationMessage = Nothing
|
||||
Me.aOffersIn_ChangeRows.Id = "aOffersIn_ChangeRows"
|
||||
Me.aOffersIn_ChangeRows.ImageName = "Action_EditModel"
|
||||
Me.aOffersIn_ChangeRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aOffersIn_ChangeRows.Shortcut = Nothing
|
||||
Me.aOffersIn_ChangeRows.Tag = Nothing
|
||||
Me.aOffersIn_ChangeRows.TargetObjectsCriteria = Nothing
|
||||
Me.aOffersIn_ChangeRows.TargetViewId = Nothing
|
||||
Me.aOffersIn_ChangeRows.ToolTip = Nothing
|
||||
Me.aOffersIn_ChangeRows.TypeOfView = Nothing
|
||||
'
|
||||
'aInsertServicesToOfferIN
|
||||
'
|
||||
Me.aInsertServicesToOfferIN.AcceptButtonCaption = Nothing
|
||||
Me.aInsertServicesToOfferIN.CancelButtonCaption = Nothing
|
||||
Me.aInsertServicesToOfferIN.Caption = "aInsert Services To Offer IN"
|
||||
Me.aInsertServicesToOfferIN.ConfirmationMessage = Nothing
|
||||
Me.aInsertServicesToOfferIN.Id = "aInsertServicesToOfferIN"
|
||||
Me.aInsertServicesToOfferIN.ImageName = Nothing
|
||||
Me.aInsertServicesToOfferIN.Shortcut = Nothing
|
||||
Me.aInsertServicesToOfferIN.Tag = Nothing
|
||||
Me.aInsertServicesToOfferIN.TargetObjectsCriteria = Nothing
|
||||
Me.aInsertServicesToOfferIN.TargetViewId = ""
|
||||
Me.aInsertServicesToOfferIN.ToolTip = Nothing
|
||||
Me.aInsertServicesToOfferIN.TypeOfView = Nothing
|
||||
'
|
||||
'aBackToRowEdit_OfferIn
|
||||
'
|
||||
Me.aBackToRowEdit_OfferIn.Caption = "Edit row"
|
||||
Me.aBackToRowEdit_OfferIn.Category = "aBackToRowEdit_OfferIn"
|
||||
Me.aBackToRowEdit_OfferIn.ConfirmationMessage = Nothing
|
||||
Me.aBackToRowEdit_OfferIn.Id = "aBackToRowEdit_OfferIn"
|
||||
Me.aBackToRowEdit_OfferIn.ImageName = Nothing
|
||||
Me.aBackToRowEdit_OfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aBackToRowEdit_OfferIn.Shortcut = Nothing
|
||||
Me.aBackToRowEdit_OfferIn.Tag = Nothing
|
||||
Me.aBackToRowEdit_OfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aBackToRowEdit_OfferIn.TargetViewId = ""
|
||||
Me.aBackToRowEdit_OfferIn.ToolTip = Nothing
|
||||
Me.aBackToRowEdit_OfferIn.TypeOfView = GetType(DevExpress.ExpressApp.View)
|
||||
'
|
||||
'aOfferIn_ChangeState
|
||||
'
|
||||
Me.aOfferIn_ChangeState.AcceptButtonCaption = Nothing
|
||||
Me.aOfferIn_ChangeState.CancelButtonCaption = Nothing
|
||||
Me.aOfferIn_ChangeState.Caption = "OfferIn Change State"
|
||||
Me.aOfferIn_ChangeState.ConfirmationMessage = Nothing
|
||||
Me.aOfferIn_ChangeState.Id = "aOfferIn_ChangeState"
|
||||
Me.aOfferIn_ChangeState.ImageName = Nothing
|
||||
Me.aOfferIn_ChangeState.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aOfferIn_ChangeState.Shortcut = Nothing
|
||||
Me.aOfferIn_ChangeState.Tag = Nothing
|
||||
Me.aOfferIn_ChangeState.TargetObjectsCriteria = Nothing
|
||||
Me.aOfferIn_ChangeState.TargetViewId = ""
|
||||
Me.aOfferIn_ChangeState.ToolTip = Nothing
|
||||
Me.aOfferIn_ChangeState.TypeOfView = Nothing
|
||||
'
|
||||
'aCloneOfferIn
|
||||
'
|
||||
Me.aCloneOfferIn.Caption = "aClone Offer In"
|
||||
Me.aCloneOfferIn.Category = "ObjectsCreation"
|
||||
Me.aCloneOfferIn.ConfirmationMessage = Nothing
|
||||
Me.aCloneOfferIn.Id = "aCloneOfferIn"
|
||||
Me.aCloneOfferIn.ImageName = Nothing
|
||||
Me.aCloneOfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCloneOfferIn.Shortcut = Nothing
|
||||
Me.aCloneOfferIn.Tag = Nothing
|
||||
Me.aCloneOfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aCloneOfferIn.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader)
|
||||
Me.aCloneOfferIn.TargetViewId = Nothing
|
||||
Me.aCloneOfferIn.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aCloneOfferIn.ToolTip = Nothing
|
||||
Me.aCloneOfferIn.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aPrintOfferIn
|
||||
'
|
||||
Me.aPrintOfferIn.Caption = "aPrint Offer In"
|
||||
Me.aPrintOfferIn.Category = "View"
|
||||
Me.aPrintOfferIn.ConfirmationMessage = Nothing
|
||||
Me.aPrintOfferIn.Id = "aPrintOfferIn"
|
||||
Me.aPrintOfferIn.ImageName = Nothing
|
||||
Me.aPrintOfferIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aPrintOfferIn.Shortcut = Nothing
|
||||
Me.aPrintOfferIn.Tag = Nothing
|
||||
Me.aPrintOfferIn.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintOfferIn.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader)
|
||||
Me.aPrintOfferIn.TargetViewId = Nothing
|
||||
Me.aPrintOfferIn.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aPrintOfferIn.ToolTip = Nothing
|
||||
Me.aPrintOfferIn.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aOfferIn_CreateDeliveryNoteIn
|
||||
'
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.AcceptButtonCaption = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.CancelButtonCaption = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.Caption = "aOfferIn_CreateDeliveryNoteIn"
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.Category = "ObjectsCreation"
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.ConfirmationMessage = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.Id = "aOfferIn_CreateDeliveryNoteIn"
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.ImageName = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.Shortcut = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.Tag = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.TargetObjectsCriteria = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader)
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.TargetViewId = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.ToolTip = Nothing
|
||||
Me.aOfferIn_CreateDeliveryNoteIn.TypeOfView = Nothing
|
||||
'
|
||||
'aOfferIn_RegenerateDEV
|
||||
'
|
||||
Me.aOfferIn_RegenerateDEV.AcceptButtonCaption = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.CancelButtonCaption = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.Caption = "aOfferIn_RegenerateDEV"
|
||||
Me.aOfferIn_RegenerateDEV.ConfirmationMessage = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.Id = "aOfferIn_RegenerateDEV"
|
||||
Me.aOfferIn_RegenerateDEV.ImageName = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.Shortcut = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.Tag = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.TargetObjectsCriteria = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader)
|
||||
Me.aOfferIn_RegenerateDEV.TargetViewId = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aOfferIn_RegenerateDEV.ToolTip = Nothing
|
||||
Me.aOfferIn_RegenerateDEV.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aOfferInHeader_AddOfferOutHeader
|
||||
'
|
||||
Me.aOfferInHeader_AddOfferOutHeader.AcceptButtonCaption = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.CancelButtonCaption = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.Caption = "aOfferInHeader_AddOfferOutHeader"
|
||||
Me.aOfferInHeader_AddOfferOutHeader.ConfirmationMessage = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.Id = "aOfferInHeader_AddOfferOutHeader"
|
||||
Me.aOfferInHeader_AddOfferOutHeader.ImageName = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.Shortcut = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.Tag = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.TargetObjectsCriteria = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.TargetObjectType = GetType(SISBusiness.[Module].OfferInHeader)
|
||||
Me.aOfferInHeader_AddOfferOutHeader.TargetViewId = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aOfferInHeader_AddOfferOutHeader.ToolTip = Nothing
|
||||
Me.aOfferInHeader_AddOfferOutHeader.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aTotableD_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aTotable_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aUp_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDown_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOffersInFinal As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOffersIn_ChangeRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aInsertServicesToOfferIN As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aBackToRowEdit_OfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOfferIn_ChangeState As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCloneOfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aPrintOfferIn As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aOfferIn_CreateDeliveryNoteIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aOfferIn_RegenerateDEV As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aOfferInHeader_AddOfferOutHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+165
@@ -0,0 +1,165 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aTotableD_OfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aTotable_OfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aUp_OfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aDown_OfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 524</value>
|
||||
</metadata>
|
||||
<metadata name="aOffersInFinal.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 485</value>
|
||||
</metadata>
|
||||
<metadata name="aOffersIn_ChangeRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aInsertServicesToOfferIN.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 407</value>
|
||||
</metadata>
|
||||
<metadata name="aBackToRowEdit_OfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aOfferIn_ChangeState.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aCloneOfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aPrintOfferIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aOfferIn_CreateDeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aOfferIn_RegenerateDEV.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aOfferInHeader_AddOfferOutHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>392, 284</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+751
@@ -0,0 +1,751 @@
|
||||
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.Persistent.Validation
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.ExpressApp.Reports
|
||||
Imports System.Linq
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
|
||||
Public Class OffersInVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected _selection As New ArrayList
|
||||
Protected _noselect As Boolean = False
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aInsertServicesToOfferIN.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "OfferInHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_NotEditable" Or _
|
||||
View.Id = "CRM_Opportunities_OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
|
||||
AddHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
|
||||
End If
|
||||
|
||||
If View.Id = "OfferInHeader_OfferInRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aInsertServicesToOfferIN.Active.SetItemValue("", True)
|
||||
AddHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "OfferInHeader_DetailView" Then
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
If _OfferInHeader IsNot Nothing Then
|
||||
If _OfferInHeader.IsEditable = False Then
|
||||
Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aBackToRowEdit_OfferIn.Active.SetItemValue("", False)
|
||||
Else
|
||||
Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aBackToRowEdit_OfferIn.Active.SetItemValue("", True)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of OffersInVC)().aPrintOfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC)().aCloneOfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "OfferInHeader_ListView_Editable" Then
|
||||
Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView" Then
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", False)
|
||||
RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
|
||||
End If
|
||||
If View.Id = "OfferInHeader_OfferInRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aOfferIn_ChangeState.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC).aUp_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aDown_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aOffersIn_ChangeRows.Active.SetItemValue("", False)
|
||||
RemoveHandler View.SelectionChanged, AddressOf OfferInHeader_OfferInRows_ListView_SelectionChanged
|
||||
|
||||
End If
|
||||
If View.Id = "OfferInHeader_DetailView" Then
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
If _OfferInHeader IsNot Nothing Then
|
||||
If _OfferInHeader.IsEditable = True Then
|
||||
Frame.GetController(Of OffersInVC).aOffersInFinal.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aTotable_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aTotableD_OfferIn.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of OffersInVC).aBackToRowEdit_OfferIn.Active.SetItemValue("", False)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If View.Id = "OfferInHeader_ListView_Subcontractor" Then
|
||||
Frame.GetController(Of OffersInVC)().aPrintOfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC)().aCloneOfferIn.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of OffersInVC)().aOfferIn_CreateDeliveryNoteIn.Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "DeliveryNoteInFromOffersInRowsHeader_DeliveryNoteInFromOffersInRowsRows_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.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "OfferOutHeader_ListView_OfferOutHeaderInHeader" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub OfferInHeader_OfferInRows_ListView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
If View Is Nothing Then Exit Sub
|
||||
If _noselect = False Then
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
_selection.Clear()
|
||||
For Each _OfferOutRows In View.SelectedObjects
|
||||
_selection.Add(_OfferOutRows)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotable_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_OfferIn.Execute
|
||||
'hozzáadás fejléchez
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader = CType(View.SelectedObjects(0), OfferInHeader)
|
||||
Dim _OfferInRows As OfferInRows
|
||||
|
||||
|
||||
_OfferInRows = _ocur.CreateObject(Of OfferInRows)()
|
||||
_OfferInRows.OfferInHeader = _OfferInHeader
|
||||
|
||||
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
|
||||
|
||||
_OfferInRows.AddRows(_OfferInHeader)
|
||||
_ocur.CommitChanges()
|
||||
|
||||
_OfferInHeader.row_Installation = Nothing
|
||||
_OfferInHeader.row_Products = Nothing
|
||||
_OfferInHeader.row_Units = Nothing
|
||||
_OfferInHeader.row_VAT = Nothing
|
||||
_OfferInHeader.row_ShortName = ""
|
||||
_OfferInHeader.row_QTT = 0
|
||||
_OfferInHeader.row_Description = ""
|
||||
_OfferInHeader.row_FinalPriceDEV = 0
|
||||
_OfferInHeader.row_FinalPriceHUF = 0
|
||||
_OfferInHeader.row_RowGroup1 = ""
|
||||
_OfferInHeader.row_RowGroup2 = ""
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aTotableD_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_OfferIn.Execute
|
||||
'sor törlése
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(e.SelectedObjects(0), OfferInHeader)
|
||||
Dim _OfferInRows_Collection As ArrayList = New ArrayList
|
||||
Dim _OfferInRows_ListPropertyEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("OfferInRows")
|
||||
|
||||
For Each _OfferInRows In _OfferInRows_ListPropertyEditor.ListView.SelectedObjects
|
||||
Dim _OfferInRows_Act As OfferInRows = _OfferInRows
|
||||
For Each _OfferInRows_ActHeader As OfferInRows In _OfferInHeader.OfferInRows
|
||||
If _OfferInRows_ActHeader.RowIndex > _OfferInRows_Act.RowIndex Then
|
||||
_OfferInRows_ActHeader.RowIndex -= 1
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
For Each _OfferInRows As OfferInRows In _OfferInRows_ListPropertyEditor.ListView.SelectedObjects
|
||||
_OfferInRows_Collection.Add(_OfferInRows)
|
||||
Next
|
||||
|
||||
_ocur.Delete(_OfferInRows_Collection)
|
||||
_ocur.CommitChanges()
|
||||
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aUp_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_OfferIn.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader
|
||||
Dim _OfferInRowsSelected As OfferInRows
|
||||
Dim _OfferInRowsMinus As OfferInRows
|
||||
Dim _OfferInRows As OfferInRows
|
||||
|
||||
Try
|
||||
_OfferInRowsSelected = TryCast(View.SelectedObjects(0), OfferInRows) ' Kiveszi a kijelölt sorok közül az elsõt
|
||||
_OfferInHeader = _OfferInRowsSelected.OfferInHeader
|
||||
Catch
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End Try
|
||||
|
||||
If _OfferInRowsSelected.RowIndex > 0 Then
|
||||
For Each _OfferInRows In _OfferInHeader.OfferInRows
|
||||
If _OfferInRows.RowIndex = _OfferInRowsSelected.RowIndex - 1 Then
|
||||
_OfferInRowsMinus = _OfferInRows
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _OfferInRowsMinus IsNot Nothing Then
|
||||
_OfferInRowsSelected.RowIndex -= 1
|
||||
_OfferInRowsMinus.RowIndex += 1
|
||||
End If
|
||||
_OfferInRowsMinus.Save()
|
||||
_OfferInRowsSelected.Save()
|
||||
_ocur.CommitChanges()
|
||||
'If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
' Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
'End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aDown_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_OfferIn.Execute
|
||||
'kiválasztott sort lejebb rendzei
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader
|
||||
Dim _OfferInRowsSelected As OfferInRows
|
||||
Dim _OfferInRowsMinus As OfferInRows
|
||||
Dim _OfferInRows As OfferInRows
|
||||
|
||||
Try
|
||||
_OfferInRowsSelected = TryCast(View.SelectedObjects(0), OfferInRows) ' Kiveszi a kijelölt sorok közül az elsõt
|
||||
_OfferInHeader = _OfferInRowsSelected.OfferInHeader
|
||||
Catch
|
||||
Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
|
||||
End Try
|
||||
|
||||
If _OfferInRowsSelected.RowIndex < _OfferInHeader.OfferInRows.Count - 1 Then
|
||||
For Each _OfferInRows In _OfferInHeader.OfferInRows
|
||||
If _OfferInRows.RowIndex = _OfferInRowsSelected.RowIndex + 1 Then
|
||||
_OfferInRowsMinus = _OfferInRows
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If _OfferInRowsMinus IsNot Nothing Then
|
||||
_OfferInRowsSelected.RowIndex += 1
|
||||
_OfferInRowsMinus.RowIndex -= 1
|
||||
End If
|
||||
_OfferInRowsMinus.Save()
|
||||
_OfferInRowsSelected.Save()
|
||||
_ocur.CommitChanges()
|
||||
'If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
' Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
'End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
'Private Sub aCloneOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneOfferIn.Execute
|
||||
' 'kivélasztott bejövõ megrendelés klónozása sorokkal...
|
||||
' Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
' Dim _OfferInHeader As OfferInHeader = _onew.GetObject(TryCast(e.SelectedObjects(0), OfferInHeader))
|
||||
' Dim _OfferInHeader_NEW As OfferInHeader = _onew.CreateObject(Of OfferInHeader)()
|
||||
' Dim _OfferInRows As OfferInRows
|
||||
|
||||
' 'Fejlés
|
||||
|
||||
' _OfferInHeader_NEW.Contact = _OfferInHeader.Contact
|
||||
' _OfferInHeader_NEW.CRM_Opportunities = _OfferInHeader.CRM_Opportunities
|
||||
' _OfferInHeader_NEW.CurrencyName = _OfferInHeader.CurrencyName
|
||||
' _OfferInHeader_NEW.Customers = _OfferInHeader.Customers
|
||||
' _OfferInHeader_NEW.CustomersFrom = _OfferInHeader.CustomersFrom
|
||||
' _OfferInHeader_NEW.DateCreated = _OfferInHeader.DateCreated
|
||||
' _OfferInHeader_NEW.DateExecution = _OfferInHeader.DateExecution
|
||||
' _OfferInHeader_NEW.DatePayment = _OfferInHeader.DatePayment
|
||||
' _OfferInHeader_NEW.Description = _OfferInHeader.Description
|
||||
' _OfferInHeader_NEW.DocumentBody = _OfferInHeader.DocumentBody
|
||||
' _OfferInHeader_NEW.OfferLOSTReasonDescription = _OfferInHeader.OfferLOSTReasonDescription
|
||||
' _OfferInHeader_NEW.PaymentOption = _OfferInHeader.PaymentOption
|
||||
' _OfferInHeader_NEW.QualityOption = _OfferInHeader.QualityOption
|
||||
' _OfferInHeader_NEW.DocumentNumber = ""
|
||||
' _OfferInHeader_NEW.IsEditable = True
|
||||
' _OfferInHeader_NEW.IsStorno = False
|
||||
|
||||
' _OfferInHeader_NEW.Save()
|
||||
|
||||
' 'sorok átpakolása
|
||||
' For Each _OfferInRows In _OfferInHeader.OfferInRows
|
||||
' Dim _OfferInRows_NEW As OfferInRows = _onew.CreateObject(Of OfferInRows)()
|
||||
|
||||
' _OfferInRows_NEW.OfferInHeader = _OfferInHeader_NEW
|
||||
' _OfferInRows_NEW.Description = _OfferInRows.Description
|
||||
' _OfferInRows_NEW.DescriptionPrivate = _OfferInRows.DescriptionPrivate
|
||||
' _OfferInRows_NEW.FinalPriceDEV = _OfferInRows.FinalPriceDEV
|
||||
' _OfferInRows_NEW.FinalPriceHUF = _OfferInRows.FinalPriceHUF
|
||||
' _OfferInRows_NEW.Installation = _OfferInRows.Installation
|
||||
' _OfferInRows_NEW.Product = _OfferInRows.Product
|
||||
' _OfferInRows_NEW.QTT = _OfferInRows.QTT
|
||||
' _OfferInRows_NEW.QualityOption = _OfferInRows.QualityOption
|
||||
' _OfferInRows_NEW.RowIndex = _OfferInRows.RowIndex
|
||||
' _OfferInRows_NEW.RowType = _OfferInRows.RowType
|
||||
' _OfferInRows_NEW.ShortName = _OfferInRows.ShortName
|
||||
' _OfferInRows_NEW.SumPriceDEV = _OfferInRows.SumPriceDEV
|
||||
' _OfferInRows_NEW.SumPriceHUF = _OfferInRows.SumPriceHUF
|
||||
|
||||
' _OfferInRows_NEW.Save()
|
||||
' Next
|
||||
|
||||
' e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _OfferInHeader_NEW)
|
||||
'End Sub 'Egykori CLONE action - R.IP
|
||||
Private Sub aOffersInFinal_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aOffersInFinal.Execute
|
||||
'Véglegesítés
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
|
||||
If _OfferInHeader IsNot Nothing Then
|
||||
If _OfferInHeader.DocumentNumber = "" Then
|
||||
_OfferInHeader.DocumentNumber = _OfferInHeader.OfferInParameters.NumberGenerator.GetNewNumber(_OfferInHeader.OfferInParameters.NumberGenerator)
|
||||
End If
|
||||
|
||||
_OfferInHeader.IsEditable = False
|
||||
_OfferInHeader.Save()
|
||||
_ocur.CommitChanges()
|
||||
Else
|
||||
Throw New UserFriendlyException("Nincs kiválasztott sor!")
|
||||
End If
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aOffersIn_ChangeRows_Cancel(sender As Object, e As System.EventArgs) Handles aOffersIn_ChangeRows.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aOffersIn_ChangeRows_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOffersIn_ChangeRows.CustomizePopupWindowParams
|
||||
_noselect = True
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OfferInRows_ChangeGroup As OfferInRows_ChangeGroup = _onew.CreateObject(Of OfferInRows_ChangeGroup)()
|
||||
If View.SelectedObjects.Count > 0 Then
|
||||
Dim _OfferInRows As OfferInRows = TryCast(View.SelectedObjects(0), OfferInRows)
|
||||
_OfferInRows_ChangeGroup.ShortName = _onew.GetObject(_OfferInRows.ShortName)
|
||||
_OfferInRows_ChangeGroup.Description = _onew.GetObject(_OfferInRows.Description)
|
||||
_OfferInRows_ChangeGroup.DescriptionPrivate = _onew.GetObject(_OfferInRows.DescriptionPrivate)
|
||||
_OfferInRows_ChangeGroup.QualityOption = _onew.GetObject(_OfferInRows.QualityOption)
|
||||
_OfferInRows_ChangeGroup.Units = _onew.GetObject(_OfferInRows.Units)
|
||||
_OfferInRows_ChangeGroup.VAT = _onew.GetObject(_OfferInRows.VAT)
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "OfferInRows_ChangeGroup_DetailView", False, _OfferInRows_ChangeGroup)
|
||||
Else
|
||||
Throw New UserFriendlyException("Nincs kijelölt elem!")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aOffersIn_ChangeRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOffersIn_ChangeRows.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInRows_ChangeGroup As OfferInRows_ChangeGroup = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferInRows_ChangeGroup)
|
||||
|
||||
For Each _OfferInRows As OfferInRows In _selection
|
||||
If _OfferInRows_ChangeGroup.Change_Description Then
|
||||
_OfferInRows.Description = _OfferInRows_ChangeGroup.Description
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_DescriptionPrivate Then
|
||||
_OfferInRows.DescriptionPrivate = _OfferInRows_ChangeGroup.DescriptionPrivate
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_QualityOption Then
|
||||
_OfferInRows.QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_OfferInRows_ChangeGroup.QualityOption.Oid)
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_ShortName Then
|
||||
_OfferInRows.ShortName = _OfferInRows_ChangeGroup.ShortName
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_Units Then
|
||||
_OfferInRows.Units = _ocur.GetObjectByKey(Of Units)(_OfferInRows_ChangeGroup.Units.Oid)
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_VAT Then
|
||||
_OfferInRows.VAT = _ocur.GetObjectByKey(Of VAT)(_OfferInRows_ChangeGroup.VAT.Oid)
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_RowGroup1 Then
|
||||
_OfferInRows.RowGroup1 = _OfferInRows_ChangeGroup.RowGroup1
|
||||
End If
|
||||
If _OfferInRows_ChangeGroup.Change_RowGroup2 Then
|
||||
_OfferInRows.RowGroup2 = _OfferInRows_ChangeGroup.RowGroup2
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aInsertServicesToOfferIN_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aInsertServicesToOfferIN.CustomizePopupWindowParams
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferInHeader)
|
||||
|
||||
If _OfferInHeader.IsEditable Then
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(Services))
|
||||
|
||||
e.View = Application.CreateListView("Services_ListView_Browse", _CollectionSource, False)
|
||||
Else
|
||||
'----------TESZT MIATT-----------------------------------------
|
||||
Throw New Exception("*A bejövő árajánlat végleges vagy stornó!")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aInsertServicesToOfferIN_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aInsertServicesToOfferIN.Execute
|
||||
'A popup-on kiválasztott szolgáltatásokból létrehoz bejövő árajánlati sorokat
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, OfferInHeader)
|
||||
Dim _Services As Services
|
||||
Dim _OfferInRows_New As OfferInRows
|
||||
|
||||
For Each _Services In e.PopupWindow.View.SelectedObjects
|
||||
_OfferInRows_New = _ocur.CreateObject(Of OfferInRows)()
|
||||
|
||||
_OfferInRows_New.RowType = eRowType.IsOther
|
||||
_OfferInRows_New.OfferInHeader = _OfferInHeader
|
||||
_OfferInRows_New.ShortName = _Services.ShortName
|
||||
_OfferInRows_New.Description = _Services.Description
|
||||
_OfferInRows_New.Units = _ocur.GetObject(_Services.Units)
|
||||
_OfferInRows_New.FinalPriceDEV = _Services.ListPriceDEV
|
||||
_OfferInRows_New.FinalPriceHUF = _Services.ListPriceHUF
|
||||
_OfferInRows_New.SumPriceDEV = _Services.ListPriceDEV
|
||||
_OfferInRows_New.SumPriceHUF = _Services.ListPriceHUF
|
||||
_OfferInRows_New.VAT = _ocur.GetObject(_Services.VAT)
|
||||
_OfferInRows_New.QTT = 1
|
||||
|
||||
'Indexelés
|
||||
If _OfferInHeader.OfferInRows.Count = 0 Then
|
||||
_OfferInRows_New.RowIndex = 0
|
||||
Else
|
||||
_OfferInRows_New.RowIndex = _OfferInHeader.OfferInRows.Count - 1
|
||||
End If
|
||||
|
||||
' _OfferInRows_New.Save()
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aBackToRowEdit_OfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_OfferIn.Execute
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("OfferInRows") 'Sorok összeszedése
|
||||
If _ListView IsNot Nothing Then
|
||||
If _ListView.ListView.SelectedObjects.Count > 0 Then
|
||||
Dim _OfferInRows As OfferInRows = _ListView.ListView.SelectedObjects(0)
|
||||
|
||||
_OfferInHeader.row_Description = _OfferInRows.Description
|
||||
_OfferInHeader.row_FinalPriceDEV = _OfferInRows.FinalPriceDEV
|
||||
_OfferInHeader.row_FinalPriceHUF = _OfferInRows.FinalPriceHUF
|
||||
_OfferInHeader.row_Installation = _OfferInRows.Installation
|
||||
_OfferInHeader.row_Products = _OfferInRows.Product
|
||||
_OfferInHeader.row_QTT = _OfferInRows.QTT
|
||||
_OfferInHeader.row_RowGroup1 = _OfferInRows.RowGroup1
|
||||
_OfferInHeader.row_RowGroup2 = _OfferInRows.RowGroup2
|
||||
_OfferInHeader.row_RowType = _OfferInRows.RowType
|
||||
_OfferInHeader.row_ShortName = _OfferInRows.ShortName
|
||||
_OfferInHeader.row_Units = _OfferInRows.Units
|
||||
_OfferInHeader.row_VAT = _OfferInRows.VAT
|
||||
|
||||
View.Refresh()
|
||||
Else
|
||||
Throw New Exception("*Nincs kiválasztott sor!")
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aOfferIn_ChangeState_Cancel(sender As Object, e As System.EventArgs) Handles aOfferIn_ChangeState.Cancel
|
||||
_noselect = False
|
||||
End Sub
|
||||
Private Sub aOfferIn_ChangeState_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferIn_ChangeState.CustomizePopupWindowParams
|
||||
_noselect = True
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OfferIn_ChangeState_PopUp As OfferIn_ChangeState_PopUp = _onew.CreateObject(Of OfferIn_ChangeState_PopUp)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "OfferIn_ChangeState_PopUp_DetailView", False, _OfferIn_ChangeState_PopUp)
|
||||
End Sub
|
||||
Private Sub aOfferIn_ChangeState_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferIn_ChangeState.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferIn_ChangeState_PopUp As OfferIn_ChangeState_PopUp = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferIn_ChangeState_PopUp)
|
||||
For Each _OfferInHeader As OfferInHeader In _selection
|
||||
_OfferInHeader.OfferInState = _ocur.GetObject(_OfferIn_ChangeState_PopUp.OfferInState)
|
||||
If _OfferIn_ChangeState_PopUp.OfferInState = eOfferInState.eClosedLOST Then
|
||||
_OfferInHeader.OfferLOSTReasonDescription = _OfferIn_ChangeState_PopUp.OfferLOSTReasonDescription
|
||||
_OfferInHeader.OfferLOSTReason = _ocur.GetObject(_OfferIn_ChangeState_PopUp.OfferLOSTReason)
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
_noselect = False
|
||||
End Sub
|
||||
|
||||
Private Sub aCloneOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCloneOfferIn.Execute
|
||||
'//Bejövő ajánlat klónozása a soraival együtt + DetailView benyitása mentés nélkül _onew-en
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OfferInHeader_Base As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
Dim _OfferInHeader As OfferInHeader
|
||||
Dim _OfferInRows As OfferInRows
|
||||
Dim _OfferInRows_Base As OfferInRows
|
||||
|
||||
If _OfferInHeader_Base IsNot Nothing Then
|
||||
|
||||
'//Fejléc klónozása
|
||||
_OfferInHeader = _onew.CreateObject(Of OfferInHeader)()
|
||||
_OfferInHeader.Contact = _onew.GetObject(_OfferInHeader_Base.Contact)
|
||||
_OfferInHeader.CRM_Opportunities = _onew.GetObject(_OfferInHeader_Base.CRM_Opportunities)
|
||||
_OfferInHeader.CurrencyName = _onew.GetObject(_OfferInHeader_Base.CurrencyName)
|
||||
_OfferInHeader.Customers = _onew.GetObject(_OfferInHeader_Base.Customers)
|
||||
_OfferInHeader.CustomersFrom = _onew.GetObject(_OfferInHeader_Base.CustomersFrom)
|
||||
|
||||
_OfferInHeader.DateDue = _OfferInHeader_Base.DateDue
|
||||
_OfferInHeader.DateExecution = _OfferInHeader_Base.DateExecution
|
||||
_OfferInHeader.DatePayment = _OfferInHeader_Base.DatePayment
|
||||
_OfferInHeader.Description = _OfferInHeader_Base.Description
|
||||
_OfferInHeader.IsEditable = True
|
||||
_OfferInHeader.IsStorno = False
|
||||
|
||||
_OfferInHeader.OfferInParameters = _onew.GetObject(_OfferInHeader_Base.OfferInParameters)
|
||||
_OfferInHeader.OfferInState = eOfferInState.eInProgress
|
||||
_OfferInHeader.PaymentOption = _onew.GetObject(_OfferInHeader_Base.PaymentOption)
|
||||
|
||||
For Each _OfferInRows_Base In _OfferInHeader_Base.OfferInRows
|
||||
_OfferInRows = _onew.CreateObject(Of OfferInRows)()
|
||||
_OfferInRows.Description = _OfferInRows_Base.Description
|
||||
_OfferInRows.DescriptionPrivate = _OfferInRows_Base.DescriptionPrivate
|
||||
_OfferInRows.FinalPriceDEV = _OfferInRows_Base.FinalPriceDEV
|
||||
_OfferInRows.FinalPriceHUF = _OfferInRows_Base.FinalPriceHUF
|
||||
_OfferInRows.Installation = _onew.GetObject(_OfferInRows_Base.Installation)
|
||||
_OfferInRows.OfferInHeader = _OfferInHeader
|
||||
_OfferInRows.Product = _onew.GetObject(_OfferInRows_Base.Product)
|
||||
_OfferInRows.QTT = _OfferInRows_Base.QTT
|
||||
_OfferInRows.QualityOption = _onew.GetObject(_OfferInRows_Base.QualityOption)
|
||||
_OfferInRows.RowGroup1 = _OfferInRows_Base.RowGroup1
|
||||
_OfferInRows.RowGroup2 = _OfferInRows_Base.RowGroup2
|
||||
_OfferInRows.RowIndex = _OfferInRows_Base.RowIndex
|
||||
_OfferInRows.RowType = _OfferInRows_Base.RowType
|
||||
_OfferInRows.ShortName = _OfferInRows_Base.ShortName
|
||||
_OfferInRows.Units = _onew.GetObject(_OfferInRows_Base.Units)
|
||||
_OfferInRows.VAT = _onew.GetObject(_OfferInRows_Base.VAT)
|
||||
Next
|
||||
|
||||
e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "OfferInHeader_DetailView", True, _OfferInHeader)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aPrintOfferIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintOfferIn.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader
|
||||
Dim _ReportData As ReportData
|
||||
|
||||
If e.SelectedObjects.Count > 0 Then
|
||||
_OfferInHeader = TryCast(e.SelectedObjects(0), OfferInHeader)
|
||||
|
||||
If _OfferInHeader IsNot Nothing Then
|
||||
_ReportData = _OfferInHeader.OfferInParameters.ReportData
|
||||
If _ReportData IsNot Nothing Then
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("OfferInHeader=?", _OfferInHeader), True)
|
||||
Else
|
||||
Throw New Exception("*Nincs nyomtatvány beállítva !")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aOfferIn_CreateDeliveryNoteIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferIn_CreateDeliveryNoteIn.CustomizePopupWindowParams
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
|
||||
Dim _OfferInRows As OfferInRows
|
||||
Dim _OfferInHeader As OfferInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OfferInHeader))
|
||||
Dim _DeliveryNoteInFromOffersInRowsHeader As New DeliveryNoteInFromOffersInRowsHeader(_onew.Session)
|
||||
Dim _QTT_Sum As Double = 0
|
||||
|
||||
_DeliveryNoteInFromOffersInRowsHeader.OfferInHeader = _OfferInHeader
|
||||
_DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.DateCreated = GetSQLTime(_onew.Session)
|
||||
|
||||
Dim _OfferInRows_XPQuery As New XPQuery(Of DeliveryNoteInRows)(_onew.Session)
|
||||
Dim query = From _DNIR In _OfferInRows_XPQuery
|
||||
Where _DNIR.OfferInRows.OfferInHeader Is _OfferInHeader
|
||||
Group _DNIR By _DNIR.OfferInRows Into g = Group _
|
||||
Select New With {Key .OfferInRows = OfferInRows,
|
||||
Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
|
||||
|
||||
For Each _OfferInRows In _OfferInHeader.OfferInRows
|
||||
_QTT_Sum = 0
|
||||
For Each item In query
|
||||
If item.OfferInRows.Oid = _OfferInRows.Oid Then
|
||||
_QTT_Sum = item.QTT_Sum
|
||||
End If
|
||||
Next
|
||||
|
||||
If _OfferInRows.QTT > _QTT_Sum Then
|
||||
Dim _DeliveryNoteInFromOffersInRowsRows As New DeliveryNoteInFromOffersInRowsRows(_onew.Session)
|
||||
|
||||
_DeliveryNoteInFromOffersInRowsRows.OfferInRows = _OfferInRows
|
||||
_DeliveryNoteInFromOffersInRowsRows.DeliveryNoteInFromOrderOutRowsHeader = _DeliveryNoteInFromOffersInRowsHeader
|
||||
_DeliveryNoteInFromOffersInRowsRows.QTT_Process = _OfferInRows.QTT - _QTT_Sum
|
||||
_DeliveryNoteInFromOffersInRowsRows.Save()
|
||||
End If
|
||||
Next
|
||||
|
||||
_DeliveryNoteInFromOffersInRowsHeader.Save()
|
||||
_onew.CommitChanges()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, _DeliveryNoteInFromOffersInRowsHeader, False)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aOfferIn_CreateDeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferIn_CreateDeliveryNoteIn.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _DeliveryNoteInHeader As New DeliveryNoteInHeader(_ocur.Session)
|
||||
Dim _DeliveryNoteInFromOffersInRowsHeader As DeliveryNoteInFromOffersInRowsHeader = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOffersInRowsHeader))
|
||||
Dim _DeliveryNoteInFromOffersInRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("DeliveryNoteInFromOffersInRowsRows")
|
||||
Dim _DeliveryNoteInType As DeliveryNoteInType = _ocur.GetObjectByKey(Of DeliveryNoteInType)(TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInFromOffersInRowsHeader).DeliveryNoteInType.Oid)
|
||||
|
||||
_DeliveryNoteInHeader.CurrencyName = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.CurrencyName
|
||||
_DeliveryNoteInHeader.CustomersFrom = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.CustomersFrom
|
||||
_DeliveryNoteInHeader.PaymentOption = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.PaymentOption
|
||||
_DeliveryNoteInHeader.QualityOption = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.QualityOption
|
||||
_DeliveryNoteInHeader.Customers = _DeliveryNoteInFromOffersInRowsHeader.OfferInHeader.Customers
|
||||
_DeliveryNoteInHeader.DeliveryNoteInType = _DeliveryNoteInType
|
||||
|
||||
|
||||
For _ik = 0 To _DeliveryNoteInFromOffersInRowsRows_ListEditor.ListView.SelectedObjects.Count - 1
|
||||
Dim _DeliveryNoteInRows As DeliveryNoteInRows = _ocur.CreateObject(Of DeliveryNoteInRows)()
|
||||
Dim _QTT_Process As Double = 0
|
||||
Dim _DeliveryNoteInFromOffersInRowsRows As DeliveryNoteInFromOffersInRowsRows = _ocur.GetObject(TryCast(_DeliveryNoteInFromOffersInRowsRows_ListEditor.ListView.SelectedObjects(_ik), DeliveryNoteInFromOffersInRowsRows))
|
||||
_QTT_Process = TryCast(_DeliveryNoteInFromOffersInRowsRows_ListEditor.ListView.SelectedObjects(_ik), DeliveryNoteInFromOffersInRowsRows).QTT_Process 'szándék
|
||||
|
||||
_DeliveryNoteInRows.DeliveryNoteInHeader = _DeliveryNoteInHeader
|
||||
_DeliveryNoteInRows.OfferInRows = _DeliveryNoteInFromOffersInRowsRows.OfferInRows
|
||||
_DeliveryNoteInRows.Products = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.Product
|
||||
_DeliveryNoteInRows.QTT = _QTT_Process
|
||||
|
||||
_DeliveryNoteInRows.VAT = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.Product.VAT
|
||||
_DeliveryNoteInRows.Units = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.Product.Units
|
||||
|
||||
|
||||
_DeliveryNoteInRows.ListPriceHUF = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.FinalPriceHUF
|
||||
_DeliveryNoteInRows.ListPriceDEV = _DeliveryNoteInFromOffersInRowsRows.OfferInRows.FinalPriceDEV
|
||||
|
||||
_DeliveryNoteInRows.DiscountPriceHUF = 0
|
||||
_DeliveryNoteInRows.DiscountPriceDEV = 0
|
||||
|
||||
_DeliveryNoteInRows.RowIndex = _ik + 1
|
||||
|
||||
'_DeliveryNoteInRows.Save()
|
||||
Next
|
||||
'_DeliveryNoteInHeader.Save()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ShowViewParameters As New ShowViewParameters
|
||||
Dim _ShowViewSource As New ShowViewSource(Frame, Nothing)
|
||||
|
||||
_ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, "DeliveryNoteInHeader_DetailView", False, _onew.GetObject(_DeliveryNoteInHeader))
|
||||
_ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild
|
||||
_ShowViewParameters.TargetWindow = TargetWindow.NewWindow
|
||||
Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub aOfferIn_RegenerateDEV_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aOfferIn_RegenerateDEV.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OfferIn_RegenerateDEV_Popup As OfferIn_RegenerateDEV_Popup = _onew.CreateObject(Of OfferIn_RegenerateDEV_Popup)()
|
||||
Dim _OfferInHeader As OfferInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), OfferInHeader))
|
||||
|
||||
Dim _CurrencyRate_Collection As New XPCollection(Of CurrencyRate)(_onew.Session, CriteriaOperator.Parse("CurrencyName=? and IsMNB=True", _OfferInHeader.CurrencyName))
|
||||
Dim _CurrencyRate As CurrencyRate
|
||||
_CurrencyRate_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
|
||||
|
||||
_OfferIn_RegenerateDEV_Popup.CurrencyName = _OfferInHeader.CurrencyName
|
||||
_OfferIn_RegenerateDEV_Popup.PriceMode = ePriceMode.eDEVToHUF
|
||||
|
||||
For Each _CurrencyRate In _CurrencyRate_Collection
|
||||
_OfferIn_RegenerateDEV_Popup.CurrencyRate = _CurrencyRate.RateAverage
|
||||
_OfferIn_RegenerateDEV_Popup.DateExecution = _CurrencyRate.DateValid
|
||||
Exit For
|
||||
Next
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "OfferIn_RegenerateDEV_Popup_DetailView", False, _OfferIn_RegenerateDEV_Popup)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aOfferIn_RegenerateDEV_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aOfferIn_RegenerateDEV.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader = _ocur.GetObject(TryCast(View.SelectedObjects(0), OfferInHeader))
|
||||
Dim _OfferIn_RegenerateDEV_Popup As OfferIn_RegenerateDEV_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), OfferIn_RegenerateDEV_Popup)
|
||||
Dim _OfferInRows As OfferInRows
|
||||
|
||||
For Each _OfferInRows In _OfferInHeader.OfferInRows
|
||||
If _OfferIn_RegenerateDEV_Popup.PriceMode = ePriceMode.eDEVToHUF Then
|
||||
_OfferInRows.FinalPriceHUF = Math.Round(_OfferInRows.FinalPriceDEV * _OfferIn_RegenerateDEV_Popup.CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
Else
|
||||
If _OfferIn_RegenerateDEV_Popup.CurrencyRate <> 0 Then
|
||||
_OfferInRows.FinalPriceDEV = Math.Round(_OfferInRows.FinalPriceHUF / _OfferIn_RegenerateDEV_Popup.CurrencyRate, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
Private Sub aOfferInHeader_AddOfferOutHeader_CustomizePopupWindowParams(sender As Object, e As CustomizePopupWindowParamsEventArgs) Handles aOfferInHeader_AddOfferOutHeader.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
|
||||
Dim _OfferOutHeader_CollectionSource As New CollectionSource(_onew, GetType(OfferOutHeader))
|
||||
|
||||
_OfferOutHeader_CollectionSource.BeginUpdateCriteria()
|
||||
_OfferOutHeader_CollectionSource.Criteria.Add("CRM", CriteriaOperator.Parse("CRM_Opportunities=?", _onew.GetObject(_OfferInHeader.CRM_Opportunities)))
|
||||
_OfferOutHeader_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("OfferOutHeader_ListView_OfferOutHeaderInHeader", _OfferOutHeader_CollectionSource, False)
|
||||
End Sub
|
||||
Private Sub aOfferInHeader_AddOfferOutHeader_Execute(sender As Object, e As PopupWindowShowActionExecuteEventArgs) Handles aOfferInHeader_AddOfferOutHeader.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _OfferInHeader As OfferInHeader = TryCast(View.SelectedObjects(0), OfferInHeader)
|
||||
|
||||
For Each _OfferOutHeader As OfferOutHeader In e.PopupWindow.View.SelectedObjects
|
||||
Dim _OfferOutHeaderInHeader As New OfferOutHeaderInHeader(_ocur.Session)
|
||||
With _OfferOutHeaderInHeader
|
||||
.OfferInHeader = _OfferInHeader
|
||||
.OfferOutHeader = _ocur.GetObject(_OfferOutHeader)
|
||||
End With
|
||||
Next
|
||||
|
||||
_ocur.CommitChanges()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user