MDMAusewrtung, faktEmail, etc.

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -663,6 +663,26 @@ Public Class cIDS
         Return ""
     End Function
 
+    Public Shared Function checkInvoices() As DataTable
+        Try
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+            Dim SQLstr = "select *  from tblIDSInvoicesNew where invoice_id not in (select TotalInvoiceId from tblIDSInvoicesNewSplittedByCountry) and Year(YearMonthDay) >= 2025"
+
+            Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
+
+            Return dt
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Return Nothing
+
+    End Function
+
 
     Public Class Paramter