edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-11-26 09:01:47 +01:00
parent c15c3d0b89 978edb3499
commit 98c47657c2
35 changed files with 4113 additions and 1769 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.SqlClient
Imports System.Net
Imports System.Reflection
Imports System.Web.Configuration
Imports javax
Public Class cMSEAPI
@@ -46,6 +47,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 = "", Optional customerNr 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 & "' AND customer_number = '" & customerNr & "'", " ") & "", "FMZOLL")
End Function
Public Function createJWT(ByRef failureText As String) As String
Try