ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Jelölő adatok IsActive

Browse Source 
Mezőgazdaság termeltetés IsActive
Számviteli készletnél szállítólevél DateExecution
This commit is contained in:
ivanszabo
2018-03-12 10:53:58 +01:00
parent 50a572daf3
commit dd449f32d7
74 changed files with 355 additions and 202 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb
+13
View File
@@ -30,6 +30,7 @@ Public Class Storage '-- Raktárak ------------
Private _ReportInventory As ReportData '--Leltár nyomtatvány DataType InventorySIR
Private _DeliveryNoteOutType_InventoryTransfer As DeliveryNoteOutType '--Szállítólevél a raktárközi átadás hoz
Private _DeliveryNoteOutType_ReturnBack As DeliveryNoteOutType '--Szállítólevél a visszárúhoz
Private _IsActive As Boolean '-- Ha false, akkor NE hozza fel
Public Sub New(ByVal session As Session)
MyBase.New(session)
@@ -199,6 +200,18 @@ Public Class Storage '-- Raktárak ------------
SetPropertyValue("DeliveryNoteOutType_ReturnBack", _DeliveryNoteOutType_ReturnBack, value)
End Set
End Property
''' <summary>
''' Aktív akkor használható
''' </summary>
''' <returns></returns>
Property IsActive As Boolean
Get
Return _IsActive
End Get
Set(value As Boolean)
SetPropertyValue("IsActive", _IsActive, value)
End Set
End Property
'-------------ReadOnly--------------
<VisibleInListView(False)> _
Private ReadOnly Property CustomersFrom_Address As XPCollection(Of Address)
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageComputed.vb
+1
View File
@@ -48,6 +48,7 @@ Public Class StorageComputed '-- K
Me.RecalculateAveragePrice()
Me.RecalculateMinimumPrice()
End Sub
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.Designer.vb
Generated
+12 -49
View File
@@ -42,12 +42,7 @@ Partial Class StorageDateVC
Me.aGenerateStorageDate.Caption = "aGenerate Storage Date"
Me.aGenerateStorageDate.ConfirmationMessage = "Are you sure ?"
Me.aGenerateStorageDate.Id = "aGenerateStorageDate"
Me.aGenerateStorageDate.ImageName = Nothing
Me.aGenerateStorageDate.Shortcut = Nothing
Me.aGenerateStorageDate.Tag = Nothing
Me.aGenerateStorageDate.TargetObjectsCriteria = Nothing
Me.aGenerateStorageDate.TargetObjectType = GetType(Nuvolar.[Module].StorageDate)
Me.aGenerateStorageDate.TargetViewId = Nothing
Me.aGenerateStorageDate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aGenerateStorageDate.ToolTip = Nothing
Me.aGenerateStorageDate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
@@ -57,12 +52,7 @@ Partial Class StorageDateVC
Me.aGenerateStorageDateClearingPrice.Caption = "aGenerate Storage Date Clearing Price"
Me.aGenerateStorageDateClearingPrice.ConfirmationMessage = "Are you sure ?"
Me.aGenerateStorageDateClearingPrice.Id = "aGenerateStorageDateClearingPrice"
Me.aGenerateStorageDateClearingPrice.ImageName = Nothing
Me.aGenerateStorageDateClearingPrice.Shortcut = Nothing
Me.aGenerateStorageDateClearingPrice.Tag = Nothing
Me.aGenerateStorageDateClearingPrice.TargetObjectsCriteria = Nothing
Me.aGenerateStorageDateClearingPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aGenerateStorageDateClearingPrice.TargetViewId = Nothing
Me.aGenerateStorageDateClearingPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aGenerateStorageDateClearingPrice.ToolTip = Nothing
Me.aGenerateStorageDateClearingPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
@@ -74,44 +64,26 @@ Partial Class StorageDateVC
Me.aGenerateStorageDateClearingPrice_Products.Caption = "aGenerateStorageDateClearingPrice_Products"
Me.aGenerateStorageDateClearingPrice_Products.ConfirmationMessage = Nothing
Me.aGenerateStorageDateClearingPrice_Products.Id = "aGenerateStorageDateClearingPrice_Products"
Me.aGenerateStorageDateClearingPrice_Products.ImageName = Nothing
Me.aGenerateStorageDateClearingPrice_Products.Shortcut = Nothing
Me.aGenerateStorageDateClearingPrice_Products.Tag = Nothing
Me.aGenerateStorageDateClearingPrice_Products.TargetObjectsCriteria = Nothing
Me.aGenerateStorageDateClearingPrice_Products.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aGenerateStorageDateClearingPrice_Products.TargetViewId = Nothing
Me.aGenerateStorageDateClearingPrice_Products.ToolTip = Nothing
Me.aGenerateStorageDateClearingPrice_Products.TypeOfView = Nothing
'
'aStorageDateClearingPrice_ViewAttachments
'
Me.aStorageDateClearingPrice_ViewAttachments.Caption = "aStorageDateClearingPrice_ViewAttachments"
Me.aStorageDateClearingPrice_ViewAttachments.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.Id = "aStorageDateClearingPrice_ViewAttachments"
Me.aStorageDateClearingPrice_ViewAttachments.ImageName = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_ViewAttachments.Shortcut = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.Tag = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectsCriteria = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_ViewAttachments.TargetViewId = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.ToolTip = Nothing
Me.aStorageDateClearingPrice_ViewAttachments.TypeOfView = Nothing
'
'aStorageDateClearingPrice_DateAndValueReCalculate
'
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Caption = "aStorageDateClearingPrice_DateAndValueReCalculate"
Me.aStorageDateClearingPrice_DateAndValueReCalculate.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Id = "aStorageDateClearingPrice_DateAndValueReCalculate"
Me.aStorageDateClearingPrice_DateAndValueReCalculate.ImageName = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Shortcut = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.Tag = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectsCriteria = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetViewId = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.ToolTip = Nothing
Me.aStorageDateClearingPrice_DateAndValueReCalculate.TypeOfView = Nothing
'
'aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows
'
@@ -120,15 +92,10 @@ Partial Class StorageDateVC
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Caption = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Id = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ImageName = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Shortcut = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Tag = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectsCriteria = "IsNull(InvoiceRows)=False"
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetViewId = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ToolTip = Nothing
Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TypeOfView = Nothing
'
'aStorageDateClearingPrice_GeneterateDate2Date
'
@@ -137,14 +104,8 @@ Partial Class StorageDateVC
Me.aStorageDateClearingPrice_GeneterateDate2Date.Caption = "aStorageDateClearingPrice_GeneterateDate2Date"
Me.aStorageDateClearingPrice_GeneterateDate2Date.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.Id = "aStorageDateClearingPrice_GeneterateDate2Date"
Me.aStorageDateClearingPrice_GeneterateDate2Date.ImageName = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.Shortcut = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.Tag = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectsCriteria = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetViewId = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.ToolTip = Nothing
Me.aStorageDateClearingPrice_GeneterateDate2Date.TypeOfView = Nothing
'
'aStorageDateClearingPrice_SetSIRPrice
'
@@ -153,15 +114,10 @@ Partial Class StorageDateVC
Me.aStorageDateClearingPrice_SetSIRPrice.Caption = "aStorageDateClearingPrice_SetSIRPrice"
Me.aStorageDateClearingPrice_SetSIRPrice.ConfirmationMessage = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.Id = "aStorageDateClearingPrice_SetSIRPrice"
Me.aStorageDateClearingPrice_SetSIRPrice.ImageName = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
Me.aStorageDateClearingPrice_SetSIRPrice.Shortcut = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.Tag = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectsCriteria = "IsNull(StorageInRows)=False"
Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
Me.aStorageDateClearingPrice_SetSIRPrice.TargetViewId = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.ToolTip = Nothing
Me.aStorageDateClearingPrice_SetSIRPrice.TypeOfView = Nothing
'
'aSetBonusHUF
'
@@ -170,16 +126,23 @@ Partial Class StorageDateVC
Me.aSetBonusHUF.Caption = "aSet Bonus HUF"
Me.aSetBonusHUF.ConfirmationMessage = Nothing
Me.aSetBonusHUF.Id = "aSetBonusHUF"
Me.aSetBonusHUF.ImageName = Nothing
Me.aSetBonusHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
Me.aSetBonusHUF.Shortcut = Nothing
Me.aSetBonusHUF.Tag = Nothing
Me.aSetBonusHUF.TargetObjectsCriteria = Nothing
Me.aSetBonusHUF.TargetObjectType = GetType(Nuvolar.[Module].DeliveryNoteInRRFC)
Me.aSetBonusHUF.TargetViewId = Nothing
Me.aSetBonusHUF.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
Me.aSetBonusHUF.ToolTip = Nothing
Me.aSetBonusHUF.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
'
'StorageDateVC
'
Me.Actions.Add(Me.aGenerateStorageDate)
Me.Actions.Add(Me.aGenerateStorageDateClearingPrice)
Me.Actions.Add(Me.aGenerateStorageDateClearingPrice_Products)
Me.Actions.Add(Me.aStorageDateClearingPrice_ViewAttachments)
Me.Actions.Add(Me.aStorageDateClearingPrice_DateAndValueReCalculate)
Me.Actions.Add(Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows)
Me.Actions.Add(Me.aStorageDateClearingPrice_GeneterateDate2Date)
Me.Actions.Add(Me.aStorageDateClearingPrice_SetSIRPrice)
Me.Actions.Add(Me.aSetBonusHUF)
End Sub
Friend WithEvents aGenerateStorageDateClearingPrice As DevExpress.ExpressApp.Actions.SimpleAction
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx
+9 -9
View File
@@ -118,31 +118,31 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="aGenerateStorageDate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>17, 17</value>
</metadata>
<metadata name="aGenerateStorageDateClearingPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
<value>17, 56</value>
</metadata>
<metadata name="aGenerateStorageDateClearingPrice_Products.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
<value>455, 17</value>
</metadata>
<metadata name="aStorageDateClearingPrice_ViewAttachments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
<value>337, 95</value>
</metadata>
<metadata name="aStorageDateClearingPrice_DateAndValueReCalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
<value>17, 134</value>
</metadata>
<metadata name="aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
<value>264, 56</value>
</metadata>
<metadata name="aStorageDateClearingPrice_GeneterateDate2Date.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
<value>17, 95</value>
</metadata>
<metadata name="aStorageDateClearingPrice_SetSIRPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>430, 47</value>
<value>192, 17</value>
</metadata>
<metadata name="aSetBonusHUF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>361, 290</value>
<value>634, 95</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.vb
+13 -3
View File
@@ -58,7 +58,11 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 0
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
'_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
_StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
_StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
_StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -186,7 +190,10 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 0
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
'_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
_StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
_StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
_StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -614,7 +621,10 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 0
_StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
'_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
_StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
_StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
_StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageLocation.vb
+1
View File
@@ -43,6 +43,7 @@ Public Class StorageLocation
SetPropertyValue("ShortName", _ShortName, value)
End Set
End Property
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage
Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageMoveType.vb
+1
View File
@@ -32,6 +32,7 @@ Public Class StorageMoveType '-- Mozg
End Property
<RuleRequiredField("StorageMoveType-Storage", DefaultContexts.Save)>
<DataSourceCriteria("IsActive != False")>
Property Storage As Storage
Get
Return _Storage