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

fix ustva

Browse Source
This commit is contained in:
d.breimaier
2026-11-13 10:38:43 +01:00
parent 654ac29424
commit 6f4d20147a
3 changed files with 49 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.9.5")> <Assembly: AssemblyVersion("1.5.9.6")>
<Assembly: AssemblyFileVersion("1.5.9.5")> <Assembly: AssemblyFileVersion("1.5.9.6")>

2
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -2655,7 +2655,7 @@ Public Class frmMDM_USTVAntrag
If withPDF Then If withPDF Then
Dim list As New List(Of String) Dim list As New List(Of String)
If mergePDFs Then If mergePDFs Then
Mail.Attachments.Add(PDFInvoicesPath("", List), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue) Mail.Attachments.Add(PDFInvoicesPath("", list), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Else Else
PDFInvoicesPath("", list) PDFInvoicesPath("", list)

12
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -508,7 +508,7 @@ Public Class ustCntlUSTV_AntragPosition
If e.KeyValue <> Keys.Tab Then Return If e.KeyValue <> Keys.Tab Then Return
If Not CanEdit() Then If Not CanEdit() Then
lblWarning.Text = "keine Berechtigung/bereits abgerech." lblWarning.Text = "keine Berechtigung"
Return Return
End If End If
@@ -723,11 +723,11 @@ Public Class ustCntlUSTV_AntragPosition
allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm)
If allowed Then 'If allowed Then
If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then ' If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then
allowed = False ' allowed = False
End If ' End If
End If 'End If
Return allowed Return allowed