edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

verzollungspreise

Browse Source
This commit is contained in:
d.breimaier
2026-02-04 10:02:04 +01:00
parent 8f5c4a849c
commit ffa6e99409
1 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -187,12 +187,16 @@
Dim couter As Integer = 1 Dim couter As Integer = 1
For Each row As DataRow In dtHauptleistungen.Rows 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") Dim Bezeichnung As String = row("Beschreibung_DE")
Select Case sprache 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 End Select
DataGridView.Rows.Add(row("PositionsNr"), row("LeistungsCode"), Bezeichnung, preisText) : couter += 1 DataGridView.Rows.Add(row("PositionsNr"), row("LeistungsCode"), Bezeichnung, preisText) : couter += 1
@@ -204,11 +208,15 @@
For Each row As DataRow In dtZusatzleistungen.Rows 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") Dim Bezeichnung As String = row("Beschreibung_DE")
Select Case sprache 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 End Select
dgvZusatzleistung.Rows.Add("", row("LeistungsCode"), Bezeichnung, preisText) : couter += 1 dgvZusatzleistung.Rows.Add("", row("LeistungsCode"), Bezeichnung, preisText) : couter += 1
@@ -232,8 +240,8 @@
If cbxAusDB.Checked Then 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 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] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'ZUSATZ' AND AKTIV = 1 ORDER BY Beschreibung_DE;" 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 dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL")
Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL") Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL")