From c050f505edad4c0fb744905c18f7064b278f40c6 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 18 Jun 2025 11:57:23 +0200 Subject: [PATCH] ank/freig. verimex --- Aviso/AvisoStatusFunctions.vb | 24 +++++++++++++++--------- Aviso/Classes/cSendungsoptions.vb | 2 +- Aviso/My Project/AssemblyInfo.vb | 4 ++-- 3 files changed, 18 insertions(+), 12 deletions(-) diff --git a/Aviso/AvisoStatusFunctions.vb b/Aviso/AvisoStatusFunctions.vb index 5de29a2..b122ccc 100644 --- a/Aviso/AvisoStatusFunctions.vb +++ b/Aviso/AvisoStatusFunctions.vb @@ -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 diff --git a/Aviso/Classes/cSendungsoptions.vb b/Aviso/Classes/cSendungsoptions.vb index ffe7cfa..ef92c33 100644 --- a/Aviso/Classes/cSendungsoptions.vb +++ b/Aviso/Classes/cSendungsoptions.vb @@ -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 diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index a9058eb..e749df5 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +