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

MS_05042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-05 17:28:12 +02:00
parent b9eb1e1981
commit d1eb7ecb5b
72 changed files with 11883 additions and 9088 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
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
@@ -66,7 +66,7 @@ Public Class ClassImport_Windream
End If
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
idxvalue = CURRENT_PARENT_ID
If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
If indexierung_erfolgreich = False Then
err = True
@@ -77,7 +77,7 @@ Public Class ClassImport_Windream
''den Record-Key auslesen
'indexname = dt.Rows(0).Item("IDXNAME_RECORDID").ToString
'idxvalue = CURRENT_RECORD_ID
'If LogErrorsOnly = False Then ClassLogger.Add(" - Record-ID: " & idxvalue.ToString, False)
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False)
'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
'If indexierung_erfolgreich = False Then
' err = True
@@ -87,7 +87,7 @@ Public Class ClassImport_Windream
''den Doctype-Key auslesen
'indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString
'idxvalue = CURRENT_DOKARTSTRING
'If LogErrorsOnly = False Then ClassLogger.Add(" - Doctype: " & idxvalue.ToString, False)
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False)
'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue)
'If indexierung_erfolgreich = False Then
' err = True
@@ -159,7 +159,7 @@ Public Class ClassImport_Windream
End If
'schonmal den gesamten Pfad laden
Dim DATEINAME As String = Zielordner & "\" & NameConv
If LogErrorsOnly = False Then ClassLogger.Add(">> DATEINAME: " & DATEINAME, False)
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)
@@ -168,7 +168,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)
If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False)
Select Case element.Value.Substring(2, 1).ToUpper
'Nur automatische Indizes auswerten
Case "A"
@@ -192,7 +192,7 @@ Public Class ClassImport_Windream
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)
If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: sql_AUTOindexresult is nothing!!", False)
value = ""
Else
If IsDBNull(sql_AUTOindexresult) Then
@@ -219,14 +219,14 @@ Public Class ClassImport_Windream
End If
ElseIf APattern.Contains("#") Then
If LogErrorsOnly = False Then ClassLogger.Add(">> element filled with Record-Data.......: ", False)
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)
If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: CONTROLVALUE is nothing!!", False)
value = ""
Else
If IsDBNull(CONTROLVALUE) Then
@@ -245,7 +245,7 @@ Public Class ClassImport_Windream
If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value)
_NewFileString = DATEINAME
If LogErrorsOnly = False Then ClassLogger.Add(">> Actual NEWFILESTRING: " & _NewFileString, False)
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 & "'"