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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:33:49 +02:00
parent 0a7e4feedd
commit 81905f2f44
24 changed files with 985 additions and 596 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -2482,12 +2482,18 @@ Public Class frmSendungsdetailsNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
If cboFiliale._value <> "5501" Then sperren = True
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "VERAG" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
sperren = False
End If
Case "UNISPED"
If cboFiliale._value <> "5601" Then sperren = True
Case "VERAG"
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value) = "IMEX" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
sperren = False
End If
End Select
End If
End If