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

2
Aviso/Classes/cSendungsoptions.vb
View File

@@ -443,7 +443,7 @@ Public Class SendungOptions
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle) Then
If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString, SENDUNG.tblSnd_DakosyRef, AVISO.Grenzstelle, SENDUNG.tblSnd_Zollsystem_Land) Then
ZOLLANMELDUNG = Nothing
End If

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("4.1.3.9")>
<Assembly: AssemblyFileVersion("4.1.3.9")>
<Assembly: AssemblyVersion("4.1.4.1")>
<Assembly: AssemblyFileVersion("4.1.4.1")>