neu

2021-01-19 20:26:05 +01:00
parent f25ff457b2
commit 2f7746d9ca
28 changed files with 2921 additions and 329 deletions
--- a/Gemeinsames/Gemeinsames.vbproj
+++ b/Gemeinsames/Gemeinsames.vbproj
@@ -164,6 +164,12 @@
    <Compile Include="subRptSendungenATA.vb">
      <SubType>Component</SubType>
    </Compile>
+    <Compile Include="subRptSendungenVorkosten.Designer.vb">
+      <DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="subRptSendungenVorkosten.vb">
+      <SubType>Component</SubType>
+    </Compile>
    <Compile Include="subRptSendungenZollpruefung.Designer.vb">
      <DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
    </Compile>
@@ -197,6 +203,9 @@
    <EmbeddedResource Include="subRptSendungenATA.resx">
      <DependentUpon>subRptSendungenATA.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="subRptSendungenVorkosten.resx">
+      <DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="subRptSendungenZollpruefung.resx">
      <DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
    </EmbeddedResource>
@@ -269,6 +278,11 @@
  <ItemGroup>
    <None Include="Resources\IMEX.png" />
  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\AMB.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
       Other similar extension points exist, see Microsoft.Common.targets.
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -70,6 +70,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property AMB() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("AMB", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
        '''</summary>
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -118,6 +118,9 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
  <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
--- a/Gemeinsames/Resources/AMB.png
+++ b/Gemeinsames/Resources/AMB.png
--- a/Gemeinsames/rptSendungen.vb
+++ b/Gemeinsames/rptSendungen.vb
@@ -6,6 +6,7 @@ Public Class rptSendungen
    Public imgPath As String
    Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
    Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
+    Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing

    Sub New()

@@ -16,12 +17,13 @@ Public Class rptSendungen

    End Sub

-    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
+    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
        InitializeComponent()
        Me.VALUES = VALUES
        Me.imgPath = imgPath
        Me.ZOLLANMELDUNG = ZOLLANMELDUNG
        Me.HANDLING = HANDLING
+        Me.VORKOSTEN = VORKOSTEN
        init()
    End Sub

@@ -178,13 +180,17 @@ Public Class rptSendungen
            End If
        End If

-
-        If ZOLLANMELDUNG IsNot Nothing Then
-            Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
-            SubReport.Report = s
-        ElseIf HANDLING IsNot Nothing Then
-            Dim s = New subRptSendungenATA(HANDLING)
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Dim s = New subRptSendungenVorkosten(VORKOSTEN)
            SubReport.Report = s
+        Else
+            If ZOLLANMELDUNG IsNot Nothing Then
+                Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
+                SubReport.Report = s
+            ElseIf HANDLING IsNot Nothing Then
+                Dim s = New subRptSendungenATA(HANDLING)
+                SubReport.Report = s
+            End If
        End If

    End Sub
--- a/Gemeinsames/subRptSendungenVorkosten.Designer.vb
+++ b/Gemeinsames/subRptSendungenVorkosten.Designer.vb
@@ -0,0 +1,167 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subRptSendungenVorkosten
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenVorkosten))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirma, Me.txtLeistung, Me.txtPreis})
+        Me.Detail.Height = 0.1665355!
+        Me.Detail.Name = "Detail"
+        '
+        'txtFirma
+        '
+        Me.txtFirma.CanGrow = False
+        Me.txtFirma.Height = 0.1665355!
+        Me.txtFirma.Left = 0!
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.txtFirma.Text = "Firma"
+        Me.txtFirma.Top = 0!
+        Me.txtFirma.Width = 1.46063!
+        '
+        'txtLeistung
+        '
+        Me.txtLeistung.CanGrow = False
+        Me.txtLeistung.Height = 0.1665355!
+        Me.txtLeistung.Left = 1.46063!
+        Me.txtLeistung.Name = "txtLeistung"
+        Me.txtLeistung.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.txtLeistung.Text = "Leistung"
+        Me.txtLeistung.Top = 0!
+        Me.txtLeistung.Width = 1.527559!
+        '
+        'txtPreis
+        '
+        Me.txtPreis.CanGrow = False
+        Me.txtPreis.Height = 0.1665355!
+        Me.txtPreis.Left = 2.98819!
+        Me.txtPreis.Name = "txtPreis"
+        Me.txtPreis.Style = "font-size: 9pt; text-align: right; ddo-char-set: 1"
+        Me.txtPreis.Text = "Preis"
+        Me.txtPreis.Top = 0!
+        Me.txtPreis.Width = 0.9228347!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox1})
+        Me.GroupHeader1.Height = 0.4791666!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'TextBox10
+        '
+        Me.TextBox10.CanGrow = False
+        Me.TextBox10.Height = 0.1456693!
+        Me.TextBox10.Left = 0!
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.TextBox10.Text = "Firma"
+        Me.TextBox10.Top = 0.2862205!
+        Me.TextBox10.Width = 1.46063!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.CanGrow = False
+        Me.TextBox11.Height = 0.1456693!
+        Me.TextBox11.Left = 1.46063!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.TextBox11.Text = "Leistung"
+        Me.TextBox11.Top = 0.2862205!
+        Me.TextBox11.Width = 1.527559!
+        '
+        'TextBox12
+        '
+        Me.TextBox12.CanGrow = False
+        Me.TextBox12.Height = 0.1456693!
+        Me.TextBox12.Left = 2.988189!
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.TextBox12.Text = "Preis"
+        Me.TextBox12.Top = 0.2862205!
+        Me.TextBox12.Width = 0.9228347!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.CanGrow = False
+        Me.TextBox1.Height = 0.2393701!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-decoration: underline;" &
+    " ddo-char-set: 1"
+        Me.TextBox1.Text = "Vorkosten"
+        Me.TextBox1.Top = 0!
+        Me.TextBox1.Width = 1.46063!
+        '
+        'subRptSendungenVorkosten
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 4.03189!
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/Gemeinsames/subRptSendungenVorkosten.resx
+++ b/Gemeinsames/subRptSendungenVorkosten.resx
@@ -0,0 +1,126 @@
+<?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="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>
--- a/Gemeinsames/subRptSendungenVorkosten.vb
+++ b/Gemeinsames/subRptSendungenVorkosten.vb
@@ -0,0 +1,37 @@
+
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports System.Data
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class subRptSendungenVorkosten
+
+    Dim VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
+
+    Sub New(VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me.VORKOSTEN = VORKOSTEN
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFirma.Text = CStr(Me.Fields.Item("FIRMA").Value)
+        txtLeistung.Text = CStr(Me.Fields.Item("LEISTUNG").Value)
+        txtPreis.Text = CDbl(Me.Fields.Item("PREIS").Value).ToString("C2")
+
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        Dim dt As New DataTable
+        dt.Columns.Add("FIRMA", System.Type.GetType("System.String"))
+        dt.Columns.Add("LEISTUNG", System.Type.GetType("System.String"))
+        dt.Columns.Add("PREIS", System.Type.GetType("System.String"))
+        For Each s In VORKOSTEN
+            dt.Rows.Add({s.sndvk_Firma, s.sndvk_LeistungsBez, s.sndvk_Preis})
+        Next
+        Me.DataSource = dt
+    End Sub
+End Class