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

Zahlungsmittel in Kassabuch

Browse Source
This commit is contained in:
d.breimaier
2023-03-07 17:30:37 +01:00
parent 544cd355d6
commit 013146d491
7 changed files with 67 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -252,7 +252,7 @@ Public Class frmKassenbuch
End If
.SET_SQL("SELECT [JournalNr],[BelegDat],[BelegNr],CASE WHEN Belegart=1 THEN 'E' ELSE 'A' END as Belegart,[Buchungstext],([Betrag]+[Steuerbetrag]) as Brutto,[Konto],[Soll],[Haben],Steuerbetrag as Steuer,tblKassenbuch.Benutzer " &
.SET_SQL("SELECT [JournalNr],[BelegDat],[BelegNr],CASE WHEN Belegart=1 THEN 'E' ELSE 'A' END as Belegart,[Buchungstext],tblKassenbuch.Finanzwege as FW ,([Betrag]+[Steuerbetrag]) as Brutto,[Konto],[Soll],[Haben],Steuerbetrag as Steuer,tblKassenbuch.Benutzer " &
" FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer " &
" WHERE tblKassenbuch.Mandant='" & PERSONAL.Mandant & "' AND tblKassenbuch.Niederlassung='" & PERSONAL.Niederlassung & "' " &
" " & benutzerTMP & " AND BelegDat BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' ORDER BY JournalNr DESC", "FMZOLL")
@@ -278,12 +278,13 @@ Public Class frmKassenbuch
.Columns("Belegart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("Buchungstext").MinimumWidth = 60
.Columns("Buchungstext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("FW").Width = 30
.Columns("Konto").Width = 40
.Columns("Soll").Width = 80
.Columns("Soll").DefaultCellStyle.Format = "C"
.Columns("Haben").Width = 80
.Columns("Haben").DefaultCellStyle.Format = "C"
.Columns("Steuer").Width = 80
.Columns("Steuer").Width = 60
.Columns("Steuer").DefaultCellStyle.Format = "C"
.Columns("Benutzer").Visible = False