edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FIBU fix

Browse Source
This commit is contained in:
d.breimaier
2026-11-10 09:40:48 +01:00
parent b04b7cb54e
commit b880ac08c8
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -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)