Egyéb javítások

This commit is contained in:
2018-03-28 17:35:45 +02:00
parent 1282db15ca
commit 0ac6bd19e7
8 changed files with 36 additions and 9 deletions
@@ -433,6 +433,7 @@ Public Class OrderInRows
End Get
End Property
'// Termeltetési szerződés miatt
<DataSourceCriteria("APCSheetHeader.Customers='@This.OrderInHeader.Customers' and APCSheetHeader.CustomersFrom='@This.OrderInHeader.CustomersFrom' and APCSheetHeader.IsActive = True")>
Property APCSheetByProducts As APCSheetByProducts
Get
Return _APCSheetByProducts
@@ -380,6 +380,7 @@ Public Class OrderInRowsOther 'Egyéb sorok
End Property
'// Termeltetési szerződés miatt
<DataSourceCriteria("APCSheetHeader.Customers='@This.OrderInHeader.Customers' and APCSheetHeader.CustomersFrom='@This.OrderInHeader.CustomersFrom' and APCSheetHeader.IsActive = True")>
Property APCSheetByProducts As APCSheetByProducts
Get
Return _APCSheetByProducts
@@ -84,7 +84,12 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 1
_StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then
_StorageDateClearingPrice.DateExecution = _InvoiceRows.DeliveryNoteOutRows.DeliveryNoteOutHeader.DateExecution
Else
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
End If
_StorageDateClearingPrice.InvoiceRows = _InvoiceRows
_StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
_StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
@@ -213,7 +218,11 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 1
_StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then
_StorageDateClearingPrice.DateExecution = _InvoiceRows.DeliveryNoteOutRows.DeliveryNoteOutHeader.DateExecution
Else
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
End If
_StorageDateClearingPrice.InvoiceRows = _InvoiceRows
_StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
_StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT
@@ -644,7 +653,11 @@ Public Class StorageDateVC
_StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
_StorageDateClearingPrice.RowIndex = 1
_StorageDateClearingPrice.CustomersFrom = _InvoiceRows.InvoiceHeader.CustomersFrom
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
If _InvoiceRows.DeliveryNoteOutRows IsNot Nothing Then
_StorageDateClearingPrice.DateExecution = _InvoiceRows.DeliveryNoteOutRows.DeliveryNoteOutHeader.DateExecution
Else
_StorageDateClearingPrice.DateExecution = _InvoiceRows.InvoiceHeader.DateExecution.Date
End If
_StorageDateClearingPrice.InvoiceRows = _InvoiceRows
_StorageDateClearingPrice.Products = _InvoiceRows.OrderInRows.Products
_StorageDateClearingPrice.QTT_Out = _InvoiceRows.QTT