jj PRPMO_DOC_VALUE

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -4454,7 +4454,6 @@ Public Class frmConstructor_Main
                         colDate.DisplayFormat.FormatString = CURRENT_DATE_FORMAT
                     Next
 
-
                     ' Alle Date Spalten durchgehen 
                     For Each dropdownrow As DataRow In DROPDOWN_TABLE.Rows
                         Dim RepositoryItemComboBox = New RepositoryItemComboBox()
@@ -4468,7 +4467,13 @@ Public Class frmConstructor_Main
 
                         ' For each row add an item
                         For i = 0 To foundRows.GetUpperBound(0)
-                            RepositoryItemComboBox.Items.Add(foundRows(i)("VALUE"))
+                            Dim item As New WDDoc_Combobox_Item()
+                            item.ConfigID = foundRows(i)("CONFIG_ID")
+                            item.Value = foundRows(i)("VALUE")
+
+
+                            'RepositoryItemComboBox.Items.Add(foundRows(i)("VALUE"))
+                            RepositoryItemComboBox.Items.Add(item)
                         Next
                         GridViewDoc_Search.GridControl.RepositoryItems.Add(RepositoryItemComboBox)
                         If Not IsNothing(GridViewDoc_Search.Columns(colstring)) Then
@@ -4583,15 +4588,102 @@ Public Class frmConstructor_Main
     End Sub
     Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
         Try
-            Dim ItemComboBox As RepositoryItemComboBox
+            Dim ComboBox As ComboBoxEdit = sender
-            ItemComboBox = sender
+            'Dim ItemComboBox As RepositoryItemComboBox
+            'ItemComboBox = sender
+            Dim item As WDDoc_Combobox_Item = ComboBox.SelectedItem
+            Dim value As String = item.Value
+            Dim configId As Integer = item.ConfigID
+            Dim docId As Integer = RESULT_DOC_ID
+            Dim user As String = Environment.UserName
 
+            Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, Environment.UserName)
+            ClassDatabase.Execute_non_Query(Sql)
         Catch ex As Exception
-
+            MsgBox("Error:" & vbNewLine & ex.Message)
         End Try
         'Perform your actions
     End Sub
 
+    Public Class WDDoc_Combobox_Item
+        Implements IConvertible
+
+        Public ConfigID As Integer
+        Public Value As String
+
+        Public Overrides Function ToString() As String
+            Return Me.Value
+        End Function
+
+        Public Function GetTypeCode() As TypeCode Implements IConvertible.GetTypeCode
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToBoolean(provider As IFormatProvider) As Boolean Implements IConvertible.ToBoolean
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToByte(provider As IFormatProvider) As Byte Implements IConvertible.ToByte
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToChar(provider As IFormatProvider) As Char Implements IConvertible.ToChar
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDateTime(provider As IFormatProvider) As Date Implements IConvertible.ToDateTime
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDecimal(provider As IFormatProvider) As Decimal Implements IConvertible.ToDecimal
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToDouble(provider As IFormatProvider) As Double Implements IConvertible.ToDouble
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt16(provider As IFormatProvider) As Short Implements IConvertible.ToInt16
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt32(provider As IFormatProvider) As Integer Implements IConvertible.ToInt32
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToInt64(provider As IFormatProvider) As Long Implements IConvertible.ToInt64
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToSByte(provider As IFormatProvider) As SByte Implements IConvertible.ToSByte
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToSingle(provider As IFormatProvider) As Single Implements IConvertible.ToSingle
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToString1(provider As IFormatProvider) As String Implements IConvertible.ToString
+            Return Me.Value
+        End Function
+
+        Public Function ToType(conversionType As Type, provider As IFormatProvider) As Object Implements IConvertible.ToType
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt16(provider As IFormatProvider) As UShort Implements IConvertible.ToUInt16
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt32(provider As IFormatProvider) As UInteger Implements IConvertible.ToUInt32
+            Throw New NotImplementedException
+        End Function
+
+        Public Function ToUInt64(provider As IFormatProvider) As ULong Implements IConvertible.ToUInt64
+            Throw New NotImplementedException
+        End Function
+    End Class
+
     Private Sub GridViewDropDown_ValueChanged(sender As Object, e As DragEventArgs) Handles TCDetails.DragDrop
         Drag_Drop(e)
     End Sub