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

Kundenlogin, Fremdrechnungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-20 13:49:39 +01:00
parent a572b1f048
commit 9fca9ec35c
17 changed files with 2299 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -612,6 +612,26 @@ Public Class cIDS
End Function
Public Shared Function setBackToCustomer(SQL As SQL, backToCustomer As Boolean, ab As Date, AdressenNr As Integer) As Boolean
Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where cast(YearMonthDay as Date) >= '" & ab.ToShortDateString & "' AND CustomerCode in (select CustomerCode from tbl_IDS_Kunden where KdNrVERAG = '" & AdressenNr & "' AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 )", "FMZOLL")
End Function
Public Shared Function setBackToCustomerCustomerID(SQL As SQL, backToCustomer As Boolean, AdressenNr As String) As Boolean
Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "NULL") & " where InvToCustomer Is null AND CustomerCode in (select CustomerCode from tbl_IDS_Kunden where KdNrVERAG = '" & AdressenNr & "' AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 )", "FMZOLL")
End Function
Public Shared Function setBackToCustomerInvoiceID(SQL As SQL, backToCustomer As Boolean, Optional invoiceID As String = "") As Boolean
Return SQL.doSQL("update tblIDSInvoicesNewSplittedByCountry set InvToCustomer = " & IIf(backToCustomer, "1", "0") & " where InvToCustomer Is null " & IIf(invoiceID <> "", "AND invoice_id = '" & invoiceID & "'", " ") & "", "FMZOLL")
End Function
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL