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

MS:02.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-03 09:54:39 +01:00
parent f26ba63935
commit 304df6b023
19 changed files with 182 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -148,53 +148,54 @@ Public Class ClassImport_Windream
For Each element As System.Text.RegularExpressions.Match In elemente
If LogErrorsOnly = False Then ClassLogger.Add(">> element in RegeX: " & element.Value, False)
Select Case element.Value.Substring(2, 1).ToUpper
''Manueller Indexwert
'Case "M"
' If LogErrorsOnly = False Then ClassLogger.Add(" >>Manueller Index wird geprüft...", False)
' Dim Indexname = element.Value.Substring(3, element.Value.Length - 4)
' Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4), "FILE")
' If value <> String.Empty Then
' DATEINAME = DATEINAME.Replace(element.Value, value)
' _NewFileString = DATEINAME
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
' AnzahlIndexe += 1
' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
' Else
' Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & FW_DOCTYPE_IDTextBox.Text & " AND UPPER(NAME) = UPPER('" & Indexname & "')", True)
' If optional_index = True Then
' Dim result As MsgBoxResult
' result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
' If result = MsgBoxResult.Yes Then
' DATEINAME = DATEINAME.Replace(element.Value, Path.GetFileNameWithoutExtension(CURRENT_FILENAME))
' _NewFileString = DATEINAME
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
' AnzahlIndexe += 1
' sql_history_Index_Values = sql_history_Index_Values & ", '" & Path.GetFileNameWithoutExtension(CURRENT_FILENAME) & "'"
' Else
' DATEINAME = DATEINAME.Replace(element.Value, value)
' _NewFileString = DATEINAME
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
' AnzahlIndexe += 1
' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"
' End If
' Else
' ClassLogger.Add(" >> Der Indexvalue für Index '" & Indexname & "' ist String.Empty", False)
' err = True
' End If
' End If
'Nur automatische Indizes auswerten
Case "A"
Dim APattern = element.Value.Substring(3, element.Value.Length - 4)
Dim value As String
Select Case APattern
'Laufzeitvariable Record-ID
Case "RECORD_ID"
value = CURRENT_RECORD_ID
Case "DOKART"
'Laufzeitvariable Dokumentartstring
value = CURRENT_DOKARTSTRING
Case Else
If APattern.Contains("#") Then
'Ein Index der nur für die Namenkonvention herangezogen wird
If APattern.StartsWith("NC_") And APattern.Contains("#") Then
Dim split() As String = APattern.Split("#")
If split.Length = 2 Then
'Die GUID des AutoIndex auslesen
Dim INDEX_ID = split(1)
If IsNumeric(INDEX_ID) Then
Dim sql_AUTOindexresult = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID, True)
If IsNothing(sql_AUTOindexresult) Then
If LogErrorsOnly = False Then ClassLogger.Add(">> unexpected: sql_AUTOindexresult is nothing!!", False)
value = ""
Else
If IsDBNull(sql_AUTOindexresult) Then
value = ""
Else
sql_AUTOindexresult = sql_AUTOindexresult.ToString.ToUpper.Replace("@RECORD-ID", CURRENT_RECORD_ID)
Dim AUTOindexresult = ClassDatabase.Execute_Scalar(sql_AUTOindexresult, True)
If IsNothing(AUTOindexresult) Then
ClassLogger.Add(">> unexpected: AUTOindexresult is nothing!!", False)
value = ""
Else
If IsDBNull(AUTOindexresult) Then
value = ""
Else
value = AUTOindexresult
End If
End If
End If
End If
End If
End If
ElseIf APattern.Contains("#") Then
If LogErrorsOnly = False Then ClassLogger.Add(">> element filled with Record-Data.......: ", False)
Dim split() As String = APattern.Split("#")
If split.Length = 2 Then