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

to és tonna figyelembevétele

Browse Source
This commit is contained in:
ivanszabo
2017-04-03 12:59:10 +02:00
parent 120b3e3cc3
commit 103f4650e1
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutRows.vb
+1 -1
View File
@@ -46,7 +46,7 @@ Public Class DeliveryNoteOutRows 'Szállítólevél sorok
Case eADRPackingUnit.eUnit_III Case eADRPackingUnit.eUnit_III
_ADRFactor = 1 _ADRFactor = 1
End Select End Select
If StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "to" Then If StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "to" Or StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "tonna" Then
ADRNumber = _ADRFactor * QTT * 1000 ADRNumber = _ADRFactor * QTT * 1000
Else Else
ADRNumber = _ADRFactor * QTT ADRNumber = _ADRFactor * QTT
Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/VAT/VATReportVC.vb
+2 -2
View File
@@ -771,7 +771,7 @@ Public Class VATReportVC
If _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows IsNot Nothing Then If _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows IsNot Nothing Then
If _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then If _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then
Select Case _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Units.ShortName Select Case _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Units.ShortName
Case "to" Case "to", "tonna"
_InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity
_InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Weight = _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.QTT * 1000 _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Weight = _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.QTT * 1000
_InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Save() _InvoiceRows_07.DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Save()
@@ -796,7 +796,7 @@ Public Class VATReportVC
For Each _StorageOutRowsInRows_07 In _InvoiceRows_07.StorageOutRowsInRows For Each _StorageOutRowsInRows_07 In _InvoiceRows_07.StorageOutRowsInRows
If _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows IsNot Nothing Then If _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows IsNot Nothing Then
Select Case _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Units.ShortName Select Case _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Units.ShortName
Case "to" Case "to", "tonna"
_StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity
_StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Weight = _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.QTT * 1000 _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Weight = _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.QTT * 1000
_StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Save() _StorageOutRowsInRows_07.StorageInRows.DeliveryNoteInRows.Save()