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-06-04 22:19:07 +02:00
parent bf4f36a8f2
commit 8f6eaaaba8
37 changed files with 515 additions and 318 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmGenerelleGestellungen.vb
View File

@@ -61,7 +61,7 @@ Public Class frmGenerelleGestellungen
Dim fd As New OpenFileDialog
fd.Filter = "PDF Dateien|*.pdf;"
If fd.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
If fd.ShowDialog() = DialogResult.OK Then
If Not fd.FileName.EndsWith(".pdf") And Not fd.FileName.EndsWith(".PDF") Then
Me.Cursor = Cursors.Default
MsgBox("Falsches Format, bitte .PDF-Datei auswählen!")
@@ -73,7 +73,7 @@ Public Class frmGenerelleGestellungen
value = InputBox("Bitte geben Sie einen Namen für das Dokument ein:", "File - Name", System.IO.Path.GetFileName(fd.FileName), 200, 100)
If Not value.ToUpper.EndsWith(".PDF") Then value &= ".pdf"
If value.Chars(0) = "S" Then
If value.Chars(0) = "S" Then
If value.ToUpper.StartsWith("SCH") Then : path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\SCH\"
ElseIf value.Chars(0) = "ST" Then : path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\ST\"
Else : path = "\\192.168.0.91\f\VERAG Vorlagen Quickstop\Generelle Gestellungen\S\"