From 027807e4d118e7f1c699c51c24462350197af9b8 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 12 Aug 2026 13:57:50 +0200 Subject: [PATCH] fremdrechnungen, etc. --- SDL/mdm/usrcntlFremdrechnungen.vb | 29 ++++++++++++++++++++++++++++ VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb | 7 ++++--- 2 files changed, 33 insertions(+), 3 deletions(-) diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index 4e46b57d..bd8bc508 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -813,6 +813,16 @@ Public Class usrcntlFremdrechnungen SET_SDL("MW") End If + + Dim btcNotSet As Integer = 0 + lblCountOrigRechnungen.Text = btcNotSet + countbtcNotSet = btcNotSet + + Dim missingInvoices As Integer = 0 + enableMissingPDFInvoicesButton(missingInvoices) + lblCountMissingPDFs.Text = missingInvoices + countMissingInvoices = missingInvoices + End Sub Private Sub btnSDL_FREJUS_Click(sender As Object, e As EventArgs) Handles btnSDL_FREJUS.Click @@ -828,6 +838,15 @@ Public Class usrcntlFremdrechnungen End If + Dim btcNotSet As Integer = 0 + lblCountOrigRechnungen.Text = btcNotSet + countbtcNotSet = btcNotSet + + Dim missingInvoices As Integer = 0 + enableMissingPDFInvoicesButton(missingInvoices) + lblCountMissingPDFs.Text = missingInvoices + countMissingInvoices = missingInvoices + End Sub Private Sub btnVERAGCardNew_Click(sender As Object, e As EventArgs) Handles btnVERAGCardNew.Click @@ -841,6 +860,16 @@ Public Class usrcntlFremdrechnungen SET_SDL("VERAG") End If + + Dim btcNotSet As Integer = 0 + lblCountOrigRechnungen.Text = btcNotSet + countbtcNotSet = btcNotSet + + Dim missingInvoices As Integer = 0 + enableMissingPDFInvoicesButton(missingInvoices) + lblCountMissingPDFs.Text = missingInvoices + countMissingInvoices = missingInvoices + End Sub Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb index 6a0d2074..e1318c1c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb @@ -72,12 +72,13 @@ Public Class cUTA Else If getDetailsInDatatable Then - Dim SQLstr = "Select U.Abrechnungsnummer As Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,CAST(U.Rechnungsdatum As Date) As Rechnungsdatum,A.AdressenNr As KundenNr,A.UTAKundenNr As UTAKundenNr,A.[Name 1] As Kunde,A.LandKz, kde_keineMWSt As keineMWST FROM tblUTAImportNew U INNER JOIN Adressen A On A.UTAKundenNr = U.Kundennummer INNER JOIN tblKundenErweitert On A.AdressenNr = kde_KundenNr WHERE U.daId Is NULL " & sqlTime & sqlAdressenNr & " AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM')" + Dim SQLstr = "Select U.Abrechnungsnummer As Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,CAST(U.Rechnungsdatum As Date) As Rechnungsdatum,A.AdressenNr As KundenNr,A.UTAKundenNr As UTAKundenNr,A.[Name 1] As Kunde,A.LandKz, kde_keineMWSt As keineMWST FROM tblUTAImportNew U INNER JOIN Adressen A On A.UTAKundenNr = U.Kundennummer INNER JOIN tblKundenErweitert On A.AdressenNr = kde_KundenNr WHERE U.daId Is NULL " & sqlTime & sqlAdressenNr & " AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM') GROUP BY U.Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,U.Rechnungsdatum,A.AdressenNr,A.UTAKundenNr ,A.[Name 1],A.LandKz, kde_keineMWSt ORDER BY U.Rechnungsdatum" dt_missingInvoices = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") Return dt_missingInvoices.Rows.Count Else - Dim SQLstr = "Select count(*) FROM tblUTAImportNew U INNER JOIN Adressen A On A.UTAKundenNr = U.Kundennummer INNER JOIN tblKundenErweitert On A.AdressenNr = kde_KundenNr WHERE U.daId Is NULL " & sqlTime & sqlAdressenNr & " AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM')" - Return SQL.getValueTxtBySql(SQLstr, "FMZOLL",,, 0) + Dim SQLstr = "Select U.Abrechnungsnummer As Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,CAST(U.Rechnungsdatum As Date) As Rechnungsdatum,A.AdressenNr As KundenNr,A.UTAKundenNr As UTAKundenNr,A.[Name 1] As Kunde,A.LandKz, kde_keineMWSt As keineMWST FROM tblUTAImportNew U INNER JOIN Adressen A On A.UTAKundenNr = U.Kundennummer INNER JOIN tblKundenErweitert On A.AdressenNr = kde_KundenNr WHERE U.daId Is NULL " & sqlTime & sqlAdressenNr & " AND NOT (A.LandKz = 'RO' AND U.Lieferland = 'ROM') GROUP BY U.Abrechnungsnummer,U.Rechnungsnummer_pro_Lieferland,U.Lieferland,U.Rechnungsdatum,A.AdressenNr,A.UTAKundenNr ,A.[Name 1],A.LandKz, kde_keineMWSt ORDER BY U.Rechnungsdatum" + dt_missingInvoices = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + Return dt_missingInvoices.Rows.Count End If