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

IDS

Browse Source
This commit is contained in:
d.breimaier
2025-10-23 13:48:55 +02:00
parent dc47b98d37
commit 172f36c182
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5846,12 +5846,14 @@ weiter:
Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%' and Year(YearMonthDay) >= " & txtIDSYear.Text
Dim fehlendeRechungsdatenMitDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] like 'DEVR%' and Year(YearMonthDay) >= " & txtIDSYear.Text
Dim fehlendeRechungsdatenTotalInvoiceID As String = "select CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TotalInvoiceId is null"
Dim ok_OhneDVR As Boolean = False
Dim ok_mitDVR As Boolean = False
Dim ok_setInvoiceID As Boolean = False
Dim rechnugdatum As String = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtRechnnungsdatenOhneDVR As DataTable = SQL.loadDgvBySql(fehlendeRechungsdatenOhneDVR, "FMZOLL")
@@ -5895,6 +5897,7 @@ weiter:
Next
MsgBox("alle Daten der tblIDSInvoicesNewSplittedByCountry Ohne DVR gesetzt!")
ok_OhneDVR = True
Else
MsgBox("keine fehlenden Daten der tblIDSInvoicesNewSplittedByCountry Ohne DVR vorhanden!")
End If
@@ -5934,6 +5937,7 @@ weiter:
Next
ok_mitDVR = True
MsgBox("alle Daten der tblIDSInvoicesNewSplittedByCountry mit DVR gesetzt!")
Else
MsgBox("keine fehlenden Daten der tblIDSInvoicesNewSplittedByCountry mit DVR vorhanden!")
@@ -5943,6 +5947,7 @@ weiter:
If dtRechnnungsdatenTotalInvoiceID.Rows.Count > 0 Then
For Each r As DataRow In dtRechnnungsdatenTotalInvoiceID.Rows
rechnugdatum = r.Item("YearMonthDay")
SQL.doSQL("
UPDATE
@@ -5972,11 +5977,15 @@ weiter:
Next
ok_setInvoiceID = True
MsgBox("alle TotalInvoiceIDs gesetzt!")
Else
MsgBox("keine fehlenden TotalInvoiceIDs vorhanden!")
End If
If ok_mitDVR AndAlso ok_OhneDVR AndAlso ok_setInvoiceID AndAlso rechnugdatum <> "" Then
SQL.doSQL("Update tblMDMEinarbeitung set nacharbeitung_completed = 1 where invoicedate = '" & rechnugdatum & "' and completed = 1", "FMZOLL")
End If
End Sub