From f168d0323ec8b5aa142127d9f19f39e5393c7493 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 16 Dec 2025 09:46:13 +0100 Subject: [PATCH] Vorkosten, Spedbuch --- SDL/My Project/AssemblyInfo.vb | 4 ++-- .../Nacherfassung/frmNacherfassungVorkosten.vb | 10 ++++++++-- VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb | 12 ++++++++++++ 3 files changed, 22 insertions(+), 4 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 9dc046b9..6847d078 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb index f15e8a78..4bf1c42f 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb @@ -21,12 +21,18 @@ 'Next VORKOSTEN.Clear() + Dim LeistungsBez As String = "" For i = 0 To dgvVorkosten.RowCount - 1 Dim r As DataGridViewRow = dgvVorkosten.Rows(i) If Not IsNumeric(r.Cells("LeistungsNr").Value) Then MsgBox("Leistungsnummer muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub If Not IsNumeric(r.Cells("Preis").Value) Then MsgBox("Preis muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub - If r.Cells("LeistungsBez").Value.ToString.Length > 30 Then MsgBox("Leistungbezeichnung zu lang (max 30 Zeichen)!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub - VORKOSTEN.Add(New VERAG_PROG_ALLGEMEIN.cVorkosten(FilialenNr, AbfertigungsNr, UnterNr, CInt(r.Cells("LeistungsNr").Value), CStr(r.Cells("Leistungsbez").Value), CDbl(r.Cells("Preis").Value))) + If r.Cells("LeistungsBez").Value.ToString.Length > 256 Then MsgBox("Leistungbezeichnung zu lang (max 256 Zeichen)!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub + If CStr(r.Cells("Leistungsbez").Value).ToString.Length > 30 Then + LeistungsBez = CStr(r.Cells("Leistungsbez").Value).ToString.Substring(0, 30) + Else + LeistungsBez = CStr(r.Cells("Leistungsbez").Value) + End If + VORKOSTEN.Add(New VERAG_PROG_ALLGEMEIN.cVorkosten(FilialenNr, AbfertigungsNr, UnterNr, CInt(r.Cells("LeistungsNr").Value), LeistungsBez, CDbl(r.Cells("Preis").Value), CStr(r.Cells("Leistungsbez").Value))) Next Me.Close() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index 9f4479dd..8c57f91a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -770,6 +770,7 @@ Public Class cVorkosten Property LeistungsNr As Integer Property LeistungsBez As Object = Nothing Property Preis As Double = 0 + Property Bezeichnung As Object = Nothing ' Property Abfertigungsbezeichnung As String = "-" Dim SQL As New SQL @@ -786,6 +787,16 @@ Public Class cVorkosten Me.Preis = Preis End Sub + Sub New(FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis, Bezeichnung) + Me.FilialenNr = FilialenNr + Me.AbfertigungsNr = AbfertigungsNr + Me.UnterNr = UnterNr + Me.LeistungsNr = LeistungsNr + Me.LeistungsBez = LeistungsBez + Me.Preis = Preis + Me.Bezeichnung = Bezeichnung + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) @@ -794,6 +805,7 @@ Public Class cVorkosten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung)) Return list End Function