From 662a06dcc2903ed25a823d768e1b5cb3efefbaad Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 2 May 2025 14:57:20 +0200 Subject: [PATCH] offeneAntr, MDM-Datenverarb. --- SDL/USTV/frmUSTVoffeneAntraege.vb | 4 ---- SDL/mdm/frmMDMDatenverarbetiung.vb | 8 ++++---- 2 files changed, 4 insertions(+), 8 deletions(-) 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