From 6a7ee97bc8d36c8684e1499cacf14f902490199c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 21 Oct 2026 16:55:35 +0200 Subject: [PATCH] Kundensicherheiten, CBAM-Rechner, etc. --- UID/My Project/AssemblyInfo.vb | 4 ++-- initATLASAufschubkonten/frmStartOptions.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index ae0d9ef..82cd757 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index c4c7ec0..db2a37a 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -6174,8 +6174,8 @@ weiter: ElseIf txtUTADate.Text <> "" AndAlso IsDate(txtUTADate.Text) Then datumString = txtUTADate.Text 'fehlendeRechnungen = (New SQL).loadDgvBySql("SELECT A.AdressenNr, A.[Name 1], U.Abrechnungsnummer AS Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,CAST(U.Rechnungsdatum AS date) AS Rechnungsdatum,A.LandKz FROM tblUTAImportNew U INNER JOIN Adressen A ON A.UTAKundenNr = U.Kundennummer WHERE U.daId IS NULL AND CAST(U.Rechnungsdatum AS date) = '" & datumString & "' AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM') GROUP BY A.AdressenNr, A.[Name 1], U.Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,U.Rechnungsdatum,A.LandKz", "FMZOLL") - von = New Date(datumString) - bis = New Date(datumString) + von = CDate(datumString) + bis = CDate(datumString) End If