QUALI, FAKT VERAG AG(DE)

SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.resx

@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <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>
+</root>

SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlQualitaetskontrolle.vb

@@ -0,0 +1,387 @@
+Imports DAKOSY_Worker.DEXPSD
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrCntlQualitaetskontrolle
+    Implements FormualrInterface
+
+    Public Event CHANGED(name, value)
+    Public Event KDNR_CHANGED(kdnr)
+    Public Event DELETE(c As Control)
+    Public Event MOVE_UP(c As Control)
+    Public Event MOVE_DOWN(c As Control)
+    Dim FV_ID = -1
+    Public KdNR As Integer = -1
+    Public KdFirma As String = ""
+    Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Public EZA_Nr As String
+    Public CRN As String
+    Dim packstueckeZOLL_TMP As String = ""
+
+    Dim EZOLL_SQL = "EZOLL"
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(param() As Object)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If param.Length > 0 AndAlso param(0) IsNot Nothing Then KdNR = param(0)
+        If param.Length > 1 Then KdFirma = param(1)
+        If param.Length > 2 Then SENDUNG = param(2)
+        If param.Length > 3 Then AVISO = param(3)
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Public Sub ChangeKDNr(kdnr As Integer) _
+       Implements FormualrInterface.ChangeKDNr
+        initKdNR(kdnr)
+    End Sub
+
+    'Dim KdNR As Integer = -1
+    Sub initControlsHandler()
+        For Each c In Me.Controls
+            Select Case c.GetType.ToString
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
+                                                                                        RaiseEvent CHANGED(c.name, c.text)
+                                                                                    End Sub
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
+                                                                                                        RaiseEvent CHANGED(c.name, c._value)
+                                                                                                    End Sub
+                Case GetType(TextBox).ToString
+                    AddHandler DirectCast(c, TextBox).Leave, Sub()
+                                                                 RaiseEvent CHANGED(c.name, c.text)
+                                                             End Sub
+            End Select
+        Next
+
+    End Sub
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim kdsrch As New SDL.frmKundenSuche
+        If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
+            If IsNumeric(kdsrch.kundenNrSearch.Text) Then
+                initKdNR(kdsrch.kundenNrSearch.Text)
+                RaiseEvent KDNR_CHANGED(KdNR)
+            End If
+        End If
+        '  Panel1.Enabled = True
+    End Sub
+
+
+
+    Public Sub initSND()
+        If SENDUNG IsNot Nothing Then
+            txtFilialNr.Text = SENDUNG.FilialenNr.ToString
+            txtAbfNr.Text = SENDUNG.AbfertigungsNr.ToString
+            txtGewicht.Text &= " kg"
+            If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
+                Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
+                txtPackFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
+                txtPackAdresse1.Text = If(ADRESSE.Straße, "")
+                txtPackAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+            Else
+                txtPackFirma.Text = SENDUNG.tblSnd_Absender
+            End If
+        End If
+        If AVISO IsNot Nothing Then
+            txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
+        End If
+    End Sub
+
+    Public Sub initKdNR(KdNR)
+        If KdNR > 0 Then
+            Me.KdNR = KdNR
+
+            Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
+            Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
+
+            txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
+            txtAdresse1.Text = If(ADRESSE.Straße, "")
+            txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+            '  txtAnsprechpartnerVERAG.Text = If(ADRESSE.Ansprechpartner, "")
+        Else
+            txtFirma.Text = KdFirma
+        End If
+
+    End Sub
+
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+        RaiseEvent DELETE(Me)
+    End Sub
+
+    Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
+        RaiseEvent MOVE_UP(Me)
+    End Sub
+
+    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
+        RaiseEvent MOVE_DOWN(Me)
+    End Sub
+
+
+    Private Sub usrCntlZollbeschau_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+
+        EZOLL_SQL = "EZOLL"
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "UNISPED" : EZOLL_SQL = "EZOLL_UNISPED"
+        End Select
+
+
+        initControlsHandler()
+        'txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy")
+
+        cbxEinf.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Einfuhr", "E"))
+        cbxEinf.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "A"))
+        cbxEinf.changeItem("E")
+
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Obst und Gemüse", "O"))
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bananen", "B"))
+        cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eier und Gefl.", "E"))
+
+        cboZollstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZA Österreich / Zst Nickelsdorf", "NKD"))
+        cboZollstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZA Österreich / Zst Spielfeld", "SFD"))
+        ' cboZollstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZA Österreich / Zst Salzburg", "SBG"))
+        ' cboZollstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZA Österreich / Zst Suben", "SUB"))
+        cboZollstelle.changeItem("NKD")
+
+        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()
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        FormularManagerNEU.genPDF(Me, True)
+    End Sub
+
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If KdNR > 0 Then
+            Dim f As New frmKundenUebersichtZOLL(KdNR)
+            f.ShowDialog(Me)
+        End If
+    End Sub
+
+
+
+    Private Sub dtpBeschauDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpBeschauDat.ValueChanged
+        txtBeschauDat._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+
+    Private Sub loadDGV(dt As DataTable)
+
+        Dim couter As Integer = 1
+        For Each row As DataRow In dt.Rows
+
+            dgvPositionen.Rows.Add(row("ItNr"), row("Nr"), row("Kind"), row("GdsDes"), row("Net"))
+            couter = +1
+
+        Next
+
+    End Sub
+
+    Private Sub dgvPositionen_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvPositionen.DefaultValuesNeeded
+
+        e.Row.Cells("pos").Value = dgvPositionen.Rows.Count
+    End Sub
+
+    Private Sub loadEZollData(EZA_Nr As String)
+
+        Dim KDSQL As New SQL
+        Dim notFound As Boolean = True
+
+        'EZA_Nr = "4/23208/15"
+
+        Try
+            txtLRN.Text = EZA_Nr
+            Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
+           " FROM zsAnmRefs" &
+           " WHERE (VorgangID = 'EF') AND (LRN = '" & EZA_Nr & "')" &
+           " ORDER BY GeaendertAm DESC", EZOLL_SQL)
+            If dEZOLL Is Nothing Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub
+            If dEZOLL.Rows.Count = 0 Then MsgBox("Keine Daten im EZOLL vorhanden, Daten können nicht geladen werden!") : Exit Sub
+
+            Dim DR_zsAnmRefs As DataRow = dEZOLL.Rows(0)
+            notFound = False
+            If DR_zsAnmRefs.Item("CRN") IsNot DBNull.Value Then CRN = DR_zsAnmRefs.Item("CRN")
+
+            Dim DTzsAnmTransp As DataTable = KDSQL.loadDgvBySql("SELECT DepIdnt, DepNat, CrossIdntNat" &
+              " FROM zsAnmTransp" &
+              " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
+
+            If DTzsAnmTransp IsNot Nothing AndAlso DTzsAnmTransp.Rows().Count > 0 Then
+                If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then txtLKWKennz.Text = Strings.Left(DTzsAnmTransp.Rows(0).Item("DepIdnt"), 25)
+                If Not IsNull(DTzsAnmTransp.Rows(0).Item("DepNat")) Then cbxBestimmungsland.changeItem(DTzsAnmTransp.Rows(0).Item("DepNat"))
+                '   If Not IsNull(DTzsAnmTransp.Rows(0).Item("CrossIdntNat")) Then cbxUrsprungslang.changeItem(DTzsAnmTransp.Rows(0).Item("CrossIdntNat"))
+            End If
+
+            ' Tabelle zsAnmConorTra lesen.
+            Dim DTzsAnmConorTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty,Strt, Ctry" &
+                    " FROM zsAnmConorTra" &
+                    " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
+
+            If DTzsAnmConorTra IsNot Nothing AndAlso DTzsAnmConorTra.Rows().Count > 0 Then
+                If SENDUNG Is Nothing OrElse SENDUNG.tblSnd_AbsenderKdNr <= 0 Then
+                    If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Na")) Then txtPackFirma.Text = Strings.Left(DTzsAnmConorTra.Rows(0).Item("Na"), 50)
+                    If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then
+                        txtPackAdresse1.Text = ""
+                        txtPackAdresse2.Text = ""
+                        If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Strt")) Then txtPackAdresse1.Text &= Strings.Left(DTzsAnmConorTra.Rows(0).Item("Strt"), 50) & " "
+                        If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then txtPackAdresse2.Text &= Strings.Left(DTzsAnmConorTra.Rows(0).Item("Ctry"), 50) & " "
+                        If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Pst")) Then txtPackAdresse2.Text &= Strings.Left(DTzsAnmConorTra.Rows(0).Item("Pst"), 50) & " "
+                        If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Cty")) Then txtPackAdresse2.Text &= Strings.Left(DTzsAnmConorTra.Rows(0).Item("Cty"), 50) & " "
+                    End If
+                End If
+                If Not IsNull(DTzsAnmConorTra.Rows(0).Item("Ctry")) Then cbxUrsprungslang.changeItem(DTzsAnmConorTra.Rows(0).Item("Ctry"))
+            End If
+
+
+
+            ' Tabelle zsAnmConeeTra lesen.
+            Dim DTzsAnmConeeTra As DataTable = KDSQL.loadDgvBySql("SELECT Na, Pst, Cty,Strt, Ctry" &
+                        " FROM zsAnmConeeTra" &
+                        " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
+
+            If DTzsAnmConeeTra IsNot Nothing AndAlso DTzsAnmConeeTra.Rows().Count > 0 Then
+                If SENDUNG Is Nothing OrElse SENDUNG.tblSnd_EmpfaengerKdNr <= 0 Then
+                    If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then txtFirma.Text = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50)
+                    If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then
+                        txtAdresse1.Text = ""
+                        txtAdresse2.Text = ""
+                        If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then txtAdresse1.Text &= Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Strt"), 50) & " "
+                        If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then txtAdresse2.Text &= Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50) & " "
+                        If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then txtAdresse2.Text &= Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Pst"), 50) & " "
+                        If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then txtAdresse2.Text &= Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Cty"), 50) & " "
+                    End If
+                End If
+                'If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(DTzsAnmConeeTra.Rows(0).Item("Na"), 50)
+                'If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Ctry"), 50)
+                'If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Pst"), 50)
+                'If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then SPEDITIONSBUCH.Empfänger = Strings.Left(SPEDITIONSBUCH.Empfänger & ", " & DTzsAnmConeeTra.Rows(0).Item("Cty"), 50)
+                If Not IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then cbxBestimmungsland.changeItem(DTzsAnmConeeTra.Rows(0).Item("Ctry"))
+            End If
+
+
+            ' Tabelle zsAnmHea lesen.
+            Dim DTzsAnmHea As DataTable = KDSQL.loadDgvBySql("SELECT TotItem, TotPack, TotGross" &
+                " FROM zsAnmHea" &
+                " WHERE (LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (AnmID = " & DR_zsAnmRefs.Item("AnmID") & ")", EZOLL_SQL)
+
+            If DTzsAnmHea IsNot Nothing AndAlso DTzsAnmHea.Rows().Count > 0 Then
+                If Not IsNull(DTzsAnmHea.Rows(0).Item("TotPack")) Then txtAnzVerp.Text = DTzsAnmHea.Rows(0).Item("TotPack") 'Gesamt packstücke
+                If Not IsNull(DTzsAnmHea.Rows(0).Item("TotGross")) Then txtGewicht.Text = DTzsAnmHea.Rows(0).Item("TotGross") ' Gesamtbruttogewicht
+                If Not IsNull(DTzsAnmHea.Rows(0).Item("TotItem")) Then txtPos.Text = DTzsAnmHea.Rows(0).Item("TotItem") ' Anzahl Pos
+
+            End If
+
+            berechneDGVSum()
+
+            ' Tabelle zsAnmGdsitem lesen.
+            Dim DTzsAnmGdsitem As DataTable = KDSQL.loadDgvBySql("SELECT item.ItNr ,item.GdsDes , item.Net, pack.Kind, pack.Nr, item.Orig" &
+                    " FROM zsAnmGdsitem as item" &
+                    " INNER JOIN zsAnmGdsItemPack as pack ON item.LizenzNr = pack.LizenzNr And item.OperatorID = pack.OperatorID and item.VorgangID = pack.VorgangID and pack.AnmID = item.AnmID" &
+                    " WHERE (item.LizenzNr = '" & DR_zsAnmRefs.Item("LizenzNr") & "') And (item.OperatorID = " & DR_zsAnmRefs.Item("OperatorID") & ") And (item.VorgangID = '" & DR_zsAnmRefs.Item("VorgangID") & "') And (item.AnmID = " & DR_zsAnmRefs.Item("AnmID") & " and item.GdsItemID = pack.GdsItemID)" &
+                    " ORDER BY item.GdsItemID", EZOLL_SQL)
+
+
+            If DTzsAnmGdsitem IsNot Nothing AndAlso DTzsAnmGdsitem.Rows().Count > 0 Then
+
+                loadDGV(DTzsAnmGdsitem)
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler EZOLL Personal: " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
+        End Try
+
+
+    End Sub
+
+    Function IsNull(o) As Boolean
+        Try
+            If o Is Nothing Then Return True
+            If o Is DBNull.Value Then Return True
+            If o.ToString.Trim = "" Then Return True
+        Catch : End Try
+        Return False
+    End Function
+    Function berechneDGVSum() As Boolean
+        Dim sumPk As Integer = 0
+        Dim sumKg As Double = 0
+        Dim sumPos As Integer = 0
+
+        For Each r As DataGridViewRow In dgvPositionen.Rows
+            sumPos += 1
+            If IsNumeric(r.Cells(1).Value) Then sumPk += r.Cells(1).Value
+            If IsNumeric(r.Cells(4).Value) Then sumKg += r.Cells(4).Value
+        Next
+        txtAnzVerp.Text = sumPk
+        txtGewicht.Text = sumKg
+        txtPos.Text = sumPos - 1
+
+    End Function
+
+    Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged
+        Dim gewicht As Double = 0
+        Dim colli As Double = 0
+
+        For Each r As DataGridViewRow In dgvPositionen.Rows
+
+
+            If r IsNot Nothing And IsNumeric(r.Cells(4).Value) Then
+                gewicht += CDbl(r.Cells(4).Value)
+            End If
+
+            If r IsNot Nothing And IsNumeric(r.Cells(1).Value) Then
+                colli += CDbl(r.Cells(1).Value)
+            End If
+
+
+        Next
+
+        txtGewicht.Text = gewicht & " kg"
+        txtAnzVerp.Text = colli
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        dgvPositionen.Rows.Clear()
+
+        If txtLRN.Text <> "" Then
+            loadEZollData(txtLRN.Text)
+        End If
+    End Sub
+
+    Private Sub dgvPositionen_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles dgvPositionen.RowsAdded
+        berechneDGVSum()
+    End Sub
+
+    Private Sub dgvPositionen_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvPositionen.RowsRemoved
+        berechneDGVSum()
+    End Sub
+End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -1387,7 +1387,7 @@ Public Class FormularManagerNEU
             Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString
                 striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail)
             Case GetType(usrCntlQualitaetskontrolle).ToString
-                retStr = FormularManagerNEU.Qualitaetskontrolle(c)
+                striList = FormularManagerNEU.Qualitaetskontrolle(c)
 
             Case GetType(usrcntlQS_UeDok).ToString
                 retStr = FormularManagerNEU.QS_UeDok(c)
@@ -4183,123 +4183,137 @@ Public Class FormularManagerNEU
     End Function
 
 
-    Shared Function Qualitaetskontrolle(usrCntl As usrCntlQualitaetskontrolle) As String
+    Shared Function Qualitaetskontrolle(usrCntl As usrCntlQualitaetskontrolle) As List(Of String)
+        Dim QUALIlist As New List(Of String)
+
         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
-
-        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
-
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
 
-
         If usrCntl.dtpBeschauDat IsNot Nothing AndAlso IsDate((usrCntl.dtpBeschauDat.Value)) Then
-            list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum", usrCntl.dtpBeschauDat.Value.ToString))
+            list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum_2_030_a", usrCntl.dtpBeschauDat.Value.ToString))
+
         End If
 
-        'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Teilnehmer", usrCntl.bb_Teilnehmer.ToString))
 
-        'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Geschäftsführer", BB.bb_Geschaeftsfuehrer.ToString))
+        If usrCntl.cbxTyp.SelectedItem IsNot Nothing Then
+            Select Case usrCntl.cbxTyp.SelectedItem.value
+                Case "O"
+                    list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Checkbox11", "1"))
+                Case "B"
+                    list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Checkbox12", "2"))
+                Case "E"
+                    list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Checkbox13", "3"))
+            End Select
+        End If
 
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ansprechpartner", BB.bb_Anpsprechpartner.ToString))
 
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Firma", txtFirma.Text))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Umatz", BB.bb_Umsatz)) 'ACHTUNG -> im Formular wurde das Feld "Umatz" benannt, nicht korrigieren!
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefon", BB.bb_Telefon.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mail", BB.bb_Mail.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWEigentum", BB.bb_FuhrparkEigentum.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKWLeasing", BB.bb_FuhrparkLeasing.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", BB.bb_Auftraggeber.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TransportRouten", BB.bb_Route.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DerzeitigerAnbieter", BB.bb_DerzeitigerLieferant.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bericht", BB.bb_Vermerk.ToString))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Garentie", BB.bb_Garantie)) 'ACHTUNG -> im Formular wurde das Feld "Garentie" benannt, nicht korrigieren!
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Plane", IIf(BB.bb_LKW_Plane = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kühltransporte", IIf(BB.bb_LKW_Kuehltranporte = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sondertransporte", IIf(BB.bb_LKW_Sondertransporte = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sprinter", IIf(BB.bb_LKW_Sprinter = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SiloTank", IIf(BB.bb_LKW_SiloTank = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollabfertigung", IIf(BB.bb_Interesse_Zollabfertigung = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Brexit", IIf(BB.bb_Interesse_Brexit = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Parkplatz", IIf(BB.bb_Interesse_Parkplatz = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LagerUmladung", IIf(BB.bb_Interesse_LagerUmschlag = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rola", IIf(BB.bb_Interesse_Rola = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YesMoney", IIf(BB.bb_Interesse_YesMoney = True, "On", "Off")))
-
-        'List.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ferry", IIf(BB.bb_Interesse_Ferry = True, "On", "Off")))
+        If usrCntl.cbxEinf.SelectedItem IsNot Nothing Then
+            Select Case usrCntl.cbxEinf._value
+                Case "A"
+                    list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Checkbox21", "2"))
+                Case "E"
+                    list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Checkbox21", "1"))
+            End Select
+        End If
 
 
 
-        Select Case usrCntl.cbxTyp.SelectedItem.value
+        Dim Haendler = ""
+        If usrCntl.txtFirma.Text <> "" Then Haendler &= usrCntl.txtFirma.Text & vbNewLine
+        If usrCntl.txtHerrFrau.Text <> "" Then Haendler &= usrCntl.txtHerrFrau.Text & vbNewLine
+        If usrCntl.txtAdresse1.Text <> "" Then Haendler &= usrCntl.txtAdresse1.Text & vbNewLine
+        If usrCntl.txtAdresse2.Text <> "" Then Haendler &= usrCntl.txtAdresse2.Text
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text10", Haendler.Trim))
 
-            Case "O"
-                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
 
-            Case "B"
-                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+        Dim Packbetrieb = ""
+        If usrCntl.txtPackFirma.Text <> "" Then Packbetrieb &= usrCntl.txtPackFirma.Text & vbNewLine
+        If usrCntl.txtPackHerrFrau.Text <> "" Then Packbetrieb &= usrCntl.txtPackHerrFrau.Text & vbNewLine
+        If usrCntl.txtPackAdresse1.Text <> "" Then Packbetrieb &= usrCntl.txtPackAdresse1.Text & vbNewLine
+        If usrCntl.txtPackAdresse2.Text <> "" Then Packbetrieb &= usrCntl.txtPackAdresse2.Text
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text14", Packbetrieb.Trim))
 
-            Case "E"
-                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+        ' list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text14", usrCntl.txtAbfNr.Text.Trim))
 
-        End Select
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text18", usrCntl.txtLKWKennz.Text.Trim))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text19", usrCntl.cbxUrsprungslang._value.Trim))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text20", usrCntl.cbxBestimmungsland._value.Trim))
 
-        Select Case usrCntl.cbxEinf.SelectedItem.value
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Checkbox24a", "2")) 'NETTO
 
-            Case "A"
-                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
 
-            Case "E"
-                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text15", usrCntl.cboZollstelle.Text))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text16", usrCntl.cboZollstelle.Text))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kontrollstelle", usrCntl.cboZollstelle.Text))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CRN", usrCntl.crn))
 
-        End Select
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text17", Now.ToShortDateString)) 'Datum Eintreffen
 
 
 
 
 
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxUrsprungslang.SelectedItem.Text, 61, 85, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxBestimmungsland.SelectedItem.Text, 115, 85, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-
-        '----------------------
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 25, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datum_2_030_a", usrCntl.dtpBeschauDat.Value.ToShortDateString))
 
 
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 198, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 25, 208, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.MyTextBox2.Text, 25, 218, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLand.Text, 25, 188, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
-        'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPLZ.Text, 45, 188, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+        Dim SumKG As Double = 0
+        Dim SumPK As Double = 0
 
-        'fm.fillPDF("Qualitatskontrolle", Nothing, list, , , , , , )
+        'Seitenanzahl ermitteln:
+        Dim pages = Fix((usrCntl.dgvPositionen.Rows.Count - 1) / 10)  ' FIX=ABrunden auf ganze Zahl
+        If (usrCntl.dgvPositionen.Rows.Count - 1) Mod 10 > 0 Then pages += 1
 
-        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listTowrite)
+        If pages = 0 Then 'Keine Pos!
+            Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("VERAG Pos-Nr.: " & usrCntl.txtLRN.Text, 20, 5, 150, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+            Dim qualiForm = fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", list, listTowrite,,,,,, False)
+            If qualiForm <> "" Then QUALIlist.Add(qualiForm)
+        Else
+            'POS>0
+            For i As Integer = 1 To pages
+                Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("VERAG Pos-Nr.: " & usrCntl.txtLRN.Text, 20, 5, 150, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
+                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Seite " & i & "/" & pages, 160, 5, 40, 6, "bold", 14, , iTextSharp.text.Element.ALIGN_RIGHT))
 
+                Dim dgvVon = (i - 1) * 10 ' Start der Seite in der DGV
+                Dim listPos As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
 
-        Return ""
+                If i = 1 Then
+                    'BisherigeFelder in listPOSladen:
+                    For Each p In list
+                        listPos.Add(p)
+                    Next
+                End If
+
+                For ii As Integer = 0 To 9
+                    'Wenn DGV Ende --> Abbruch:
+                    If (dgvVon + ii) >= (usrCntl.dgvPositionen.Rows.Count - 1) Then Exit For
+                    'DGV Befüllen:
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(0).Value & ". " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(1).Value & " " & usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(2).Value))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25a." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(3).Value))
+                    'listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25b." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(3).Value))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25c." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(4).Value))
+                    '     list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Text25a." & (ii), usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(5).Value))
+                    SumPK += usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(1).Value
+                    SumKG += usrCntl.dgvPositionen.Rows(dgvVon + ii).Cells(4).Value
+                Next
+
+                If i = pages Then
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SumPkUeberschrift", "Summe Packstücke:"))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SumKgUeberschrift", "Summe Gewicht:"))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SumPk", CInt(SumPK) & " Pk"))
+                    listPos.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SumKg", CDbl(SumKG).ToString("N2") & " kg"))
+
+                End If
+
+                Dim qualiForm = fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listPos, listTowrite,,,,,, False)
+                If qualiForm <> "" Then QUALIlist.Add(qualiForm)
+
+            Next
+
+        End If
+
+        Return QUALIlist
     End Function