From 1b9a79da5e52e98d5fa83cf4f29ccafbd94f87ed Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 29 Jan 2025 09:48:05 +0100 Subject: [PATCH] uta --- initATLASAufschubkonten/frmStartOptions.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 6abb90f..279945f 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -5493,13 +5493,13 @@ Public Class frmStartOptions Dim fehlendeRechnungen As Integer = 0 - fehlendeRechnungen = CInt((New SQL).getValueTxtBySql("select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & txtUTADate.Text & "'", "FMZOLL")) + fehlendeRechnungen = CInt((New SQL).getValueTxtBySql("select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & txtUTADate.Text & "' and Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM'", "FMZOLL")) If fehlendeRechnungen > 0 Then Dim hint As String = "" If fehlendeRechnungen < 10 Then - hint &= (New SQL).getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & txtUTADate.Text & "'", "FMZOLL") + hint &= (New SQL).getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & txtUTADate.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 " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, "")) End If