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

ank/freig. verimex

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-18 11:57:23 +02:00
parent 1ca12d2c38
commit c050f505ed
3 changed files with 18 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Aviso/AvisoStatusFunctions.vb
View File

@@ -117,10 +117,7 @@ Public Class AvisoStatusFunctions
End Function
Public Function setAnkunft(AvisoID) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
@@ -133,6 +130,12 @@ Public Class AvisoStatusFunctions
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
'If Aviso.Warenort = False Then 'VERIMEX darf bei Warenort Status setzen
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
' End If
'End If
Dim msg As String
Dim antwort As MsgBoxResult
@@ -1247,11 +1250,7 @@ Public Class AvisoStatusFunctions
End Function
Public Function setFreigabe(AvisoID As Integer, CONTROL As Control, Optional allowEveryState As Boolean = False) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
Return False
End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
@@ -1264,6 +1263,13 @@ Public Class AvisoStatusFunctions
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
'If Aviso.Warenort = False Then 'VERIMEX darf bei Warenort Status setzen
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
' End If
'End If
'Prüfung kassieren:
Dim CURRENT_INDEX = -1