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

ATR, Fakt (UNISPED Vorlage Zahlungsziel), Preise

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-29 14:27:54 +01:00
parent a4609e853d
commit 6e023041f9
13 changed files with 276 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -493,19 +493,23 @@ Public Class cProgramFunctions
End Sub
Public Shared Function getFilePathTypeValid(filePath) As String
Dim fi As New FileInfo(filePath)
Dim filename = fi.Name
Dim Typ = ""
Select Case fi.Extension.ToString.Replace(".", "").ToUpper
Case "PDF" : Typ = "PDF"
Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
Case "DOC", "DOCX" : Typ = "WORD"
Case "TXT" : Typ = "TEXT"
Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
Case Else : Typ = "SONSTIGES"
End Select
If filePath <> "" Then
Dim fi As New FileInfo(filePath)
Dim filename = fi.Name
Select Case fi.Extension.ToString.Replace(".", "").ToUpper
Case "PDF" : Typ = "PDF"
Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
Case "DOC", "DOCX" : Typ = "WORD"
Case "TXT" : Typ = "TEXT"
Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
Case "EXE" : MsgBox("Aviso-Anhänge: Ungültiges Datei-Format!") : Return False
Case Else : Typ = "SONSTIGES"
End Select
End If
Return Typ
End Function