From 23c1077235597958910f1e67cd1690581f6decfd Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 25 Oct 2023 11:56:40 +0200 Subject: [PATCH] =?UTF-8?q?Berechigungspr=C3=BCfung=20bei=20Rechnugsansich?= =?UTF-8?q?t=20im=20Therefore=20(f=C3=BCr=20IMEX)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/kunden/frmKundenUebersichtZollRgDetails.vb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/SDL/kunden/frmKundenUebersichtZollRgDetails.vb b/SDL/kunden/frmKundenUebersichtZollRgDetails.vb index 80f25461..15848575 100644 --- a/SDL/kunden/frmKundenUebersichtZollRgDetails.vb +++ b/SDL/kunden/frmKundenUebersichtZollRgDetails.vb @@ -85,9 +85,14 @@ Public Class frmKundenUebersichtZollRgDetails Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX", "ATILLA" : Exit Sub + Case "ATILLA" : Exit Sub + Case "IMEX" 'Imex nur mit Berechtigungsgruppe FAKTURIERUNG im SDL + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then + Exit Sub + End If End Select Try + If DataGridView.SelectedRows.Count = 0 Then Exit Sub If Not IsNumeric(filialeTmp) Then Exit Sub If Not IsNumeric(abfertigungsNrTmp) Then Exit Sub