Kundenlogin, Fremdrechnungen, etc.

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1,10 +1,7 @@
-Imports System
-Imports System.Collections.Generic
-Imports System.Data.SqlClient
+Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Reflection
-Imports Therefore.API
-Imports VERAG_PROG_ALLGEMEIN
+Imports System.Web.Configuration
 
 Public Class cUTA
 
@@ -23,6 +20,27 @@ Public Class cUTA
 
     End Function
 
+    Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, customerNo As Integer) As Boolean
+
+
+        Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where cast(Rechnungsdatum as Date) >= '" & ab.ToShortDateString & "' AND  Kundennummer  =  '" & customerNo & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, customerNo As String) As Boolean
+
+        Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & "  where InvToCustomer Is null AND Kundennummer  =  '" & customerNo & "'", "FMZOLL")
+
+    End Function
+
+    Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
+
+
+        Return SQL.doSQL("update tblUTAImportNew set InvToCustomer = " & IIf(backToCustomer, "1", "0") & "  where InvToCustomer Is null " & IIf(invoiceID <> "", "AND  [Rechnungsnummer_pro_Lieferland] = '" & invoiceID & "'", " ") & "", "FMZOLL")
+
+
+    End Function
+
     Public Class UTAHeader
 
         Property Übertragungsnummer As Integer