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

dat_VM

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-06 09:17:57 +01:00
parent e9872fcb36
commit b94078ad2e
2 changed files with 23 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1974,13 +1974,30 @@ Public Class FormularManagerNEU
listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "") listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
End If End If
Dim dat As Date = Now
If IsDate(usrCntl.txtVmDat.Text) Then
dat = CDate(usrCntl.txtVmDat.Text)
End If
If dat < CDate("01.01.2023") Then
Select Case usrCntl.cboSprache._value
Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT_EN_001", listTowrite)
Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT_001", listTowrite)
End Select
Else
Select Case usrCntl.cboSprache._value Select Case usrCntl.cboSprache._value
Case "EN" Case "EN"
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT_EN", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT_EN", listTowrite)
Case Else Case Else
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT", listTowrite) Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_INDIREKT", listTowrite)
End Select End Select
End If
Return "" Return ""
End Function End Function

BIN
SDL/Resources/Zoll/EORI_UID.dotx
View File

Binary file not shown.