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

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2023-02-22 08:31:50 +01:00
parent ea5ff4b815
commit 93a8ffc602
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.6.1")>
<Assembly: AssemblyFileVersion("3.8.6.1")>
<Assembly: AssemblyVersion("3.8.6.2")>
<Assembly: AssemblyFileVersion("3.8.6.2")>

6
Aviso/frmEssensbestellungenAdministration.vb
View File

@@ -588,8 +588,10 @@ Public Class frmEssensbestellungenAdministration
Dim dtBestellungen As DataTable
Dim SQLStringBEstellungen As String = "SELECT [eb_mitname] as Name ,[eb_mitid] as ID , LEFT([eb_kw],5) as KW , [eb_gebaeude] as Gebaeude ,[eb_abteilung] as Abteilung ,[eb_montag] As Montag ,[eb_dienstag] As Dienstag,[eb_mittwoch] As Mittwoch,
[eb_donnerstag] As Donnerstag ,[eb_freitag] as Freitag, [eb_anmerkung] as Anmerkung ,[eb_datum] as Datum , [eb_storniert] as Storniert
''LEFT([eb_kw],5)
Dim SQLStringBEstellungen As String = "SELECT [eb_mitname] as Name ,[eb_mitid] as ID , [eb_kw] as KW , [eb_gebaeude] as Gebaeude ,[eb_abteilung] as Abteilung ,[eb_montag] As Montag ,[eb_dienstag] As Dienstag,[eb_mittwoch] As Mittwoch,
[eb_donnerstag] As Donnerstag , [eb_freitag] As Freitag, [eb_anmerkung] As Anmerkung , [eb_datum] As Datum , [eb_storniert] as Storniert
FROM
[tblEssensbestellungen] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 Order by eb_datum"

3
Aviso/frmHauptfenster.vb
View File

@@ -4156,7 +4156,8 @@ Public Class frmHauptfenster
End Sub
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
setProfileImage() 'cHMRC.VATTEST(InputBox("Token"))
setProfileImage()
cHMRC.VATTEST(InputBox("Token"))
End Sub
Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click