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

Zoll Vollmacht Option: Vollmacht mit Befristung

Browse Source
This commit is contained in:
m.ilhan
2024-10-03 15:16:37 +02:00
parent 5af6234a9b
commit f37c006ed7
3 changed files with 72 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1573,6 +1573,8 @@ Public Class FormularManagerNEU
listTowrite = addEinmaligeVM(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
ElseIf usrCntl.cbxVollmachtmitBefristung.Checked Then
listTowrite = addBebfristung(listTowrite, 0, 235, usrCntl.cboSprache._value, "", "")
End If
@@ -6414,6 +6416,18 @@ Public Class FormularManagerNEU
Return listTowrite
End Function
Shared Function addBebfristung(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, DateAtr As String, XXXX As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Select Case language
Case "EN"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Power of attorney valid until: ____________", left + 15, top, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Case Else
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vollmacht gültig bis: ____________", left + 15, top, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
End Select
Return listTowrite
End Function
Public Shared Function MergePdfFiles(ByVal fileNames As List(Of String), ByVal targetPdf As String) As Boolean
Dim merged As Boolean = True