Asfinag, UID-Pruefung

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.6.8")>
+<Assembly: AssemblyVersion("1.2.6.9")>
-<Assembly: AssemblyFileVersion("1.2.6.8")>
+<Assembly: AssemblyFileVersion("1.2.6.9")>

SDL/SDL.vbproj

@@ -715,6 +715,12 @@
     <Compile Include="kunden\usrcntlVertraege.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="mdm\ASFINAG\rptASFINAG_Anhang.Designer.vb">
+      <DependentUpon>rptASFINAG_Anhang.vb</DependentUpon>
+    </Compile>
+    <Compile Include="mdm\ASFINAG\rptASFINAG_Anhang.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="mdm\Besuchsberichte\frmBesuchsberichte.Designer.vb">
       <DependentUpon>frmBesuchsberichte.vb</DependentUpon>
     </Compile>
@@ -3120,6 +3126,9 @@
     <EmbeddedResource Include="kunden\usrcntlVertraege.resx">
       <DependentUpon>usrcntlVertraege.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="mdm\ASFINAG\rptASFINAG_Anhang.resx">
+      <DependentUpon>rptASFINAG_Anhang.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="mdm\Besuchsberichte\frmBesuchsberichte.resx">
       <DependentUpon>frmBesuchsberichte.vb</DependentUpon>
     </EmbeddedResource>

SDL/mdm/ASFINAG/rptASFINAG_Anhang.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>

SDL/mdm/ASFINAG/rptASFINAG_Anhang.vb

@@ -0,0 +1,7 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptASFINAG_Anhang
+
+
+End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,6 +1,7 @@
 Imports System.Data.OleDb
 Imports System.IO
 Imports com.sun.jdi
+Imports com.sun.net.httpserver.Authenticator
 Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung
 Imports sun.nio.cs.ext
 Imports VERAG_PROG_ALLGEMEIN
@@ -95,7 +96,17 @@ Public Class frmMDMDatenverarbetiung
                     'End If
                 End If
             Case "ASFINAG"
+
+                cbxASFINAGNichtAbgerechnet.Checked = False
+
+
                 MsgBox("Funktion nicht implementiert")
+                Exit Sub
+
+                genRGAtt_ASFINAG()
+
+
+
 
         End Select
     End Sub
@@ -201,16 +212,51 @@ Public Class frmMDMDatenverarbetiung
         Dim displayFilter = False
         Dim sqlstr As String = ""
 
-        If datum = Nothing Then Exit Sub
+        If datum = Nothing Then
+            datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from  Abrechnungsdatum", "ASFINAG")
+        End If
+
+        'umschreiben, damit er die Daten nicht aus TTRBody sondern tblMautAsfinag holt.... 
+
+        ' sqlstr &= " SELECT dbo.TTRBody.CardNumber,Adressen.AdressenNr AS KundenNr,Adressen.[Name 1], dbo.CLFArchiv.vehicleLicensePlate,dbo.TTRBody.DeliveryDate, 'ASFINAG ' + ISNULL(dbo.tblWarenarten.WarenartDE, dbo.tblWarenarten.ProductCode) as ProductCode,dbo.TTRBody.amountInclVAT - dbo.TTRBody.VATAmount as Netamount,dbo.TTRBody.VATAmount,dbo.TTRBody.amountInclVAT
+        '                 FROM dbo.CLFArchiv RIGHT OUTER JOIN
+        '               dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.InfoField LEFT OUTER JOIN
+        '               dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
+        'INNER JOIN [VERAG].[dbo].Kreditkarten ON dbo.TTRBody.CardNumber = Kreditkarten.KartenNr
+        'INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr
+        '             WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (TTRBody.abrechnungsdatum = '" & datum.ToShortDateString & "')
+        '             ORDER BY dbo.TTRBody.CardNumber"
+
+
+        '      sqlstr &= "select [cardnumber] as CardNumber
+        ',Adressen.AdressenNr AS KundenNr
+        ',Adressen.[Name 1]
+        '    ,[licenceplate] as vehicleLicensePlate
+        '    ,[turnoverdate] as DeliveryDate
+        '    ,[contractPartner] as ProductCode
+        '    ,[netAmount]
+        '    ,[VATamount]
+        '    ,[additionalData]
+        '    ,[totalAmount] as amountInclVAT
+        'FROM [VERAG].[dbo].[tblAsfinagMaut]
+        'INNER JOIN [VERAG].[dbo].Kreditkarten ON cardnumber = Kreditkarten.KartenNr
+        'INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr"
+
+
+
+        sqlstr &= "select [cardnumber] as CardNumber
+		,Adressen.AdressenNr AS KundenNr
+		,Adressen.[Name 1]
+        ,[contractPartner] as ProductCode
+        ,sum([netAmount]) as Netamount
+        ,sum([VATamount]) as VATAmount
+        ,sum([totalAmount]) as amountInclVAT
+        FROM [VERAG].[dbo].[tblAsfinagMaut]
+        INNER JOIN [VERAG].[dbo].Kreditkarten ON cardnumber = Kreditkarten.KartenNr
+        INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr
+        group by  Adressen.AdressenNr,Adressen.[Name 1], contractPartner,CardNumber
+		order by Adressen.AdressenNr"
 
-        sqlstr &= " SELECT dbo.TTRBody.CardNumber,Adressen.AdressenNr AS KundenNr,Adressen.[Name 1], dbo.CLFArchiv.vehicleLicensePlate,dbo.TTRBody.DeliveryDate, 'ASFINAG ' + ISNULL(dbo.tblWarenarten.WarenartDE, dbo.tblWarenarten.ProductCode) as ProductCode,dbo.TTRBody.amountInclVAT - dbo.TTRBody.VATAmount as Netamount,dbo.TTRBody.VATAmount,dbo.TTRBody.amountInclVAT
-                        FROM         dbo.CLFArchiv RIGHT OUTER JOIN
-                      dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.InfoField LEFT OUTER JOIN
-                      dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
-					  INNER JOIN [VERAG].[dbo].Kreditkarten ON dbo.TTRBody.CardNumber = Kreditkarten.KartenNr
-					  INNER JOIN [VERAG].[dbo].Adressen ON Adressen.AdressenNr = Kreditkarten.AdressenNr
-                    WHERE (dbo.TTRBody.PKHistory = 0) AND (dbo.TTRBody.PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (TTRBody.abrechnungsdatum = '" & datum.ToShortDateString & "')
-                    ORDER BY dbo.TTRBody.CardNumber"
 
 
         Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "ASFINAG")
@@ -468,7 +514,7 @@ Public Class frmMDMDatenverarbetiung
             .Columns.Clear()
             'MsgBox(.sql)
 
-            .SET_SQL(" SELECT dbo.TTRBody.OBUID,dbo.TTRBody.CardNumber,dbo.TTRBody.receiptNumber,dbo.TTRBody.receiptNumber,dbo.TTRBody.VATAmount,dbo.TTRBody.amountInclVAT,dbo.TTRBody.abrechnungsdatum, dbo.tblWarenarten.WarenartDE, dbo.CLFArchiv.vehicleLicensePlate
+            .SET_SQL(" SELECT dbo.TTRBody.OBUID,dbo.TTRBody.CardNumber,dbo.TTRBody.receiptNumber,dbo.TTRBody.VATAmount,dbo.TTRBody.amountInclVAT,dbo.TTRBody.abrechnungsdatum, dbo.tblWarenarten.WarenartDE, dbo.CLFArchiv.vehicleLicensePlate
                             FROM dbo.CLFArchiv 
                             RIGHT OUTER JOIN dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.OBUID 
                             LEFT OUTER JOIN dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
@@ -484,48 +530,10 @@ Public Class frmMDMDatenverarbetiung
                 .Columns("OBUID").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                 .Columns("CardNumber").HeaderText = "Kartennummer"
                 .Columns("abrechnungsdatum").HeaderText = "Abrechnungsdatum"
-                .Columns("receiptNumber").HeaderText = "Rechnugnsnummer"
+                .Columns("receiptNumber").HeaderText = "Rechnungsnummer"
                 .Columns("VATAmount").HeaderText = "MWST"
                 .Columns("amountInclVAT").HeaderText = "Brutto"
 
-                '.Columns("VERAGLeistungsNr").ReadOnly = False
-                '.Columns("VERAGKdNr").ReadOnly = False
-
-                'For Each r As DataGridViewColumn In .Columns
-                '    If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
-                '        r.ReadOnly = False
-                '    Else
-                '        r.ReadOnly = True
-                '    End If
-                'Next
-
-
-                'Dim c As New DataGridViewTextBoxColumn
-                'c.Name = "VERAGKdNr"
-                'c.HeaderText = "VERAG KdNr"
-                'c.Width = 100
-                '.Columns.Insert(1, c)
-
-                'c = New DataGridViewTextBoxColumn
-                'c.Name = "VERAGLeistungsNr"
-                'c.HeaderText = "VERAG/PLOSE LeistungsNr."
-                'c.Width = 100
-                '.Columns.Insert(2, c)
-
-                'c = New DataGridViewTextBoxColumn
-                'c.Name = "KundeOffertenNr"
-                'c.HeaderText = "Kunde OffertenNr."
-                'c.Width = 100
-                '.Columns.Insert(3, c)
-
-                'c = New DataGridViewTextBoxColumn
-                'c.Name = "KundeLeistungsNr"
-                'c.HeaderText = "Kunde LeistungsNr."
-                'c.Width = 100
-                '.Columns.Insert(4, c)
-
-
-
                 .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
 
             End If
@@ -742,6 +750,133 @@ Public Class frmMDMDatenverarbetiung
     End Function
 
 
+    Function genRGAtt_ASFINAG() As Boolean
+
+        If cbxASFINAGNichtAbgerechnet.Checked = True Then
+            MsgBox("Bitte abgerechnete Daten auswählen!")
+            Return False
+        End If
+
+        Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT Maut.*,Adressen.AdressenNr  FROM (SELECT Kreditkarten.KartenNr AS Kartennummer, Adressen.AdressenNr AS KundenNr FROM Adressen INNER JOIN Kreditkarten ON Adressen.AdressenNr = Kreditkarten.AdressenNr) as KUK INNER JOIN [tblAsfinagMaut] as Maut ON KUK.Kartennummer = Maut.cardnumber INNER JOIN Adressen ON KUK.KundenNr = Adressen.AdressenNr", "FMZOLL")
+
+        If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
+            MsgBox("Keine Daten!")
+            Return False
+        End If
+
+        Dim dt_Main_PDF As DataTable = SQL.loadDgvBySql_Param("SELECT Maut.cardnumber, Maut.licenceplate, Maut.turnoverdate, Maut.contractPartner, Maut.netAmount, Maut.VATamount, Maut.totalAmount, Maut.[additionalData],Maut.receiptNumber, KUK.KundenNr, KUK.[Name 1] FROM (
+                                                            SELECT Kreditkarten.KartenNr AS Kartennummer, Adressen.AdressenNr AS KundenNr, Adressen.[Name 1]
+                                                            FROM Adressen INNER JOIN Kreditkarten ON Adressen.AdressenNr = Kreditkarten.AdressenNr) as KUK
+                                                            INNER JOIN [tblAsfinagMaut] as Maut ON KUK.Kartennummer = Maut.cardnumber
+                                                            INNER JOIN Adressen ON KUK.KundenNr = Adressen.AdressenNr
+                                                            WHERE (Adressen.Rechnungsdruck)<>2", "FMZOLL")
+
+
+        Dim dt_Main_CSV As DataTable = SQL.loadDgvBySql_Param("SELECT Adressen.AdressenNr, Maut.*
+                                                                FROM Adressen INNER JOIN (Kreditkarten INNER JOIN tblAsfinagMaut as Maut ON Kreditkarten.KartenNr = Maut.cardnumber) ON Adressen.AdressenNr = Kreditkarten.AdressenNr
+                                                                WHERE Adressen.ASFINAGExportCSV = 1
+                                                                ORDER BY Adressen.AdressenNr, Maut.cardnumber, Maut.licenceplate, Maut.turnoverdate", "FMZOLL")
+
+        Dim cnt = 0
+
+        Dim dv_main = New DataView(dt_Main, "", "AdressenNr", DataViewRowState.CurrentRows)
+        Dim dt_main_distinctKunden As DataTable = dv_main.ToTable(True, "AdressenNr")
+
+        If vbYes = MsgBox("Es wurden " & MyDatagridview1.Rows.Count & " Abrechnungen von " & dt_main_distinctKunden.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
+            Dim dir = "C:\Users\d.breimaier\Desktop\Asfinag\Mautberichte" '"F:\FMZoll\Maut\AT\Anlagen\SDL"
+
+            If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
+            Directory.CreateDirectory(dir)
+
+            If dt_Main_PDF IsNot Nothing AndAlso dt_Main_PDF.Rows.Count > 0 Then
+
+                Dim displayView = New DataView(dt_Main_PDF, "", "KundenNr", DataViewRowState.CurrentRows)
+                Dim distinctDT_PDF As DataTable = displayView.ToTable(True, "KundenNr")
+
+
+                For Each pdf As DataRow In distinctDT_PDF.Rows
+
+                    Dim dt_PDF_selected = dt_Main_PDF.Select("KundenNr ='" & pdf.Item(0) & "'").CopyToDataTable
+
+                    genASFINAGAttachmentByKdNr(pdf.Item(0), dt_PDF_selected, dir & "\" & pdf.Item(0) & "_Maut_AT.pdf")
+
+                Next
+
+            End If
+
+
+            If dt_Main_CSV IsNot Nothing AndAlso dt_Main_CSV.Rows.Count > 0 Then
+
+                Dim displayView = New DataView(dt_Main_CSV, "", "AdressenNr", DataViewRowState.CurrentRows)
+                Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "AdressenNr")
+
+
+                For Each csv As DataRow In distinctDT_CSV.Rows
+
+                    Dim dt_CSV_selected = dt_Main_CSV.Select("AdressenNr ='" & csv.Item(0) & "'").CopyToDataTable
+
+
+                    Dim fn As String = dir & "\" & csv.Item(0) & "_Maut_AT.csv"
+                    Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
+                    Dim clmns As String = ""
+                    For i = 0 To dt_CSV_selected.Columns.Count - 1
+                        clmns &= dt_CSV_selected.Columns(i).ColumnName.ToString().Replace(";", ",") & ";"
+                    Next
+                    outFile.WriteLine(clmns)
+                    For i = 0 To dt_CSV_selected.Rows.Count - 1
+                        clmns = ""
+                        For j = 0 To dt_CSV_selected.Columns.Count - 1
+                            clmns &= dt_CSV_selected.Rows(i)(j).ToString.Replace(";", ",") & ";"
+                        Next
+                        outFile.WriteLine(clmns)
+                    Next
+                    outFile.Close()
+                Next
+            End If
+
+
+
+            For Each R_ASFINAG In dt_Main.Rows
+                Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
+                Dim verarbOK = True
+                If Not genASFINAG_SPEDBUCH_ByKdNr(R_ASFINAG("AdressenNr"), SPEDBUCH) Then verarbOK = False
+                If Not genASFINAG_RECHNUNG_BySPEDBUCH(R_ASFINAG("AdressenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False
+
+                If True Then 'cnt Mod 10 = 0 Then
+                    txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
+                    Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
+                    pbPloseAnh_Proz.Value = proz
+                    lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
+                    'GroupBox12.Refresh()
+                    My.Application.DoEvents()
+                End If
+                cnt += 1
+            Next
+
+            ' ANHÄNGE WERDEN NCIHT BENÖTIGT::
+            'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren:
+            'Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\"
+            'If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
+            '    For Each f In Directory.GetFiles(dirAnhang)
+            '        File.Delete(f)
+            '    Next
+            'End If
+            'If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang)
+
+            'For Each f In Directory.GetFiles(dir)
+            '    File.Copy(f, dirAnhang & (New FileInfo(f)).Name)
+            'Next
+
+            pbPloseAnh_Proz.Value = 100
+            txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
+            lblPloseAnh_Proz.Text = "100.00 %"
+
+            Return True
+        End If
+        Return False
+    End Function
+
+
     Function genPLOSEInsertMautD(von As Date, bis As Date) As Boolean
         Try
             pic.Visible = False
@@ -1265,6 +1400,173 @@ Public Class frmMDMDatenverarbetiung
 
     End Function
 
+
+    Function genASFINAGAttachmentByKdNr(KdNr As Integer, dt As DataTable, tmpPath As String)
+        Try
+
+
+            If dt Is DBNull.Value Then Return ""
+            If dt.Rows.Count = 0 Then Return ""
+
+            Dim rpt As New rptASFINAG_Anhang
+
+            rpt.DataSource = dt
+
+            rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName
+            rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
+
+            rpt.GroupHeaderKz.DataField = "licenceplate" 'Gruppierung
+
+
+            'rpt.txtNettoKzSum.Visible = False
+            'rpt.txtNettoGesSum.Visible = False
+            'rpt.txtNetto.Visible = False
+            'rpt.txtNettoKatSum.Visible = False
+            'rpt.lblNetto.Visible = False
+
+            'rpt.txtMWSTKzSum.Visible = False
+            'rpt.txtMWSTGEsSum.Visible = False
+            'rpt.txtMWST.Visible = False
+            'rpt.txtMWSTKatSum.Visible = False
+            'rpt.lblMWST.Visible = False
+
+            'rpt.lblBrutto.Text = "Total Amount ( EUR )"
+            'rpt.Label4.Text = bis.ToShortDateString
+            'rpt.Label2.Text = "UTA-KundenNr:"
+            'rpt.TextBox1.Text = UTAKdNr
+            rpt.Label1.Text = " ASFINAG"
+
+            ' rpt.lblSummeKennzeichen.Visible = False
+            rpt.lblService.Visible = False
+
+            rpt.lblSummeKennzeichen.Location = New PointF(rpt.lblSummeKennzeichen.Location.X + 4.5, rpt.lblSummeKennzeichen.Location.Y)
+            'rpt.lblSumKategorie.Location = New PointF(rpt.lblSumKategorie.Location.X + 4.5, rpt.lblSumKategorie.Location.Y)
+            rpt.lblGessumme.Location = New PointF(rpt.lblGessumme.Location.X + 4.5, rpt.lblGessumme.Location.Y)
+            rpt.lblLand.Text = "AT"
+
+            Dim sumNetto As Double = 0
+            Dim sumMWST As Double = 0
+            Dim sumBrutto As Double = 0
+
+            Dim sumNettoKat As Double = 0
+            Dim sumMWSTKat As Double = 0
+            Dim sumBruttoKat As Double = 0
+
+            Dim sumNettoGes As Double = 0
+            Dim sumMWSTGes As Double = 0
+            Dim sumBruttoGes As Double = 0
+
+            Dim cntKat = 0
+            Dim cnt = 0
+            rpt.GroupFooterKat.Visible = False
+
+            AddHandler rpt.Detail.Format, Sub()
+                                              ' If cnt = 0 Then
+                                              rpt.txtKunde.Text = SQL.isDbnullEmpty(rpt.Fields.Item("KundenNr").Value, "")
+                                              rpt.txtKunde.Text &= " " & SQL.isDbnullEmpty(rpt.Fields.Item("Name 1").Value, "")
+                                              ' End If
+
+                                              '   rpt.txtProduktBeschreibung.Text = sql.isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
+                                              rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("contractPartner").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
+
+
+                                              rpt.txtKartennummer.Text = SQL.isDbnullEmpty(rpt.Fields.Item("cardnumber").Value, "")
+                                              rpt.txtAusgang.Text = "" 'SQL.isDbnullEmpty(rpt.Fields.Item("Exit Terminal Description").Value, "")
+                                              'rpt.txtLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Transaction Country").Value, "")
+                                              rpt.txtDatum.Text = SQL.isDbnullEmpty(rpt.Fields.Item("turnoverdate").Value, "")
+                                              rpt.txtEingang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("receiptNumber").Value, "")
+
+                                              rpt.txtNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("netAmount").Value, 2, "")
+                                              rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("VATamount").Value, 2, "")
+                                              rpt.txtBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("totalAmount").Value, 2, "")
+
+                                              sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("netAmount").Value, 4, 0)
+                                              sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("VATamount").Value, 4, 0)
+                                              sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("totalAmount").Value, 4, 0)
+                                              cnt += 1
+                                          End Sub
+
+            AddHandler rpt.GroupHeaderKz.Format, Sub()
+                                                     rpt.txtKennzeichen.Text = SQL.isDbnullEmpty(rpt.Fields.Item("licenceplate").Value, "")
+                                                     If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False
+                                                 End Sub
+            AddHandler rpt.GroupHeaderKat.Format, Sub()
+                                                      rpt.lblKategorie.Text = "MAUTGEBÜHR"
+                                                  End Sub
+
+            AddHandler rpt.GroupFooterKz.Format, Sub()
+                                                     rpt.txtNettoKzSum.Text = sumNetto.ToString("N2")
+                                                     rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2")
+                                                     rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2")
+                                                     sumNettoGes += sumNetto
+                                                     sumMWSTGes += sumMWST
+                                                     sumBruttoGes += sumBrutto
+
+                                                     sumNetto = 0
+                                                     sumMWST = 0
+                                                     sumBrutto = 0
+
+                                                     rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", SQL.isDbnullEmpty(rpt.Fields.Item("licenceplate").Value, ""))
+                                                 End Sub
+
+
+
+            AddHandler rpt.GroupFooterKat.Format, Sub()
+                                                      sumNettoKat += sumNetto
+                                                      sumMWSTKat += sumMWST
+                                                      sumBruttoKat += sumBrutto
+                                                      sumNetto = 0
+                                                      sumMWST = 0
+                                                      sumBrutto = 0
+
+                                                      rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2")
+                                                      rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2")
+                                                      rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2")
+                                                      cntKat += 1
+                                                  End Sub
+            AddHandler rpt.ReportFooter1.Format, Sub()
+                                                     'sumNettoGes += sumNettoKat
+                                                     'sumMWSTGes += sumMWSTKat
+                                                     'sumBruttoGes += sumBruttoKat
+                                                     sumNettoKat = 0
+                                                     sumMWSTKat = 0
+                                                     sumBruttoKat = 0
+
+                                                     sumNetto = 0
+                                                     sumMWST = 0
+                                                     sumBrutto = 0
+
+                                                     rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2")
+                                                     rpt.txtMWSTGEsSum.Text = sumMWSTGes.ToString("N2")
+                                                     rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2")
+
+
+
+                                                     'If cntKat <= 1 Then
+                                                     '    rpt.GroupFooterKat.Visible = False
+                                                     'End If
+                                                 End Sub
+
+            'print.Viewer.LoadDocument(rpt)
+            'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+            'print.Show()
+
+            Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
+            rpt.Run(False)
+            p.NeverEmbedFonts = ""
+            p.Export(rpt.Document, tmpPath)
+
+            rpt.Dispose()
+
+            Return tmpPath
+
+        Catch ex As System.Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return ""
+
+    End Function
+
     Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
         Try
 
@@ -1322,6 +1624,67 @@ Public Class frmMDMDatenverarbetiung
     End Function
 
 
+    Function genASFINAG_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
+        Try
+
+            'MsgBox("Funktion noch nicht vollständig implementiert!")
+            'Exit Function
+
+            'Dim displayFilter = False
+            'Dim sqlstr As String = ""
+
+            'sqlstr &= " SELECT 	 * "
+            'sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
+            'sqlstr &= " WHERE 1=1 "
+            'sqlstr &= " AND plose_Fakturiert=0 "
+            'sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
+            'sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
+
+            ''  sqlstr &= " group by plose_ProduktCode"
+            'sqlstr &= " order by plp_Land, plose_DatumTransaktion"
+
+            'Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
+
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+            SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+
+            Dim OffertenNr = 11
+            Dim Abfertigungsart = 10
+
+            SPEDBUCH.FilialenNr = 4814
+            SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
+            SPEDBUCH.NewUNTER_NR()
+
+            SPEDBUCH.Vermittler = AD.Ordnungsbegriff
+            SPEDBUCH.VermittlerKundenNr = KdNr
+            SPEDBUCH.VermittlerOffertenNr = OffertenNr
+            SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value.ToShortDateString
+
+            SPEDBUCH.Abfertigungsart = Abfertigungsart
+            SPEDBUCH.Bar = 0
+            SPEDBUCH.Fakturiert = 1
+            SPEDBUCH.AnzahlSonstiges = 1
+            SPEDBUCH.Abfertigungsanzahl = 1
+
+            SPEDBUCH.AvisUhrzeit = Nothing
+            SPEDBUCH.Umrechnungskurs = Nothing
+            SPEDBUCH.veoerz_basbtg = Nothing
+            SPEDBUCH.Sicherheitsbetrag = Nothing
+
+            SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+
+            Return SPEDBUCH.SAVE
+
+        Catch ex As System.Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return False
+
+    End Function
+
+
+
     Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, PLOSEKundenNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
         Try
 
@@ -1411,7 +1774,7 @@ Public Class frmMDMDatenverarbetiung
             sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
             sqlstr &= " WHERE 1=1 "
             sqlstr &= " AND plose_Fakturiert=0  "
-            sqlstr &= " AND  plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " )  "
+            sqlstr &= " AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " )  "
             sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
             sqlstr &= " AND plp_LeistungsNr is not null "
             sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
@@ -1480,6 +1843,224 @@ Public Class frmMDMDatenverarbetiung
 
     End Function
 
+    Function genASFINAG_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
+        Try
+
+            'MsgBox("Funktion noch nicht vollständig implementiert!")
+            'Exit Function
+
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
+            Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
+            Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
+
+            Dim OffertenNr = 11
+            Dim Abfertigungsart = 10
+
+            RG.FilialenNr = SPEDBUCH.FilialenNr
+            RG.AbfertigungsNr = SPEDBUCH.AbfertigungsNr
+            RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
+            RG.UnterNr = RG.getMaxRGUnterNr()
+
+            RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
+            RG.FilialenNr = SPEDBUCH.FilialenNr
+            RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
+            RG.Sammelrechnung = 6 'MAUT/DIESEL
+            RG.BelegartenKz = "AR"
+            RG.BelegartenNr = 70
+            RG.BelegartenBez = "Rechnung"
+            RG.Vorzeichen = "+"
+
+            RG.VermittlerKundenNr = AD.AdressenNr
+            RG.VermittlerLandKz = AD.LandKz
+            RG.VermittlerName_1 = AD.Name_1
+            RG.VermittlerName_2 = AD.Name_2
+            RG.VermittlerOffertenNr = OffertenNr
+            RG.VermittlerOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
+            RG.VermittlerStraße = AD.Straße
+            RG.Rechnung_an = 3
+            RG.OffertenNr = OffertenNr
+
+            RG.KundenNrZentrale = KD.KundenNrZentrale
+            RG.RechnungsKundenNr = AD.AdressenNr
+            RG.RechnungsLandKz = AD.LandKz
+            RG.RechnungsName_1 = AD.Name_1
+            RG.RechnungsName_2 = AD.Name_2
+            RG.RechnungsOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
+            RG.RechnungsStraße = AD.Straße
+
+            RG.RechnungsUstIdKz = AD.UstIdKz
+            RG.RechnungsUstIdNr = AD.UstIdNr
+            RG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
+
+            RG.Lastschrift = KD.Lastschrift
+            RG.Kunden_SVS = KD.SVS
+            RG.Steuerschlüssel = KD.Steuerschlüssel
+            RG.Vorkasse = KD.Vorkasse
+            RG.Vorlageprovision_Proz = KD.Vorlageprovision
+            RG.Kreditaufwendungen_Proz = KD.Kreditaufwendungen
+            RG.RechnungSprache = "DE"
+
+
+            RG.Anlage_1 = "Email Anhang"
+            RG.Anlage_2 = ""
+            RG.Anlage_3 = ""
+            RG.Anlage_4 = ""
+            RG.Anlage_5 = ""
+            RG.Anlage_6 = ""
+
+
+            RG.Text = ""
+            RG.EMailRechnungstext = Nothing ' ""
+
+            RG.Firma_ID = 15
+            RG.Nettozahlungsziel = KD.Zahlungsziel
+
+            RG.SteuerpflichtigerGesamtbetrag = 0
+            RG.SteuerfreierGesamtbetrag = 0
+            RG.Status = 9 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0
+
+            RG.[Vorkosten] = 0
+            RG.[Erlös] = 0
+            RG.[Buchungsjahr] = 0
+            RG.[Währungscode] = "EUR"
+            RG.ReErfZeitstempel = Now
+
+
+            RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+            RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum)
+
+            Dim sqlstr_mitMWSt As String = "SELECT '135' as leistungsNr, [contractPartner] as ProductCode, sum([netAmount]) as netamount ,sum([VATamount]) as Vatamount ,sum([totalAmount]) as amountInclVAT FROM Kreditkarten INNER JOIN tblAsfinagMaut ON Kreditkarten.KartenNr = tblAsfinagMaut.cardnumber Where Kreditkarten.AdressenNr= '" & KD.KundenNr & "' and tblAsfinagMaut.VATamount <> 0 Group by [contractPartner]"
+
+            Dim sqlstr_ohneMWSt As String = "SELECT '153' as leistungsNr, [contractPartner] as ProductCode, sum([netAmount]) as netamount ,sum([VATamount]) as Vatamount ,sum([totalAmount]) as amountInclVAT FROM Kreditkarten INNER JOIN tblAsfinagMaut ON Kreditkarten.KartenNr = tblAsfinagMaut.cardnumber Where Kreditkarten.AdressenNr= '" & KD.KundenNr & "' and tblAsfinagMaut.VATamount = 0 Group by [contractPartner]"
+
+            Dim dt_mitMwSt As DataTable = SQL.loadDgvBySql_Param(sqlstr_mitMWSt, "FMZOLL")
+
+            Dim dt_ohneMwsT As DataTable = SQL.loadDgvBySql_Param(sqlstr_ohneMWSt, "FMZOLL")
+
+            Dim dt As New DataTable
+
+            If (dt_mitMwSt IsNot Nothing AndAlso dt_mitMwSt.Rows.Count > 0) And (dt_ohneMwsT IsNot Nothing AndAlso dt_ohneMwsT.Rows.Count > 0) Then
+
+                dt_mitMwSt.Merge(dt_ohneMwsT, False, MissingSchemaAction.Add)
+
+                dt = dt_mitMwSt.Copy
+
+            ElseIf dt_ohneMwsT IsNot Nothing AndAlso dt_ohneMwsT.Rows.Count > 0 Then
+
+                dt = dt_ohneMwsT.Copy
+            Else
+
+                dt = dt_mitMwSt.Copy
+
+            End If
+
+
+            For Each r In dt.Rows
+
+
+                Dim NettoBetrag As Double = r("netamount")
+                Dim BruttoBetrag As Double = r("amountInclVAT")
+                Dim LeistungsNr As Integer = r("leistungsNr")
+                Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
+
+                allPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag) 'kann generisch verwendet werden
+
+                'Rückvergütung Consortio !!
+                'If r("plp_LeistungsNr") = "190" Then '(PRODUCTCODE=301; VERAG-LEISTUNGSNR=190!!
+                '    rabattPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
+                'End If
+            Next
+
+
+            Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'')  FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
+            If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
+                RG.Steuersatz_Proz = dtSt.Rows(0)(0)
+            End If
+
+            cFakturierung.setGesamtBetraege(RG)
+
+            RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim
+
+            ' Call usrCntlFaktAbrechnung.przSVSRVS(RG)      ' SVS/RVS errechnen
+            '  Call przSKR()         ' SKR errechnen
+
+            'Call usrCntlFaktAbrechnung.przVL(RG)          ' Vorlageprovision errechnen
+            'Call usrCntlFaktAbrechnung.przKapitalbereitstellung(RG) 'Kapitalbereitstellung errechnen
+
+            ' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen
+
+            ' Call usrCntlFaktAbrechnung.przKA(RG)          ' Kreditaufwendungen errechnen
+            Call usrCntlFaktAbrechnung.przFixeTaxe(RG)    ' Fixe Taxe errechnen
+            Call usrCntlFaktAbrechnung.przPP(RG)          ' Porto/Papiere errechnen
+
+            Call usrCntlFaktAbrechnung.przBS415(RG)       ' Bankspesen errechnen
+
+            If RG.SAVE Then
+                ' FAKTURIERT eintragen
+                'For Each r In dt.Rows
+                '    SQL.doSQL("UPDATE [tblPLOSE_Details]SET plose_Fakturiert=1, plose_FakturiertDatum='" & datPloseAnhang.Value & "' where plose_Id='" & r("plose_id") & "'", "FMZOLL")
+                'Next
+                Return True
+            Else
+                Return False
+            End If
+
+        Catch ex As System.Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Return ""
+
+        '################################  Code von FMZOLL #########################################################
+
+        '                Do Until rstOffPos.EOF
+        '                    'Offertenposition als Rechnungsposition übernehmen.
+        '4630             With rstRP
+        '4640                 .AddNew
+        '4650                 !RK_ID = rstRK!RK_ID
+        '4660                 !LeistungsNr = rstOffPos!LeistungsNr
+        '4670                 If rstRK![Steuersatz %] = 0 Then    ' keine Steuerpflicht
+        '4680                     ![steuerpflichtig] = False
+        '4690                 Else    ' LeistungsNr bestimmt Steuerpflicht
+        '4700                     ![steuerpflichtig] = DLookup("[Steuerpflichtig]", "Leistungen", "[LeistungsNr]=" & ![LeistungsNr])
+        '4710                 End If
+        '4720                 !LeistungsBez = rstOffPos!LeistungsBez
+        '4730                 !BerechnungsartNr = rstOffPos!BerechnungsartNr
+        '4740                 !Preis = fktEuro(rstOffPos!Preis, rstKu!Währungscode, rstRK!Währungscode)
+        '4750                 !Anzahl = rstOffPos!Anzahl
+        '4760                 !BGebLeistungsNr = rstOffPos!BGebLeistungsNr
+        '4770                 !BGebProzent = rstOffPos!BGebProzent
+        '4780                 !BGebMinBetrag = rstOffPos!BGebMinBetrag
+        '4790                 If Not IsNull(![Preis]) Then
+        '4800                     ![Preisbindung] = True
+        '4810                 Else
+        '4820                     ![Preisbindung] = False
+        '4830                     Select Case rstRK!OffertenNr
+        '                             Case 11 'LKW Maut AT
+        '4840                             Select Case !LeistungsNr
+        '                                     Case 135                        ' Mautberechnung für Österreich steuerpflichtig
+        '4850                                     !Anzahl = 1
+        '4860                                     !Preis = DSum("[Nettobetrag]", "qryMautbetrag_AT_Stpfl", "[Kundennummer]=" & rstRK![RechnungsKundenNr])
+        '4870                                 Case 153                        ' Mautberechnung für Österreich steuerfrei
+        '4880                                     !Anzahl = 1
+        '4890                                     !Preis = DSum("[Nettobetrag]", "qryMautbetrag_AT_Stfrei", "[Kundennummer]=" & rstRK![RechnungsKundenNr])
+        '4900                             End Select
+
+        '            .
+        '            .
+        '            .
+        '            .
+        '               If IsNull(![Preis]) Or ![Preis] = 0 Or IsNull(![Anzahl]) Or ![Anzahl] = 0 Then
+        '                 .Delete
+        '                .
+        '                .
+        '                .
+        '                .
+
+        '################################  Code von FMZOLL #########################################################
+
+    End Function
+
 
     Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double)
         Try
@@ -1526,6 +2107,7 @@ Public Class frmMDMDatenverarbetiung
         End Try
         Return False
     End Function
+
     Function rabattPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double)
         Try
             Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
@@ -1834,7 +2416,11 @@ Public Class frmMDMDatenverarbetiung
             MyDatagridview1.ClearSelection()
             MyDatagridview1.DataSource = dtAsfinagKartenpruef
             Dim count = MyDatagridview1.Rows.Count()
-            If count > 0 Then lblProzPruef.Text = CInt(cnt / count * 100) & " %" '100
+            If count > 0 Then
+                lblProzPruef.Text = CInt(cnt / count * 100) & " %" '100
+            Else
+                cbxASFINAGNichtAbgerechnet.Checked = False
+            End If
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
             pruefData_ASFINAG = False
@@ -2021,7 +2607,7 @@ Public Class frmMDMDatenverarbetiung
         initLieferant("ASFINAG", sender)
     End Sub
 
-    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles bntDatumsetzen.Click
+    Private Function setFakturiert_ASFINAG() As Boolean
         'Abrechnungsdatum setzen
 
         If cbxASFINAGNichtAbgerechnet.Checked = False Then
@@ -2029,18 +2615,19 @@ Public Class frmMDMDatenverarbetiung
         End If
 
         If MyDatagridview1.Rows.Count = 0 Then
-            MsgBox("keine Daten zum abrechnen vorhanden!")
+            MsgBox("keine Daten zum Abrechnen vorhanden!")
-            Exit Sub
+            Return False
         End If
 
         Dim f As New frmDatumsabfrage()
         f.ShowDialog()
         If f.DialogResult = DialogResult.OK Then
+            datum = f.Datum
             SQL.doSQL("DELETE FROM tblAsfinagMaut", "FMZOLL")
             If SQL.doSQL("Update Abrechnungsdatum SET Abrechnungsdatum = '" & f.Datum.ToShortDateString & "'", "ASFINAG") Then
                 If SQL.doSQL("UPDATE dbo.TTRBody SET Abrechnungsdatum = '" & f.Datum.ToShortDateString & "' WHERE (PKHistory = 0) AND (PKFileName LIKE N'" & checkifTestfiles() & ".%') AND (FileCreationDate <= '" & f.Datum.ToShortDateString & "') AND (abrechnungsdatum IS NULL)", "ASFINAG") Then
 
-                    Dim dt As DataTable = SQL.loadDgvBySql("Select dbo.TTRBody.OBUID, dbo.TTRBody.CardNumber, dbo.TTRBody.receiptNumber, dbo.TTRBody.VATAmount, dbo.TTRBody.amountInclVAT, dbo.TTRBody.abrechnungsdatum, dbo.tblWarenarten.WarenartDE, dbo.CLFArchiv.vehicleLicensePlate, dbo.TTRBody.InfoField, dbo.TTRBody.ProductCode, dbo.TTRBody.Town 
+                    Dim dt As DataTable = SQL.loadDgvBySql("Select dbo.TTRBody.OBUID, dbo.TTRBody.CardNumber, dbo.TTRBody.receiptNumber, dbo.TTRBody.VATAmount, dbo.TTRBody.amountInclVAT, dbo.TTRBody.DeliveryDate,dbo.TTRBody.abrechnungsdatum, dbo.tblWarenarten.WarenartDE, dbo.CLFArchiv.vehicleLicensePlate, dbo.TTRBody.InfoField, dbo.TTRBody.ProductCode, dbo.TTRBody.Town 
                             From dbo.CLFArchiv 
                             RIGHT OUTER Join dbo.TTRBody ON dbo.CLFArchiv.OBUID = dbo.TTRBody.OBUID 
                             LEFT OUTER Join dbo.tblWarenarten ON dbo.TTRBody.ProductCode = dbo.tblWarenarten.ProductCode
@@ -2048,18 +2635,19 @@ Public Class frmMDMDatenverarbetiung
                             Order By dbo.TTRBody.CardNumber, dbo.TTRBody.FileCreationDate, dbo.TTRBody.PKHistory, dbo.TTRBody.PKFileName, dbo.TTRBody.PKLine", "ASFINAG")
                     If dt.Rows.Count = 0 Then
                         MsgBox("Es wurden keine Daten in tblAsfinagMaut geschrieben!")
-                        Exit Sub
+                        Return False
                     End If
                     For Each row As DataRow In dt.Rows
                         Dim maut As New cAsfinagMaut()
                         maut.cardnumber = row.Item("CardNumber")
                         maut.licenceplate = IIf(Not IsDBNull(row.Item("vehicleLicensePlate")), row.Item("vehicleLicensePlate"), row.Item("InfoField"))
-                        maut.turnoverdate = row.Item("abrechnungsdatum")
+                        maut.turnoverdate = row.Item("DeliveryDate")
                         maut.contractPartner = "ASFINAG " & IIf(Not IsDBNull(row.Item("WarenartDE")), row.Item("WarenartDE"), "Product Code " & row.Item("ProductCode"))
                         maut.netAmount = CDbl(row.Item("amountInclVAT")) - CDbl(row.Item("VATAmount"))
                         maut.VATamount = CDbl(row.Item("VATAmount"))
                         maut.totalAmount = CDbl(row.Item("amountInclVAT"))
                         maut.additionalData = row.Item("Town") 'wird nicht mehr verwendet????
+                        maut.receiptnumber = row.Item("receiptNumber")
                         maut.SAVE()
                     Next
                     MsgBox("Abrechnungsdatum gesetzt!")
@@ -2071,7 +2659,8 @@ Public Class frmMDMDatenverarbetiung
         End If
 
 
-    End Sub
+    End Function
+
 
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles bntDatumzuruecksetzen.Click
         If cbxASFINAGNichtAbgerechnet.Checked = True Then
@@ -2083,12 +2672,15 @@ Public Class frmMDMDatenverarbetiung
             Exit Sub
         End If
 
-        Dim datum = CDate(SQL.getValueTxtBySql("Select Abrechnungsdatum FROM Abrechnungsdatum", "ASFINAG"))
+        Dim datumDel = CDate(SQL.getValueTxtBySql("Select Abrechnungsdatum FROM Abrechnungsdatum", "ASFINAG"))
 
-        If MsgBox("Möchten Sie das Abrechnungsdatum vom " & datum.ToShortDateString & " zurücksetzen?", vbYesNoCancel) = MsgBoxResult.Yes Then
+        If MsgBox("Möchten Sie das Abrechnungsdatum vom " & datumDel.ToShortDateString & " zurücksetzen?", vbYesNoCancel) = MsgBoxResult.Yes Then
-            If SQL.doSQL("UPDATE dbo.TTRBody Set Abrechnungsdatum = NULL WHERE Abrechnungsdatum = '" & datum & "' AND (PKHistory = 0) AND (PKFileName LIKE '%" & checkifTestfiles() & ".%')", "ASFINAG") Then
+            If SQL.doSQL("UPDATE dbo.TTRBody Set Abrechnungsdatum = NULL WHERE Abrechnungsdatum = '" & datumDel & "' AND (PKHistory = 0) AND (PKFileName LIKE '%" & checkifTestfiles() & ".%')", "ASFINAG") Then
-                MsgBox("Abrechnungsdatum zurückgesetzt!")
+                If SQL.doSQL("DELETE FROM tblAsfinagMaut", "FMZOLL") Then
+                    MsgBox("Abrechnungsdatum zurückgesetzt!")
+                End If
                 cbxASFINAGNichtAbgerechnet.Checked = True
+
                 'initDgv_ASFINAG(cbxASFINAGNichtAbgerechnet.Checked)
             End If
         End If
@@ -2111,4 +2703,8 @@ Public Class frmMDMDatenverarbetiung
     Private Sub cbxASFINAGNichtAbgerechnet_CheckedChanged(sender As Object, e As EventArgs) Handles cbxASFINAGNichtAbgerechnet.CheckedChanged
         If Me.LIEFERANT = "ASFINAG" Then initDgv_ASFINAG(Not cbxASFINAGNichtAbgerechnet.Checked)
     End Sub
+
+    Private Sub bntDatumsetzen_Click(sender As Object, e As EventArgs) Handles bntDatumsetzen.Click
+        setFakturiert_ASFINAG()
+    End Sub
 End Class

SDL/mdm/rptASFINAG_TransaktionenSumary.Designer.vb

@@ -30,6 +30,11 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
         Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblName1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSumNet = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSumVat = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSumBrt = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
         Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -48,11 +53,6 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
         Me.lblSumMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblName1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblSumNet = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblSumVat = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.lblSumBrt = New GrapeCity.ActiveReports.SectionReportModel.Label()
-        Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
         CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -63,6 +63,11 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblName1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSumNet, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSumVat, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSumBrt, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -75,11 +80,6 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblName1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblSumNet, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblSumVat, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.lblSumBrt, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
         '
         'PageHeader
@@ -243,6 +243,73 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         Me.lblMWST.Top = 0.2846457!
         Me.lblMWST.Width = 0.9169284!
         '
+        'lblName1
+        '
+        Me.lblName1.DataField = ""
+        Me.lblName1.Height = 0.1417323!
+        Me.lblName1.HyperLink = Nothing
+        Me.lblName1.Left = 0.8834646!
+        Me.lblName1.Name = "lblName1"
+        Me.lblName1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
+        Me.lblName1.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
+    ": 1"
+        Me.lblName1.Text = "Name1"
+        Me.lblName1.Top = 0.05196851!
+        Me.lblName1.Width = 4.159056!
+        '
+        'lblSumNet
+        '
+        Me.lblSumNet.DataField = ""
+        Me.lblSumNet.Height = 0.1417323!
+        Me.lblSumNet.HyperLink = Nothing
+        Me.lblSumNet.Left = 5.123229!
+        Me.lblSumNet.Name = "lblSumNet"
+        Me.lblSumNet.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblSumNet.Text = "Betrag"
+        Me.lblSumNet.Top = 0.5279528!
+        Me.lblSumNet.Width = 0.9169284!
+        '
+        'lblSumVat
+        '
+        Me.lblSumVat.DataField = ""
+        Me.lblSumVat.Height = 0.1417323!
+        Me.lblSumVat.HyperLink = Nothing
+        Me.lblSumVat.Left = 6.040158!
+        Me.lblSumVat.Name = "lblSumVat"
+        Me.lblSumVat.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblSumVat.Text = "Betrag"
+        Me.lblSumVat.Top = 0.5279528!
+        Me.lblSumVat.Width = 0.9169284!
+        '
+        'lblSumBrt
+        '
+        Me.lblSumBrt.DataField = ""
+        Me.lblSumBrt.Height = 0.1417323!
+        Me.lblSumBrt.HyperLink = Nothing
+        Me.lblSumBrt.Left = 6.967323!
+        Me.lblSumBrt.Name = "lblSumBrt"
+        Me.lblSumBrt.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
+    " 1"
+        Me.lblSumBrt.Text = "Betrag"
+        Me.lblSumBrt.Top = 0.5279528!
+        Me.lblSumBrt.Width = 0.9169284!
+        '
+        'Label10
+        '
+        Me.Label10.DataField = ""
+        Me.Label10.Height = 0.1417323!
+        Me.Label10.HyperLink = Nothing
+        Me.Label10.Left = 0.8834646!
+        Me.Label10.Name = "Label10"
+        Me.Label10.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
+        Me.Label10.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
+    "1"
+        Me.Label10.Text = "Summe"
+        Me.Label10.Top = 0.5279528!
+        Me.Label10.Width = 4.159056!
+        '
         'PageFooter
         '
         Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
@@ -438,73 +505,6 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         Me.lblSumMenge.Top = 0.1732284!
         Me.lblSumMenge.Width = 0.7917318!
         '
-        'lblName1
-        '
-        Me.lblName1.DataField = ""
-        Me.lblName1.Height = 0.1417323!
-        Me.lblName1.HyperLink = Nothing
-        Me.lblName1.Left = 0.8834646!
-        Me.lblName1.Name = "lblName1"
-        Me.lblName1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
-        Me.lblName1.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
-    ": 1"
-        Me.lblName1.Text = "Name1"
-        Me.lblName1.Top = 0.05196851!
-        Me.lblName1.Width = 4.159056!
-        '
-        'lblSumNet
-        '
-        Me.lblSumNet.DataField = ""
-        Me.lblSumNet.Height = 0.1417323!
-        Me.lblSumNet.HyperLink = Nothing
-        Me.lblSumNet.Left = 5.123229!
-        Me.lblSumNet.Name = "lblSumNet"
-        Me.lblSumNet.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
-    " 1"
-        Me.lblSumNet.Text = "Betrag"
-        Me.lblSumNet.Top = 0.5279528!
-        Me.lblSumNet.Width = 0.9169284!
-        '
-        'lblSumVat
-        '
-        Me.lblSumVat.DataField = ""
-        Me.lblSumVat.Height = 0.1417323!
-        Me.lblSumVat.HyperLink = Nothing
-        Me.lblSumVat.Left = 6.040158!
-        Me.lblSumVat.Name = "lblSumVat"
-        Me.lblSumVat.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
-    " 1"
-        Me.lblSumVat.Text = "Betrag"
-        Me.lblSumVat.Top = 0.5279528!
-        Me.lblSumVat.Width = 0.9169284!
-        '
-        'lblSumBrt
-        '
-        Me.lblSumBrt.DataField = ""
-        Me.lblSumBrt.Height = 0.1417323!
-        Me.lblSumBrt.HyperLink = Nothing
-        Me.lblSumBrt.Left = 6.967323!
-        Me.lblSumBrt.Name = "lblSumBrt"
-        Me.lblSumBrt.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
-    " 1"
-        Me.lblSumBrt.Text = "Betrag"
-        Me.lblSumBrt.Top = 0.5279528!
-        Me.lblSumBrt.Width = 0.9169284!
-        '
-        'Label10
-        '
-        Me.Label10.DataField = ""
-        Me.Label10.Height = 0.1417323!
-        Me.Label10.HyperLink = Nothing
-        Me.Label10.Left = 0.8834646!
-        Me.Label10.Name = "Label10"
-        Me.Label10.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
-        Me.Label10.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: " &
-    "1"
-        Me.Label10.Text = "Summe"
-        Me.Label10.Top = 0.5279528!
-        Me.Label10.Width = 4.159056!
-        '
         'rptASFINAG_TransaktionenSumary
         '
         Me.PageSettings.Margins.Bottom = 0.3937008!
@@ -535,6 +535,11 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblName1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSumNet, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSumVat, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSumBrt, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
@@ -547,11 +552,6 @@ Partial Public Class rptASFINAG_TransaktionenSumary
         CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblName1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblSumNet, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblSumVat, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.lblSumBrt, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
 
     End Sub

SDL/mdm/rptASFINAG_TransaktionenSumary.vb

@@ -6,4 +6,7 @@ Public Class rptASFINAG_TransaktionenSumary
 
     End Sub
 
+    Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
+
+    End Sub
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -182,6 +182,29 @@ Public Class cAdressen
         Return False
     End Function
 
+    Function getUIDMehrfachverwendung() As Boolean
+
+        If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
+            Dim count As Integer = SQL.getValueTxtBySql("SELECT count(*)  FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "'", "FMZOLL")
+            If count > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+
+    End Function
+
+    Function getDTUIDMehrfachverwendung(adressenNr) As DataTable
+        Dim dt_UID As New DataTable
+        If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then
+
+            dt_UID = SQL.loadDgvBySql_Param("SELECT KundenNr FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and not KundenNr='" & adressenNr & "'", "FMZOLL")
+        End If
+
+        Return dt_UID
+
+    End Function
+
     Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         If newFlag Then INIT_NEWKD_DATA()
         If AdressenNr <= 0 Then

VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb

@@ -11,11 +11,12 @@ Public Class cAsfinagMaut
     Property VATamount As Object = Nothing
     Property totalAmount As Object = Nothing
     Property additionalData As Object = Nothing
+    Property receiptnumber As Object = Nothing
 
 
     Public hasEntry = False
 
-        Dim SQL As New SQL
+    Dim SQL As New SQL
 
     Sub New()
 
@@ -30,8 +31,9 @@ Public Class cAsfinagMaut
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VATamount", VATamount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("totalAmount", totalAmount))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additionalData", additionalData))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("receiptnumber", receiptnumber))
         Return list
-        End Function
+    End Function
 
 
 
@@ -76,23 +78,24 @@ Public Class cAsfinagMaut
 
 
     Public Function getInsertCmd() As String
-            Try
+        Try
-                Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
-                Dim str As String = ""
+            Dim str As String = ""
-                Dim values As String = ""
+            Dim values As String = ""
-                For Each i In list
+            For Each i In list
-                    If Not i.isPrimaryParam Then
+                If Not i.isPrimaryParam Then
-                        str &= "[" & i.Text & "],"
+                    str &= "[" & i.Text & "],"
-                        values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
-                    End If
+                End If
-                Next
+            Next
-                str = str.Substring(0, str.Length - 1) 'wg. ','
+            str = str.Substring(0, str.Length - 1) 'wg. ','
-                values = values.Substring(0, values.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
             Return (" INSERT INTO tblAsfinagMaut  (" & str & ") VALUES(" & values & ")  ")
         Catch ex As Exception
-                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-            End Try
+        End Try
-            Return ""
+        Return ""
-        End Function
+    End Function
 
-    End Class
+
+End Class

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -229,13 +229,13 @@ Public Class cUIDPruefung
                                     If UID_TMP.uid_valid Then
                                         r("Ergebnis") = "OK"
 
-                                        For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
+                                        For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
                                             row("Ergebnis") = r("Ergebnis")
                                         Next
 
                                     Else
                                         r("Ergebnis") = "UNGÜLTIG"
-                                        For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
+                                        For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
                                             row("Ergebnis") = r("Ergebnis")
                                         Next
                                     End If
@@ -244,7 +244,7 @@ Public Class cUIDPruefung
                                     r("Error-Code") = errorCode.ToString()
                                     r("Error-Text") = FO.GetCodeText(errorCode)
 
-                                    For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "'")
+                                    For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
                                         row("Ergebnis") = r("Ergebnis")
                                         row("Error-Code") = r("Error-Code")
                                         row("Error-Text") = r("Error-Text")

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -91,10 +91,13 @@ Public Class cFinanzOnlineWebService
 
     Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Stufe = 1, Optional ByRef errorCode = 0) As VERAG_PROG_ALLGEMEIN.cUIDPruefung
         Dim AD As New cAdressen(ba_KundenNr)
+        Dim multiUID = False
         If AD IsNot Nothing Then
 
             If AD.UstIdKz IsNot Nothing AndAlso AD.UstIdNr IsNot Nothing Then
 
+
+
                 Try
                     If AskIfDouble Then
                         If IsDate(AD.UstIdGeprüft) AndAlso CDate(AD.UstIdGeprüft).ToShortDateString = Now.ToShortDateString Then
@@ -131,6 +134,8 @@ Public Class cFinanzOnlineWebService
 
                     If returnInt = 0 Or returnInt = 1 Then
 
+                        If Stufe = 1 AndAlso returnInt = 0 Then multiUID = AD.getUIDMehrfachverwendung() 'nur bei Stufe 1 und bei gültigen Prüfungen!!!
+
                         Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
 
                         UID_TMP.uid_Datum = Now
@@ -140,7 +145,6 @@ Public Class cFinanzOnlineWebService
                         UID_TMP.uid_valid = (returnInt = 0)
                         UID_TMP.uid_KundenNr = ba_KundenNr
 
-
                         UID_TMP.uid_UstIdKz = countryCode
                         UID_TMP.uid_UstIdNr = vatNumber
 
@@ -159,7 +163,56 @@ Public Class cFinanzOnlineWebService
                         UID_TMP.uid_stufe = Stufe
 
                         UID_TMP.SAVE()
-                        If (returnInt = 0) Then 'OK
+
+                        If multiUID Then
+                            Dim dt_multiUID As DataTable = AD.getDTUIDMehrfachverwendung(AD.AdressenNr)
+                            If dt_multiUID.Rows.Count > 0 Then
+                                For Each adresse As DataRow In dt_multiUID.Rows
+
+                                    Dim UID_TMP_new As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
+                                    Dim AD_new As New cAdressen(adresse.Item("KundenNr"))
+
+                                    UID_TMP_new.uid_Datum = Now
+                                    UID_TMP_new.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                                    If If(UID_TMP_new.uid_Sachbearbeiter, "") = "" Then UID_TMP_new.uid_Sachbearbeiter = "AUTO"
+                                    UID_TMP_new.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                                    UID_TMP_new.uid_valid = (returnInt = 0)
+                                    UID_TMP_new.uid_KundenNr = AD_new.AdressenNr
+
+
+                                    UID_TMP_new.uid_UstIdKz = countryCode
+                                    UID_TMP_new.uid_UstIdNr = vatNumber
+
+                                    UID_TMP_new.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
+                                    UID_TMP_new.uid_abfrageUid = uid
+                                    UID_TMP_new.uid_sessionId = tmp_SESSION_ID
+
+                                    UID_TMP_new.uid_firma = name
+                                    UID_TMP_new.uid_adr1 = adrz1
+                                    UID_TMP_new.uid_adr2 = adrz2
+                                    UID_TMP_new.uid_adr3 = adrz3
+                                    UID_TMP_new.uid_adr4 = adrz4
+                                    UID_TMP_new.uid_adr5 = adrz5
+                                    UID_TMP_new.uid_adr6 = adrz6
+
+                                    UID_TMP_new.uid_stufe = Stufe
+
+                                    UID_TMP_new.SAVE()
+
+                                    If (UID_TMP.uid_valid) Then 'OK
+                                        If SaveErgInAdressen Then
+                                            AD_new.UstIdGeprüft = Now.ToShortDateString
+                                            AD_new.SAVE()
+                                        End If
+                                    End If
+
+                                Next
+
+                            End If
+
+                        End If
+
+                            If (returnInt = 0) Then 'OK
                             If SaveErgInAdressen Then
                                 AD.UstIdGeprüft = Now.ToShortDateString
                                 AD.SAVE()