diff --git a/Aviso/frmGesamtsicherheiten.Designer.vb b/Aviso/frmGesamtsicherheiten.Designer.vb index 9bec5ad..60401d1 100644 --- a/Aviso/frmGesamtsicherheiten.Designer.vb +++ b/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) diff --git a/Aviso/frmGesamtsicherheiten.vb b/Aviso/frmGesamtsicherheiten.vb index 9203c07..02ff8a3 100644 --- a/Aviso/frmGesamtsicherheiten.vb +++ b/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 \ No newline at end of file + End If + Next + Return Obj + Catch ex As Exception + MsgBox(ex.Message) + End Try + End Function +End Class \ No newline at end of file diff --git a/Aviso/frmGesamtsicherheitenMenu.Designer.vb b/Aviso/frmGesamtsicherheitenMenu.Designer.vb index f7c17d7..425b551 100644 --- a/Aviso/frmGesamtsicherheitenMenu.Designer.vb +++ b/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) diff --git a/Aviso/frmGesamtsicherheitenMenu.vb b/Aviso/frmGesamtsicherheitenMenu.vb index 552ed6c..e24d43e 100644 --- a/Aviso/frmGesamtsicherheitenMenu.vb +++ b/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() diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 5fa9ab7..f09d37b 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/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 diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 7bdae7f..6607067 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/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!")