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

diverse Baustellen

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-02 15:52:10 +01:00
parent 644f8ce128
commit e2d88b47e1
13 changed files with 176 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/kassenbuch/KassenbuchSuche/frmKassenbuchSuche.vb
View File

@@ -843,11 +843,11 @@ Public Class frmKassenbuchSuche
Dim sqlStr = ""
sqlStr &= " SELECT Benutzer,Name, Konto, Sum(tblKassenbuch.Soll) AS Soll, Sum(tblKassenbuch.Haben) AS Haben, (Sum(tblKassenbuch.Soll)-Sum(tblKassenbuch.Haben)) AS Saldo "
sqlStr &= " FROM Personal INNER JOIN tblKassenbuch ON Personal.ID = tblKassenbuch.Benutzer "
sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & cRKSV.getGJ(Now) & "' and konto=KassenbuchNr "
sqlStr &= " WHERE tblKassenbuch.Geschäftsjahr='" & cRKSV.getGJ_FIRMA(Now, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) & "' and konto=KassenbuchNr "
If MyComboBox1._value <> "" Then sqlStr &= " AND rksv_id=" & MyComboBox1._value & " "
If MyComboBox2._value <> "" Then sqlStr &= " AND tblKassenbuch.Niederlassung ='" & MyComboBox2._value & "'"
sqlStr &= " group by Benutzer,Name, Konto order by Name"
'cRKSV.getGJ(Now)
rpt.DataSource = SQL.loadDgvBySql_Param(sqlStr, "FMZOLL", , getBelegList)
If rpt.DataSource Is Nothing Then

6
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -908,11 +908,11 @@ Public Class frmBelegNeu
Sub STORNO2(JournalNr, Optional grund = "")
If Not BELEG.gebuchtStorno Then
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer'" & BELEG.Benutzer & "' AND Geschäftsjahr='" & cRKSV.getGJ(BELEG.BelegDat) & "' AND JournalNr='" & JournalNr & "'", "FMZOLL")
Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat))
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer'" & BELEG.Benutzer & "' AND Geschäftsjahr='" & cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma) & "' AND JournalNr='" & JournalNr & "'", "FMZOLL")
Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma))
If dt IsNot Nothing Then
For Each r In dt.Rows
Dim KBEntry As New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ(BELEG.BelegDat), r("JournalNr"))
Dim KBEntry As New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, KASSE.rksv_firma), r("JournalNr"))
KBEntry.JournalNr = GJ.INCREASE_JOURNAL() 'Vergabe der Journalnummer
KBEntry.Buchungsdatum = Now.ToShortDateString
KBEntry.Soll = KBEntry.Soll * -1

10
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -3,7 +3,7 @@ Imports SDL.RKSVServer
Public Class frmKassenbuch
Dim SQL As New SQL
Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ(Now) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Public GESCHAEFTSJAHR As Integer = cRKSV.getGJ_FIRMA(Now, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'IIf(Now.Month = 1, Now.Year - 1, Now.Year)
Dim PERSONAL As cPersonal
Dim RKSV As cRKSV_Kasse
Dim PERSONAL_LG As cPersonal = Nothing
@@ -913,8 +913,8 @@ Public Class frmKassenbuch
End Select
If BELEGTmp IsNot Nothing Then
If cRKSV.getGJ(Now) <> cRKSV.getGJ(BELEGTmp.BelegDat) Then
MsgBox("Das Geschäftsjahr im Beleg ist '" & cRKSV.getGJ(BELEGTmp.BelegDat) & "', es können nur Belege im laufenden Geschäftsjahr gebucht werden. Aktion wird abgebrochen!")
If cRKSV.getGJ(Now, PERSONAL.cRKSV_Kasse.rksv_firma) <> cRKSV.getGJ_FIRMA(BELEGTmp.BelegDat, PERSONAL.cRKSV_Kasse.rksv_firma) Then
MsgBox("Das Geschäftsjahr im Beleg ist '" & cRKSV.getGJ_FIRMA(BELEGTmp.BelegDat, PERSONAL.cRKSV_Kasse.rksv_firma) & "', es können nur Belege im laufenden Geschäftsjahr gebucht werden. Aktion wird abgebrochen!")
Exit Sub
End If
@@ -1221,7 +1221,7 @@ Public Class frmKassenbuch
Case Else
End Select
Dim GESCHAEFTSJAHR = cRKSV.getGJ(von) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim GESCHAEFTSJAHR = cRKSV.getGJ_FIRMA(von, PERSONAL.cRKSV_Kasse.rksv_firma) ' IIf(von.Month = 1, von.Year - 1, von.Year)
Dim sum = 0
rpt.lblUeberschrift.Text = "Kassenbuch " & von.ToShortDateString & " bis " & bis.ToShortDateString
rpt.lblGeschaeftsjahr.Text = GESCHAEFTSJAHR
@@ -1247,7 +1247,7 @@ Public Class frmKassenbuch
Dim BuDat As Date = CDate(rpt.Fields.Item("Buchungsdatum").Value()).ToShortDateString
rpt.lblBelegDat.Text = BuDat
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ(BuDat) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
Dim GESCHAEFTSJAHR_TMP = cRKSV.getGJ_FIRMA(BuDat, PERSONAL.cRKSV_Kasse.rksv_firma) 'IIf(BuDat.Month = 1, BuDat.Year - 1, BuDat.Year)
rpt.lblBelegNr.Text = IIf(rpt.Fields.Item("rksv_BelegId").Value Is DBNull.Value, "(" & rpt.Fields.Item("BelegNr").Value & ")", rpt.Fields.Item("rksv_BelegId").Value())
rpt.lblBuText.Text = rpt.Fields.Item("Buchungstext").Value()