Asfinag, UID-Pruefung

2023-12-13 17:02:49 +01:00
parent 91628e047c
commit fd7942711c
12 changed files with 2026 additions and 170 deletions
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/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!")
-            Exit Sub
+            MsgBox("keine Daten zum Abrechnen vorhanden!")
+            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 SQL.doSQL("UPDATE dbo.TTRBody Set Abrechnungsdatum = NULL WHERE Abrechnungsdatum = '" & datum & "' AND (PKHistory = 0) AND (PKFileName LIKE '%" & checkifTestfiles() & ".%')", "ASFINAG") Then
-                MsgBox("Abrechnungsdatum zurückgesetzt!")
+        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 = '" & datumDel & "' AND (PKHistory = 0) AND (PKFileName LIKE '%" & checkifTestfiles() & ".%')", "ASFINAG") Then
+                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