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
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 Return False
End Try End Try
End Function End Function
Public Shared Function Delete_ResultFile(RESULT_DOC_ID) Public Shared Function Delete_ResultFile(RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
Try 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 If ClassDatabase.Execute_non_Query_withConn(proc, 1) = True Then
Return True Return True
Else Else

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

@@ -331,10 +331,10 @@
<Compile Include="frmRecordView.vb"> <Compile Include="frmRecordView.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmWD_Link_to_Record.Designer.vb"> <Compile Include="frmDocLink_to_Record.Designer.vb">
<DependentUpon>frmWD_Link_to_Record.vb</DependentUpon> <DependentUpon>frmDocLink_to_Record.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmWD_Link_to_Record.vb"> <Compile Include="frmDocLink_to_Record.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmWD_Resultlist_Config.Designer.vb"> <Compile Include="frmWD_Resultlist_Config.Designer.vb">
@@ -710,11 +710,11 @@
<EmbeddedResource Include="frmRecordView.resx"> <EmbeddedResource Include="frmRecordView.resx">
<DependentUpon>frmRecordView.vb</DependentUpon> <DependentUpon>frmRecordView.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWD_Link_to_Record.en-US.resx"> <EmbeddedResource Include="frmDocLink_to_Record.en-US.resx">
<DependentUpon>frmWD_Link_to_Record.vb</DependentUpon> <DependentUpon>frmDocLink_to_Record.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWD_Link_to_Record.resx"> <EmbeddedResource Include="frmDocLink_to_Record.resx">
<DependentUpon>frmWD_Link_to_Record.vb</DependentUpon> <DependentUpon>frmDocLink_to_Record.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWD_Resultlist_Config.en-US.resx"> <EmbeddedResource Include="frmWD_Resultlist_Config.en-US.resx">
<DependentUpon>frmWD_Resultlist_Config.vb</DependentUpon> <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.TSMI_linkRecord = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiRights = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMI_DeleteFile = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TsMI_DocRemoveLink = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AnsichtZurücksetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -477,7 +477,7 @@ Partial Class frmConstructor_Main
' '
'ContextMenuStripResultFiles '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" Me.ContextMenuStripResultFiles.Name = "ContextMenuStripResultFiles"
resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles") resources.ApplyResources(Me.ContextMenuStripResultFiles, "ContextMenuStripResultFiles")
' '
@@ -551,17 +551,17 @@ Partial Class frmConstructor_Main
Me.ToolStripSeparator8.Name = "ToolStripSeparator8" Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8") resources.ApplyResources(Me.ToolStripSeparator8, "ToolStripSeparator8")
' '
'ToolStripMenuItem1 'ToolStripMI_DeleteFile
' '
Me.ToolStripMenuItem1.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete Me.ToolStripMI_DeleteFile.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMI_DeleteFile.Name = "ToolStripMI_DeleteFile"
resources.ApplyResources(Me.ToolStripMenuItem1, "ToolStripMenuItem1") resources.ApplyResources(Me.ToolStripMI_DeleteFile, "ToolStripMI_DeleteFile")
' '
'DeleteToolStripMenuItem 'TsMI_DocRemoveLink
' '
Me.DeleteToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938 Me.TsMI_DocRemoveLink.Image = Global.DD_Record_Organiser.My.Resources.Resources.RemoveLink_9938
Me.DeleteToolStripMenuItem.Name = "DeleteToolStripMenuItem" Me.TsMI_DocRemoveLink.Name = "TsMI_DocRemoveLink"
resources.ApplyResources(Me.DeleteToolStripMenuItem, "DeleteToolStripMenuItem") resources.ApplyResources(Me.TsMI_DocRemoveLink, "TsMI_DocRemoveLink")
' '
'ToolStripSeparator9 'ToolStripSeparator9
' '
@@ -1141,57 +1141,57 @@ Partial Class frmConstructor_Main
Me.Controls.Add(Me.StatusStrip_Main) Me.Controls.Add(Me.StatusStrip_Main)
Me.Controls.Add(Me.NavPane) Me.Controls.Add(Me.NavPane)
Me.Name = "frmConstructor_Main" Me.Name = "frmConstructor_Main"
CType(Me.SplitContainerMain,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerMain.ResumeLayout(false) Me.SplitContainerMain.ResumeLayout(False)
CType(Me.SplitContainerTop,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTop.ResumeLayout(false) Me.SplitContainerTop.ResumeLayout(False)
Me.CMSEntity.ResumeLayout(false) Me.CMSEntity.ResumeLayout(False)
CType(Me.GridControlMain,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuGrid.ResumeLayout(false) Me.ContextMenuGrid.ResumeLayout(False)
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwCarousel,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwCarousel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwTiles,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwTiles, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TCDetails,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
Me.TCDetails.ResumeLayout(false) Me.TCDetails.ResumeLayout(False)
Me.TabDetails.ResumeLayout(false) Me.TabDetails.ResumeLayout(False)
Me.TabWindream.ResumeLayout(false) Me.TabWindream.ResumeLayout(False)
Me.TabWindream.PerformLayout Me.TabWindream.PerformLayout()
CType(Me.GridControlDocSearch,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlDocSearch, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripResultFiles.ResumeLayout(false) Me.ContextMenuStripResultFiles.ResumeLayout(False)
CType(Me.GridViewDoc_Search,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripDokumente.ResumeLayout(false) Me.ToolStripDokumente.ResumeLayout(False)
Me.ToolStripDokumente.PerformLayout Me.ToolStripDokumente.PerformLayout()
Me.TabFollowUp.ResumeLayout(false) Me.TabFollowUp.ResumeLayout(False)
Me.TabFollowUp.PerformLayout Me.TabFollowUp.PerformLayout()
Me.grpbxFU_Profile.ResumeLayout(false) Me.grpbxFU_Profile.ResumeLayout(False)
Me.grpbxFU_Profile.PerformLayout Me.grpbxFU_Profile.PerformLayout()
Me.GroupBox4.ResumeLayout(false) Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout Me.GroupBox4.PerformLayout()
Me.TabPos.ResumeLayout(false) Me.TabPos.ResumeLayout(False)
Me.TabPos.PerformLayout Me.TabPos.PerformLayout()
Me.Panel1.ResumeLayout(false) Me.Panel1.ResumeLayout(False)
CType(Me.GridControlPos,System.ComponentModel.ISupportInitialize).EndInit CType(Me.GridControlPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGridPos,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwGridPos, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingNavigatorPOS,System.ComponentModel.ISupportInitialize).EndInit CType(Me.BindingNavigatorPOS, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigatorPOS.ResumeLayout(false) Me.BindingNavigatorPOS.ResumeLayout(False)
Me.BindingNavigatorPOS.PerformLayout Me.BindingNavigatorPOS.PerformLayout()
Me.ToolStripEdit.ResumeLayout(false) Me.ToolStripEdit.ResumeLayout(False)
Me.ToolStripEdit.PerformLayout Me.ToolStripEdit.PerformLayout()
CType(Me.SplitContainer1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(false) Me.SplitContainer1.ResumeLayout(False)
CType(Me.BindingSource_Entity,System.ComponentModel.ISupportInitialize).EndInit CType(Me.BindingSource_Entity, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip_Main.ResumeLayout(false) Me.StatusStrip_Main.ResumeLayout(False)
Me.StatusStrip_Main.PerformLayout Me.StatusStrip_Main.PerformLayout()
CType(Me.DD_ECMAdmin,System.ComponentModel.ISupportInitialize).EndInit CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ImageCollection1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet,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_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_FILES_USERBindingSource,System.ComponentModel.ISupportInitialize).EndInit CType(Me.TBPMO_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane Friend WithEvents NavPane As DevExpress.XtraBars.Navigation.TileNavPane
Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton Friend WithEvents NavButtonHome As DevExpress.XtraBars.Navigation.NavButton
Friend WithEvents StatusStrip_Main As System.Windows.Forms.StatusStrip 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 ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator 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 ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel Friend WithEvents tslblFileslocked As System.Windows.Forms.ToolStripLabel
@@ -1328,5 +1328,5 @@ End Sub
Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem Friend WithEvents tsmiRights As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar Friend WithEvents progressLoadEntity As System.Windows.Forms.ToolStripProgressBar
Friend WithEvents labelLoadEntity As System.Windows.Forms.ToolStripStatusLabel 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 End Class

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

@@ -394,7 +394,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1360, 343</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -412,7 +412,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1360, 343</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@@ -504,16 +504,16 @@
<data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator8.Size" type="System.Drawing.Size, System.Drawing">
<value>236, 6</value> <value>236, 6</value>
</data> </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> <value>239, 22</value>
</data> </data>
<data name="ToolStripMenuItem1.Text" xml:space="preserve"> <data name="ToolStripMI_DeleteFile.Text" xml:space="preserve">
<value>Datei löschen</value> <value>Datei löschen</value>
</data> </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> <value>239, 22</value>
</data> </data>
<data name="DeleteToolStripMenuItem.Text" xml:space="preserve"> <data name="TsMI_DocRemoveLink.Text" xml:space="preserve">
<value>Entferne Datei Link</value> <value>Entferne Datei Link</value>
</data> </data>
<data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator9.Size" type="System.Drawing.Size, System.Drawing">
@@ -565,7 +565,7 @@
<value>0</value> <value>0</value>
</data> </data>
<metadata name="ToolStripDokumente.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> </metadata>
<data name="tslblWindreamView.Font" type="System.Drawing.Font, System.Drawing"> <data name="tslblWindreamView.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt, style=Bold, Italic</value> <value>Segoe UI, 8.25pt, style=Bold, Italic</value>
@@ -1060,7 +1060,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1360, 343</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@@ -1087,7 +1087,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 322</value> <value>1360, 318</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@@ -1111,7 +1111,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 322</value> <value>1360, 318</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -1286,7 +1286,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 25</value> <value>1360, 25</value>
</data> </data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib"> <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@@ -1315,7 +1315,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1360, 343</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@@ -2463,16 +2463,16 @@
<data name="&gt;&gt;ToolStripSeparator8.Type" xml:space="preserve"> <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> <value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;ToolStripMenuItem1.Name" xml:space="preserve"> <data name="&gt;&gt;ToolStripMI_DeleteFile.Name" xml:space="preserve">
<value>ToolStripMenuItem1</value> <value>ToolStripMI_DeleteFile</value>
</data> </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> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;DeleteToolStripMenuItem.Name" xml:space="preserve"> <data name="&gt;&gt;TsMI_DocRemoveLink.Name" xml:space="preserve">
<value>DeleteToolStripMenuItem</value> <value>TsMI_DocRemoveLink</value>
</data> </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> <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;ToolStripSeparator9.Name" xml:space="preserve"> <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 RIGHT_WINDREAM_FORBIDDEN = False
tsmi_RecordDelete.Enabled = True tsmi_RecordDelete.Enabled = True
MassenänderungToolStripMenuItem.Enabled = True MassenänderungToolStripMenuItem.Enabled = True
DeleteToolStripMenuItem.Enabled = True TsMI_DocRemoveLink.Enabled = True
UmbenennenToolStripMenuItem.Enabled = True UmbenennenToolStripMenuItem.Enabled = True
TSMI_linkRecord.Enabled = True TSMI_linkRecord.Enabled = True
TSMI_inWork.Enabled = True TSMI_inWork.Enabled = True
@@ -1055,7 +1055,7 @@ Public Class frmConstructor_Main
TSMI_inWork.Enabled = False TSMI_inWork.Enabled = False
PropertiesToolStripMenuItem.Enabled = False PropertiesToolStripMenuItem.Enabled = False
CopyToolStripMenuItem.Enabled = False CopyToolStripMenuItem.Enabled = False
DeleteToolStripMenuItem.Enabled = False TsMI_DocRemoveLink.Enabled = False
tslblLocked.Visible = True tslblLocked.Visible = True
RecordKopierenToolStripMenuItem.Enabled = False RecordKopierenToolStripMenuItem.Enabled = False
TabFollowUp.PageEnabled = False TabFollowUp.PageEnabled = False
@@ -1235,7 +1235,7 @@ Public Class frmConstructor_Main
TreeViewMain.Nodes.Clear() TreeViewMain.Nodes.Clear()
If NODE_NAVIGATION = True Then If NODE_NAVIGATION = True Then
Try Try
Dim MainNode = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST) Dim MainNode = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_PER_CONTROLS, TREEVIEW_IMAGELIST)
If Not IsNothing(MainNode) Then If Not IsNothing(MainNode) Then
TreeViewMain.Nodes.Add(MainNode) TreeViewMain.Nodes.Add(MainNode)
@@ -3869,9 +3869,9 @@ Public Class frmConstructor_Main
Else Else
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim msg As String 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 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 End If
Dim result1 As MsgBoxResult Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
@@ -3880,185 +3880,36 @@ Public Class frmConstructor_Main
Dim DOC_ID = row.Item("DocID") Dim DOC_ID = row.Item("DocID")
Dim path = row.Item("FULLPATH") Dim path = row.Item("FULLPATH")
If Not IsNothing(path) Then If Not IsNothing(path) Then
If ClassWindream.Delete_WDFile(path) Then Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & DOC_ID)
If ClassFileResult.Delete_ResultFile(DOC_ID) = False Then 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) msg = String.Format("Die Datei {0} konnte nicht gelöscht werden! Prüfen Sie die logfile!", path)
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("The file {0} could not be deleted! Check the logfile!", path) msg = String.Format("The file {0} could not be deleted! Check the logfile!", path)
End If End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:") 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 End If
End If End If
Next Next
End If End If
End If 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 Cursor = Cursors.Default
Catch ex As Exception Catch ex As Exception
MsgBox("Error in WD-Delete Docs:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in WD-Delete Docs:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -4118,7 +3969,7 @@ Public Class frmConstructor_Main
End If End If
msg &= " (" & DT_RESULT.Rows.Count.ToString & ")" msg &= " (" & DT_RESULT.Rows.Count.ToString & ")"
End If End If
End If End If
tslblWindreamView.Text = msg tslblWindreamView.Text = msg
@@ -4175,10 +4026,10 @@ Public Class frmConstructor_Main
GridControlDocSearch.DataSource = Nothing GridControlDocSearch.DataSource = Nothing
'Clear_Windream_ResultList() 'Clear_Windream_ResultList()
End If End If
elapsed = sw.Elapsed.TotalSeconds elapsed = sw.Elapsed.TotalSeconds
sw.Stop() sw.Stop()
sw.Reset() sw.Reset()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@@ -5508,7 +5359,7 @@ Public Class frmConstructor_Main
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search) ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
End Sub 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 If RECORD_ID = 0 Then
MsgBox("Please select a record!", MsgBoxStyle.Exclamation) MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub 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 If ClassWindream.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_RECORDID"), RECORD_ID) = True Then
'ENTITY-Links entfernen 'ENTITY-Links entfernen
If ClassWindream.REMOVE_VEKTOR_LINK(row.Item("DOC_PATH"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) = True Then 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") ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
RUN_WDSEARCH_GRID("RECORD") RUN_WDSEARCH_GRID("RECORD")
End If End If
@@ -5546,7 +5397,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Removing links from file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@@ -5922,7 +5773,7 @@ Public Class frmConstructor_Main
End If End If
Dim fileName As String = ClassWindreamDocGrid.SELECTED_DOC_PATH Dim fileName As String = ClassWindreamDocGrid.SELECTED_DOC_PATH
CURRENT_DOC_ID = ClassWindreamDocGrid.SELECTED_DOC_ID 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() frm.Show()
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Linking Record: " & ex.Message, MsgBoxStyle.Critical)
@@ -6207,7 +6058,7 @@ Public Class frmConstructor_Main
End Sub 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 If RECORD_ID = 0 Then
MsgBox("Please select a record!", MsgBoxStyle.Exclamation) MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub Exit Sub
@@ -6227,9 +6078,22 @@ Public Class frmConstructor_Main
If result1 = MsgBoxResult.Yes Then If result1 = MsgBoxResult.Yes Then
Try Try
If Not IsNothing(row.Item("DOC_ID")) Then If Not IsNothing(row.Item("DOC_ID")) Then
If ClassWindream.Delete_WDFile(row.Item("DOC_PATH")) = True Then Dim Count As Integer = ClassDatabase.Execute_Scalar("SELECT COUNT(GUID) FROM TBPMO_DOC_RECORD_LINK WHERE DOC_ID = " & row.Item("DOC_ID"))
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID")) = True Then If Count > 1 Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER") 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") RUN_WDSEARCH_GRID("RECORD")
Else Else
msg = String.Format("Die Datei {0} konnte nicht gelöscht werden! Prüfen Sie die logfile!", row.Item("DOC_PATH")) 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:") MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
End If End If
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Delete file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -6246,7 +6111,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
Next Next
End Sub End Sub
End Class 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()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmWD_Link_to_Record Partial Class frmDocLink_to_Record
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. '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. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() 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.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl()
Me.trvwMain = New System.Windows.Forms.TreeView() Me.trvwMain = New System.Windows.Forms.TreeView()
Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl() Me.dgEntityRecords = New DevExpress.XtraGrid.GridControl()
@@ -36,11 +36,11 @@ Partial Class frmWD_Link_to_Record
Me.txtFileInfo = New System.Windows.Forms.TextBox() Me.txtFileInfo = New System.Windows.Forms.TextBox()
Me.txtRecordId = New System.Windows.Forms.TextBox() Me.txtRecordId = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
CType(Me.SplitContainerControl1,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerControl1.SuspendLayout Me.SplitContainerControl1.SuspendLayout()
CType(Me.dgEntityRecords,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).BeginInit CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout Me.SuspendLayout()
' '
'SplitContainerControl1 'SplitContainerControl1
' '
@@ -66,26 +66,27 @@ Partial Class frmWD_Link_to_Record
' '
'grvwGrid 'grvwGrid
' '
Me.grvwGrid.Appearance.EvenRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.EvenRow.BackColor"),System.Drawing.Color) 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.EvenRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.FilterPanel.BackColor = CType(resources.GetObject("grvwGrid.Appearance.FilterPanel.BackColor"),System.Drawing.Color) 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.FilterPanel.Options.UseBackColor = True
Me.grvwGrid.Appearance.HideSelectionRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.HideSelectionRow.BackColor"),System.Drawing.Color) 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.HideSelectionRow.Options.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.BackColor = CType(resources.GetObject("grvwGrid.Appearance.SelectedRow.BackColor"),System.Drawing.Color) 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.UseBackColor = True
Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = true Me.grvwGrid.Appearance.SelectedRow.Options.UseForeColor = True
Me.grvwGrid.GridControl = Me.dgEntityRecords Me.grvwGrid.GridControl = Me.dgEntityRecords
Me.grvwGrid.Name = "grvwGrid" Me.grvwGrid.Name = "grvwGrid"
Me.grvwGrid.OptionsBehavior.Editable = false Me.grvwGrid.OptionsBehavior.Editable = False
Me.grvwGrid.OptionsBehavior.ReadOnly = true Me.grvwGrid.OptionsBehavior.ReadOnly = True
Me.grvwGrid.OptionsView.ColumnAutoWidth = false Me.grvwGrid.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = true Me.grvwGrid.OptionsView.ColumnAutoWidth = False
Me.grvwGrid.OptionsView.ShowAutoFilterRow = true Me.grvwGrid.OptionsView.EnableAppearanceEvenRow = True
Me.grvwGrid.OptionsView.ShowAutoFilterRow = True
' '
'cmbConstructorForms 'cmbConstructorForms
' '
Me.cmbConstructorForms.FormattingEnabled = true Me.cmbConstructorForms.FormattingEnabled = True
resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms") resources.ApplyResources(Me.cmbConstructorForms, "cmbConstructorForms")
Me.cmbConstructorForms.Name = "cmbConstructorForms" Me.cmbConstructorForms.Name = "cmbConstructorForms"
' '
@@ -103,7 +104,7 @@ Partial Class frmWD_Link_to_Record
' '
resources.ApplyResources(Me.btnLink, "btnLink") resources.ApplyResources(Me.btnLink, "btnLink")
Me.btnLink.Name = "btnLink" Me.btnLink.Name = "btnLink"
Me.btnLink.UseVisualStyleBackColor = true Me.btnLink.UseVisualStyleBackColor = True
' '
'Label3 'Label3
' '
@@ -119,20 +120,20 @@ Partial Class frmWD_Link_to_Record
' '
resources.ApplyResources(Me.txtFileInfo, "txtFileInfo") resources.ApplyResources(Me.txtFileInfo, "txtFileInfo")
Me.txtFileInfo.Name = "txtFileInfo" Me.txtFileInfo.Name = "txtFileInfo"
Me.txtFileInfo.ReadOnly = true Me.txtFileInfo.ReadOnly = True
' '
'txtRecordId 'txtRecordId
' '
resources.ApplyResources(Me.txtRecordId, "txtRecordId") resources.ApplyResources(Me.txtRecordId, "txtRecordId")
Me.txtRecordId.Name = "txtRecordId" Me.txtRecordId.Name = "txtRecordId"
Me.txtRecordId.ReadOnly = true Me.txtRecordId.ReadOnly = True
' '
'Label5 'Label5
' '
resources.ApplyResources(Me.Label5, "Label5") resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
' '
'frmWD_Link_to_Record 'frmDocLink_to_Record
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.Label1)
Me.Controls.Add(Me.cmbConstructorForms) Me.Controls.Add(Me.cmbConstructorForms)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmWD_Link_to_Record" Me.Name = "frmDocLink_to_Record"
CType(Me.SplitContainerControl1,System.ComponentModel.ISupportInitialize).EndInit CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerControl1.ResumeLayout(false) Me.SplitContainerControl1.ResumeLayout(False)
CType(Me.dgEntityRecords,System.ComponentModel.ISupportInitialize).EndInit CType(Me.dgEntityRecords, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwGrid,System.ComponentModel.ISupportInitialize).EndInit CType(Me.grvwGrid, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(false) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents cmbConstructorForms As System.Windows.Forms.ComboBox Friend WithEvents cmbConstructorForms As System.Windows.Forms.ComboBox
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents trvwMain As System.Windows.Forms.TreeView 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> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmWD_Link_to_Record</value> <value>frmDocLink_to_Record</value>
</data> </data>
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <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> <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.Text
Imports System.IO Imports System.IO
Public Class frmWD_Link_to_Record Public Class frmDocLink_to_Record
Dim DT_TREEVIEW_PER_CONTROLS As DataTable Dim DT_TREEVIEW_PER_CONTROLS As DataTable
Dim TreeView_perControl As Boolean = False Dim TreeView_perControl As Boolean = False
Dim DT_TREEVIEW_CONFIGURATION As DataTable Dim DT_TREEVIEW_CONFIGURATION As DataTable
@@ -253,12 +253,12 @@ Public Class frmWD_Link_to_Record
Catch ex As Exception Catch ex As Exception
End Try End Try
End Sub End Sub
Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect Private Sub trvwMain_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwMain.AfterSelect
' Try ' Try
Dim dt As DataTable Dim dt As DataTable
If NODE_NAVIGATION = False Then If NODE_NAVIGATION = False Then
SetSelectedNodeStyle(trvwMain.Nodes) SetSelectedNodeStyle(trvwMain.Nodes)
@@ -311,7 +311,7 @@ Public Class frmWD_Link_to_Record
txtRecordId.Text = "" txtRecordId.Text = ""
RECORD_ID = 0 RECORD_ID = 0
End If End If
End If End If
' Datasource neu setzen und columns laden ' 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("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If End If
If RECORD_ID > 0 Then If RECORD_ID > 0 Then
Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID) Dim rowHandle = grvwGrid.LocateByValue(0, grvwGrid.Columns("Record-ID"), RECORD_ID)
grvwGrid.FocusedRowHandle = rowHandle grvwGrid.FocusedRowHandle = rowHandle
@@ -373,7 +373,7 @@ Public Class frmWD_Link_to_Record
End If End If
End If End If
End Function End Function
Function GetSafeFilename(filename As String) Function GetSafeFilename(filename As String)
Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars())) Return String.Join("_", filename.Split(Path.GetInvalidFileNameChars()))
End Function End Function
@@ -454,16 +454,16 @@ Public Class frmWD_Link_to_Record
End If End If
MsgBox(msg, MsgBoxStyle.Exclamation) MsgBox(msg, MsgBoxStyle.Exclamation)
Else 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 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 End If
MsgBox(msg, MsgBoxStyle.Information) MsgBox(msg, MsgBoxStyle.Information)
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & RecordId.ToString) ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & RecordId.ToString)
End If End If
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Linking Record to file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Linking Record to file:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try 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 Friend WithEvents itemAbout As DevExpress.XtraBars.BarButtonItem
End Class End Class

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

@@ -580,7 +580,7 @@ Public Class frmMain
Try Try
Process.Start(MY_WIKISTRING) Process.Start(MY_WIKISTRING)
Catch ex As Exception 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 Try
End Sub End Sub
@@ -710,7 +710,7 @@ Public Class frmMain
cultureInfo.DefaultThreadCurrentCulture = cultureInfo cultureInfo.DefaultThreadCurrentCulture = cultureInfo
cultureInfo.DefaultThreadCurrentUICulture = cultureInfo cultureInfo.DefaultThreadCurrentUICulture = cultureInfo
End If End If
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()

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

@@ -2016,7 +2016,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing"> <data name="ListBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>305, 227</value> <value>305, 210</value>
</data> </data>
<data name="ListBox2.TabIndex" type="System.Int32, mscorlib"> <data name="ListBox2.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@@ -2204,7 +2204,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing"> <data name="TBDD_INDEX_AUTOMBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>1265, 25</value> <value>1347, 25</value>
</data> </data>
<data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib"> <data name="TBDD_INDEX_AUTOMBindingNavigator.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <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 Dim del = "EXEC [dbo].[PRPMO_DELETE_DOCTYPE] " & GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
Refresh_Dokart(False) Refresh_Dokart(False)
Refresh_DokID_FORM_VIEW()
End If End If
End If End If
End Sub End Sub