diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb index 0730fc7c..58077fd1 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/SDL/USTV/frmUSTVoffeneAntraege.vb @@ -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 diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 85904f1e..01acc623 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -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