First create solution
This commit is contained in:
@@ -0,0 +1,905 @@
|
||||
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 eAPCStatus
|
||||
eRegistered = 0
|
||||
eSigned = 1
|
||||
eSendToBank = 2
|
||||
eSendToInsurrance = 3
|
||||
eAccepted = 4
|
||||
eReject = 5
|
||||
End Enum
|
||||
Public Enum ePaymentDiscipline
|
||||
eNotSet = 0
|
||||
eGood = 1
|
||||
eDay0_15 = 2
|
||||
eDay30_60 = 3
|
||||
eDay60to = 4
|
||||
End Enum
|
||||
Public Enum eIsNewContactNoWhy
|
||||
eNotSet = 0
|
||||
eDidNotKnow = 1 'Nem ismert minket
|
||||
eDidNotFund = 2 'Nem finanszírozott
|
||||
eOther = 3 'Egyéb
|
||||
End Enum
|
||||
Public Enum eBankPreQualificationState
|
||||
eNotSet = 0
|
||||
eAccept = 1
|
||||
aReject = 2
|
||||
End Enum
|
||||
Public Enum eSalespersonsProposal
|
||||
eSuggest = 0 'Javaslom
|
||||
eNotRecommended = 1 'Nem javaslom
|
||||
End Enum
|
||||
Public Enum eManagementAcceptType
|
||||
eNotSet = 0 'Nincs beállítva
|
||||
eHRPerson = 1 'Saját cég
|
||||
eManagement = 2 'Banki engedély
|
||||
End Enum
|
||||
Public Enum eManagementQualificationState
|
||||
eNotSet = 0 'Nincs beállítva
|
||||
eCreditental = 1 'Hitelezhetõ
|
||||
eNotCreditental = 2 'Nem hitelezhetõ
|
||||
End Enum
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False)> _
|
||||
<CreatableItem(False)> _
|
||||
<Appearance("APCSheetHeader - Disable DocumentNumber all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable TerritorialArea all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="TerritorialArea", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable ManagementDeferredPaymentDay all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ManagementDeferredPaymentDay", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable ManagementTerritorialArea all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ManagementTerritorialArea", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable SalesDeferredPaymentHUF all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="SalesDeferredPaymentHUF", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable APCStatus all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="APCStatus", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable ObjectCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable UserCreated all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable EconomyArea all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="EconomyArea", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable DeferredPaymentHUF all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeferredPaymentHUF", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable DeferredPaymentDay all time", AppearanceItemType.ViewItem, "1=1", TargetItems:="DeferredPaymentDay", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Disable DateSigned if APCStatus in (2,3,4)", AppearanceItemType.ViewItem, "APCStatus in (2,3,4)", TargetItems:="DateSigned", Enabled:=False)> _
|
||||
<Appearance("APCSheetHeader - Hide Description_Reject if APCStatus <> 5", AppearanceItemType.ViewItem, "APCStatus <> 5", TargetItems:="Description_Reject", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("APCSheetHeader - Hide ManagementAcceptPerson if ManagementAcceptType <> 1", AppearanceItemType.ViewItem, "ManagementAcceptType <> 1", TargetItems:="ManagementAcceptPerson", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("APCSheetHeader - Disable all properties, when APCStatus=4", AppearanceItemType.ViewItem, "APCStatus=4", TargetItems:="*", Enabled:=False)> _
|
||||
Public Class APCSheetHeader
|
||||
Inherits BaseObject
|
||||
Private _DocumentNumber As String
|
||||
Private _APCParameters As APCParameters
|
||||
Private _HRPerson As HRPerson
|
||||
Private _Customers As Customers
|
||||
Private _Contacts As Contacts 'Kapcsolat
|
||||
Private _ContactsWithFullRight As Contacts 'Tulajdonos / cégjegyzésre jogosult személy
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _CropProtectionSpecialist As Contacts 'Növényvédelmi szakember
|
||||
Private _ShortName As String
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
Private _APCStatus As eAPCStatus
|
||||
Private _PDFOriginal As FileData
|
||||
Private _PDFSigned As FileData
|
||||
|
||||
Private _IsNewContact As Boolean = True
|
||||
Private _IsNewContactNoWhy As eIsNewContactNoWhy 'Új kontakt miért
|
||||
Private _IsNewContactNoReason As String 'Új kontakt miért egyéb ok
|
||||
Private _PaymentDiscipline As ePaymentDiscipline 'Fizetési fegyelem
|
||||
Private _CleanerDryerMachinetype As String 'Tisztító szárító gép tipusa
|
||||
Private _CleanerDryerMachineCapacity As Double 'Kapacitása tonna / nap
|
||||
Private _ShipmentCapacityMachine As Long 'Szállítási kapacitás gép száma
|
||||
Private _ShipmentCapacityAmount As Double 'Szállítási kapacitás /tonna
|
||||
Private _StorageCapacitybyFlat As Double 'Sík tárolás /tonna
|
||||
Private _StorageCapacitybySilo As Double 'Siló tárolás /tonna
|
||||
|
||||
'------------------------------------------------
|
||||
Private _MachineryTractors As Long 'Traktorok szám
|
||||
Private _MachineryTillage As Long 'Talajmûvelõ gépek száma
|
||||
Private _MachineryHarvesting As Long 'Betakarító gép
|
||||
Private _MachineryFighting As Long 'Nõvényvédelmi gép
|
||||
Private _MachinerySeedDrill As Long 'Vetõgép
|
||||
Private _MachinerySpecial As Long ' Egyéb speciális gép
|
||||
|
||||
'------------------------------------------------
|
||||
Private _EconomyArea As Double 'Gazdaság nagysága
|
||||
Private _EconomyMajorCropsGrown As String 'Termesztett fõbb növények
|
||||
Private _EconomyAreaOwner As Double 'Saját tulajdon ebbõl
|
||||
Private _EconomyAreaRent As Double 'Bérelt ebbõl
|
||||
Private _EconomyActualYear As Long 'Gazdaság bemutatásához akutási év
|
||||
Private _EconomyPreviousYear As Long 'Gazdaság bemutatásához elõzõ év
|
||||
|
||||
'------------------------------------------------
|
||||
Private _MainCustomers As String 'Fõbb beszállítók
|
||||
Private _Description As String 'Egyéb megjegyzések
|
||||
|
||||
'------------------------------------------------
|
||||
Private _TerritorialArea As Double 'Üzletkötõ által javasolt terület
|
||||
Private _DeferredPaymentDay As Long 'Halasztott fizetés napra
|
||||
Private _DeferredPaymentHUF As Double 'Halasztott fizetés HUF ig
|
||||
Private _SalespersonsProposal As eSalespersonsProposal 'Üzletkötõ javaslata
|
||||
Private _SalesDeferredPaymentHUF As Double 'Creditmanager által engedélyezett fizetés HUF
|
||||
|
||||
'------------------------------------------------
|
||||
Private _BankPreQualificationState As eBankPreQualificationState 'Elõminõsítés
|
||||
Private _ManagementQualificationState As eManagementQualificationState 'Bank általi jóváhagyás
|
||||
Private _ManagementDeferredPaymentDay As Long 'Bank által engedélyezett halasztott fizetés napra
|
||||
Private _ManagementDeferredPaymentHUF As Double 'Bank által engedélyezett Halasztott fizetés HUF ig
|
||||
Private _ManagementTerritorialArea As Double 'Bank által engedélyezett Üzletkötõ által javasolt terület
|
||||
Private _ManagementAcceptDocument As FileData 'Engedélyezési okirat
|
||||
Private _SendToBankDate As Date 'Bankba küldés dátuma
|
||||
Private _ManagementAcceptType As eManagementAcceptType 'Ki engedélyezte Cofas vagy HRPerson
|
||||
Private _ManagementAcceptPerson As HRPerson 'Ha HRPerson engedélyezte, akkor kötelezõ beállítani és csak akkor látszik
|
||||
|
||||
Private _Activity As String 'Partner tevékenysége
|
||||
Private _ActivityStartDate As Date 'Tevékenység kezdete
|
||||
Private _IsPrivateCredit As Boolean 'Van-e magánszemélyként hiteltartozása
|
||||
Private _IsPrivateCreditAmountHUF As Double 'Hiteltartozás összege
|
||||
Private _OtherCompanyInfo As String 'Egyéb vállalkozásnak tagja-e és hol ?
|
||||
|
||||
Private _DateSigned As Date 'Aláírás Dátuma
|
||||
Private _Description_Reject As String ' Miért lett elutasítva?
|
||||
Private _APCSheetAdministrator As HRPerson 'Termeltetési szerzõdés ügyintézõje
|
||||
Private _APCSheetContractHandlingPlace As APCSheetContractHandlingPlace
|
||||
'-------------------------------------------
|
||||
'Reporthoz
|
||||
Private _MaxExpirationDate As Date
|
||||
Private _IsActive As Boolean
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
|
||||
APCStatus = eAPCStatus.eRegistered
|
||||
IsActive = True
|
||||
|
||||
If Session.IsNewObject(Me) Then
|
||||
Dim _APCSheetCreditClassificationFinancialRows As APCSheetCreditClassificationFinancialRows
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 1
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Pénzeszközök (összes bevétel-összes kiadás)"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 2
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Tárgyi eszközök nettó értéke"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 3
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Folyamatban lévõ beruházások értéke"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 4
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Forgóeszközök"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 5
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Készletek leltár szerinti értéke"
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 6
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Vevõkkel szembeni követelések"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 7
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Egyéb követelések"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 8
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Határidõn túli követelések"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 9
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Hosszú lejáratú kötelezettségek"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 10
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Szállítókkal szembeni kötelezettségek"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 11
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Adó és TB tartozás"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 12
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Egyéb rövid lejáratú kötelezettségek"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 13
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Hosszúlejáratú hitelek tárgyidõszaki törlesztése"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 14
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Nettó árbevétel"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 15
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Egyéb bevétel"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 16
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Adózás elõtti eredmény"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 17
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Adózott eredmény"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 18
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Fennálló összes hitel tipusú tartozás éves törlesztõ részlete"
|
||||
|
||||
_APCSheetCreditClassificationFinancialRows = New APCSheetCreditClassificationFinancialRows(Session)
|
||||
_APCSheetCreditClassificationFinancialRows.APCSheetHeader = Me
|
||||
_APCSheetCreditClassificationFinancialRows.RowIndex = 19
|
||||
_APCSheetCreditClassificationFinancialRows.ShortName = "Terv szerinti ÉCS leírás"
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = APCParameters.NumberGenerator.GetNewNumber(APCParameters.NumberGenerator)
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
'DeferredPaymentHUF = 0
|
||||
|
||||
'For Each _APCSheetByProducts As APCSheetByProducts In APCSheetByProducts
|
||||
' DeferredPaymentHUF += _APCSheetByProducts.FundingAmountHUF
|
||||
'Next
|
||||
|
||||
'SalesDeferredPaymentHUF = DeferredPaymentHUF
|
||||
|
||||
'EconomyArea = 0
|
||||
'TerritorialArea = 0
|
||||
'For Each _APCSheetPresentation As APCSheetPresentation In APCSheetPresentation
|
||||
' EconomyArea += _APCSheetPresentation.Area
|
||||
' TerritorialArea += _APCSheetPresentation.Area
|
||||
'Next
|
||||
'EconomyAreaOwner = 0
|
||||
'Dim _APCSheetByTerritorialOwner_Collection As New XPCollection(Of APCSheetByTerritorial)(Session, CriteriaOperator.Parse("APCSheetHeader=? AND OwnerState=0", Me))
|
||||
'If _APCSheetByTerritorialOwner_Collection.Count > 0 Then
|
||||
' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialOwner_Collection
|
||||
' EconomyAreaOwner += _APCSheetByTerritorial.Area
|
||||
' Next
|
||||
'End If
|
||||
'EconomyAreaRent = 0
|
||||
'Dim _APCSheetByTerritorialRent_Collection As New XPCollection(Of APCSheetByTerritorial)(Session, CriteriaOperator.Parse("APCSheetHeader=? AND (OwnerState=1 OR OwnerState=2)", Me))
|
||||
'If _APCSheetByTerritorialRent_Collection.Count > 0 Then
|
||||
' For Each _APCSheetByTerritorial As APCSheetByTerritorial In _APCSheetByTerritorialRent_Collection
|
||||
' EconomyAreaRent += _APCSheetByTerritorial.Area
|
||||
' Next
|
||||
'End If
|
||||
|
||||
'If DateSigned.Year = GetSQLTime(Session).Year Then
|
||||
' APCSheetByProducts.Sorting.Add(New SortProperty("ProductExpirationDate", DB.SortingDirection.Descending))
|
||||
' If Me.APCSheetByProducts.Count > 0 Then
|
||||
' Dim _MaxDate As Date = Me.APCSheetByProducts(0).ProductExpirationDate
|
||||
' Me.DeferredPaymentDay = CType((_MaxDate - DateSigned).Days, Long)
|
||||
' Else
|
||||
' Me.DeferredPaymentDay = 0
|
||||
' End If
|
||||
'End If
|
||||
'ManagementDeferredPaymentDay = DeferredPaymentDay
|
||||
End Sub
|
||||
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("APCSheetHeader - APCParameters", DefaultContexts.Save)> _
|
||||
Property APCParameters As APCParameters
|
||||
Get
|
||||
Return _APCParameters
|
||||
End Get
|
||||
Set(value As APCParameters)
|
||||
SetPropertyValue("APCParameters", _APCParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("APCSheetHeader - HRPerson", DefaultContexts.Save)> _
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("APCSheetHeader - Customers", DefaultContexts.Save)> _
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("Customers='@This.Customers'")>
|
||||
Property Contacts As Contacts
|
||||
Get
|
||||
Return _Contacts
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("Contacts", _Contacts, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("APCSheetHeader - ContactsWithFullRight", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("Customers='@This.Customers'")>
|
||||
Property ContactsWithFullRight As Contacts
|
||||
Get
|
||||
Return _ContactsWithFullRight
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("ContactsWithFullRight", _ContactsWithFullRight, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("APCSheetHeader - CropProtectionSpecialist", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceProperty("CropProtectionSpecialistList")>
|
||||
Property CropProtectionSpecialist As Contacts
|
||||
Get
|
||||
Return _CropProtectionSpecialist
|
||||
End Get
|
||||
Set(value As Contacts)
|
||||
SetPropertyValue("CropProtectionSpecialist", _CropProtectionSpecialist, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property APCStatus As eAPCStatus
|
||||
Get
|
||||
Return _APCStatus
|
||||
End Get
|
||||
Set(value As eAPCStatus)
|
||||
SetPropertyValue("APCStatus", _APCStatus, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PDFOriginal As FileData
|
||||
Get
|
||||
Return _PDFOriginal
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("PDFOriginal", _PDFOriginal, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PDFSigned As FileData
|
||||
Get
|
||||
Return _PDFSigned
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("PDFSigned", _PDFSigned, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property IsNewContact As Boolean
|
||||
Get
|
||||
Return _IsNewContact
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsNewContact", _IsNewContact, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsNewContactNoWhy As eIsNewContactNoWhy
|
||||
Get
|
||||
Return _IsNewContactNoWhy
|
||||
End Get
|
||||
Set(value As eIsNewContactNoWhy)
|
||||
SetPropertyValue("IsNewContactNoWhy", _IsNewContactNoWhy, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property IsNewContactNoReason As String
|
||||
Get
|
||||
Return _IsNewContactNoReason
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("IsNewContactNoReason", _IsNewContactNoReason, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PaymentDiscipline As ePaymentDiscipline
|
||||
Get
|
||||
Return _PaymentDiscipline
|
||||
End Get
|
||||
Set(value As ePaymentDiscipline)
|
||||
SetPropertyValue("PaymentDiscipline", _PaymentDiscipline, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)> _
|
||||
Property CleanerDryerMachinetype As String
|
||||
Get
|
||||
Return _CleanerDryerMachinetype
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("CleanerDryerMachinetype", _CleanerDryerMachinetype, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CleanerDryerMachineCapacity As Double
|
||||
Get
|
||||
Return _CleanerDryerMachineCapacity
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("CleanerDryerMachineCapacity", _CleanerDryerMachineCapacity, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShipmentCapacityMachine As Long
|
||||
Get
|
||||
Return _ShipmentCapacityMachine
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("ShipmentCapacityMachine", _ShipmentCapacityMachine, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShipmentCapacityAmount As Double
|
||||
Get
|
||||
Return _ShipmentCapacityAmount
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ShipmentCapacityAmount", _ShipmentCapacityAmount, value)
|
||||
End Set
|
||||
End Property
|
||||
Property StorageCapacitybyFlat As Double
|
||||
Get
|
||||
Return _StorageCapacitybyFlat
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("StorageCapacitybyFlat", _StorageCapacitybyFlat, value)
|
||||
End Set
|
||||
End Property
|
||||
Property StorageCapacitybySilo As Double
|
||||
Get
|
||||
Return _StorageCapacitybySilo
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("StorageCapacitybySilo", _StorageCapacitybySilo, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------------------------------------------
|
||||
Property MachineryTractors As Long
|
||||
Get
|
||||
Return _MachineryTractors
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("MachineryTractors", _MachineryTractors, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MachineryTillage As Long
|
||||
Get
|
||||
Return _MachineryTillage
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("MachineryTillage", _MachineryTillage, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MachineryHarvesting As Long
|
||||
Get
|
||||
Return _MachineryHarvesting
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("MachineryHarvesting", _MachineryHarvesting, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MachineryFighting As Long
|
||||
Get
|
||||
Return _MachineryFighting
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("MachineryFighting", _MachineryFighting, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MachinerySeedDrill As Long
|
||||
Get
|
||||
Return _MachinerySeedDrill
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("MachinerySeedDrill", _MachinerySeedDrill, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MachinerySpecial As Long
|
||||
Get
|
||||
Return _MachinerySpecial
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("MachinerySpecial", _MachinerySpecial, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------------------------------------------
|
||||
<RuleRequiredField("APCSheetHeader - EconomyArea", DefaultContexts.Save)> _
|
||||
Property EconomyArea As Double
|
||||
Get
|
||||
Return _EconomyArea
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("EconomyArea", _EconomyArea, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(800)> _
|
||||
Property EconomyMajorCropsGrown As String
|
||||
Get
|
||||
Return _EconomyMajorCropsGrown
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("EconomyMajorCropsGrown", _EconomyMajorCropsGrown, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EconomyAreaOwner As Double
|
||||
Get
|
||||
Return _EconomyAreaOwner
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("EconomyAreaOwner", _EconomyAreaOwner, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.EconomyArea = Me.EconomyAreaRent + value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property EconomyAreaRent As Double
|
||||
Get
|
||||
Return _EconomyAreaRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("EconomyAreaRent", _EconomyAreaRent, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.EconomyArea = Me.EconomyAreaOwner + value
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property EconomyActualYear As Long
|
||||
Get
|
||||
Return _EconomyActualYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("EconomyActualYear", _EconomyActualYear, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
EconomyPreviousYear = value - 1
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property EconomyPreviousYear As Long
|
||||
Get
|
||||
Return _EconomyPreviousYear
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("EconomyPreviousYear", _EconomyPreviousYear, value)
|
||||
End Set
|
||||
End Property
|
||||
'------------------------------------------------
|
||||
<Size(255)> _
|
||||
Property MainCustomers As String
|
||||
Get
|
||||
Return _MainCustomers
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("MainCustomers", _MainCustomers, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------------------------------------------
|
||||
Property TerritorialArea As Double
|
||||
Get
|
||||
Return _TerritorialArea
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("TerritorialArea", _TerritorialArea, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DeferredPaymentDay As Long
|
||||
Get
|
||||
Return _DeferredPaymentDay
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("DeferredPaymentDay", _DeferredPaymentDay, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DeferredPaymentHUF As Double
|
||||
Get
|
||||
Return _DeferredPaymentHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("DeferredPaymentHUF", _DeferredPaymentHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Property SalespersonsProposal() As eSalespersonsProposal
|
||||
Get
|
||||
Return _SalespersonsProposal
|
||||
End Get
|
||||
Set(ByVal value As eSalespersonsProposal)
|
||||
SetPropertyValue("SalespersonsProposal", _SalespersonsProposal, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SalesDeferredPaymentHUF As Double
|
||||
Get
|
||||
Return _SalesDeferredPaymentHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SalesDeferredPaymentHUF", _SalesDeferredPaymentHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------------------------------------------
|
||||
Property BankPreQualificationState As eBankPreQualificationState
|
||||
Get
|
||||
Return _BankPreQualificationState
|
||||
End Get
|
||||
Set(value As eBankPreQualificationState)
|
||||
SetPropertyValue("BankPreQualificationState", _BankPreQualificationState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ManagementQualificationState As eManagementQualificationState
|
||||
Get
|
||||
Return _ManagementQualificationState
|
||||
End Get
|
||||
Set(value As eManagementQualificationState)
|
||||
SetPropertyValue("ManagementQualificationState", _ManagementQualificationState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ManagementDeferredPaymentDay As Long
|
||||
Get
|
||||
Return _ManagementDeferredPaymentDay
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("ManagementDeferredPaymentDay", _ManagementDeferredPaymentDay, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ManagementDeferredPaymentHUF As Double
|
||||
Get
|
||||
Return _ManagementDeferredPaymentHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ManagementDeferredPaymentHUF", _ManagementDeferredPaymentHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ManagementTerritorialArea As Double
|
||||
Get
|
||||
Return _ManagementTerritorialArea
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ManagementTerritorialArea", _ManagementTerritorialArea, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ManagementAcceptDocument As FileData
|
||||
Get
|
||||
Return _ManagementAcceptDocument
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("ManagementAcceptDocument", _ManagementAcceptDocument, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SendToBankDate As Date
|
||||
Get
|
||||
Return _SendToBankDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("SendToBankDate", _SendToBankDate, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property ManagementAcceptType As eManagementAcceptType
|
||||
Get
|
||||
Return _ManagementAcceptType
|
||||
End Get
|
||||
Set(value As eManagementAcceptType)
|
||||
SetPropertyValue("ManagementAcceptType", _ManagementAcceptType, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("APCSheetHeader - ManagementAcceptPerson", DefaultContexts.Save, TargetCriteria:="ManagementAcceptType = 1")> _
|
||||
Property ManagementAcceptPerson As HRPerson
|
||||
Get
|
||||
Return _ManagementAcceptPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("ManagementAcceptPerson", _ManagementAcceptPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Activity As String
|
||||
Get
|
||||
Return _Activity
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Activity", _Activity, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ActivityStartDate As Date
|
||||
Get
|
||||
Return _ActivityStartDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ActivityStartDate", _ActivityStartDate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsPrivateCredit As Boolean
|
||||
Get
|
||||
Return _IsPrivateCredit
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsPrivateCredit", _IsPrivateCredit, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsPrivateCreditAmountHUF As Double
|
||||
Get
|
||||
Return _IsPrivateCreditAmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("IsPrivateCreditAmountHUF", _IsPrivateCreditAmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OtherCompanyInfo As String
|
||||
Get
|
||||
Return _OtherCompanyInfo
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("OtherCompanyInfo", _OtherCompanyInfo, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("APCSheetHeader - DateSigned", DefaultContexts.Save, TargetCriteria:="APCStatus <> 0")> _
|
||||
Property DateSigned() As Date
|
||||
Get
|
||||
Return _DateSigned
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateSigned", _DateSigned, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description_Reject As String
|
||||
Get
|
||||
Return _Description_Reject
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description_Reject", _Description_Reject, value)
|
||||
End Set
|
||||
End Property
|
||||
Property APCSheetAdministrator As HRPerson
|
||||
Get
|
||||
Return _APCSheetAdministrator
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("APCSheetAdministrator", _APCSheetAdministrator, value)
|
||||
End Set
|
||||
End Property
|
||||
Property APCSheetContractHandlingPlace As APCSheetContractHandlingPlace
|
||||
Get
|
||||
Return _APCSheetContractHandlingPlace
|
||||
End Get
|
||||
Set(value As APCSheetContractHandlingPlace)
|
||||
SetPropertyValue("APCSheetContractHandlingPlace", _APCSheetContractHandlingPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInDetailView(False)> _
|
||||
<VisibleInListView(False)> _
|
||||
<VisibleInLookupListView(False)> _
|
||||
Property MaxExpirationDate As Date
|
||||
Get
|
||||
Return _MaxExpirationDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("MaxExpirationDate", _MaxExpirationDate, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsActive As Boolean
|
||||
Get
|
||||
Return _IsActive
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsActive", _IsActive, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'-- Nonpersistent propertyk
|
||||
|
||||
|
||||
'--------------ReadOnly---------------
|
||||
<Association("APCSheetHeader-APCSheetByProducts", GetType(APCSheetByProducts)), VisibleInListView(False)> _
|
||||
<ImmediatePostData()> _
|
||||
ReadOnly Property APCSheetByProducts As XPCollection(Of APCSheetByProducts)
|
||||
Get
|
||||
Return GetCollection(Of APCSheetByProducts)("APCSheetByProducts")
|
||||
End Get
|
||||
End Property
|
||||
<Association("APCSheetHeader-APCSheetPresentation", GetType(APCSheetPresentation)), VisibleInListView(False)> _
|
||||
ReadOnly Property APCSheetPresentation As XPCollection(Of APCSheetPresentation)
|
||||
Get
|
||||
Return GetCollection(Of APCSheetPresentation)("APCSheetPresentation")
|
||||
End Get
|
||||
End Property
|
||||
<Association("APCSheetHeader-APCSheetByTerritorial", GetType(APCSheetByTerritorial)), VisibleInListView(False)> _
|
||||
ReadOnly Property APCSheetByTerritorial As XPCollection(Of APCSheetByTerritorial)
|
||||
Get
|
||||
Return GetCollection(Of APCSheetByTerritorial)("APCSheetByTerritorial")
|
||||
End Get
|
||||
End Property
|
||||
<Association("APCSheetHeader-APCSheetCreditClassificationAnimalRows", GetType(APCSheetCreditClassificationAnimalRows)), VisibleInListView(False)> _
|
||||
ReadOnly Property APCSheetCreditClassificationAnimalRows As XPCollection(Of APCSheetCreditClassificationAnimalRows)
|
||||
Get
|
||||
Return GetCollection(Of APCSheetCreditClassificationAnimalRows)("APCSheetCreditClassificationAnimalRows")
|
||||
End Get
|
||||
End Property
|
||||
<Association("APCSheetHeader-APCSheetCreditClassificationFinancialRows", GetType(APCSheetCreditClassificationFinancialRows)), VisibleInListView(False)> _
|
||||
ReadOnly Property APCSheetCreditClassificationFinancialRows As XPCollection(Of APCSheetCreditClassificationFinancialRows)
|
||||
Get
|
||||
Return GetCollection(Of APCSheetCreditClassificationFinancialRows)("APCSheetCreditClassificationFinancialRows")
|
||||
End Get
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Private ReadOnly Property CropProtectionSpecialistList As XPCollection(Of Contacts)
|
||||
Get
|
||||
Dim _CropProtectionSpecialistList_Collection As New XPCollection(Of Contacts)(Session, CriteriaOperator.Parse("IsNull(CropProtectionRegistrationNumber)=False"))
|
||||
|
||||
Return _CropProtectionSpecialistList_Collection
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property APCSheetReviewHeader As XPCollection(Of APCSheetReviewHeader)
|
||||
Get
|
||||
Return New XPCollection(Of APCSheetReviewHeader)(Session, CriteriaOperator.Parse("APCSheetByProducts.APCSheetHeader=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
Reference in New Issue
Block a user