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

2
Aviso/rCntrlVermerke.vb
View File

@@ -142,7 +142,7 @@ Public Class rCntrlVermerke
' End If ' End If
' Next ' Next
' Catch ex As Exception ' Catch ex As Exception
' MsgBox("ERR") ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try ' End Try
' End Select ' End Select
'End Sub 'End Sub

4
Aviso/usrcntlAktDetails.vb
View File

@@ -1527,7 +1527,7 @@ Public Class usrcntlAktDetails
' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer! ' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Sub End Sub
@@ -1547,7 +1547,7 @@ Public Class usrcntlAktDetails
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("ERR") VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
End Select End Select
End Sub End Sub