StartOptions, plose

MDM_Worker/cPLOSE_Inv_Data.vb

@@ -220,7 +220,7 @@ Public Class cPLOSE_Inv_Data
         If dtREohneDAID.Rows.Count > 0 Then
 
             If IIf(message, vbYes = MsgBox("Bei " & dtREohneDAID.Rows.Count & " PLOSE-Rechnungen fehlt die Zuweisung zur Datenarchiv-ID (PDF)." & vbNewLine & "Datenarchiv-ID setzen?", vbYesNoCancel), True) Then
-
+                Dim counter = 0
                 For Each r As DataRow In dtREohneDAID.Rows
 
                     Dim filename As String = IIf(Not IsDBNull(r.Item("plInv_PdfFileName")), r.Item("plInv_PdfFileName"), "")
@@ -297,6 +297,7 @@ Public Class cPLOSE_Inv_Data
                             Dim Path As String = DS.GET_TOP1_PATH()
                             If Path <> "" And System.IO.File.Exists(Path) Then
                                 SQL.doSQL("UPDATE [tblPLOSE_Inv_Data] SET plInv_daId = " & DS.da_id & ", plInv_daIdgesetztDatum = getdate()   WHERE plInv_Id = " & r.Item("plInv_Id") & " AND plInv_daId is null", "FMZOLL")
+                                counter += 1
                             End If
                         End If
                     End If
@@ -305,12 +306,12 @@ Public Class cPLOSE_Inv_Data
                 Next
 
 
-                If message Then MsgBox("alle Rechnungsdaten gesetzt!")
+                If message Then MsgBox(counter & " von " & dtREohneDAID.Rows.Count & " Rechnungsdaten gesetzt!")
                 Return True
             End If
 
         Else
-            If message Then MsgBox("keine fehlenden Rechnunngsdaten vorhanden!")
+            If message Then MsgBox("keine fehlenden PLOSE-Rechnunngsdaten vorhanden!")
             Return False
         End If
 
@@ -365,6 +366,10 @@ Public Class cPLOSE_Inv_Data
 
     End Function
 
+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(plInv_InvToCustomer) FROM [tblPLOSE_Inv_Data] where plInv_InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
     Public Shared Function setWahrunginIvoiceFromTransactions(jahr As Integer, Optional message As Boolean = False, Optional kdNr As Integer = -1) As Boolean
 
         If jahr > Now.Year Then Return False