edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sendungsdetails

Browse Source
This commit is contained in:
d.breimaier
2024-10-22 15:32:53 +02:00
parent 30f8d062e1
commit e1d61b8342
3 changed files with 3 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -101,7 +101,6 @@ Public Class frmSendungsdetailsNEU
cntlFrachtfuehrer_Sonst.special(False)
Try
For Each c In Panel6.Controls
If c.GetType.ToString = "AVISO.usrcntlCheckBox" Then
Dim cntlCbx As usrcntlCheckBox = DirectCast(c, usrcntlCheckBox)
@@ -5936,14 +5935,9 @@ Public Class frmSendungsdetailsNEU
Sub calculateFreightCosts()
Dim f = New frmFrachtkostenBerechnen()
f.UsrcntlFrachtkostenberechnung1.init(AvisoId, txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text, txtWarenwert._value)
If f.ShowDialog = DialogResult.OK Then
'txtFrachtkostenEU._value = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil
'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
End If