EDMIService: WIP

This commit is contained in:
Jonathan Jenne
2021-12-07 16:37:23 +01:00
parent 6be8b1bdb5
commit 2a6fd3555b
20 changed files with 498 additions and 364 deletions

View File

@@ -23,28 +23,19 @@ Partial Class frmtest
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox()
Me.txtFile2Import = New System.Windows.Forms.TextBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.CheckBoxKeepExtension = New System.Windows.Forms.CheckBox()
Me.Button6 = New System.Windows.Forms.Button()
Me.btnOpenFile = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
Me.btnNewFile = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbObjectStoreType = New System.Windows.Forms.ComboBox()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.Label6 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.btnImportFile = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.txtAttributeName = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtAttibuteValue = New System.Windows.Forms.TextBox()
Me.GroupBox1.SuspendLayout()
Me.txtProfileId = New System.Windows.Forms.TextBox()
Me.txtIDB_OBJ_ID = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'Label2
@@ -56,15 +47,6 @@ Partial Class frmtest
Me.Label2.TabIndex = 6
Me.Label2.Text = "FileStoreType"
'
'txtIDB_OBJ_ID
'
Me.txtIDB_OBJ_ID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DigitalData.GUIs.ZooFlow.Settings.Default, "IDBOBJID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtIDB_OBJ_ID.Location = New System.Drawing.Point(137, 38)
Me.txtIDB_OBJ_ID.Name = "txtIDB_OBJ_ID"
Me.txtIDB_OBJ_ID.Size = New System.Drawing.Size(100, 20)
Me.txtIDB_OBJ_ID.TabIndex = 9
Me.txtIDB_OBJ_ID.Text = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBOBJID
'
'txtFile2Import
'
Me.txtFile2Import.Location = New System.Drawing.Point(137, 12)
@@ -72,66 +54,27 @@ Partial Class frmtest
Me.txtFile2Import.Size = New System.Drawing.Size(426, 20)
Me.txtFile2Import.TabIndex = 11
'
'Button4
'btnOpenFile
'
Me.Button4.Location = New System.Drawing.Point(16, 345)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(286, 23)
Me.Button4.TabIndex = 13
Me.Button4.Text = "4A. Reopen from AppServ"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(16, 374)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(286, 23)
Me.Button5.TabIndex = 14
Me.Button5.Text = "4B. Alternative stream/append"
Me.Button5.UseVisualStyleBackColor = True
'
'CheckBoxKeepExtension
'
Me.CheckBoxKeepExtension.AutoSize = True
Me.CheckBoxKeepExtension.Checked = True
Me.CheckBoxKeepExtension.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBoxKeepExtension.Location = New System.Drawing.Point(16, 19)
Me.CheckBoxKeepExtension.Name = "CheckBoxKeepExtension"
Me.CheckBoxKeepExtension.Size = New System.Drawing.Size(100, 17)
Me.CheckBoxKeepExtension.TabIndex = 15
Me.CheckBoxKeepExtension.Text = "Keep Extension"
Me.CheckBoxKeepExtension.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(569, 9)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(75, 23)
Me.Button6.TabIndex = 16
Me.Button6.Text = "Select File"
Me.Button6.UseVisualStyleBackColor = True
Me.btnOpenFile.Location = New System.Drawing.Point(569, 9)
Me.btnOpenFile.Name = "btnOpenFile"
Me.btnOpenFile.Size = New System.Drawing.Size(75, 23)
Me.btnOpenFile.TabIndex = 16
Me.btnOpenFile.Text = "Select File"
Me.btnOpenFile.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Button7
'btnNewFile
'
Me.Button7.Location = New System.Drawing.Point(16, 403)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(286, 23)
Me.Button7.TabIndex = 14
Me.Button7.Text = "4C. Alternative"
Me.Button7.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(12, 142)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(187, 23)
Me.Button8.TabIndex = 17
Me.Button8.Text = "Import File"
Me.Button8.UseVisualStyleBackColor = True
Me.btnNewFile.Location = New System.Drawing.Point(12, 142)
Me.btnNewFile.Name = "btnNewFile"
Me.btnNewFile.Size = New System.Drawing.Size(187, 23)
Me.btnNewFile.TabIndex = 17
Me.btnNewFile.Text = "NewFile"
Me.btnNewFile.UseVisualStyleBackColor = True
'
'Label4
'
@@ -177,93 +120,61 @@ Partial Class frmtest
Me.Label6.TabIndex = 6
Me.Label6.Text = "Date"
'
'TextBox1
'btnImportFile
'
Me.TextBox1.Location = New System.Drawing.Point(137, 183)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(426, 20)
Me.TextBox1.TabIndex = 21
Me.btnImportFile.Location = New System.Drawing.Point(205, 142)
Me.btnImportFile.Name = "btnImportFile"
Me.btnImportFile.Size = New System.Drawing.Size(187, 23)
Me.btnImportFile.TabIndex = 17
Me.btnImportFile.Text = "ImportFile (GLOBIX)"
Me.btnImportFile.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 186)
Me.Label1.Location = New System.Drawing.Point(410, 44)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 13)
Me.Label1.Size = New System.Drawing.Size(45, 13)
Me.Label1.TabIndex = 18
Me.Label1.Text = "File Path (Imported)"
Me.Label1.Text = "ProfileId"
'
'GroupBox1
'txtProfileId
'
Me.GroupBox1.Controls.Add(Me.CheckBoxKeepExtension)
Me.GroupBox1.Location = New System.Drawing.Point(653, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(200, 100)
Me.GroupBox1.TabIndex = 22
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Import Options"
Me.txtProfileId.Location = New System.Drawing.Point(461, 41)
Me.txtProfileId.Name = "txtProfileId"
Me.txtProfileId.Size = New System.Drawing.Size(100, 20)
Me.txtProfileId.TabIndex = 21
Me.txtProfileId.Text = "1"
'
'ListBox1
'txtIDB_OBJ_ID
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(653, 118)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(200, 329)
Me.ListBox1.TabIndex = 23
'
'txtAttributeName
'
Me.txtAttributeName.Location = New System.Drawing.Point(205, 236)
Me.txtAttributeName.Name = "txtAttributeName"
Me.txtAttributeName.Size = New System.Drawing.Size(115, 20)
Me.txtAttributeName.TabIndex = 24
Me.txtAttributeName.Text = "InvoiceNr"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(12, 234)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(187, 23)
Me.Button2.TabIndex = 17
Me.Button2.Text = "GetAttribute"
Me.Button2.UseVisualStyleBackColor = True
'
'txtAttibuteValue
'
Me.txtAttibuteValue.Location = New System.Drawing.Point(326, 236)
Me.txtAttibuteValue.Name = "txtAttibuteValue"
Me.txtAttibuteValue.Size = New System.Drawing.Size(100, 20)
Me.txtAttibuteValue.TabIndex = 25
Me.txtIDB_OBJ_ID.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DigitalData.GUIs.ZooFlow.Settings.Default, "IDBOBJID", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtIDB_OBJ_ID.Location = New System.Drawing.Point(137, 38)
Me.txtIDB_OBJ_ID.Name = "txtIDB_OBJ_ID"
Me.txtIDB_OBJ_ID.Size = New System.Drawing.Size(100, 20)
Me.txtIDB_OBJ_ID.TabIndex = 9
Me.txtIDB_OBJ_ID.Text = Global.DigitalData.GUIs.ZooFlow.Settings.Default.IDBOBJID
'
'frmtest
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(865, 450)
Me.Controls.Add(Me.txtAttibuteValue)
Me.Controls.Add(Me.txtAttributeName)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.txtProfileId)
Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.cmbObjectStoreType)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.btnImportFile)
Me.Controls.Add(Me.btnNewFile)
Me.Controls.Add(Me.btnOpenFile)
Me.Controls.Add(Me.txtFile2Import)
Me.Controls.Add(Me.txtIDB_OBJ_ID)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label2)
Me.Name = "frmtest"
Me.Text = "frmtest"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -271,23 +182,15 @@ Partial Class frmtest
Friend WithEvents Label2 As Label
Friend WithEvents txtIDB_OBJ_ID As TextBox
Friend WithEvents txtFile2Import As TextBox
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
Friend WithEvents CheckBoxKeepExtension As CheckBox
Friend WithEvents Button6 As Button
Friend WithEvents btnOpenFile As Button
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents Button7 As Button
Friend WithEvents Button8 As Button
Friend WithEvents btnNewFile As Button
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents cmbObjectStoreType As ComboBox
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents Label6 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents btnImportFile As Button
Friend WithEvents Label1 As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents ListBox1 As ListBox
Friend WithEvents txtAttributeName As TextBox
Friend WithEvents Button2 As Button
Friend WithEvents txtAttibuteValue As TextBox
Friend WithEvents txtProfileId As TextBox
End Class