MDM Asfinag Berichte, Umbau mit insert in tblMautberichte

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1030,16 +1030,6 @@ Public Class usrCntlMDMAuswertungen
         Dim displayFilter = False
         Dim sqlstr As String = ""
 
-        'falls Berichte nicht nur für letzten Abrechnungszeitraum benötigt werden, diesen Part aktivieren und mit abrechnungsdatum "dat_sum_bis" koppeln!
-
-        ' 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 as totalAmount
-        '                 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 = '" & dat_Sum_Bis.Value.ToShortDateString & "')
-        '             ORDER BY dbo.TTRBody.CardNumber"
 
         sqlstr &= " SELECT [cardnumber] as CardNumber
                         ,[licenceplate]
@@ -1246,6 +1236,46 @@ Public Class usrCntlMDMAuswertungen
         '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         'End Try
     End Sub
+
+    Private Sub Button16_Click_1(sender As Object, e As EventArgs) Handles Button16.Click
+        Try
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim frm As New Form
+            Dim dgv As New DataGridView()
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT     
+                    PKFileName, 
+                    FileCreationDate, 
+                    Abrechnungsdatum,  
+                    round(SUM(amountInclVAT) - SUM(VATAmount),2) AS Nettobetrag, 
+                    round(SUM(VATAmount),2) AS Umsatzsteuer, 
+                    VATRate AS 'USt %', 
+                    round(SUM(amountInclVAT),2) AS Bruttobetrag
+                    FROM         TTRBody
+                    WHERE     (PKHistory = 0) AND (Abrechnungsdatum = (SELECT Abrechnungsdatum FROM Abrechnungsdatum))
+                    GROUP BY PKFileName, FileCreationDate, Abrechnungsdatum, VATRate
+                    ORDER BY PKFileName", "ASFINAG")
+
+            dgv.DataSource = dt
+            If dgv IsNot Nothing Then
+                frm.Size = New Size(1400, 1000)
+                dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
+                dgv.Dock = DockStyle.Fill
+                dgv.Anchor = AnchorStyles.Left
+                dgv.Anchor = AnchorStyles.Top
+                dgv.ReadOnly = True
+                frm.Controls.Add(dgv)
+                frm.StartPosition = FormStartPosition.CenterScreen
+                frm.ShowDialog()
+            End If
+
+
+        Catch ex As System.Exception
+
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
 End Class