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

offeneAntr, MDM-Datenverarb.

Browse Source
This commit is contained in:
d.breimaier
2025-05-02 14:57:20 +02:00
parent 2a4f3dca7a
commit 662a06dcc2
2 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -1,8 +1,4 @@
Imports System.Windows.Documents
Imports com.sun.org.apache.bcel.internal.generic
Imports com.sun.org.apache.xpath.internal.objects
Imports DocumentFormat.OpenXml.Drawing.Spreadsheet
Imports VERAG_PROG_ALLGEMEIN
Public Class frmUSTVoffeneAntraege

8
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4060,10 +4060,10 @@ Public Class frmMDMDatenverarbetiung
If fehlendeTransactionen > 0 Then
pruefData_MSE = False
Dim hint As String = ""
'If fehlendeTransactionen > 500 Then
' hint = "Transaction-IDs: "
' hint &= SQL.getValueTxtBySql("select top(10) transaction_id FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & DateTimePicker2.Text & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions]) ", "FMZOLL")
'End If
If fehlendeTransactionen > 500 Then
hint = "Bsp. Transaction-ID: "
hint &= SQL.getValueTxtBySql("select top(1) transaction_id FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & DateTimePicker2.Text & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions]) ", "FMZOLL")
End If
MsgBox("Es fehlen " & fehlendeTransactionen & " Transaktionen in der Datenbank!" & vbNewLine & "Diese Transaktionen (von Rechnung " & DateTimePicker2.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, ""))
End If