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

fixes

Browse Source
This commit is contained in:
d.breimaier
2026-09-23 11:41:24 +02:00
parent 7be9708ede
commit e85dff6117
2 changed files with 13 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1616,7 +1616,7 @@ Public Class usrCntlBH
REPLACE( REPLACE(
REPLACE(da.da_name, 'Rechnung_', ''), REPLACE(da.da_name, 'Rechnung_', ''),
'.pdf', ''), '.pdf', ''),
'Gutschrift_', '') AS RechnungsNr, da_name as Bezeichnung 'Gutschrift_', '') AS RechnungsNr, da_name as Bezeichnung, da_date as Erstellungszeitpunkt
FROM tblDatenarchiv da FROM tblDatenarchiv da
WHERE da.da_kategorie = 'Rechnungen' WHERE da.da_kategorie = 'Rechnungen'
AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR) AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR)
@@ -1642,7 +1642,7 @@ Public Class usrCntlBH
SELECT DISTINCT SELECT DISTINCT
REPLACE( REPLACE(
REPLACE(da.da_name, 'Sammelrechnung_', ''), REPLACE(da.da_name, 'Sammelrechnung_', ''),
'.pdf', '') AS RechnungsNr, da_name as Bezeichnung '.pdf', '') AS RechnungsNr, da_name as Bezeichnung, da_date as Erstellungszeitpunkt
FROM tblDatenarchiv da FROM tblDatenarchiv da
WHERE da.da_kategorie = 'Rechnungen' WHERE da.da_kategorie = 'Rechnungen'
AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR) AND da.da_ordner = 'Firma_' + CAST(@FirmaID AS VARCHAR)

18
VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
View File

@@ -2,6 +2,7 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports com.sun.org.apache.xerces.internal.dom
Public Class cAufschubKonten Public Class cAufschubKonten
Property brgakto_id As Integer Property brgakto_id As Integer
@@ -328,12 +329,7 @@ FROM
If showMessage Then If showMessage Then
MsgBox( MsgBox("Saldo zum Stichtag " & datumBis.ToShortDateString() & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
"Saldo zum Stichtag " &
datumBis.ToShortDateString() &
":" & vbNewLine &
brgakto_gs_aktSaldo.ToString("N2")
)
End If End If
@@ -350,7 +346,15 @@ FROM
Try Try
Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate.ToShortDateString & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,) Dim refBetrag As Double = 0
Dim refBetagDB As String = SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]=" & brgakto_id & " and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate.ToShortDateString & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,, 0,)
If refBetagDB <> "" AndAlso IsNumeric(refBetagDB) Then
refBetrag = CDbl(refBetagDB)
End If
Return refBetrag
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)