Kundenlogin, Fremdrechnungen, etc.

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -46,6 +46,29 @@ Public Class cMSEAPI
     End Function
 
 
+    Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNr As Integer) As Boolean
+
+
+        Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where cast(invoice_date as Date) >= '" & ab.ToShortDateString & "' AND  customer_number =  '" & customerNr & "'", "FMZOLL")
+
+    End Function
+
+
+    Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNr As String) As Boolean
+
+        Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null AND customer_number =  '" & customerNr & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
+
+        Return SQL.doSQL("update tblMSEInvoices set InvToCustomer = " & IIf(backToCustomer, "1", "0") & "  where InvToCustomer Is null " & IIf(invoiceID <> "", "AND  invoice_id = '" & invoiceID & "'", " ") & "", "FMZOLL")
+
+    End Function
+
+
+
+
     Public Function createJWT(ByRef failureText As String) As String
         Try