Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

initATLASAufschubkonten/frmStartOptions.vb

@@ -4796,7 +4796,7 @@ Public Class frmStartOptions
 
 
         Dim MyData As String = ""
-        Dim SQL = New SQL
+        Dim SQL = New Sql
         Dim erg = True
 
         Dim firstDaycurrentMonth = DateTime.Now.AddMonths(0)
@@ -5770,11 +5770,11 @@ weiter:
 
         If txtUTADate.Text = "" AndAlso txtUTAYear.Text <> "" Then
             datumString = txtUTAYear.Text
-            fehlendeRechnungen = (New SQL).loadDgvBySql("select Adressen.AdressenNr, Adressen.[Name 1],Lieferland,[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId] from tblUTAImportNew inner join adressen on Kundennummer = UTAKundenNr where daId is null and Year(cast([Rechnungsdatum] as Date)) = '" & datumString & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070) Group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],Lieferland", "FMZOLL")
+            fehlendeRechnungen = (New Sql).loadDgvBySql("select Adressen.AdressenNr, Adressen.[Name 1],Lieferland,[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId] from tblUTAImportNew inner join adressen on Kundennummer = UTAKundenNr where daId is null and Year(cast([Rechnungsdatum] as Date)) = '" & datumString & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070) Group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],Lieferland", "FMZOLL")
 
         ElseIf txtUTADate.Text <> "" AndAlso IsDate(txtUTADate.Text) Then
             datumString = txtUTADate.Text
-            fehlendeRechnungen = (New SQL).loadDgvBySql("select Adressen.AdressenNr, Adressen.[Name 1],Lieferland,[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId] from tblUTAImportNew inner join adressen on Kundennummer = UTAKundenNr where daId is null and cast([Rechnungsdatum] as Date) = '" & datumString & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070 )  Group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],Lieferland", "FMZOLL")
+            fehlendeRechnungen = (New Sql).loadDgvBySql("select Adressen.AdressenNr, Adressen.[Name 1],Lieferland,[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId] from tblUTAImportNew inner join adressen on Kundennummer = UTAKundenNr where daId is null and cast([Rechnungsdatum] as Date) = '" & datumString & "' and (Lieferland <> 'ROM' and Steuerliches_Lieferland <> 'ROM' or Kundennummer = 868070 )  Group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],Lieferland", "FMZOLL")
 
         End If
 
@@ -5787,7 +5787,7 @@ weiter:
 
             Dim hint As String = ""
             If fehlendeRechnungen.Rows.Count < 10 Then
-                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")
+                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.Rows.Count & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & "Bsp. Rechnungsnummer: " & hint, ""))
 
@@ -5809,7 +5809,7 @@ weiter:
     End Sub
 
     Sub updateATEZStatusByMRNTop(top As Integer)
-        Dim dt = (New SQL).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN  FROM  [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
+        Dim dt = (New Sql).loadDgvBySql("SELECT TOP (" & top & ") ncts_MRN  FROM  [tblNCTS_FREMD] where ncts_Status between 50 and 59 and ncts_Partnersystem='ATEZ'", "FMZOLL")
         If dt IsNot Nothing Then
             lblcheckopatez.Text = "-"
             Dim cnt = 1
@@ -6048,7 +6048,7 @@ weiter:
 
 
 
-        Dim sql As New SQL
+        Dim sql As New Sql
 
         Dim fehlendeRechungsdatenDatum As String = "select distinct(cast(YearMonthDay as Date)) as YearMonthDay FROM [VERAG].[dbo].[" & table & "] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text
 
@@ -6092,7 +6092,7 @@ weiter:
 
     Private Sub IDSUpdateDAID_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDSUpdateDAID.LinkClicked
 
-        Dim sql As New SQL
+        Dim sql As New Sql
 
         Dim IDSdaidaktualiseren As String = "select * from tblUStVPositionen where UStVPo_SchnittstellenNr = 8 and Year(UStVPo_ReDat) >= " & txtIDSYear.Text
 
@@ -6393,7 +6393,7 @@ weiter:
 
         Dim countMissing As Integer = 0
         Dim countUploaeded As Integer = 0
-        Dim sql As New SQL
+        Dim sql As New Sql
 
         lblCSPortfolio.Text = "im Portfolio:"
         lblMissingCS.Text = "hochzuladende Unternehmen in CS: "