Qualitätskontrolle

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -284,6 +284,8 @@ Public Class frmFormulare
 
                 MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
                 MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
+
+                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
                 ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
 
 
@@ -769,6 +771,23 @@ Public Class frmFormulare
                         MyFlowLayoutPanel1.Controls.Add(c)
                     End If
 
+                Case FormularManagerArten.Qualitaetskontrolle
+                    Dim displayName = ""
+                    Dim c As usrCntlQualitaetskontrolle
+                    If param Is Nothing Then
+                        c = New usrCntlQualitaetskontrolle
+                    Else
+                        c = New usrCntlQualitaetskontrolle(param)
+                    End If
+                    If ControlExists_addOK(c.GetType.ToString) Then
+                        c.Width = MyFlowLayoutPanel1.Width - 6
+                        c.KdNR = KdNr
+                        AddHandler c.DELETE, AddressOf ControlDELETE
+                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                        MyFlowLayoutPanel1.Controls.Add(c)
+                    End If
+
 
 
 
@@ -1347,6 +1366,8 @@ Public Class FormularManagerNEU
                 striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, listMail)
             Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString
                 striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail)
+            Case GetType(usrCntlQualitaetskontrolle).ToString
+                retStr = FormularManagerNEU.Qualitaetskontrolle(c)
 
             Case GetType(usrcntlQS_UeDok).ToString
                 retStr = FormularManagerNEU.QS_UeDok(c)
@@ -4141,6 +4162,127 @@ Public Class FormularManagerNEU
         Return ""
     End Function
 
+
+    Shared Function Qualitaetskontrolle(usrCntl As usrCntlQualitaetskontrolle) As 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))
+        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))
+
+        '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")))
+
+
+
+        Select Case usrCntl.cbxTyp.SelectedItem.value
+
+            Case "O"
+                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+
+            Case "B"
+                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+
+            Case "E"
+                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+
+        End Select
+
+        Select Case usrCntl.cbxEinf.SelectedItem.value
+
+            Case "A"
+                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+
+            Case "E"
+                list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("persönlich", "On"))
+
+        End Select
+
+
+
+
+
+
+        '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))
+
+
+        '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))
+
+        fm.fillPDF("Qualitatskontrolle", Nothing, list, , , , , , )
+
+        'Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Qualitatskontrolle", listTowrite)
+
+
+        Return ""
+    End Function
+
+
     Shared Function FiskalInfoschreiben(usrCntl As usrcntlFiskalInfoschreiben) As String
         Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
         Dim oWord As New Microsoft.Office.Interop.Word.Application
@@ -5701,6 +5843,8 @@ Public Class FormularManagerArten
     Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"
     Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
 
+    Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
+
 
 
 End Class

SDL/SDL.vbproj

@@ -650,6 +650,12 @@
     <Compile Include="kassenbuch\frmPOSTerminal.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="kassenbuch\KassenbuchSuche\usrCntlQualitaetskontrolle.Designer.vb">
+      <DependentUpon>usrCntlQualitaetskontrolle.vb</DependentUpon>
+    </Compile>
+    <Compile Include="kassenbuch\KassenbuchSuche\usrCntlQualitaetskontrolle.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="kunden\Berichte\rptFrachtkostenberechnung.Designer.vb">
       <DependentUpon>rptFrachtkostenberechnung.vb</DependentUpon>
     </Compile>
@@ -3075,6 +3081,9 @@
     <EmbeddedResource Include="kassenbuch\frmPOSTerminal.resx">
       <DependentUpon>frmPOSTerminal.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="kassenbuch\KassenbuchSuche\usrCntlQualitaetskontrolle.resx">
+      <DependentUpon>usrCntlQualitaetskontrolle.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="kunden\Berichte\rptFrachtkostenberechnung.resx">
       <DependentUpon>rptFrachtkostenberechnung.vb</DependentUpon>
     </EmbeddedResource>

SDL/kassenbuch/KassenbuchSuche/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/kassenbuch/KassenbuchSuche/usrCntlQualitaetskontrolle.vb

@@ -0,0 +1,282 @@
+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
+    Dim packstueckeZOLL_TMP As String = ""
+
+
+    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"
+
+        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
+        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"))
+
+
+        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"))
+
+        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
+
+            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")
+            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
+
+
+            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")
+
+            If 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 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")
+
+            If 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
+
+            ' 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")
+
+            If 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
+
+    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
+End Class