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

Datev Interface, Essensbestellungen

Browse Source
This commit is contained in:
d.breimaier
2023-02-01 15:56:02 +01:00
parent 5522fd066c
commit 433031ed56
2 changed files with 18 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/frmEssensbestellungen.vb
View File

@@ -296,7 +296,7 @@ Public Class frmEssensbestellungen
Dim SQLWhere As String = ""
If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum], [eb_anmerkung], [eb_abgerechnet] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
dgvBestellungen.LOAD()
@@ -328,10 +328,19 @@ Public Class frmEssensbestellungen
.Columns("eb_preis").HeaderText = "Preis"
.Columns("eb_preis").Width = 40
.Columns("eb_preis").DefaultCellStyle.Format = "N"
.Columns("eb_anmerkung").HeaderText = "Anm"
.Columns("eb_anmerkung").Width = 80
.Columns("eb_anmerkung").HeaderText = "Anm."
.Columns("eb_anmerkung").Width = 70
.Columns("eb_abgerechnet").HeaderText = "verrechnet"
.Columns("eb_abgerechnet").Width = 70
End With
For Each row As DataGridViewRow In dgvBestellungen.Rows
If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
End If
Next
End Sub
Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)