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

Berechigungsprüfung bei Rechnugsansicht im Therefore (für IMEX)

Browse Source
This commit is contained in:
d.breimaier
2023-10-25 11:56:40 +02:00
parent b9a41c6002
commit 23c1077235
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/frmKundenUebersichtZollRgDetails.vb
View File

@@ -85,9 +85,14 @@ Public Class frmKundenUebersichtZollRgDetails
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 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 End Select
Try Try
If DataGridView.SelectedRows.Count = 0 Then Exit Sub If DataGridView.SelectedRows.Count = 0 Then Exit Sub
If Not IsNumeric(filialeTmp) Then Exit Sub If Not IsNumeric(filialeTmp) Then Exit Sub
If Not IsNumeric(abfertigungsNrTmp) Then Exit Sub If Not IsNumeric(abfertigungsNrTmp) Then Exit Sub