Auswertung Anna per Mailsender "-> "JAHRESABRECHNUNG AG-ZS" 1x jährlich am 20.2, Abgleich Kundenumsätze -> "ABGLEICH_KUNDENUEMSAETZE" -> nach OP einlesen!

initATLASAufschubkonten/frmStartOptions.vb

@@ -506,6 +506,13 @@ Public Class frmStartOptions
                 AddHandler fmTTR.FormClosed, AddressOf closeMe
                 closeMe()
 
+            Case "ABGLEICH_KUNDENUEMSAETZE"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim lastyears = 2
+                If DELETE_Kundenumsaetze(lastyears) Then
+                    INSERT_Kundenumsaetze(lastyears)
+                End If
+
                 '------------------------------
             Case Else
                 'Nur bei manuellem Start wird der fehler ausgegeben
@@ -4065,9 +4072,7 @@ Public Class frmStartOptions
 
     Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
         If tbcntr.SelectedIndex = 3 Then
-
             checkTBLandTWLNr()
-
         End If
     End Sub
 
@@ -4086,4 +4091,61 @@ Public Class frmStartOptions
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         sendWOELFL_USTVAntraege("al@verag.ag")
     End Sub
+
+    Function INSERT_Kundenumsaetze(insertLastYears As Integer) As Boolean
+        Try
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Dim sqltext = "INSERT INTO tblKundenumsatz ( KundenNr, Firma_ID, Jahr, steuerpflichtig, steuerfrei, Nettoumsatz, MwSt, Bruttoumsatz, Währung, Rechnungen, Gutschriften, Datum, Nummer )
+                            SELECT RechnungsKundenNr AS KundenNr, 
+                            Firma_ID, 
+                            Year([Rechnungsdatum]) AS Jahr, 
+                            Sum(SteuerpflichtigerBetragLokal) AS steuerpflichtig, 
+                            Sum(SteuerfreierBetragLokal) AS steuerfrei,
+                            Sum(SteuerfreierBetragLokal) AS Nettoumsatz, 
+                            Sum(SteuerbetragLokal) AS MwSt, 
+                            Sum(RechnungsbetragLokal) AS Bruttoumsatz, 
+                            WährungLokal AS Währung, 
+                            sum(Case when [BelegartenNr]=70 Then 1 else 0 End) as Rechnungen,
+                            sum(Case when [BelegartenNr]=71 Then 1 else 0 End) as Gutschriften,
+                            Max(Rechnungsdatum) AS Datum, 
+                            Max(Rechnungsnummer) AS Nummer
+                            FROM [VERAG].[dbo].[tblTrdinInvoice]
+                            where Year([Rechnungsdatum]) > (year(getdate()) - " & insertLastYears & ")
+                            GROUP BY RechnungsKundenNr, Firma_ID, Year([Rechnungsdatum]), WährungLokal
+                            ORDER BY RechnungsKundenNr, Firma_ID, Year([Rechnungsdatum]) DESC , WährungLokal"
+
+            Return SQL.doSQL(sqltext, "FMZOLL")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+            Return False
+
+        End Try
+    End Function
+
+    Function DELETE_Kundenumsaetze(deleteLastYears As Integer) As Boolean
+        Try
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Return SQL.doSQL("DELETE from tblKundenumsatz where Jahr > (year(getdate()) -" & deleteLastYears & ")", "FMZOLL")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+
+            Return False
+
+        End Try
+    End Function
+
+    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim lastyears = 2
+        Dim ok = False
+        If DELETE_Kundenumsaetze(lastyears) Then
+            ok = INSERT_Kundenumsaetze(lastyears)
+        End If
+        showPic(ok, PictureBox22)
+    End Sub
 End Class