From e1d61b834250dad379b7e9f1ae754222e76783ea Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 22 Oct 2024 15:32:53 +0200 Subject: [PATCH] Sendungsdetails --- Aviso/frmSendungsdetailsNEU.vb | 6 ------ Aviso/rCntrlVermerke.vb | 2 +- Aviso/usrcntlAktDetails.vb | 4 ++-- 3 files changed, 3 insertions(+), 9 deletions(-) diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 5ac3a16..2b41b12 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -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 diff --git a/Aviso/rCntrlVermerke.vb b/Aviso/rCntrlVermerke.vb index a6c5c2f..b3e3d74 100644 --- a/Aviso/rCntrlVermerke.vb +++ b/Aviso/rCntrlVermerke.vb @@ -142,7 +142,7 @@ Public Class rCntrlVermerke ' End If ' Next ' Catch ex As Exception - ' MsgBox("ERR") + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) ' End Try ' End Select 'End Sub diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index fc38aa8..971e907 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -1527,7 +1527,7 @@ Public Class usrcntlAktDetails ' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer! 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 Sub @@ -1547,7 +1547,7 @@ Public Class usrcntlAktDetails End If Next Catch ex As Exception - MsgBox("ERR") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Select End Sub