From ad26cb0db91c76e4216dadf18852e06b72e0b35c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Jan 2025 17:21:01 +0100 Subject: [PATCH] =?UTF-8?q?MDM=20UTA-PDF=20Pr=C3=BCfung=20(au=C3=9Fer=20RO?= =?UTF-8?q?)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/mdm/frmMDMDatenverarbetiung.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 78f53851..158bce3e 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -4024,7 +4024,7 @@ Public Class frmMDMDatenverarbetiung pruefData_UTA = False Dim hint As String = "" If fehlendeRechnungen < 10 Then - hint &= SQL.getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & DateTimePicker2.Text & "'", "FMZOLL") + hint &= SQL.getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & DateTimePicker2.Text & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'", "FMZOLL") End If MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & DateTimePicker2.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, "")) End If