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

MS_21.10.2015

Browse Source
This commit is contained in:
SchreiberM
2015-10-21 11:58:58 +02:00
parent be7347af13
commit bab4910c44
18 changed files with 1885 additions and 1781 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -37,7 +37,7 @@ Public Class ClassImport_Windream
idxvalue = idxvalue.ToString.Replace("@Dokart", Dokart)
End Select
End If
If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(">> Indexvalue: " & idxvalue.ToString, False)
Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
@@ -57,7 +57,7 @@ Public Class ClassImport_Windream
If dt.Rows.Count = 1 Then
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
Dim idxvalue = CURRENT_FORM_ID
If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(">> Entity-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
err = True
@@ -126,14 +126,18 @@ Public Class ClassImport_Windream
'####
' Regulären Ausdruck zum Auslesen der Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
If IsDBNull(DT.Rows(0).Item("NAMENKONVENTION")) Then
DT.Rows(0).Item("NAMENKONVENTION") = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
ElseIf DT.Rows(0).Item("NAMENKONVENTION") = String.Empty Then
DT.Rows(0).Item("NAMENKONVENTION") = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
'Namenkonvention laden
Dim NameConv = ClassDatabase.Execute_Scalar("SELECT TOP 1 NAME_CONVENTION FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID, True)
If IsDBNull(NameConv) Then
ClassLogger.Add(">> Achtung: Namenskonvention is DBNull", False)
NameConv = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
ElseIf NameConv = String.Empty Then
ClassLogger.Add(">> Achtung: Namenskonvention is String empty", False)
NameConv = Path.GetFileNameWithoutExtension(CURRENT_FILENAME)
End If
'schonmal den gesamten Pfad laden
Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION")
Dim DATEINAME As String = Zielordner & "\" & NameConv
If LogErrorsOnly = False Then ClassLogger.Add(">> DATEINAME: " & DATEINAME, False)
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
@@ -142,6 +146,7 @@ Public Class ClassImport_Windream
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
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"
@@ -188,11 +193,35 @@ Public Class ClassImport_Windream
value = CURRENT_RECORD_ID
Case "DOKART"
value = CURRENT_DOKARTSTRING
Case Else
If 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
Dim CONTROL_ID = split(1)
If IsNumeric(CONTROL_ID) Then
Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID)
If IsNothing(CONTROLVALUE) Then
If LogErrorsOnly = False Then ClassLogger.Add(">> unexpected: CONTROLVALUE is nothing!!", False)
value = ""
Else
If IsDBNull(CONTROLVALUE) Then
value = ""
Else
value = CONTROLVALUE
End If
End If
End If
End If
End If
End Select
If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value)
_NewFileString = DATEINAME
If LogErrorsOnly = False Then ClassLogger.Add(">> Actual NEWFILESTRING: " & _NewFileString, False)
' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString
AnzahlIndexe += 1
' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'"