From ffa6e994097aa166f4af428a71ca6754c7995355 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Feb 2026 10:02:04 +0100 Subject: [PATCH] verzollungspreise --- .../usrcntlVerzollungspreise.vb | 20 +++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index c394918f..c7dbc9ec 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -187,12 +187,16 @@ Dim couter As Integer = 1 For Each row As DataRow In dtHauptleistungen.Rows - Dim preisText As String = If(row.IsNull("Preis"), "", CDbl(row("Preis")).ToString("C2")) + Dim preisText As String = If(row.IsNull("Preis"), "", CDbl(row("Preis")).ToString("N2")) Dim Bezeichnung As String = row("Beschreibung_DE") Select Case sprache - Case "EN" : Bezeichnung = row("Beschreibung_EN") + Case "EN" + Bezeichnung = row("Beschreibung_EN") + preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit") + Case Else + preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit_DE") End Select DataGridView.Rows.Add(row("PositionsNr"), row("LeistungsCode"), Bezeichnung, preisText) : couter += 1 @@ -204,11 +208,15 @@ For Each row As DataRow In dtZusatzleistungen.Rows - Dim preisText As String = If(row.IsNull("Preis"), "", CDbl(row("Preis")).ToString("C2")) + Dim preisText As String = If(row.IsNull("Preis"), "", CDbl(row("Preis")).ToString("N2")) Dim Bezeichnung As String = row("Beschreibung_DE") Select Case sprache - Case "EN" : Bezeichnung = row("Beschreibung_EN") + Case "EN" + Bezeichnung = row("Beschreibung_EN") + preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit") + Case Else + preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit_DE") End Select dgvZusatzleistung.Rows.Add("", row("LeistungsCode"), Bezeichnung, preisText) : couter += 1 @@ -232,8 +240,8 @@ If cbxAusDB.Checked Then - Dim sqlstrHauptleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'HAUPT' AND AKTIV = 1 ORDER BY PositionsNr;" - Dim sqlstrZusatzleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'ZUSATZ' AND AKTIV = 1 ORDER BY Beschreibung_DE;" + Dim sqlstrHauptleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'HAUPT' AND AKTIV = 1 ORDER BY PositionsNr;" + Dim sqlstrZusatzleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'ZUSATZ' AND AKTIV = 1 ORDER BY Beschreibung_DE;" Dim dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL") Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL")