fremdrechnungen, etc.

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

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