Qualitaetskontrolle

2024-08-08 09:28:56 +02:00
parent e1ceb47c39
commit 6dec1965f4
3 changed files with 144 additions and 150 deletions
--- 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.
    <System.Diagnostics.DebuggerStepThrough()>
    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
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx
@@ -135,24 +135,6 @@
  <metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
-  <metadata name="pos.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="anZ_pkgstk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="art_pkgstk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="erzeugnis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="gewicht.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="KNCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
  <metadata name="Art.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
--- 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