From b880ac08c8627ca9d240033d680c3990bf454a21 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Nov 2026 09:40:48 +0100 Subject: [PATCH] FIBU fix --- SDL/buchhaltung/usrCntlBH.vb | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 09eb7c31..14dfab78 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -413,7 +413,7 @@ Public Class usrCntlBH If Not checkOPValid() Then Me.Cursor = Cursors.Default : Exit Sub Try - Dim dt As DataTable = SQL.loadDgvBySql_Param(getOPSql, "FMZOLL") + Dim dt As System.Data.DataTable = SQL.loadDgvBySql_Param(getOPSql, "FMZOLL") 'DataGridView.DataSource = dt @@ -998,7 +998,7 @@ Public Class usrCntlBH If dtTemp.Rows.Count > 0 AndAlso dtTemp2.Rows.Count > 0 Then - cProgramFunctions.genExcelFromMultibleDT_NEW(New List(Of DataTable) From {dtTemp, dtTemp2}, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)}) + cProgramFunctions.genExcelFromMultibleDT_NEW(New List(Of System.Data.DataTable) From {dtTemp, dtTemp2}, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)}) txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then @@ -1206,7 +1206,7 @@ Public Class usrCntlBH Next - Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") + Dim dtSt As System.Data.DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL") If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then RG.Steuersatz_Proz = dtSt.Rows(0)(0) End If @@ -1255,7 +1255,7 @@ Public Class usrCntlBH End Function - Private Function createZNBReport(dtZNBList As DataTable, KDNr As Integer, rechnungsdatum As Date, RG As cRechnungsausgang) As String + Private Function createZNBReport(dtZNBList As System.Data.DataTable, KDNr As Integer, rechnungsdatum As Date, RG As cRechnungsausgang) As String Dim rpt As New rptPOS_ZNB(RG, RG.SteuerfreierGesamtbetrag + RG.SteuerpflichtigerGesamtbetrag) @@ -1377,12 +1377,12 @@ Public Class usrCntlBH LimitBEtrag = CInt(txtAbBetragAbrechnen.Text) End If - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("Select [kundenNr],SUM([zinsbetrag]) as Zinsbetrag,max(belegZahlungsziel) as belegZahlungsziel , zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende" & IIf(LimitBEtrag > 0, " having SUM([zinsbetrag]) >= " & LimitBEtrag, ""), "FMZOLL") + Dim dt_Main As System.Data.DataTable = SQL.loadDgvBySql_Param("Select [kundenNr],SUM([zinsbetrag]) as Zinsbetrag,max(belegZahlungsziel) as belegZahlungsziel , zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende" & IIf(LimitBEtrag > 0, " having SUM([zinsbetrag]) >= " & LimitBEtrag, ""), "FMZOLL") If dt_Main.Rows.Count > 0 Then Dim kundenNr As String = "" If dt_Main.Columns.Contains("kundenNr") Then - Dim dtNew As DataTable = dt_Main.Rows.Cast(Of DataRow)().Where(Function(row) Not row.ItemArray.All(Function(field) field Is DBNull.Value Or field.Equals(""))).CopyToDataTable() + Dim dtNew As System.Data.DataTable = dt_Main.Rows.Cast(Of DataRow)().Where(Function(row) Not row.ItemArray.All(Function(field) field Is DBNull.Value Or field.Equals(""))).CopyToDataTable() If dtNew.Rows.Count > 0 Then Dim counter = 0 For Each r As DataRow In dtNew.Rows @@ -1402,7 +1402,7 @@ Public Class usrCntlBH select KundenNr from Offertenpositionen where LeistungsNr = 950 and OffertenNr = 95 and KundenNr in (" & kundenNr & ") GROUP by KundenNr" - Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL") + Dim dtfehlendeOfferten As System.Data.DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL") If dtfehlendeOfferten.Rows.Count > 0 Then @@ -1508,7 +1508,7 @@ Public Class usrCntlBH where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And Filialen.Firma = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") & " ORDER BY Filialen.FilialenNr " Me.Cursor = Cursors.WaitCursor - Dim dt_UID As DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL") + Dim dt_UID As System.Data.DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL") If dt_UID.Rows.Count > 0 Then cProgramFunctions.genExcelFromDT_NEW(dt_UID) Me.Cursor = Cursors.Default @@ -1741,7 +1741,7 @@ Public Class usrCntlBH End Select Me.Cursor = Cursors.WaitCursor - Dim dt_RE As DataTable = SQL.loadDgvBySql(SQL_RE, "FMZOLL") + Dim dt_RE As System.Data.DataTable = SQL.loadDgvBySql(SQL_RE, "FMZOLL") If dt_RE.Rows.Count > 0 Then cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, Bezeichnung,,, True) @@ -1778,7 +1778,7 @@ Public Class usrCntlBH order by MAX(cast(RechnungsDatum as Date)) " Me.Cursor = Cursors.WaitCursor - Dim dt_RE As DataTable = SQL.loadDgvBySql(SQLString, "FMZOLL") + Dim dt_RE As System.Data.DataTable = SQL.loadDgvBySql(SQLString, "FMZOLL") If dt_RE.Rows.Count > 0 Then cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, "Kunden ohne FIBU-Filiale mit Belegen der letzten " & txtMonateSyskavergleich.Text & " Monate",,, True) @@ -2132,7 +2132,7 @@ Public Class usrCntlBH If SQLString <> "" Then Me.Cursor = Cursors.WaitCursor - Dim dt_RE As DataTable = SQL.loadDgvBySql(SQLString, "FIBU") + Dim dt_RE As System.Data.DataTable = SQL.loadDgvBySql(SQLString, "FIBU") Dim rangeAsBuchhaltung() As String Dim lastRow = dt_RE.Rows.Count + 1 @@ -2178,7 +2178,7 @@ Public Class usrCntlBH firmenlist.Add(New MyListItem("VERAG CS", 11)) firmenlist.Add(New MyListItem("ATILLA", 7)) - Dim dtList As New List(Of DataTable) + Dim dtList As New List(Of System.Data.DataTable) For Each i In firmenlist Dim sql As New SQL @@ -2188,7 +2188,7 @@ Public Class usrCntlBH where isnull(KundenNrZentrale,0) <> 0 and Auswahl = 'A' And isnull(FiBuSchnittstelleNr,0) = " & i.Value & " ANd [i_firm_refid] = " & i.Value & " ) as temp where UIDNrKunden <> UIDNrKundenDeb" - Dim dtKunden As DataTable = sql.loadDgvBySql(sqlstrKunden, "FMZOLL") + Dim dtKunden As System.Data.DataTable = sql.loadDgvBySql(sqlstrKunden, "FMZOLL") If dtKunden.Rows.Count > 0 Then dtKunden.TableName = i.Text dtList.Add(dtKunden)