Feature_Refactoring Gesamtsicherheiten

Aviso/frmGesamtsicherheiten.Designer.vb

@@ -834,6 +834,7 @@ Partial Class frmGesamtsicherheiten
         Me.MaximumSize = New System.Drawing.Size(1400, 815)
         Me.MinimumSize = New System.Drawing.Size(1400, 815)
         Me.Name = "frmGesamtsicherheiten"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "frmGesSich"
         CType(Me.dgvGesamtsicherheitMRN, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel2.ResumeLayout(False)

Aviso/frmGesamtsicherheiten.vb

@@ -53,7 +53,7 @@ Public Class frmGesamtsicherheiten
             LoadDGV()
         End If
         LoadStandort()
-        cboATR.Enabled = GesSichRef.ATR
+        cboATR.Enabled = GesSichRef.gsr_ATR
 
         Me.Text = "Gesamtsicherheit " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
@@ -61,62 +61,65 @@ Public Class frmGesamtsicherheiten
 
 
     Public Sub LoadDGV()
-        lblSaldo.Text = "Saldo: € " & GesSichRef.Saldo.ToString("N")
+        'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N")
+        lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
         lblGestellungNr.Text = ""
         Dim sqladd1 As String = ""
-        If GesSichRef.UstEnabled Then sqladd1 &= ", FORMAT(((Warenwert + Sicherheitsbetrag) * " & GesSichRef.Ust & "/100), 'C', 'de-DE') as Ust"
-        If GesSichRef.ATR Then sqladd1 &= ", ATRJN"
+        If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
+        If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
 
 
         Dim addtosqlstring As String = ""
-        Dim SQLStringMRN As String = "select GesamtSichID, Kennnummer, PosNr, DateTime, Warenwert, Sicherheitsbetrag, Saldo " & sqladd1 & " , Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & gessicherheitID & "' and Art = 'Open' order by DateTime"
+        Dim SQLStringMRN As String = "select [gs_gsId], [gs_kennNr], [gs_posNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Open' order by [gs_datum]"
         dgvGesamtsicherheitMRN.SET_SQL(SQLStringMRN, "AVISO", ,)
         dgvGesamtsicherheitMRN.LOAD()
 
-        Dim SQLStringCRN As String = "select GesamtSichID, Kennnummer, DateTime, Warenwert, Sicherheitsbetrag, Saldo, Freitext from [tblGesamtsicherheit] where GesamtsichNr = '" & gessicherheitID & "' and Art = 'Close' order by DateTime"
+        Dim SQLStringCRN As String = "select [gs_gsId], [gs_kennNr], [gs_datum],  [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo], [gs_freitext] from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "' and [gs_art] = 'Close' order by [gs_datum]"
         dgvGesamtsicherheitCRN.SET_SQL(SQLStringCRN, "AVISO", ,)
         dgvGesamtsicherheitCRN.LOAD()
 
-        Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where GesamtsichNr = '" & gessicherheitID & "'"
+        Dim StandortSqlString As String = "select * from [tblGesamtsicherheit] where [gs_gsNr] = '" & gessicherheitID & "'"
         Dim dt As New DataTable
         dt = SQL.loadDgvBySql(StandortSqlString, "AVISO", 100, True)
 
         If dt.Rows.Count > 0 Then
             'Me.GesamtsichNr = dt.Rows(0).Item("GesamtsichNr")
-            Me.FilialNummer = dt.Rows(0).Item("FilialNummer")
-            Me.Abfertigungsnummer = dt.Rows(0).Item("Abfertigungsnummer")
+            Me.FilialNummer = setNullToZero(dt.Rows(0).Item("gs_filialNr"))
+            Me.Abfertigungsnummer = setNullToZero(dt.Rows(0).Item("gs_abfertigungsNr"))
+            Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
 
-            If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer
-            If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "Abfertigungsnummer: " & Me.Abfertigungsnummer
+            If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
+            If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
+            If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
         End If
 
 
         If dgvGesamtsicherheitMRN.Columns.Count > 0 Then
             With dgvGesamtsicherheitMRN
                 .RowHeadersWidth = 10
-                .Columns("GesamtSichID").Visible = False
-                .Columns("Warenwert").DefaultCellStyle.Format = "c"
-                .Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c"
-                .Columns("Saldo").DefaultCellStyle.Format = "c"
-                .Columns("Saldo").Visible = False
-                Select Case GesSichRef.ATR
+                .Columns("gs_gsId").Visible = False
+                .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
+                .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
+                .Columns("gs_saldo").DefaultCellStyle.Format = "c"
+                .Columns("gs_saldo").Visible = False
+                Select Case GesSichRef.gsr_ATR
                     Case True
-                        .Columns("Kennnummer").HeaderText = "ATB"
-                        .Columns("AtrJN").HeaderText = "ATR"
-                        .Columns("AtrJN").Width = 33
-                        .Columns("Ust").Width = 69
+                        .Columns("gs_kennNr").HeaderText = "ATB"
+                        .Columns("gs_atr").HeaderText = "ATR"
+                        .Columns("gs_atr").Width = 33
+                        .Columns("gs_ust").Width = 69
                     Case Else
-                        .Columns("Kennnummer").HeaderText = "CRN"
+                        .Columns("gs_kennNr").HeaderText = "CRN"
                 End Select
-                .Columns("Kennnummer").Width = 146
+                .Columns("gs_kennNr").Width = 146
 
-                .Columns("PosNr").Width = 20
-                .Columns("DateTime").Width = 95
-                .Columns("Warenwert").Width = 100
-                .Columns("Saldo").Width = 100
+                .Columns("gs_posNr").Width = 20
+                .Columns("gs_datum").Width = 95
+                .Columns("gs_warenwert").Width = 100
+                .Columns("gs_saldo").Width = 100
 
-                .Columns("Sicherheitsbetrag").Width = 100
-                .Columns("Freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("gs_sicherheitsbetrag").Width = 100
+                .Columns("gs_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             End With
             ' For Each col As DataGridViewColumn In dgvGesamtsicherheitMRN.Columns
             'col.Width = 120
@@ -126,22 +129,22 @@ Public Class frmGesamtsicherheiten
         If dgvGesamtsicherheitCRN.Columns.Count > 0 Then
             With dgvGesamtsicherheitCRN
                 .RowHeadersWidth = 10
-                .Columns("GesamtSichID").Visible = False
-                .Columns("Warenwert").DefaultCellStyle.Format = "c"
-                .Columns("Sicherheitsbetrag").DefaultCellStyle.Format = "c"
-                .Columns("Saldo").DefaultCellStyle.Format = "c"
-                .Columns("Saldo").Visible = False
-                Select Case GesSichRef.ATR
+                .Columns("gs_gsId").Visible = False
+                .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
+                .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
+                .Columns("gs_saldo").DefaultCellStyle.Format = "c"
+                .Columns("gs_saldo").Visible = False
+                Select Case GesSichRef.gsr_ATR
                     Case True
-                        .Columns("Kennnummer").HeaderText = "ATC / MRN"
+                        .Columns("gs_kennNr").HeaderText = "ATC / MRN"
                     Case Else
-                        .Columns("Kennnummer").HeaderText = "CRN"
+                        .Columns("gs_kennNr").HeaderText = "CRN"
                 End Select
-                .Columns("Kennnummer").Width = 120
-                .Columns("DateTime").Width = 140
-                .Columns("Warenwert").Width = 100
-                .Columns("Sicherheitsbetrag").Width = 100
-                .Columns("Freitext").Width = 220
+                .Columns("gs_kennNr").Width = 120
+                .Columns("gs_datum").Width = 140
+                .Columns("gs_warenwert").Width = 100
+                .Columns("gs_sicherheitsbetrag").Width = 100
+                .Columns("gs_freitext").Width = 220
             End With
             'For Each col As DataGridViewColumn In dgvGesamtsicherheitCRN.Columns
             '    col.Width = 120
@@ -159,9 +162,10 @@ Public Class frmGesamtsicherheiten
         'Zollsatz = dt.Rows(0).Item("Zollsatz")
         'Referenzwert = dt.Rows(0).Item("Referenzwert")
 
-        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.Referenzwert.ToString("N")
-        lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%"
-        ZollsatzMulti = GesSichRef.Zollsatz / 100
+        'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
+        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
+        ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
     End Sub
 
 
@@ -184,7 +188,7 @@ Public Class frmGesamtsicherheiten
             Select Case sender.name
                 Case "txtMRNWarenwert"
                     txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
-                    If GesSichRef.UstEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.Ust / 100)
+                    If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100)
                 Case "txtCRNWarenwert"
                     txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N")
             End Select
@@ -243,60 +247,105 @@ Public Class frmGesamtsicherheiten
     Private Sub btnAddMRN_Click(sender As Object, e As EventArgs) Handles btnAddOpen.Click
         Try
 
-            Dim OPEN As New cSicherheiten(Me)
+            If Integer.Parse(setNullToZero(txtPos.Text)) > 1 Then
+
+                Dim limit As Integer = Integer.Parse(setNullToZero(txtPos.Text))
+
+                For count As Integer = 1 To limit
+
+                    Dim OPENNew As New cSicherheiten()
+                    setEnviromentDataToObject(OPENNew, Me)
+                    With OPENNew
+                        .gs_kennNr = txtMRN.Text
+                        .gs_posNr = count
+                        .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
+                        .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
+                        .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
+                        .gs_standort = Me.Standort
+                        .gs_art = "OPEN"
+                        .gs_gsNr = Me.gessicherheitID
+                        .gs_erstellungsdatum = Me.datum
+                        .gs_freitext = Me.txtFreitextOpen.Text
+                        .gs_saldo = GesSichRef.gsr_Saldo
+                        .gs_atr = setNullToZero(cboATR.SelectedItem)
+
+                    End With
+
+                    If Neu = True Then OPENNew.gs_gsNr = AddNewGesamtSichNr()
+
+                    Select Case checkIfExist(OPENNew.gs_kennNr, gessicherheitID)
+                        Case "Neu"
+                            OPENNew.SAVE()
+                        Case Else
+                            MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPENNew.gs_kennNr, gessicherheitID) & "eingetragen") : OPENNew.SAVE()
+                    End Select
+
+                    'AfterButton()
+
+
+                Next
+
+            End If
+
+            'Dim OPEN As New cSicherheiten(Me)
+            Dim OPEN As New cSicherheiten()
+            setEnviromentDataToObject(OPEN, Me)
             With OPEN
-                .Kennnummer = txtMRN.Text
-                .PosNr = Double.Parse(setNullToZero(txtPos.Text))
-                .datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
-                .Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
-                .Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
-                .standort = Me.Standort
-                .Art = "OPEN"
-                .GesamtsichNr = Me.gessicherheitID
-                .erstellungsdatum = Me.datum
-                .Freitext = Me.txtFreitextOpen.Text
-                .saldo = GesSichRef.Saldo
-                .isATR = setNullToZero(cboATR.SelectedItem)
+                .gs_kennNr = txtMRN.Text
+                .gs_posNr = Integer.Parse(setNullToZero(txtPos.Text))
+                .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
+                .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
+                .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
+                .gs_standort = Me.Standort
+                .gs_art = "OPEN"
+                .gs_gsNr = Me.gessicherheitID
+                .gs_erstellungsdatum = Me.datum
+                .gs_freitext = Me.txtFreitextOpen.Text
+                .gs_saldo = GesSichRef.gsr_Saldo
+                .gs_atr = setNullToZero(cboATR.SelectedItem)
             End With
 
-            If Neu = True Then OPEN.GesamtsichNr = AddNewGesamtSichNr()
 
-            Select Case checkIfExist(OPEN.Kennnummer, gessicherheitID)
+            If Neu = True Then OPEN.gs_gsNr = AddNewGesamtSichNr()
+
+            Select Case checkIfExist(OPEN.gs_kennNr, gessicherheitID)
                 Case "Neu"
-                    OPEN.Save()
+                    OPEN.SAVE()
                 Case Else
-                    MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.Kennnummer, gessicherheitID) & "eingetragen") : OPEN.Save()
+                    MsgBox("INFO: Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(OPEN.gs_kennNr, gessicherheitID) & "eingetragen") : OPEN.SAVE()
             End Select
 
+
             AfterButton()
         Catch ex As Exception
-            MsgBox(ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
 
     Private Sub btnAddCRN_Click(sender As Object, e As EventArgs) Handles btnAddClose.Click
         Try
-            Dim Close As New cSicherheiten(Me)
+            'Dim Close As New cSicherheiten(Me)
+            Dim Close As New cSicherheiten()
             With Close
-                .Kennnummer = txtCRN.Text
-                .datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
-                .Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
-                .Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
-                .standort = Me.Standort
-                .Art = "Close"
-                .GesamtsichNr = Me.gessicherheitID
-                .erstellungsdatum = Me.datum
-                .Freitext = Me.txtFreitextClose.Text
-                .saldo = GesSichRef.Saldo
+                .gs_kennNr = txtCRN.Text
+                .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
+                .gs_warenwert = Integer.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
+                .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
+                .gs_standort = Me.Standort
+                .gs_art = "CLOSE"
+                .gs_gsNr = Me.gessicherheitID
+                .gs_erstellungsdatum = Me.datum
+                .gs_freitext = Me.txtFreitextClose.Text
+                .gs_saldo = GesSichRef.gsr_Saldo
             End With
 
-            If Neu = True Then Close.GesamtsichNr = AddNewGesamtSichNr()
+            If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()
 
-            Select Case checkIfExist(Close.Kennnummer, gessicherheitID)
+            Select Case checkIfExist(Close.gs_kennNr, gessicherheitID)
                 Case "Neu"
-                    Close.Save()
+                    Close.SAVE()
                 Case Else
-                    MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.Kennnummer, gessicherheitID) & "eingetragen") : Exit Sub
+                    MsgBox("Dieser Eintrag wurde bereits bei GesamtsichNr " & checkIfExist(Close.gs_kennNr, gessicherheitID) & "eingetragen") : Exit Sub
             End Select
 
             AfterButton()
@@ -315,19 +364,25 @@ Public Class frmGesamtsicherheiten
             Return s
         End If
     End Function
-    Function AfterButton()
+    Sub AfterButton()
         GesSichRef.CalcSaldo()
         LoadDGV()
         EmptyTXT()
-    End Function
+    End Sub
 
     Public Function AddNewGesamtSichNr() As Integer
-        Dim sqlq As String = "select MAX([GesamtsichNr]) as MaxGesSich from tblGesamtsicherheit"
+        Dim sqlq As String = "select MAX([gs_gsNr]) as MaxGesSich from tblGesamtsicherheit"
         Dim dt As New DataTable
         dt = SQL.loadDgvBySql(sqlq, "AVISO", 100, True)
-        Dim LetzteGesSichNum As Integer = dt.Rows(0).Item(0)
-        Me.gessicherheitID = LetzteGesSichNum + 1
-        Me.Neu = False
+        Dim LetzteGesSichNum As Integer = -1
+        If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
+
+            LetzteGesSichNum = dt.Rows(0).Item(0)
+            Me.gessicherheitID = LetzteGesSichNum + 1
+            Me.Neu = False
+
+        End If
+
         Return Me.gessicherheitID
     End Function
 
@@ -339,14 +394,14 @@ Public Class frmGesamtsicherheiten
         cboATR.SelectedItem = Nothing
     End Sub
 
-    Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "")
+    Public Function checkIfExist(KennnummerStr As String, Optional ByVal lkw As String = "") As String
         If lkw = "" And Me.gessicherheitID > 0 Then lkw = gessicherheitID
 
-        Dim SQLString As String = "Select * from [tblGesamtsicherheit] where Kennnummer = '" & KennnummerStr & "'"
+        Dim SQLString As String = "Select * from [tblGesamtsicherheit] where [gs_kennNr] = '" & KennnummerStr & "'"
         Dim dt As New DataTable
         dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
         If dt.Rows.Count > 0 Then
-            Return dt.Rows(0).Item("GesamtsichNr").ToString
+            Return dt.Rows(0).Item("gs_gsNr").ToString
         Else
             Return "Neu"
         End If
@@ -369,24 +424,26 @@ Public Class frmGesamtsicherheiten
 
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click, btnSaveOben.Click
 
+        If checkMandatoryFieldsAreFilled() = False Then Exit Sub
+
         Try
             Me.FilialNummer = checkNothingValue(cboFiliale.SelectedItem, "Integer")
         Catch
             Me.FilialNummer = "0"
         End Try
 
-        If checkNothingValue(cboWarenort.SelectedItem, "String") Then
+        Try
+            Me.warenortID = checkNothingValue(cboWarenort.SelectedItem, "String")
 
-            Me.warenortID = cboWarenort.SelectedItem
-        Else
-            Me.warenortID = ""
-        End If
+        Catch
+            Me.warenortID = "-"
+        End Try
 
         Me.Abfertigungsnummer = txtAbfertNum.Text
         Me.LKWID = txtLKWID.Text
 
-        If setNullToZero(Me.gessicherheitID) > 0 Then
-            Dim sqlstring = "Update [tblGesamtsicherheit] set FilialNummer = '" & Me.FilialNummer & "', Abfertigungsnummer = '" & Me.Abfertigungsnummer & "', LKWID = '" & Me.LKWID & "' WHERE GesamtSichNr = '" & Me.gessicherheitID & "' "
+        If setNullToZero(Me.gessicherheitID) >= 0 Then
+            Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWID] = '" & Me.LKWID & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
             SQL.doSQL(sqlstring, "AVISO")
             LoadDGV()
         End If
@@ -395,7 +452,7 @@ Public Class frmGesamtsicherheiten
         panOverlay.Visible = False
     End Sub
 
-    Private Function checkNothingValue(obj As Object, Optional type As String = "String")
+    Private Function checkNothingValue(obj As Object, Optional type As String = "String") As Object
         Select Case type
             Case "String"
                 If obj Is Nothing Then
@@ -419,13 +476,13 @@ Public Class frmGesamtsicherheiten
         Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
         'Sicherh.Load(dgvGesamtsicherheitMRN.CurrentRow.Cells("GesamtSichID").Value)
 
-        txtMRN.Text = Sicherh.Kennnummer
-        txtPos.Text = Sicherh.PosNr
-        txtMRNWarenwert.Text = Sicherh.Warenwert
-        txtFreitextOpen.Text = Sicherh.freitext
-        cboATR.SelectedItem = Sicherh.isATR
-        txtMRNDate.Text = Sicherh.datum.ToString("dd.MM.yyyy")
-        txtMRNTime.Text = Sicherh.datum.ToString("HH:mm")
+        txtMRN.Text = Sicherh.gs_kennNr
+        txtPos.Text = Sicherh.gs_posNr
+        txtMRNWarenwert.Text = Sicherh.gs_warenwert
+        txtFreitextOpen.Text = Sicherh.gs_freitext
+        cboATR.SelectedItem = Sicherh.gs_atr
+        txtMRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
+        txtMRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
 
         openopened = Sicherh
 
@@ -436,18 +493,18 @@ Public Class frmGesamtsicherheiten
 
     Private Sub btnUpdateOpen_Click(sender As Object, e As EventArgs) Handles btnUpdateOpen.Click
         With openopened
-            .Kennnummer = txtMRN.Text
-            .PosNr = Double.Parse(setNullToZero(txtPos.Text))
-            .datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
-            .Warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
-            .Sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
-            .standort = Me.Standort
-            .Art = "OPEN"
-            .GesamtsichNr = Me.gessicherheitID
+            .gs_kennNr = txtMRN.Text
+            .gs_posNr = Double.Parse(setNullToZero(txtPos.Text))
+            .gs_datum = DateTimeString2DateTimeKonvertinator(txtMRNDate.Text, txtMRNTime.Text)
+            .gs_warenwert = Double.Parse(txtMRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
+            .gs_sicherheitsbetrag = Double.Parse(txtMRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
+            .gs_standort = Me.Standort
+            .gs_art = "OPEN"
+            .gs_gsNr = Me.gessicherheitID
             '.MakeDate = Me.MakeDate
-            .Freitext = Me.txtFreitextOpen.Text
+            .gs_freitext = Me.txtFreitextOpen.Text
             '.saldo = GesSichRef.Saldo
-            .isATR = setNullToZero(cboATR.SelectedItem)
+            .gs_atr = setNullToZero(cboATR.SelectedItem)
         End With
         openopened.Save()
         btnUpdateOpen.Visible = False
@@ -458,13 +515,13 @@ Public Class frmGesamtsicherheiten
 
     Private Sub btnDeleteClose_Click(sender As Object, e As EventArgs) Handles btnUpdateClose.Click
         With closedopened
-            .Kennnummer = txtCRN.Text
-            .datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
-            .Warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
-            .Sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
-            .standort = Me.Standort
-            .Art = "Close"
-            .Freitext = Me.txtFreitextClose.Text
+            .gs_kennNr = txtCRN.Text
+            .gs_datum = DateTimeString2DateTimeKonvertinator(txtCRNDate.Text, txtCRNTime.Text)
+            .gs_warenwert = Double.Parse(txtCRNWarenwert.Text) '.Replace(".", "").Replace(",", ".")
+            .gs_sicherheitsbetrag = Double.Parse(txtCRNSicherheitsbetrag.Text) '.Replace(".", "").Replace(",", ".")
+            .gs_standort = Me.Standort
+            .gs_art = "CLOSE"
+            .gs_freitext = Me.txtFreitextClose.Text
         End With
         closedopened.Save()
         btnAddClose.Visible = True
@@ -478,11 +535,11 @@ Public Class frmGesamtsicherheiten
         Dim Sicherh As New cSicherheiten(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
         'Sicherh.Load(dgvGesamtsicherheitCRN.CurrentRow.Cells("GesamtSichID").Value)
 
-        txtCRN.Text = Sicherh.Kennnummer
-        txtCRNWarenwert.Text = Sicherh.Warenwert
-        txtFreitextClose.Text = Sicherh.freitext
-        txtCRNDate.Text = Sicherh.datum.ToString("dd.MM.yyyy")
-        txtCRNTime.Text = Sicherh.datum.ToString("HH:mm")
+        txtCRN.Text = Sicherh.gs_kennNr
+        txtCRNWarenwert.Text = Sicherh.gs_warenwert
+        txtFreitextClose.Text = Sicherh.gs_freitext
+        txtCRNDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy")
+        txtCRNTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm")
 
         closedopened = Sicherh
 
@@ -519,6 +576,8 @@ Public Class frmGesamtsicherheiten
         panOverlay.Visible = True
         cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
         cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
+        cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+        cboWarenort.SelectedIndex = cboWarenort.FindString(Me.warenortID)
         txtAbfertNum.Text = Me.Abfertigungsnummer
         txtLKWID.Text = Me.LKWID
         panOben.Enabled = False
@@ -527,6 +586,30 @@ Public Class frmGesamtsicherheiten
     Private Sub btnClosePanOverlay_Click(sender As Object, e As EventArgs) Handles btnClosePanOverlay.Click
         Close()
     End Sub
+
+    Private Function checkMandatoryFieldsAreFilled() As Boolean
+        Dim isFilled = True
+
+        If cboWarenort._value = Nothing Or cboWarenort._value = "" Then
+
+            MsgBox("Bitte Warenort angeben!")
+            isFilled = False
+        End If
+
+        Return isFilled
+
+    End Function
+
+    Private Sub setEnviromentDataToObject(sicherheiten As cSicherheiten, Optional ByVal gessich As frmGesamtsicherheiten = Nothing)
+
+        sicherheiten.gs_filialNr = gessich.FilialNummer
+        sicherheiten.gs_abfertigungsnr = gessich.Abfertigungsnummer
+        sicherheiten.gs_LKWID = gessich.LKWID
+        sicherheiten.gs_warenort = gessich.warenortID
+        sicherheiten.SAVE()
+    End Sub
+
+
 End Class
 
 'Public Class cSicherheit
@@ -630,29 +713,29 @@ End Class
 
 'End Class
 
-'Public Class SQLEintraege
-'    Property Spalte As String
-'    Property Wert As String
-'    Public Sub New(_Spalte As String, _Wert As String)
-'        Spalte = _Spalte
-'        Wert = _Wert
-'    End Sub
+Public Class SQLEintraege
+    Property Spalte As String
+    Property Wert As String
+    Public Sub New(_Spalte As String, _Wert As String)
+        Spalte = _Spalte
+        Wert = _Wert
+    End Sub
 
-'    Public Shared Function LoadEntities(Obj As Object, dt As DataTable) As Object
-'        Try
-'            For Each prop As PropertyInfo In Obj.GetType().GetProperties()
-'                If dt.Rows(0).Item(prop.Name) IsNot Nothing And dt.Rows(0).Item(prop.Name) IsNot DBNull.Value Then
-'                    If dt.Rows(0).Item(prop.Name).GetType Is GetType(Decimal) Then
-'                        prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name)))
-'                    Else
-'                        prop.SetValue(Obj, dt.Rows(0).Item(prop.Name))
-'                    End If
+    Public Shared Function LoadEntities(Obj As Object, dt As DataTable) As Object
+        Try
+            For Each prop As PropertyInfo In Obj.GetType().GetProperties()
+                If dt.Rows(0).Item(prop.Name) IsNot Nothing And dt.Rows(0).Item(prop.Name) IsNot DBNull.Value Then
+                    If dt.Rows(0).Item(prop.Name).GetType Is GetType(Decimal) Then
+                        prop.SetValue(Obj, Double.Parse(dt.Rows(0).Item(prop.Name)))
+                    Else
+                        prop.SetValue(Obj, dt.Rows(0).Item(prop.Name))
+                    End If
 
-'                End If
-'            Next
-'            Return Obj
-'        Catch ex As Exception
-'            MsgBox(ex.Message)
-'        End Try
-'    End Function
-'End Class
+                End If
+            Next
+            Return Obj
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+End Class

Aviso/frmGesamtsicherheitenMenu.Designer.vb

@@ -116,10 +116,12 @@ Partial Class frmGesamtsicherheitenMenu
         Me.txtbis._DateTimeOnly = False
         Me.txtbis._numbersOnly = False
         Me.txtbis._numbersOnlyKommastellen = ""
+        Me.txtbis._numbersOnlyTrennzeichen = True
         Me.txtbis._Prozent = False
         Me.txtbis._ShortDateNew = False
         Me.txtbis._ShortDateOnly = False
         Me.txtbis._TimeOnly = False
+        Me.txtbis._TimeOnly_Seconds = False
         Me.txtbis._value = ""
         Me.txtbis._Waehrung = False
         Me.txtbis._WaehrungZeichen = True
@@ -137,10 +139,12 @@ Partial Class frmGesamtsicherheitenMenu
         Me.txtVon._DateTimeOnly = False
         Me.txtVon._numbersOnly = False
         Me.txtVon._numbersOnlyKommastellen = ""
+        Me.txtVon._numbersOnlyTrennzeichen = True
         Me.txtVon._Prozent = False
         Me.txtVon._ShortDateNew = False
         Me.txtVon._ShortDateOnly = False
         Me.txtVon._TimeOnly = False
+        Me.txtVon._TimeOnly_Seconds = False
         Me.txtVon._value = ""
         Me.txtVon._Waehrung = False
         Me.txtVon._WaehrungZeichen = True
@@ -257,7 +261,7 @@ Partial Class frmGesamtsicherheitenMenu
         Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
         Me.lblZollsatz.Location = New System.Drawing.Point(295, 86)
         Me.lblZollsatz.Name = "lblZollsatz"
-        Me.lblZollsatz.Size = New System.Drawing.Size(86, 16)
+        Me.lblZollsatz.Size = New System.Drawing.Size(85, 16)
         Me.lblZollsatz.TabIndex = 9
         Me.lblZollsatz.Text = "Zollsatz: 12%"
         '
@@ -269,7 +273,7 @@ Partial Class frmGesamtsicherheitenMenu
         Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
         Me.lblReferenzwert.Location = New System.Drawing.Point(295, 59)
         Me.lblReferenzwert.Name = "lblReferenzwert"
-        Me.lblReferenzwert.Size = New System.Drawing.Size(137, 16)
+        Me.lblReferenzwert.Size = New System.Drawing.Size(136, 16)
         Me.lblReferenzwert.TabIndex = 6
         Me.lblReferenzwert.Text = "Referenzwert: €80.000"
         '
@@ -277,15 +281,15 @@ Partial Class frmGesamtsicherheitenMenu
         '
         Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportCSVToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(132, 26)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(133, 26)
         '
         'ExportCSVToolStripMenuItem
         '
         Me.ExportCSVToolStripMenuItem.Name = "ExportCSVToolStripMenuItem"
-        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(131, 22)
+        Me.ExportCSVToolStripMenuItem.Size = New System.Drawing.Size(132, 22)
         Me.ExportCSVToolStripMenuItem.Text = "Export CSV"
         '
-        'frmGesSichMenu
+        'frmGesamtsicherheitenMenu
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -295,7 +299,8 @@ Partial Class frmGesamtsicherheitenMenu
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MaximumSize = New System.Drawing.Size(800, 760)
         Me.MinimumSize = New System.Drawing.Size(499, 760)
-        Me.Name = "frmGesSichMenu"
+        Me.Name = "frmGesamtsicherheitenMenu"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "frmGesSichMenu"
         CType(Me.dgvListe, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)

Aviso/frmGesamtsicherheitenMenu.vb

@@ -16,7 +16,7 @@ Public Class frmGesamtsicherheitenMenu
     Private Sub frmGesamtsicherheiten_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Text = "Gesamtsicherheiten " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
-        Dim GesSichRef As New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+        GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
         'GesSichRef.LOAD("standort", Standort)
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
 
@@ -25,13 +25,13 @@ Public Class frmGesamtsicherheitenMenu
 
         txtVon.Text = Date.Today.AddDays(-30).ToString("dd.MM.yyyy")
         txtbis.Text = Date.Today.ToString("dd.MM.yyyy")
-        ShowStandort()
+        'ShowStandort()
         LoadDGV()
     End Sub
 
     Public Function LoadDGV()
         Dim sqladdon As String = ""
-        If chkOffen.Checked Then sqladdon &= " AND Sicherheitssaldo != '0,00 €'"
+        If chkOffen.Checked Then sqladdon &= " AND gs_Sicherheitssaldo != '0,00 €'"
 
         '        Dim sqlstring As String = "select * from (Select GesamtsichNr, MIN(Standort) as Standort, MIN(FilialNummer) as FilialNummer,  min(Abfertigungsnummer) as Abfertigungsnummer,
         'max(LKWID) as LKWID, min (MakeDate) as Datum, FORMAT(SUM( 
@@ -46,22 +46,22 @@ Public Class frmGesamtsicherheitenMenu
         'order by GesamtsichNr"
 
         Dim sqlstring As String =
-            " select * from (Select gs_gesamtsichnr, MIN(gs_standort) as Standort, MIN(gs_filialNr) as FilialNummer, min(gs_abfertigungsNr) as Abfertigungsnummer,
-                max(gs_LKWID) as LKWID, min (gs_datum) as Datum, FORMAT(SUM( 
+            " select * from (Select gs_gsNr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_filialNr) as gs_filialNr, min(gs_abfertigungsNr) as gs_abfertigungsNr,
+                max(gs_LKWID) as gs_LKWID, min (gs_datum) as gs_datum, FORMAT(SUM( 
             Case 
 	            when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
 	            when gs_art = 'Close' then gs_sicherheitsbetrag
-            End) , 'C', 'de-DE')As SicherheitsSaldo
+            End) , 'C', 'de-DE')As gs_SicherheitsSaldo
 
             From (select * from (select gs_gsNr as ding from [tblGesamtsicherheit] where 
                 gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
-                gs_abfertigungsnummer like '%" & txtSuchbegriff.Text & "%' OR
+                gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
                 gs_kennNr like '%" & txtSuchbegriff.Text & "%' OR
                 gs_LKWID like '%" & txtSuchbegriff.Text & "%' 
-            ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.GesamtsichNr) as meh group by GesamtsichNr) as meh2
-            Where Standort = '" & Standort & "' " & sqladdon & "
-            AND Datum > '" & Date.Parse(txtVon.Text) & "'
-            AND Datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'"
+            ) as tb1 left join [tblGesamtsicherheit] as tb2 on tb1.ding = tb2.gs_gsNr) as meh group by gs_gsNr) as meh2
+            Where gs_standort = '" & Standort & "' " & sqladdon & "
+            AND gs_datum > '" & Date.Parse(txtVon.Text) & "'
+            AND gs_datum < '" & Date.Parse(txtbis.Text).AddDays(1).AddSeconds(-1) & "'"
 
         dgvListe.SET_SQL(sqlstring, "AVISO")
         dgvListe.LOAD()
@@ -69,19 +69,19 @@ Public Class frmGesamtsicherheitenMenu
         With dgvListe
             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
             .RowHeadersWidth = 6
-            .Columns("Standort").Visible = False
-            .Columns("GesamtsichNr").HeaderText = "#"
-            .Columns("GesamtsichNr").Width = 36
-            .Columns("Filialnummer").HeaderText = "Filiale"
-            .Columns("Filialnummer").Width = 43
-            .Columns("Abfertigungsnummer").HeaderText = "Abfert.Nr."
-            .Columns("Abfertigungsnummer").Width = 107
-            .Columns("Datum").Width = 112
-            .Columns("SicherheitsSaldo").Width = 96
+            .Columns("gs_standort").Visible = False
+            .Columns("gs_gsnr").HeaderText = "#"
+            .Columns("gs_gsnr").Width = 36
+            .Columns("gs_filialNr").HeaderText = "Filiale"
+            .Columns("gs_filialNr").Width = 43
+            .Columns("gs_abfertigungsNr").HeaderText = "Abfert.Nr."
+            .Columns("gs_abfertigungsNr").Width = 107
+            .Columns("gs_datum").Width = 112
+            .Columns("gs_SicherheitsSaldo").Width = 96
         End With
 
         For Each row As DataGridViewRow In dgvListe.Rows
-            If row.Cells("SicherheitsSaldo").Value <> 0 Then
+            If row.Cells("gs_SicherheitsSaldo").Value <> 0 Then
                 row.DefaultCellStyle.BackColor = Color.Red
             Else
                 row.DefaultCellStyle.BackColor = Color.Green
@@ -91,8 +91,9 @@ Public Class frmGesamtsicherheitenMenu
     End Function
 
     Public Sub ShowStandort()
-        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.referenzwert.ToString("N")
-        lblZollsatz.Text = "Zollsatz: " & GesSichRef.Zollsatz & "%"
+        'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
+        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
     End Sub
 
@@ -103,12 +104,12 @@ Public Class frmGesamtsicherheitenMenu
         Dim frm As New frmGesamtsicherheiten
         With frm
             .GesSichRef = GesSichRef
-            .gessicherheitID = dgvListe.CurrentRow.Cells("GesamtsichNr").Value
+            .gessicherheitID = dgvListe.CurrentRow.Cells("gs_gsnr").Value
             .Standort = Me.Standort
-            .datum = dgvListe.CurrentRow.Cells("Datum").Value
-            .LKWID = dgvListe.CurrentRow.Cells("LKWID").Value
-            .FilialNummer = dgvListe.CurrentRow.Cells("FilialNummer").Value
-            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("Abfertigungsnummer").Value
+            .datum = dgvListe.CurrentRow.Cells("gs_datum").Value
+            .LKWID = dgvListe.CurrentRow.Cells("gs_LKWID").Value
+            .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialNr").Value
+            .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
         End With
 
         AddHandler frm.FormClosing, Function()

Aviso/frmSendungsdetailsNEU.Designer.vb

@@ -114,9 +114,9 @@ Partial Class frmSendungsdetailsNEU
         Me.pnlDetails = New System.Windows.Forms.Panel()
         Me.tbcntr = New System.Windows.Forms.TabControl()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.Button18 = New System.Windows.Forms.Button()
-        Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label10 = New System.Windows.Forms.Label()
+        Me.btn_FrachtkostenBerechnen = New System.Windows.Forms.Button()
+        Me.txtFrachtkostenGesamt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtFrachtkostenNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -1503,7 +1503,7 @@ Partial Class frmSendungsdetailsNEU
         'TabPage4
         '
         Me.TabPage4.Controls.Add(Me.Label10)
-        Me.TabPage4.Controls.Add(Me.Button18)
+        Me.TabPage4.Controls.Add(Me.btn_FrachtkostenBerechnen)
         Me.TabPage4.Controls.Add(Me.txtFrachtkostenGesamt)
         Me.TabPage4.Controls.Add(Me.Label6)
         Me.TabPage4.Controls.Add(Me.Label1)
@@ -1543,15 +1543,25 @@ Partial Class frmSendungsdetailsNEU
         Me.TabPage4.Text = "Aktendeckel"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
-        'Button18
+        'Label10
         '
-        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button18.Location = New System.Drawing.Point(269, 76)
-        Me.Button18.Name = "Button18"
-        Me.Button18.Size = New System.Drawing.Size(156, 21)
-        Me.Button18.TabIndex = 60
-        Me.Button18.Text = "berechnen"
-        Me.Button18.UseVisualStyleBackColor = True
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+        Me.Label10.Location = New System.Drawing.Point(383, 43)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(43, 13)
+        Me.Label10.TabIndex = 62
+        Me.Label10.Text = "Gesamt"
+        '
+        'btn_FrachtkostenBerechnen
+        '
+        Me.btn_FrachtkostenBerechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_FrachtkostenBerechnen.Location = New System.Drawing.Point(269, 76)
+        Me.btn_FrachtkostenBerechnen.Name = "btn_FrachtkostenBerechnen"
+        Me.btn_FrachtkostenBerechnen.Size = New System.Drawing.Size(156, 21)
+        Me.btn_FrachtkostenBerechnen.TabIndex = 60
+        Me.btn_FrachtkostenBerechnen.Text = "berechnen"
+        Me.btn_FrachtkostenBerechnen.UseVisualStyleBackColor = True
         '
         'txtFrachtkostenGesamt
         '
@@ -1577,16 +1587,6 @@ Partial Class frmSendungsdetailsNEU
         Me.txtFrachtkostenGesamt.TabIndex = 61
         Me.txtFrachtkostenGesamt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label10.Location = New System.Drawing.Point(383, 43)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(43, 13)
-        Me.Label10.TabIndex = 62
-        Me.Label10.Text = "Gesamt"
-        '
         'Label6
         '
         Me.Label6.AutoSize = True
@@ -5570,7 +5570,7 @@ Partial Class frmSendungsdetailsNEU
     Friend WithEvents txtFrachtkostenNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label6 As Label
     Friend WithEvents Label7 As Label
-    Friend WithEvents Button18 As Button
+    Friend WithEvents btn_FrachtkostenBerechnen As Button
     Friend WithEvents txtFrachtkostenGesamt As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label10 As Label
 End Class

Aviso/frmSendungsdetailsNEU.vb

@@ -5382,7 +5382,7 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
-    Private Sub Button18_Click_1(sender As Object, e As EventArgs) Handles Button18.Click
+    Private Sub btn_FrachtkostenBerechnen_Click(sender As Object, e As EventArgs) Handles btn_FrachtkostenBerechnen.Click
 
         If txtFrachtkostenGesamt.Text = "" AndAlso txtGewicht.Text = "" Then
             MsgBox("Bitte Gewicht oder Gesamtfrachtkosten angeben!")