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

MS12

Browse Source
This commit is contained in:
SchreiberM 2016-09-29 16:46:21 +02:00
parent 93528062ba
commit b87def7b40
13 changed files with 191 additions and 323 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/ClassFileResult.vb
View File

@ -58,9 +58,9 @@
Return False
End Try
End Function
Public Shared Function Delete_ResultFile(RESULT_DOC_ID)
Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
Try
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0}", RESULT_DOC_ID)
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
Return True
Else

14
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -331,10 +331,10 @@
<Compile Include="frmRecordView.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWD_Link_to_Record.Designer.vb">
<DependentUpon>frmWD_Link_to_Record.vb</DependentUpon>
<Compile Include="frmDocLink_to_Record.Designer.vb">
<DependentUpon>frmDocLink_to_Record.vb</DependentUpon>
</Compile>
<Compile Include="frmWD_Link_to_Record.vb">
<Compile Include="frmDocLink_to_Record.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWD_Resultlist_Config.Designer.vb">
@ -710,11 +710,11 @@
<EmbeddedResource Include="frmRecordView.resx">
<DependentUpon>frmRecordView.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_Link_to_Record.en-US.resx">
<DependentUpon>frmWD_Link_to_Record.vb</DependentUpon>
<EmbeddedResource Include="frmDocLink_to_Record.en-US.resx">
<DependentUpon>frmDocLink_to_Record.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_Link_to_Record.resx">
<DependentUpon>frmWD_Link_to_Record.vb</DependentUpon>
<EmbeddedResource Include="frmDocLink_to_Record.resx">
<DependentUpon>frmDocLink_to_Record.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWD_Resultlist_Config.en-US.resx">
<DependentUpon>frmWD_Resultlist_Config.vb</DependentUpon>

126
app/DD-Record-Organiser/frmConstructor_Main.Designer.vb generated
View File

@ -76,8 +76,8 @@ Partial Class frmConstructor_Main
Me.TSMI_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMI_DeleteFile = New System.Windows.Forms.ToolStripMenuItem()
Me.TsMI_DocRemoveLink = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -477,7 +477,7 @@ Partial Class frmConstructor_Main
'
'ContextMenuStripResultFiles
'
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.tsmiRights, Me.ToolStripSeparator8, Me.ToolStripMenuItem1, Me.DeleteToolStripMenuItem, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
Me.ContextMenuStripResultFiles.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiÖffnenToolStripMenuItem, Me.ToolStripSeparator7, Me.CopyToolStripMenuItem, Me.ToolStripSeparator10, Me.UmbenennenToolStripMenuItem, Me.TSMIDisplayname, Me.TSMI_inWork, Me.TSMI_linkRecord, Me.tsmiRights, Me.ToolStripSeparator8, Me.ToolStripMI_DeleteFile, Me.TsMI_DocRemoveLink, Me.ToolStripSeparator9, Me.PropertiesToolStripMenuItem, Me.AnsichtZurücksetzenToolStripMenuItem})
Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
'
@ -551,17 +551,17 @@ Partial Class frmConstructor_Main
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
'
'ToolStripMenuItem1
'ToolStripMI_DeleteFile
'
Me.ToolStripMenuItem1.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1")
Me.ToolStripMI_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.ToolStripMI_DeleteFile.Name = "ToolStripMI_DeleteFile"
resources.ApplyResources(Me.ToolStripMI_DeleteFile, "ToolStripMI_DeleteFile")
'
'DeleteToolStripMenuItem
'TsMI_DocRemoveLink
'
Me.DeleteToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem"
resources.ApplyResources(Me.DeleteToolStripMenuItem, "DeleteToolStripMenuItem")
Me.TsMI_DocRemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938
Me.TsMI_DocRemoveLink.Name = "TsMI_DocRemoveLink"
resources.ApplyResources(Me.TsMI_DocRemoveLink, "TsMI_DocRemoveLink")
'
'ToolStripSeparator9
'
@ -1141,57 +1141,57 @@ Partial Class frmConstructor_Main
Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.NavPane)
Me.Name = "frmConstructor_Main"
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerMain.ResumeLayout(false)
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerTop.ResumeLayout(false)
Me.CMSEntity.ResumeLayout(false)
CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit
Me.ContextMenuGrid.ResumeLayout(false)
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit
Me.TCDetails.ResumeLayout(false)
Me.TabDetails.ResumeLayout(false)
Me.TabWindream.ResumeLayout(false)
Me.TabWindream.PerformLayout
CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit
Me.ContextMenuStripResultFiles.ResumeLayout(false)
CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit
Me.ToolStripDokumente.ResumeLayout(false)
Me.ToolStripDokumente.PerformLayout
Me.TabFollowUp.ResumeLayout(false)
Me.TabFollowUp.PerformLayout
Me.grpbxFU_Profile.ResumeLayout(false)
Me.grpbxFU_Profile.PerformLayout
Me.GroupBox4.ResumeLayout(false)
Me.GroupBox4.PerformLayout
Me.TabPos.ResumeLayout(false)
Me.TabPos.PerformLayout
Me.Panel1.ResumeLayout(false)
CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit
Me.BindingNavigatorPOS.ResumeLayout(false)
Me.BindingNavigatorPOS.PerformLayout
Me.ToolStripEdit.ResumeLayout(false)
Me.ToolStripEdit.PerformLayout
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainer1.ResumeLayout(false)
CType(Me.BindingSource_Entity,System.ComponentModel.ISupportInitialize).EndInit
Me.StatusStrip_Main.ResumeLayout(false)
Me.StatusStrip_Main.PerformLayout
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(False)
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTop.ResumeLayout(False)
Me.CMSEntity.ResumeLayout(False)
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuGrid.ResumeLayout(False)
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.TCDetails.ResumeLayout(False)
Me.TabDetails.ResumeLayout(False)
Me.TabWindream.ResumeLayout(False)
Me.TabWindream.PerformLayout()
CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripResultFiles.ResumeLayout(False)
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(False)
Me.ToolStripDokumente.PerformLayout()
Me.TabFollowUp.ResumeLayout(False)
Me.TabFollowUp.PerformLayout()
Me.grpbxFU_Profile.ResumeLayout(False)
Me.grpbxFU_Profile.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.TabPos.ResumeLayout(False)
Me.TabPos.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigatorPOS.ResumeLayout(False)
Me.BindingNavigatorPOS.PerformLayout()
Me.ToolStripEdit.ResumeLayout(False)
Me.ToolStripEdit.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
End Sub
Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip
@ -1304,7 +1304,7 @@ End Sub
Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents DeleteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TsMI_DocRemoveLink As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel
@ -1328,5 +1328,5 @@ End Sub
Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar
Friend WithEvents labelLoadEntity As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMI_DeleteFile As System.Windows.Forms.ToolStripMenuItem
End Class

36
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@ -394,7 +394,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1360, 343</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -412,7 +412,7 @@
<value>0</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1360, 343</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@ -504,16 +504,16 @@
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>236, 6</value>
</data>
<data name="ToolStripMenuItem1.Size" type="System.Drawing.Size, System.Drawing">
<data name="ToolStripMI_DeleteFile.Size" type="System.Drawing.Size, System.Drawing">
<value>239, 22</value>
</data>
<data name="ToolStripMenuItem1.Text" xml:space="preserve">
<data name="ToolStripMI_DeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value>
</data>
<data name="DeleteToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<data name="TsMI_DocRemoveLink.Size" type="System.Drawing.Size, System.Drawing">
<value>239, 22</value>
</data>
<data name="DeleteToolStripMenuItem.Text" xml:space="preserve">
<data name="TsMI_DocRemoveLink.Text" xml:space="preserve">
<value>Entferne Datei Link</value>
</data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
@ -565,7 +565,7 @@
<value>0</value>
</data>
<metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>9, 57</value>
</metadata>
<data name="tslblWindreamView.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold, Italic</value>
@ -1060,7 +1060,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1360, 343</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@ -1087,7 +1087,7 @@
<value>Cyan</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 322</value>
<value>1360, 318</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -1111,7 +1111,7 @@
<value>0, 25</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 322</value>
<value>1360, 318</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -1286,7 +1286,7 @@
<value>0, 0</value>
</data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 25</value>
<value>1360, 25</value>
</data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -1315,7 +1315,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value>
<value>1360, 343</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@ -2463,16 +2463,16 @@
<data name="&gt;&gt;ToolStripSeparator8.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripMenuItem1.Name" xml:space="preserve">
<value>ToolStripMenuItem1</value>
<data name="&gt;&gt;ToolStripMI_DeleteFile.Name" xml:space="preserve">
<value>ToolStripMI_DeleteFile</value>
</data>
<data name="&gt;&gt;ToolStripMenuItem1.Type" xml:space="preserve">
<data name="&gt;&gt;ToolStripMI_DeleteFile.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DeleteToolStripMenuItem.Name" xml:space="preserve">
<value>DeleteToolStripMenuItem</value>
<data name="&gt;&gt;TsMI_DocRemoveLink.Name" xml:space="preserve">
<value>TsMI_DocRemoveLink</value>
</data>
<data name="&gt;&gt;DeleteToolStripMenuItem.Type" xml:space="preserve">
<data name="&gt;&gt;TsMI_DocRemoveLink.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator9.Name" xml:space="preserve">

235
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -991,7 +991,7 @@ Public Class frmConstructor_Main
RIGHT_WINDREAM_FORBIDDEN = False
tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True
DeleteToolStripMenuItem.Enabled = True
TsMI_DocRemoveLink.Enabled = True
UmbenennenToolStripMenuItem.Enabled = True
TSMI_linkRecord.Enabled = True
TSMI_inWork.Enabled = True
@ -1055,7 +1055,7 @@ Public Class frmConstructor_Main
TSMI_inWork.Enabled = False
PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False
TsMI_DocRemoveLink.Enabled = False
tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False
@ -1235,7 +1235,7 @@ Public Class frmConstructor_Main
TreeViewMain.Nodes.Clear()
If NODE_NAVIGATION = True Then
Try
Try
Dim MainNode = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST)
If Not IsNothing(MainNode) Then
TreeViewMain.Nodes.Add(MainNode)
@ -3869,9 +3869,9 @@ Public Class frmConstructor_Main
Else
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim msg As String
msg = "Wollen Sie die zugehörigen windream-Dateien (" & DT_RESULT.Rows.Count.ToString & ") ebenfalls löschen?"
msg = "Wollen Sie die zugehörigen Dateien (" & DT_RESULT.Rows.Count.ToString & ") ebenfalls löschen?"
If USER_LANGUAGE <> "de-DE" Then
msg = "Do You want to delete the related windream-documents (" & DT_RESULT.Rows.Count.ToString & ")?"
msg = "Do You want to delete the related files (" & DT_RESULT.Rows.Count.ToString & ")?"
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@ -3880,185 +3880,36 @@ Public Class frmConstructor_Main
Dim DOC_ID = row.Item("DocID")
Dim path = row.Item("FULLPATH")
If Not IsNothing(path) Then
If ClassWindream.Delete_WDFile(path) Then
If ClassFileResult.Delete_ResultFile(DOC_ID) = False Then
Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & DOC_ID)
If Count > 1 Then
msg = "Diese Datei ist noch mit anderen Datensätzen verknüpft! Lediglich die Verknüpfung zum aktuellen Datensatz wird gelöscht!"
If USER_LANGUAGE <> "de-DE" Then
msg = "This file is also linked to other records! Only the link for this Record will be deleted!"
End If
MsgBox(msg, MsgBoxStyle.Information)
If ClassFileResult.Delete_ResultFile(DOC_ID, RECORD_ID, 0) = False Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE LINK DELETED BY USER")
End If
Else
If ClassFileResult.Delete_ResultFile(DOC_ID, RECORD_ID, 1) = False Then
msg = String.Format("Die Datei {0} konnte nicht gelöscht werden! Prüfen Sie die logfile!", path)
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The file {0} could not be deleted! Check the logfile!", path)
End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
Else
If ClassWindream.Delete_WDFile(path) Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
End If
End If
End If
End If
Next
End If
End If
End If
'Dim windream_temp_search
'If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Then
' Exit Sub
'End If
'Cursor = Cursors.WaitCursor
'Dim DTWD As DataTable
'Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
'DTWD = ClassDatabase.Return_Datatable(sql)
'If DTWD.Rows.Count = 1 Then
' If IsDBNull(DTWD.Rows(0).Item(0)) Then
' Cursor = Cursors.Default
' Exit Sub
' End If
'Else
' Cursor = Cursors.Default
' Exit Sub
'End If
''Die SearchPatterns durchlaufen und zwischenspeichern
'If IsDBNull(DTWD.Rows(0).Item(0)) Then
' Cursor = Cursors.Default
' Exit Sub
'End If
'Basesearch = DTWD.Rows(0).Item(0)
'SP1 = DTWD.Rows(0).Item(1)
'If IsDBNull(DTWD.Rows(0).Item(2)) Then
' SP2 = ""
'Else
' SP2 = DTWD.Rows(0).Item(2)
'End If
'If IsDBNull(DTWD.Rows(0).Item(3)) Then
' SP3 = ""
'Else
' SP3 = DTWD.Rows(0).Item(3)
'End If
'If IsDBNull(DTWD.Rows(0).Item(4)) Then
' SP4 = ""
'Else
' SP4 = DTWD.Rows(0).Item(4)
'End If
'If IsDBNull(DTWD.Rows(0).Item(5)) Then
' SP5 = ""
'Else
' SP5 = DTWD.Rows(0).Item(5)
'End If
''Eine tempfile generieren
'Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
''Nur den Filenamen ohne Erweiterung
'Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1)
''tempfile lsöchen
'If My.Computer.FileSystem.FileExists(tempFilename1) Then
' My.Computer.FileSystem.DeleteFile(tempFilename1)
'End If
'Dim temppath = Path.GetTempPath
'Dim EncodingFormat As Encoding
'Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1")
'If WDUnicode = True Then
' EncodingFormat = Encoding.GetEncoding(1252) '1252
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False)
'Else
' If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False)
' EncodingFormat = Encoding.GetEncoding(65001)
'End If
'Dim fileContents As String
'If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False)
'fileContents = My.Computer.FileSystem.ReadAllText(Basesearch, EncodingFormat) ', System.Text.Encoding.Unicode
'If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False)
'fileContents = fileContents.Replace("Í", "Ö")
'Dim _sp1 = SP1
'Dim _sp2 = SP2
'Dim _sp3 = SP3
'Dim _sp4 = SP4
'Dim _sp5 = SP5
'If _sp1.ToString <> String.Empty Then
' _sp1 = Return_SearchPattern(_sp1.ToString)
' fileContents = fileContents.Replace("%pattern1%", _sp1)
' fileContents = fileContents.Replace("471101", _sp1)
'End If
'If _sp2.ToString <> String.Empty Then
' _sp2 = Return_SearchPattern(_sp2.ToString)
' If _sp2 = 0 Then
' _sp2 = ""
' End If
' fileContents = fileContents.Replace("%pattern2%", _sp2)
' fileContents = fileContents.Replace("471102", _sp2)
'End If
'If _sp3.ToString <> String.Empty Then
' _sp3 = Return_SearchPattern(_sp3.ToString)
' If _sp3 = 0 Then
' _sp3 = ""
' End If
' fileContents = fileContents.Replace("%pattern3%", _sp3)
' fileContents = fileContents.Replace("471103", _sp3)
'End If
'If _sp4.ToString <> String.Empty Then
' _sp4 = Return_SearchPattern(_sp4.ToString)
' If _sp4 = 0 Then
' _sp4 = ""
' End If
' fileContents = fileContents.Replace("%pattern4%", _sp4)
' fileContents = fileContents.Replace("471104", _sp4)
'End If
'If _sp5.ToString <> String.Empty Then
' _sp5 = Return_SearchPattern(_sp5.ToString)
' If _sp5 = 0 Then
' _sp5 = ""
' End If
' fileContents = fileContents.Replace("%pattern5%", _sp5)
' fileContents = fileContents.Replace("471105", _sp5)
'End If
''Die windream File zusammensetzen
'windream_temp_search = temppath & tempName & ".wdf"
'TEMP_FILES.Add(windream_temp_search)
''Die File schreiben
'My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat)
'My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat)
'' XML-Datei öffnen und laden
'Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat)
'Dim Reader As New System.Xml.XmlTextReader(Stream)
'' XML-Datei initialisieren
'Dim xml As New System.Xml.XmlDocument()
'' XML-Datei öffnen und laden
'xml.Load(Reader)
'Reader.Close()
'xml.Save(windream_temp_search)
'If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False)
'Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects
'Try
' windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search)
'Catch ex As Exception
' MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
'End Try
'elapsed = sw.Elapsed.TotalSeconds
'If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False)
'If windreamSucheErgebnisse.Count > 0 Then
' Dim files_deleted As Integer = 0
' For Each dok As WMObject In windreamSucheErgebnisse
' Dim filename = "W:" & dok.aPath
' Try
' File.Delete(filename)
' files_deleted = +1
' Catch ex As Exception
' ClassLogger.Add("Unexpected Error in Delete windream-file '" & filename & "- Error: " & ex.Message)
' End Try
' Dim msg = "Es wurden (" & files_deleted.ToString & ") Dateien gelöscht!"
' If USER_LANGUAGE <> "de-DE" Then
' msg = "(" & files_deleted.ToString & ") files were deleted!"
' End If
' MsgBox(msg, MsgBoxStyle.Information)
' Next
'Else
' Dim msg = "Es wurden keine Dateien für diesen Datensatz gefunden!"
' If USER_LANGUAGE <> "de-DE" Then
' msg = "No files found for record!"
' End If
' MsgBox(msg, MsgBoxStyle.Information)
'End If
Cursor = Cursors.Default
Catch ex As Exception
MsgBox("Error in WD-Delete Docs:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -4118,7 +3969,7 @@ Public Class frmConstructor_Main
End If
msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
End If
End If
tslblWindreamView.Text = msg
@ -4175,10 +4026,10 @@ Public Class frmConstructor_Main
GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList()
End If
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
elapsed = sw.Elapsed.TotalSeconds
sw.Stop()
sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception
MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -5508,7 +5359,7 @@ Public Class frmConstructor_Main
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TsMI_DocRemoveLink.Click
If RECORD_ID = 0 Then
MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub
@ -5533,7 +5384,7 @@ Public Class frmConstructor_Main
If ClassWindream.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
'ENTITY-Links entfernen
If ClassWindream.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID")) = True Then
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
RUN_WDSEARCH_GRID("RECORD")
End If
@ -5546,7 +5397,7 @@ Public Class frmConstructor_Main
End If
End If
Next
Catch ex As Exception
MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -5922,7 +5773,7 @@ Public Class frmConstructor_Main
End If
Dim fileName As String = ClassWindreamDocGrid.SELECTED_DOC_PATH
CURRENT_DOC_ID = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim frm As New frmWD_Link_to_Record() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
Dim frm As New frmDocLink_to_Record() 'fileName, ClassWindreamDocGrid.RESULT_OBJECTTYPE)
frm.Show()
Catch ex As Exception
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
@ -6207,7 +6058,7 @@ Public Class frmConstructor_Main
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMI_DeleteFile.Click
If RECORD_ID = 0 Then
MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub
@ -6227,9 +6078,22 @@ Public Class frmConstructor_Main
If result1 = MsgBoxResult.Yes Then
Try
If Not IsNothing(row.Item("DOC_ID")) Then
If ClassWindream.Delete_WDFile(row.Item("DOC_PATH")) = True Then
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID")) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & row.Item("DOC_ID"))
If Count > 1 Then
msg = "Diese Datei ist noch mit anderen Datensätzen verknüpft! Lediglich die Verknüpfung zum aktuellen Datensatz wird gelöscht!"
If USER_LANGUAGE <> "de-DE" Then
msg = "This file is also linked to other records! Only the link for this Record will be deleted!"
End If
MsgBox(msg, MsgBoxStyle.Information)
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE LINK DELETED BY USER")
End If
RUN_WDSEARCH_GRID("RECORD")
Else
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 1) = True Then
If ClassWindream.Delete_WDFile(row.Item("DOC_PATH")) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
End If
RUN_WDSEARCH_GRID("RECORD")
Else
msg = String.Format("Die Datei {0} konnte nicht gelöscht werden! Prüfen Sie die logfile!", row.Item("DOC_PATH"))
@ -6239,6 +6103,7 @@ Public Class frmConstructor_Main
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -6246,7 +6111,7 @@ Public Class frmConstructor_Main
End If
End If
Next
End Sub
End Class

69
app/DD-Record-Organiser/frmWD_Link_to_Record.Designer.vb → app/DD-Record-Organiser/frmDocLink_to_Record.Designer.vb generated
View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmWD_Link_to_Record
Partial Class frmDocLink_to_Record
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -22,7 +22,7 @@ Partial Class frmWD_Link_to_Record
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_Link_to_Record))
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDocLink_to_Record))
Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.trvwMain = New System.Windows.Forms.TreeView()
Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl()
@ -36,11 +36,11 @@ Partial Class frmWD_Link_to_Record
Me.txtFileInfo = New System.Windows.Forms.TextBox()
Me.txtRecordId = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
CType(Me.SplitContainerControl1,System.ComponentModel.ISupportInitialize).BeginInit
Me.SplitContainerControl1.SuspendLayout
CType(Me.dgEntityRecords,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout()
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainerControl1
'
@ -66,26 +66,27 @@ Partial Class frmWD_Link_to_Record
'
'grvwGrid
'
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"),System.Drawing.Color)
Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = true
Me.grvwGrid.Appearance.FilterPanel.BackColor = CType(resources.GetObject("grvwGrid.Appearance.FilterPanel.BackColor"),System.Drawing.Color)
Me.grvwGrid.Appearance.FilterPanel.Options.UseBackColor = true
Me.grvwGrid.Appearance.HideSelectionRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.HideSelectionRow.BackColor"),System.Drawing.Color)
Me.grvwGrid.Appearance.HideSelectionRow.Options.UseBackColor = true
Me.grvwGrid.Appearance.SelectedRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.SelectedRow.BackColor"),System.Drawing.Color)
Me.grvwGrid.Appearance.SelectedRow.Options.UseBackColor = true
Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = true
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.EvenRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.FilterPanel.BackColor = CType(resources.GetObject("grvwGrid.Appearance.FilterPanel.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.FilterPanel.Options.UseBackColor = True
Me.grvwGrid.Appearance.HideSelectionRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.HideSelectionRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.HideSelectionRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.SelectedRow.BackColor"), System.Drawing.Color)
Me.grvwGrid.Appearance.SelectedRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = True
Me.grvwGrid.GridControl = Me.dgEntityRecords
Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.Editable = false
Me.grvwGrid.OptionsBehavior.ReadOnly = true
Me.grvwGrid.OptionsView.ColumnAutoWidth = false
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = true
Me.grvwGrid.OptionsView.ShowAutoFilterRow = true
Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
'
'cmbConstructorForms
'
Me.cmbConstructorForms.FormattingEnabled = true
Me.cmbConstructorForms.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.Name = "cmbConstructorForms"
'
@ -103,7 +104,7 @@ Partial Class frmWD_Link_to_Record
'
resources.ApplyResources(Me.btnLink, "btnLink")
Me.btnLink.Name = "btnLink"
Me.btnLink.UseVisualStyleBackColor = true
Me.btnLink.UseVisualStyleBackColor = True
'
'Label3
'
@ -119,20 +120,20 @@ Partial Class frmWD_Link_to_Record
'
resources.ApplyResources(Me.txtFileInfo, "txtFileInfo")
Me.txtFileInfo.Name = "txtFileInfo"
Me.txtFileInfo.ReadOnly = true
Me.txtFileInfo.ReadOnly = True
'
'txtRecordId
'
resources.ApplyResources(Me.txtRecordId, "txtRecordId")
Me.txtRecordId.Name = "txtRecordId"
Me.txtRecordId.ReadOnly = true
Me.txtRecordId.ReadOnly = True
'
'Label5
'
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'frmWD_Link_to_Record
'frmDocLink_to_Record
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@ -147,15 +148,15 @@ Partial Class frmWD_Link_to_Record
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cmbConstructorForms)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmWD_Link_to_Record"
CType(Me.SplitContainerControl1,System.ComponentModel.ISupportInitialize).EndInit
Me.SplitContainerControl1.ResumeLayout(false)
CType(Me.dgEntityRecords,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
Me.PerformLayout
Me.Name = "frmDocLink_to_Record"
CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
End Sub
Friend WithEvents cmbConstructorForms As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents trvwMain As System.Windows.Forms.TreeView

0
app/DD-Record-Organiser/frmWD_Link_to_Record.en-US.resx → app/DD-Record-Organiser/frmDocLink_to_Record.en-US.resx
View File

2
app/DD-Record-Organiser/frmWD_Link_to_Record.resx → app/DD-Record-Organiser/frmDocLink_to_Record.resx
View File

@ -924,7 +924,7 @@
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmWD_Link_to_Record</value>
<value>frmDocLink_to_Record</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

18
app/DD-Record-Organiser/frmWD_Link_to_Record.vb → app/DD-Record-Organiser/frmDocLink_to_Record.vb
View File

@ -1,7 +1,7 @@
Imports System.Text
Imports System.IO
Public Class frmWD_Link_to_Record
Public Class frmDocLink_to_Record
Dim DT_TREEVIEW_PER_CONTROLS As DataTable
Dim TreeView_perControl As Boolean = False
Dim DT_TREEVIEW_CONFIGURATION As DataTable
@ -253,12 +253,12 @@ Public Class frmWD_Link_to_Record
Catch ex As Exception
End Try
End Sub
Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect
' Try
Dim dt As DataTable
If NODE_NAVIGATION = False Then
SetSelectedNodeStyle(trvwMain.Nodes)
@ -311,7 +311,7 @@ Public Class frmWD_Link_to_Record
txtRecordId.Text = ""
RECORD_ID = 0
End If
End If
' Datasource neu setzen und columns laden
@ -323,7 +323,7 @@ Public Class frmWD_Link_to_Record
grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If
If RECORD_ID > 0 Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
grvwGrid.FocusedRowHandle = rowHandle
@ -373,7 +373,7 @@ Public Class frmWD_Link_to_Record
End If
End If
End Function
Function GetSafeFilename(filename As String)
Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars()))
End Function
@ -454,16 +454,16 @@ Public Class frmWD_Link_to_Record
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
Else
Dim msg = "Der Datensatz wurde erfolgreich mit der Datei verknüpft!"
Dim msg = String.Format("Der Datensatz wurde erfolgreich mit der Datei " & vbNewLine & "{0}" & vbNewLine & "verknüpft!", DOC_PATH)
If USER_LANGUAGE <> "de-DE" Then
msg = "The record was successfully added to the file!"
msg = "The record was successfully linked to the file: " & vbNewLine & DOC_PATH
End If
MsgBox(msg, MsgBoxStyle.Information)
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & RecordId.ToString)
End If
End If
Next
Catch ex As Exception
MsgBox("Unexpected Error in Linking Record to file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try

1
app/DD-Record-Organiser/frmMain.Designer.vb generated
View File

@ -646,3 +646,4 @@ Partial Class frmMain
Friend WithEvents itemAbout As DevExpress.XtraBars.BarButtonItem
End Class

4
app/DD-Record-Organiser/frmMain.vb
View File

@ -580,7 +580,7 @@ Public Class frmMain
Try
Process.Start(MY_WIKISTRING)
Catch ex As Exception
MsgBox("Es wurde keine Hilfe-URL hinterlegt. Bitte wenden sie sich and den System-Administrator", MsgBoxStyle.Exclamation)
MsgBox("No Help-Konfiguration. Please inform the system-Administrator", MsgBoxStyle.Exclamation)
End Try
End Sub
@ -710,7 +710,7 @@ Public Class frmMain
cultureInfo.DefaultThreadCurrentCulture = cultureInfo
cultureInfo.DefaultThreadCurrentUICulture = cultureInfo
End If
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()

4
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx
View File

@ -2016,7 +2016,7 @@
<value>0, 25</value>
</data>
<data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>305, 227</value>
<value>305, 210</value>
</data>
<data name="ListBox2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -2204,7 +2204,7 @@
<value>0, 0</value>
</data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>1265, 25</value>
<value>1347, 25</value>
</data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib">
<value>1</value>

1
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb
View File

@ -405,6 +405,7 @@
Dim del = "EXEC [dbo].[PRPMO_DELETE_DOCTYPE] " & GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
Refresh_Dokart(False)
Refresh_DokID_FORM_VIEW()
End If
End If
End Sub