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

MS_31052016

Browse Source
This commit is contained in:
SchreiberM
2016-05-31 15:18:02 +02:00
parent ecb4161e6a
commit b70a105827
26 changed files with 441 additions and 432 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -295,8 +295,14 @@ Public Class ClassImport_Windream
End If
_NewFileString = DATEINAME
Case Else
ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & 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, "Fehler bei Name generieren:")
Dim msg As String
msg = "In der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper
If USER_LANGUAGE <> "de-DE" Then
msg = "In nameconvention an element was defined which could not be replaced." & vbNewLine & "elementname: " & element.Value.ToUpper
End If
ClassLogger.Add(msg)
MsgBox(msg, MsgBoxStyle.Exclamation, "Error in Name Convention:")
End Select
Next
Try
@@ -317,8 +323,8 @@ Public Class ClassImport_Windream
Loop
End If
Catch ex As Exception
ClassLogger.Add(" - Fehler bei Versionieren der Datei - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Umbenennnen der Datei:")
ClassLogger.Add(" - Error in Versioning file - Error: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Versioning file:")
err = True
End Try
CURRENT_NEWFILENAME = _NewFileString & extension
@@ -327,7 +333,12 @@ Public Class ClassImport_Windream
If err = False Then
Return True
Else
MsgBox("Fehler während der Dateinamengenerierung. Bitte überprüfen Sie das Log", MsgBoxStyle.Exclamation)
Dim msg As String
msg = "Fehler während der Dateinamengenerierung. Evtl. wurden Mussfelder nicht ausgefüllt?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Error in create variable filename. Reasons: unfilled control values. Check logfile."
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Return False
End If