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

Verwarhung

Browse Source
This commit is contained in:
d.breimaier
2025-12-05 11:06:39 +01:00
parent b1eb0f7379
commit 0e46ee2577
2 changed files with 123 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,11 +6,6 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Threading
Imports System.Xml
Imports com.sun.crypto.provider
Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.org.apache.xpath.internal.operations
Imports com.sun.xml.internal.rngom
Imports io.konik.zugferd
Imports MDM_Worker
Imports Renci.SshNet
Imports VERAG_PROG_ALLGEMEIN
@@ -323,7 +318,7 @@ Public Class frmStartOptions
f.Show()
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim finanzonline = True
getUID_Pruefung(MyTextBox1.Text, finanzonline)
getUID_Pruefung(15000, finanzonline) 'max 15.000 wegen Zeit (Routine wird alle 24h wiederholt, 15 Abfragen pro Minute -> 21.600 pro 24h)
closeMe()
Case "WOELFL_USTVAntraege"
Dim f As New frmInfo(PARAM)
@@ -692,7 +687,7 @@ Public Class frmStartOptions
Else
counTrans += dt.Rows.Count
End If
i = i + 1
'i = i + 1 -> In a VB For loop, the loop automatically increases i by 1 each iteration.
pages &= " " & i
Next
End If
@@ -5202,7 +5197,7 @@ Public Class frmStartOptions
Exit Sub
End If
i = i + 1
'i = i + 1 In a VB For loop, the loop automatically increases i by 1 each iteration.
pages &= " " & i
Next
@@ -5600,7 +5595,7 @@ Public Class frmStartOptions
' Exit Sub
' End If
' i = i + 1
' 'i = i + 1 In a VB For loop, the loop automatically increases i by 1 each iteration.
' Next
@@ -6924,15 +6919,13 @@ repeatRequest:
'alle ab 2025!
Dim test As String = " AND Adressen.AdressenNr = 139999"
Select Case Lieferant
Case "IDS"
sql_query = " select Adressen.AdressenNr as KundenNr,Adressen.AdressenNr as KundenNrVerag, invoice_id, LandKz as KundenLandKz, VATAmount as MWST, Country as RELandKz FROM tblIDSInvoicesNewSplittedByCountry
inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNewSplittedByCountry.CustomerCode = tbl_IDS_Kunden.CustomerCode
inner join Adressen on Adressen.AdressenNr = KdNrVERAG
WHERE tblIDSInvoicesNewSplittedByCountry.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden]
WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0) AND tblIDSInvoicesNewSplittedByCountry.InvToCustomer is null and Year(YearMonthDay) > 2024" '& test
WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0) AND tblIDSInvoicesNewSplittedByCountry.InvToCustomer is null and Year(YearMonthDay) > 2024"
sql_query_keineMWST = "select distinct(tblKundenErweitert.kde_KundenNr) as KundenNr FROM tblIDSInvoicesNewSplittedByCountry
inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNewSplittedByCountry.CustomerCode = tbl_IDS_Kunden.CustomerCode