AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS1108_1

Browse Source
This commit is contained in:
SchreiberM
2016-08-11 12:00:03 +02:00
parent 3a8c24e2a3
commit 7512e479f5
10 changed files with 1370 additions and 562 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/ClassImport_Windream.vb
View File

@@ -566,6 +566,7 @@ Public Class ClassImport_Windream
End Select
FolderConvention = FolderConvention.Replace(element.ToString, folder_temp)
Case "C"
'Füllen mit Controlwert
Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
Dim split() As String = elmt
@@ -629,6 +630,17 @@ Public Class ClassImport_Windream
End If
End If
Case "V"
Dim elmt = element.Value.Substring(3, element.Value.Length - 4).Split("#")
Dim split() As String = elmt
If split.Length = 2 Then
Dim VARTYPE = split(0)
Select Case VARTYPE
Case "Doctype"
FolderConvention = FolderConvention.Replace(element.ToString, CURRENT_DOKARTSTRING)
End Select
End If
Case Else
ClassLogger.Add(" -Undefined pattern found in folderconvention" & vbNewLine & "Elementname: " & element.Value.ToUpper)
MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Unexpected error in Name generieren:")