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

CMR Bestätigung

Browse Source
This commit is contained in:
d.breimaier
2024-03-04 16:22:03 +01:00
parent beaf4e7ade
commit eee4dd8302
5 changed files with 176 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmHauptfenster.vb
View File

@@ -2753,7 +2753,7 @@ Public Class frmHauptfenster
'ToolStripMenuItem4.Visible = True
DEVeragGmbHToolStripMenuItem.Visible = True
'ToolStripMenuItem5.Visible = True
ATVeragAGToolStripMenuItem.Visible = True
'ATVeragAGToolStripMenuItem.Visible = True
'ToolStripMenuItem6.Visible = True
ATImexCSToolStripMenuItem.Visible = True
Else 'VERAG
@@ -4473,10 +4473,10 @@ Public Class frmHauptfenster
End Sub
Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
Dim enableWritepermissions As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then enableWritepermissions = True
Dim writepermissions As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True
Dim f As New frmWarenorte(enableWritepermissions)
Dim f As New frmWarenorte(writepermissions)
f.ShowDialog(Me)
End Sub