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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/kassenbuch/Verschluesselung/cCrypt.vb
View File

@@ -47,7 +47,7 @@ Public Class cCrypt
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateEncryptor()
Dim ms As New IO.MemoryStream
Dim ms As New System.IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), _
CryptoStreamMode.Write)
@@ -91,7 +91,7 @@ Public Class cCrypt
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateDecryptor()
Dim ms As New IO.MemoryStream
Dim ms As New System.IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), _
CryptoStreamMode.Write)

11
SDL/kassenbuch/frmKassenbuch.vb
View File

@@ -175,14 +175,18 @@ Public Class frmKassenbuch
Dim benutzerTMP = ""
Dim benutzerBezTMP = ""
Dim lgTxt = ""
If master_Kasse Then
benutzerTMP = " AND Benutzer IN (SELECT ID FROM [Personal] WHERE [Standard_RKSV_KasseId]='" & PERSONAL.cRKSV_Kasse.rksv_id & "') "
benutzerBezTMP = " , (SELECT cast(ID as varchar(3))+' '+Name FROM [Personal] WHERE [ID]=b.Benutzer) as BenutzerBez "
Else
benutzerTMP = " And Benutzer=" & PERSONAL.ID & ""
End If
If PERSONAL.isLeihgeldkasse Then
lgTxt = ",[Fahrer],[Passnummer] "
End If
.SET_SQL("SELECT b.rksv_BelegId, b.BelegDat, CASE WHEN b.Belegart=1 THEN 'E' ELSE 'A' END as Belegart,CASE WHEN b.Beleg_TYP='E' THEN rksv_umsatz ELSE (SELECT sum( betrag ) FROM tblEABelegposition WHERE (b.BelegNr = tblEABelegposition.BelegNr) AND (b.BelegDat = tblEABelegposition.BelegDat) AND (b.Benutzer = tblEABelegposition.Benutzer) AND (b.Niederlassung = tblEABelegposition.Niederlassung) AND (b.Mandant = tblEABelegposition.Mandant ) ) END as Betrag, b.Ordnungsbegriff, b.BelegNr, b.Frachtführer, " &
" CASE WHEN b.storniert=1 THEN 'JA' ELSE '' END as [storniert], b.Beleg_TYP ,b.Benutzer " & benutzerBezTMP &
" CASE WHEN b.storniert=1 THEN 'JA' ELSE '' END as [storniert], b.Beleg_TYP ,b.Benutzer " & benutzerBezTMP & lgTxt &
" FROM tblEABelegnummer as b WHERE b.Mandant='" & PERSONAL.Mandant & "' AND b.Niederlassung='" & PERSONAL.Niederlassung & "' " & benutzerTMP & " AND BelegDat BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' " &
" ORDER BY b.rksv_BelegId DESC, b.[upsize_ts] desc;", "FMZOLL")
' .DataSource = SQL.loadDgvBySql("SELECT b.rksv_BelegId, b.BelegDat, CASE WHEN b.Belegart=1 THEN 'E' ELSE 'A' END as Belegart,CASE WHEN b.Beleg_TYP='E' THEN rksv_umsatz ELSE (SELECT sum( betrag ) FROM tblEABelegposition WHERE (b.BelegNr = tblEABelegposition.BelegNr) AND (b.BelegDat = tblEABelegposition.BelegDat) AND (b.Benutzer = tblEABelegposition.Benutzer) AND (b.Niederlassung = tblEABelegposition.Niederlassung) AND (b.Mandant = tblEABelegposition.Mandant ) ) END as Betrag, b.Ordnungsbegriff, b.BelegNr, b.Frachtführer, " &
@@ -213,6 +217,11 @@ Public Class frmKassenbuch
.Columns("storniert").Width = 45
.Columns("Benutzer").Visible = False
If PERSONAL.isLeihgeldkasse Then
.Columns("Fahrer").Visible = False
.Columns("Passnummer").Visible = False
End If
If master_Kasse Then
.Columns("BenutzerBez").HeaderText = "Benutzer" 'gibts bei bei master
End If