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 If Not checkOPValid() Then Me.Cursor = Cursors.Default : Exit Sub
Try Try
Dim dt As DataTable = SQL.loadDgvBySql_Param(getOPSql, "FMZOLL") Dim dt As System.Data.DataTable = SQL.loadDgvBySql_Param(getOPSql, "FMZOLL")
'DataGridView.DataSource = dt 'DataGridView.DataSource = dt
@@ -998,7 +998,7 @@ Public Class usrCntlBH
If dtTemp.Rows.Count > 0 AndAlso dtTemp2.Rows.Count > 0 Then 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") 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 If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then
@@ -1206,7 +1206,7 @@ Public Class usrCntlBH
Next 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 If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
RG.Steuersatz_Proz = dtSt.Rows(0)(0) RG.Steuersatz_Proz = dtSt.Rows(0)(0)
End If End If
@@ -1255,7 +1255,7 @@ Public Class usrCntlBH
End Function 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) Dim rpt As New rptPOS_ZNB(RG, RG.SteuerfreierGesamtbetrag + RG.SteuerpflichtigerGesamtbetrag)
@@ -1377,12 +1377,12 @@ Public Class usrCntlBH
LimitBEtrag = CInt(txtAbBetragAbrechnen.Text) LimitBEtrag = CInt(txtAbBetragAbrechnen.Text)
End If 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 If dt_Main.Rows.Count > 0 Then
Dim kundenNr As String = "" Dim kundenNr As String = ""
If dt_Main.Columns.Contains("kundenNr") Then 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 If dtNew.Rows.Count > 0 Then
Dim counter = 0 Dim counter = 0
For Each r As DataRow In dtNew.Rows 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 & ") select KundenNr from Offertenpositionen where LeistungsNr = 950 and OffertenNr = 95 and KundenNr in (" & kundenNr & ")
GROUP by 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 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 " 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 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 If dt_UID.Rows.Count > 0 Then
cProgramFunctions.genExcelFromDT_NEW(dt_UID) cProgramFunctions.genExcelFromDT_NEW(dt_UID)
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
@@ -1741,7 +1741,7 @@ Public Class usrCntlBH
End Select End Select
Me.Cursor = Cursors.WaitCursor 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 If dt_RE.Rows.Count > 0 Then
cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, Bezeichnung,,, True) cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, Bezeichnung,,, True)
@@ -1778,7 +1778,7 @@ Public Class usrCntlBH
order by MAX(cast(RechnungsDatum as Date)) " order by MAX(cast(RechnungsDatum as Date)) "
Me.Cursor = Cursors.WaitCursor 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 If dt_RE.Rows.Count > 0 Then
cProgramFunctions.genExcelFromDT_NEW(dt_RE,,, "Kunden ohne FIBU-Filiale mit Belegen der letzten " & txtMonateSyskavergleich.Text & " Monate",,, True) 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 If SQLString <> "" Then
Me.Cursor = Cursors.WaitCursor 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 rangeAsBuchhaltung() As String
Dim lastRow = dt_RE.Rows.Count + 1 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("VERAG CS", 11))
firmenlist.Add(New MyListItem("ATILLA", 7)) 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 For Each i In firmenlist
Dim sql As New SQL 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" 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 If dtKunden.Rows.Count > 0 Then
dtKunden.TableName = i.Text dtKunden.TableName = i.Text
dtList.Add(dtKunden) dtList.Add(dtKunden)