diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb index 50eeec01..59e012c1 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.Designer.vb @@ -22,15 +22,15 @@ Partial Class usrCntlQualitaetskontrolle 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label46 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Label40 = New System.Windows.Forms.Label() @@ -62,12 +62,6 @@ Partial Class usrCntlQualitaetskontrolle Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label30 = New System.Windows.Forms.Label() Me.dgvPositionen = New System.Windows.Forms.DataGridView() - Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.art_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.erzeugnis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.KNCode = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.txtPackAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPackFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -100,15 +94,21 @@ Partial Class usrCntlQualitaetskontrolle Me.Label15 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.dgvGebuehren = New System.Windows.Forms.DataGridView() - Me.Button5 = New System.Windows.Forms.Button() - Me.cbxVerzicht = New System.Windows.Forms.CheckBox() - Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label18 = New System.Windows.Forms.Label() Me.Art = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.gew = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Faktor = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Betrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Button5 = New System.Windows.Forms.Button() + Me.cbxVerzicht = New System.Windows.Forms.CheckBox() + Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.anZ_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.art_pkgstk = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.erzeugnis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.KNCode = New System.Windows.Forms.DataGridViewTextBoxColumn() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvGebuehren, System.ComponentModel.ISupportInitialize).BeginInit() @@ -561,51 +561,6 @@ Partial Class usrCntlQualitaetskontrolle Me.dgvPositionen.Size = New System.Drawing.Size(791, 345) Me.dgvPositionen.TabIndex = 156 ' - 'pos - ' - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle19.Format = "N0" - DataGridViewCellStyle19.NullValue = Nothing - Me.pos.DefaultCellStyle = DataGridViewCellStyle19 - Me.pos.Frozen = True - Me.pos.HeaderText = "Position" - Me.pos.MaxInputLength = 3 - Me.pos.Name = "pos" - Me.pos.ReadOnly = True - Me.pos.Width = 50 - ' - 'anZ_pkgstk - ' - Me.anZ_pkgstk.HeaderText = "Anz-Packs." - Me.anZ_pkgstk.Name = "anZ_pkgstk" - ' - 'art_pkgstk - ' - Me.art_pkgstk.HeaderText = "Art-Packs" - Me.art_pkgstk.Name = "art_pkgstk" - ' - 'erzeugnis - ' - Me.erzeugnis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.erzeugnis.HeaderText = "Art des Erzeugnisses" - Me.erzeugnis.Name = "erzeugnis" - ' - 'gewicht - ' - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle20.Format = "N2" - DataGridViewCellStyle20.NullValue = Nothing - Me.gewicht.DefaultCellStyle = DataGridViewCellStyle20 - Me.gewicht.HeaderText = "Gewicht" - Me.gewicht.MaxInputLength = 100 - Me.gewicht.Name = "gewicht" - ' - 'KNCode - ' - Me.KNCode.HeaderText = "KNCode" - Me.KNCode.Name = "KNCode" - Me.KNCode.ReadOnly = True - ' 'txtPackAdresse2 ' Me.txtPackAdresse2._DateTimeOnly = False @@ -847,10 +802,10 @@ Partial Class usrCntlQualitaetskontrolle ' 'DataGridViewTextBoxColumn1 ' - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle21.Format = "N0" - DataGridViewCellStyle21.NullValue = Nothing - Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.Format = "N0" + DataGridViewCellStyle3.NullValue = Nothing + Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle3 Me.DataGridViewTextBoxColumn1.Frozen = True Me.DataGridViewTextBoxColumn1.HeaderText = "Position" Me.DataGridViewTextBoxColumn1.MaxInputLength = 3 @@ -872,20 +827,20 @@ Partial Class usrCntlQualitaetskontrolle 'DataGridViewTextBoxColumn4 ' Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle22.Format = "N2" - DataGridViewCellStyle22.NullValue = Nothing - Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle4.Format = "N2" + DataGridViewCellStyle4.NullValue = Nothing + Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle4 Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn4.MaxInputLength = 100 Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" ' 'DataGridViewTextBoxColumn5 ' - DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle23.Format = "N2" - DataGridViewCellStyle23.NullValue = Nothing - Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle23 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle5.Format = "N2" + DataGridViewCellStyle5.NullValue = Nothing + Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle5 Me.DataGridViewTextBoxColumn5.HeaderText = "Gewicht" Me.DataGridViewTextBoxColumn5.MaxInputLength = 100 Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" @@ -996,6 +951,49 @@ Partial Class usrCntlQualitaetskontrolle Me.dgvGebuehren.Size = New System.Drawing.Size(545, 158) Me.dgvGebuehren.TabIndex = 189 ' + 'Art + ' + Me.Art.HeaderText = "Art" + Me.Art.Name = "Art" + Me.Art.ReadOnly = True + ' + 'gew + ' + DataGridViewCellStyle6.Format = "N2" + DataGridViewCellStyle6.NullValue = Nothing + Me.gew.DefaultCellStyle = DataGridViewCellStyle6 + Me.gew.HeaderText = "Gewicht" + Me.gew.Name = "gew" + Me.gew.ReadOnly = True + ' + 'Preis + ' + DataGridViewCellStyle7.Format = "C2" + DataGridViewCellStyle7.NullValue = Nothing + Me.Preis.DefaultCellStyle = DataGridViewCellStyle7 + Me.Preis.HeaderText = "Preis" + Me.Preis.Name = "Preis" + Me.Preis.ReadOnly = True + ' + 'Faktor + ' + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle8.Format = "N0" + DataGridViewCellStyle8.NullValue = Nothing + Me.Faktor.DefaultCellStyle = DataGridViewCellStyle8 + Me.Faktor.HeaderText = "Faktor" + Me.Faktor.Name = "Faktor" + Me.Faktor.ReadOnly = True + ' + 'Betrag + ' + DataGridViewCellStyle9.Format = "C2" + DataGridViewCellStyle9.NullValue = Nothing + Me.Betrag.DefaultCellStyle = DataGridViewCellStyle9 + Me.Betrag.HeaderText = "Betrag" + Me.Betrag.Name = "Betrag" + Me.Betrag.ReadOnly = True + ' 'Button5 ' Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1030,7 +1028,7 @@ Partial Class usrCntlQualitaetskontrolle Me.txtSumme._ShortDateOnly = False Me.txtSumme._TimeOnly = False Me.txtSumme._TimeOnly_Seconds = False - Me.txtSumme._value = Nothing + Me.txtSumme._value = "" Me.txtSumme._Waehrung = True Me.txtSumme._WaehrungZeichen = True Me.txtSumme.ForeColor = System.Drawing.Color.Black @@ -1053,48 +1051,49 @@ Partial Class usrCntlQualitaetskontrolle Me.Label18.TabIndex = 192 Me.Label18.Text = "Betrag:" ' - 'Art + 'pos ' - Me.Art.HeaderText = "Art" - Me.Art.Name = "Art" - Me.Art.ReadOnly = True + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle1.Format = "N0" + DataGridViewCellStyle1.NullValue = Nothing + Me.pos.DefaultCellStyle = DataGridViewCellStyle1 + Me.pos.Frozen = True + Me.pos.HeaderText = "Position" + Me.pos.MaxInputLength = 3 + Me.pos.Name = "pos" + Me.pos.ReadOnly = True + Me.pos.Width = 50 ' - 'gew + 'anZ_pkgstk ' - DataGridViewCellStyle24.Format = "N2" - DataGridViewCellStyle24.NullValue = Nothing - Me.gew.DefaultCellStyle = DataGridViewCellStyle24 - Me.gew.HeaderText = "Gewicht" - Me.gew.Name = "gew" - Me.gew.ReadOnly = True + Me.anZ_pkgstk.HeaderText = "Anz-Packs." + Me.anZ_pkgstk.Name = "anZ_pkgstk" ' - 'Preis + 'art_pkgstk ' - DataGridViewCellStyle25.Format = "C2" - DataGridViewCellStyle25.NullValue = Nothing - Me.Preis.DefaultCellStyle = DataGridViewCellStyle25 - Me.Preis.HeaderText = "Preis" - Me.Preis.Name = "Preis" - Me.Preis.ReadOnly = True + Me.art_pkgstk.HeaderText = "Art-Packs" + Me.art_pkgstk.Name = "art_pkgstk" ' - 'Faktor + 'erzeugnis ' - DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter - DataGridViewCellStyle26.Format = "N0" - DataGridViewCellStyle26.NullValue = Nothing - Me.Faktor.DefaultCellStyle = DataGridViewCellStyle26 - Me.Faktor.HeaderText = "Faktor" - Me.Faktor.Name = "Faktor" - Me.Faktor.ReadOnly = True + Me.erzeugnis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.erzeugnis.HeaderText = "Art des Erzeugnisses" + Me.erzeugnis.Name = "erzeugnis" ' - 'Betrag + 'gewicht ' - DataGridViewCellStyle27.Format = "C2" - DataGridViewCellStyle27.NullValue = Nothing - Me.Betrag.DefaultCellStyle = DataGridViewCellStyle27 - Me.Betrag.HeaderText = "Betrag" - Me.Betrag.Name = "Betrag" - Me.Betrag.ReadOnly = True + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle2.Format = "N2" + DataGridViewCellStyle2.NullValue = Nothing + Me.gewicht.DefaultCellStyle = DataGridViewCellStyle2 + Me.gewicht.HeaderText = "Gewicht" + Me.gewicht.MaxInputLength = 100 + Me.gewicht.Name = "gewicht" + ' + 'KNCode + ' + Me.KNCode.HeaderText = "KNCode" + Me.KNCode.Name = "KNCode" ' 'usrCntlQualitaetskontrolle ' @@ -1238,12 +1237,6 @@ Partial Class usrCntlQualitaetskontrolle Friend WithEvents dgvGebuehren As DataGridView Friend WithEvents Button5 As Button Friend WithEvents cbxVerzicht As CheckBox - Friend WithEvents pos As DataGridViewTextBoxColumn - Friend WithEvents anZ_pkgstk As DataGridViewTextBoxColumn - Friend WithEvents art_pkgstk As DataGridViewTextBoxColumn - Friend WithEvents erzeugnis As DataGridViewTextBoxColumn - Friend WithEvents gewicht As DataGridViewTextBoxColumn - Friend WithEvents KNCode As DataGridViewTextBoxColumn Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label18 As Label Friend WithEvents Art As DataGridViewTextBoxColumn @@ -1251,4 +1244,10 @@ Partial Class usrCntlQualitaetskontrolle Friend WithEvents Preis As DataGridViewTextBoxColumn Friend WithEvents Faktor As DataGridViewTextBoxColumn Friend WithEvents Betrag As DataGridViewTextBoxColumn + Friend WithEvents pos As DataGridViewTextBoxColumn + Friend WithEvents anZ_pkgstk As DataGridViewTextBoxColumn + Friend WithEvents art_pkgstk As DataGridViewTextBoxColumn + Friend WithEvents erzeugnis As DataGridViewTextBoxColumn + Friend WithEvents gewicht As DataGridViewTextBoxColumn + Friend WithEvents KNCode As DataGridViewTextBoxColumn End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx index 977c57ee..19f0523e 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx @@ -135,24 +135,6 @@ True - - True - - - True - - - True - - - True - - - True - - - True - True diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb index f881c393..db092efc 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb @@ -164,20 +164,6 @@ Public Class usrCntlQualitaetskontrolle cbxUrsprungslang.fillWithSQL("SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz, [Länderverzeichnis für die Außenhandelsstatistik].LandBez FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY [Länderverzeichnis für die Außenhandelsstatistik].LandKz; ", True, "VERAG", True) cbxBestimmungsland.Items.AddRange(cbxUrsprungslang.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) - - If SENDUNG IsNot Nothing Then - If SENDUNG.tblSnd_DakosyRef <> "" Then - loadEZollData(SENDUNG.tblSnd_DakosyRef) - ElseIf SENDUNG.FilialenNr > 0 AndAlso SENDUNG.AbfertigungsNr > 0 Then - Dim ref = SENDUNG.FilialenNr.ToString & "/" & SENDUNG.AbfertigungsNr.ToString - loadEZollData(ref) - End If - - End If - - initKdNR(KdNR) - initSND() - Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Normen = sql.loadDgvBySql("select * from tblVermarktungsnormen", "FMZOLL") @@ -193,6 +179,19 @@ Public Class usrCntlQualitaetskontrolle NormenpreisAllg = CDbl(sql.getValueTxtBySql("select top(1) betrag FROM tblVermarktungsnormenGebuehren where gueltigAb <= GETDATE() and [speziell] = 0 order by gueltigAb desc", "FMZOLL")) NormenpreisSpez = CDbl(sql.getValueTxtBySql("select top(1) betrag FROM tblVermarktungsnormenGebuehren where gueltigAb <= GETDATE() and [speziell] = 1 order by gueltigAb desc", "FMZOLL")) + If SENDUNG IsNot Nothing Then + If SENDUNG.tblSnd_DakosyRef <> "" Then + loadEZollData(SENDUNG.tblSnd_DakosyRef) + ElseIf SENDUNG.FilialenNr > 0 AndAlso SENDUNG.AbfertigungsNr > 0 Then + Dim ref = SENDUNG.FilialenNr.ToString & "/" & SENDUNG.AbfertigungsNr.ToString + loadEZollData(ref) + End If + + End If + + initKdNR(KdNR) + initSND() + End Sub Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click @@ -217,13 +216,17 @@ Public Class usrCntlQualitaetskontrolle Private Sub loadDGV(dt As DataTable) Dim couter As Integer = 1 + Dim checkKNCode As Boolean = False For Each row As DataRow In dt.Rows dgvPositionen.Rows.Add(row("ItNr"), row("Nr"), row("Kind"), row("GdsDes"), row("Net"), row("ComCd")) + If row("ComCd") <> "" Then checkKNCode = True couter = +1 Next + If checkKNCode Then initdgvGebuehren() + End Sub Private Sub dgvPositionen_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvPositionen.DefaultValuesNeeded @@ -370,6 +373,7 @@ Public Class usrCntlQualitaetskontrolle Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged Dim gewicht As Double = 0 Dim colli As Double = 0 + Dim checkKNCode As Boolean = False For Each r As DataGridViewRow In dgvPositionen.Rows @@ -383,10 +387,17 @@ Public Class usrCntlQualitaetskontrolle End If + If r IsNot Nothing And r.Cells(5).Value <> "" Then + checkKNCode = True + End If + Next txtGewicht.Text = gewicht & " kg" txtAnzVerp.Text = colli + + If checkKNCode Then initdgvGebuehren() + End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click @@ -433,6 +444,8 @@ Public Class usrCntlQualitaetskontrolle If dgvPositionen.Rows.Count < 1 Then Exit Sub + If normenSpeziell.Rows.Count < 1 Or normenSpeziell.Rows.Count < 1 Then Exit Sub + Dim sumNormenAllg As Double = 0 Dim sumNormenSpez As Double = 0 @@ -486,12 +499,12 @@ Public Class usrCntlQualitaetskontrolle If sumNormenAllg > 0 Then Dim anzAllg As Integer - anzAllg = sumNormenAllg / 1000 + anzAllg = Math.Ceiling(sumNormenAllg / 1000) dgvGebuehren.Rows.Add("Allgemein", sumNormenAllg, NormenpreisAllg, anzAllg, anzAllg * NormenpreisAllg) End If If sumNormenSpez > 0 Then Dim anzSpez As Integer - anzSpez = sumNormenSpez / 1000 + anzSpez = Math.Ceiling(sumNormenSpez / 1000) dgvGebuehren.Rows.Add("Speziell", sumNormenSpez, NormenpreisSpez, anzSpez, anzSpez * NormenpreisSpez) End If