jj 03.02 Rename RecordOrganiser to RecordOrganizer
This commit is contained in:
JenneJ
282
app/DD-Record-Organizer/frmWD_EntityImport.vb
Normal file
282
app/DD-Record-Organizer/frmWD_EntityImport.vb
Normal file
@@ -0,0 +1,282 @@
|
||||
Imports System.IO
|
||||
Imports DD_LIB_Standards
|
||||
Public Class frmWD_EntityImport
|
||||
Private LOCAL_IMPORTFILE As String
|
||||
Private LOCAL_NEWFILESTRING As String
|
||||
Private LOCAL_TARGET_PATH As String
|
||||
Private LOCAL_COUNTFILES As Integer
|
||||
Private Sub frmWD_EntityImport_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
||||
My.Settings.Save()
|
||||
End Sub
|
||||
|
||||
Private Sub frmWD_EntityImport_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Me.txtEntityString.Text = CURRENT_ENTITYSTRING
|
||||
If clsWindream.SESSION_CREATED = True Then
|
||||
ObjektTypenEintragen()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub ObjektTypenEintragen()
|
||||
Try
|
||||
Dim oDokumentTyp As WINDREAMLib.WMObject
|
||||
' Combobox leeren
|
||||
Me.cmbObjekttyp.Items.Clear()
|
||||
' alle Objekttypen durchlaufen
|
||||
For Each oDokumentTyp In clsWD_GET.GetObjecttypesAsObjects
|
||||
' und in die Combobox eintragen
|
||||
Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName)
|
||||
Next
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub btnopenfolder_Click(sender As Object, e As EventArgs) Handles btnopenfolder.Click
|
||||
Dim fbdia As New FolderBrowserDialog
|
||||
If fbdia.ShowDialog() = DialogResult.OK Then
|
||||
txtpath.Text = fbdia.SelectedPath
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnpathWD_Click(sender As Object, e As EventArgs) Handles btnpathWD.Click
|
||||
Dim fbdia As New FolderBrowserDialog
|
||||
If fbdia.ShowDialog() = DialogResult.OK Then
|
||||
txtwindreamPath.Text = fbdia.SelectedPath
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnrunImport.Click
|
||||
If txtpath.Text <> "" And txtwindreamPath.Text <> "" Then
|
||||
LOCAL_COUNTFILES = 0
|
||||
Dim searchoption As New System.IO.SearchOption
|
||||
ListBox2.Items.Clear()
|
||||
If rbsubdirectoriesFiles.Checked Or rbSubdirectoriesFolders.Checked Then
|
||||
searchoption = IO.SearchOption.AllDirectories
|
||||
Else
|
||||
searchoption = IO.SearchOption.TopDirectoryOnly
|
||||
End If
|
||||
Dim filesarray = GetFiles(Me.txtpath.Text, Me.txtFilter.Text, txtFilter_exclude.Text, searchoption)
|
||||
For Each f As String In filesarray
|
||||
Work_File(f)
|
||||
Next
|
||||
MsgBox("Insgesamt wurden " & LOCAL_COUNTFILES.ToString & " Dateien nach windream importiert!", MsgBoxStyle.Information)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub chkImportoptionenBackup_CheckedChanged(sender As Object, e As EventArgs) Handles chkImportoptionenBackup.CheckedChanged
|
||||
If chkImportoptionenBackup.Checked Then
|
||||
Me.txtBackupordner.Enabled = True
|
||||
Me.btnBackupordner.Enabled = True
|
||||
Else
|
||||
Me.txtBackupordner.Enabled = False
|
||||
Me.btnBackupordner.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
Public Shared Function GetFiles(path As String, searchPattern As String, excludePattern As String, searchOption As SearchOption) As String()
|
||||
Dim searchPatterns As String() = searchPattern.Split("|"c)
|
||||
Dim allFiles As New List(Of String)()
|
||||
For Each sp As String In searchPatterns
|
||||
allFiles.AddRange(System.IO.Directory.GetFiles(path, sp, searchOption))
|
||||
Next
|
||||
'allFiles.Sort()
|
||||
Dim filesToExclude As New List(Of String)()
|
||||
searchPatterns = excludePattern.Split("|"c)
|
||||
For Each sp As String In searchPatterns
|
||||
filesToExclude.AddRange(System.IO.Directory.GetFiles(path, sp, searchOption))
|
||||
Next
|
||||
|
||||
Dim wantedFiles = allFiles.Except(filesToExclude)
|
||||
|
||||
Return wantedFiles.ToArray()
|
||||
End Function
|
||||
Sub Work_File(Filepath As String)
|
||||
LOCAL_IMPORTFILE = Filepath
|
||||
Dim filestring As String
|
||||
|
||||
If rbSubdirectoriesFolders.Checked = False Then
|
||||
filestring = Path.GetFileName(Filepath)
|
||||
Else
|
||||
filestring = Filepath.Replace(Me.txtpath.Text, "")
|
||||
End If
|
||||
If rbsubdirectoriesFiles.Checked Then
|
||||
filestring = Path.GetFileName(Filepath)
|
||||
End If
|
||||
Dim target As String = txtwindreamPath.Text & "\" & filestring
|
||||
|
||||
Dim version As Integer = 2
|
||||
Dim Dateiname As String = Path.GetFileNameWithoutExtension(target)
|
||||
Dim extension As String = Path.GetExtension(target)
|
||||
|
||||
Dim folder_Base As String = Path.GetDirectoryName(target)
|
||||
If rbSubdirectoriesFolders.Checked Then
|
||||
If Not IO.Directory.Exists(folder_Base) Then
|
||||
' Nein! Jetzt erstellen...
|
||||
Try
|
||||
IO.Directory.CreateDirectory(folder_Base)
|
||||
' Ordner wurde korrekt erstellt!
|
||||
Catch ex As Exception
|
||||
' Ordner wurde nich erstellt
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
Dim Stammname As String = folder_Base & "\" & Dateiname
|
||||
Dim _neuername As String = folder_Base & "\" & Dateiname
|
||||
LOCAL_TARGET_PATH = folder_Base
|
||||
'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
|
||||
'Überprüfen ob File existiert
|
||||
|
||||
Do While File.Exists(_neuername & extension)
|
||||
_neuername = Stammname & "~" & version
|
||||
LOCAL_NEWFILESTRING = _neuername
|
||||
version = version + 1
|
||||
Loop
|
||||
LOCAL_NEWFILESTRING = _neuername & extension
|
||||
WINDREAM_IMPORT()
|
||||
LOCAL_COUNTFILES += 1
|
||||
End Sub
|
||||
Private Function WINDREAM_IMPORT()
|
||||
Try
|
||||
clsWindream.MY_WDOBJECTTYPE = Me.cmbObjekttyp.Text
|
||||
Dim streamresult = clsWD_SET.Stream_File(LOCAL_IMPORTFILE, LOCAL_TARGET_PATH)
|
||||
'Dim type = streamresult.GetType
|
||||
If streamresult = True Then
|
||||
Dim indexierung_erfolgreich As Boolean = False
|
||||
|
||||
'den Entity-Key auslesen
|
||||
Dim sql As String = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & clsWindream.MY_WDOBJECTTYPE & "')"
|
||||
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
|
||||
If Not dt Is Nothing Then
|
||||
If dt.Rows.Count = 1 Then
|
||||
Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString
|
||||
Dim idxvalue = CURRENT_ENTITY_ID
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then
|
||||
MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical)
|
||||
End If
|
||||
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
|
||||
idxvalue = CURRENT_PARENT_ENTITY_ID
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical)
|
||||
'###
|
||||
'den Record-Key auslesen
|
||||
indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString
|
||||
idxvalue = CURRENT_RECORD_ID
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical)
|
||||
|
||||
'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)
|
||||
indexierung_erfolgreich = clsWD_SET.IndexFile(CURRENT_FILEIN_WD, indexname, idxvalue, clsWindream.MY_WDOBJECTTYPE)
|
||||
If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical)
|
||||
'####
|
||||
End If
|
||||
End If
|
||||
If indexierung_erfolgreich = True Then
|
||||
Dim error_Occured = False
|
||||
If chkImportoptionenBackup.Checked And txtBackupordner.Text <> String.Empty Then
|
||||
error_Occured = Create_Copy()
|
||||
End If
|
||||
'Die Originaldatei löschen
|
||||
If error_Occured = False Then
|
||||
File.Delete(LOCAL_IMPORTFILE)
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("Es gab ein Problem bei der Indexierung der Datei. Bitte prüfen sie das Log!", MsgBoxStyle.Exclamation, "Achtung:")
|
||||
End If
|
||||
Else
|
||||
MsgBox("Unexpected Error in Stream2windream. Please check logfile!", MsgBoxStyle.Exclamation)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Windream-Import:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
End Try
|
||||
End Function
|
||||
Private Function Create_Copy()
|
||||
Try
|
||||
Dim filestring As String
|
||||
If rbSubdirectoriesFolders.Checked = False Then
|
||||
filestring = Path.GetFileName(LOCAL_IMPORTFILE)
|
||||
Else
|
||||
filestring = LOCAL_IMPORTFILE.Replace(Me.txtpath.Text, "")
|
||||
End If
|
||||
If rbsubdirectoriesFiles.Checked Then
|
||||
filestring = Path.GetFileName(LOCAL_IMPORTFILE)
|
||||
End If
|
||||
Dim target As String = txtBackupordner.Text & "\" & filestring
|
||||
|
||||
Dim version As Integer = 2
|
||||
Dim Dateiname As String = Path.GetFileNameWithoutExtension(target)
|
||||
Dim extension As String = Path.GetExtension(target)
|
||||
|
||||
Dim folder_Base As String = Path.GetDirectoryName(target)
|
||||
|
||||
If Not IO.Directory.Exists(folder_Base) Then
|
||||
' Nein! Jetzt erstellen...
|
||||
Try
|
||||
IO.Directory.CreateDirectory(folder_Base)
|
||||
' Ordner wurde korrekt erstellt!
|
||||
Catch ex As Exception
|
||||
' Ordner wurde nich erstellt
|
||||
End Try
|
||||
End If
|
||||
|
||||
Dim Stammname As String = folder_Base & "\" & Dateiname
|
||||
Dim _neuername As String = folder_Base & "\" & Dateiname
|
||||
LOCAL_TARGET_PATH = folder_Base
|
||||
'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "")
|
||||
'Überprüfen ob File existiert
|
||||
Dim COPY_STRING As String
|
||||
Do While File.Exists(_neuername & extension)
|
||||
_neuername = Stammname & "~" & version
|
||||
COPY_STRING = _neuername
|
||||
version = version + 1
|
||||
Loop
|
||||
COPY_STRING = _neuername & extension
|
||||
File.Copy(LOCAL_IMPORTFILE, COPY_STRING)
|
||||
Return False
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in Create-Copy:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return True
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
Private Sub cmbObjekttyp_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbObjekttyp.SelectedIndexChanged
|
||||
If cmbObjekttyp.SelectedIndex <> -1 Then
|
||||
Load_Indices(cmbObjekttyp.Text)
|
||||
End If
|
||||
End Sub
|
||||
Sub Load_Indices(Objecttype As String)
|
||||
|
||||
'den Entity-Key auslesen
|
||||
Dim Sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & Objecttype & "')"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql, True)
|
||||
Dim count As Integer = 0
|
||||
If Not DT Is Nothing Then
|
||||
If DT.Rows.Count = 1 Then
|
||||
ListView1.Items.Clear()
|
||||
ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_ENTITYID").ToString)
|
||||
ListView1.Items(count).SubItems.Add(CURRENT_ENTITY_ID)
|
||||
ListView1.Items.Add(DT.Rows(0).Item("IDXNAME_PARENTID").ToString)
|
||||
ListView1.Items(count + 1).SubItems.Add(CURRENT_PARENT_ENTITY_ID)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmWD_EntityImport_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
If My.Settings.WD_ENTITYIMP_OBJECTTYPE <> String.Empty Then
|
||||
Load_Indices(My.Settings.WD_ENTITYIMP_OBJECTTYPE)
|
||||
End If
|
||||
If My.Settings.WD_ENTITYIMP_SAFETYPATH <> String.Empty Then
|
||||
Me.chkImportoptionenBackup.Checked = True
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user