jj 09.11 typo
This commit is contained in:
@@ -3825,10 +3825,6 @@ Public Class frmConstructor_Main
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If TextBox.OldEditValue = TextBox.EditValue Then
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
|
|
||||||
'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
|
'Dim colTitle = DirectCast(GridControlDocSearch.MainView, DevExpress.XtraGrid.Views.Grid.GridView).FocusedColumn.FieldName
|
||||||
'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
|
'Dim configId As Integer = ClassWindreamDocGrid.RESULT_CONFIG_IDS.Item(colTitle)
|
||||||
' Config id über mainView -> detailView herausfinden
|
' Config id über mainView -> detailView herausfinden
|
||||||
@@ -3840,7 +3836,7 @@ Public Class frmConstructor_Main
|
|||||||
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
|
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
|
||||||
Dim user As String = Environment.UserName
|
Dim user As String = Environment.UserName
|
||||||
|
|
||||||
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configId, value, user)
|
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE {0}, {1}, '{2}', '{3}'", docId, configid, value, user)
|
||||||
ClassDatabase.Execute_non_Query(Sql)
|
ClassDatabase.Execute_non_Query(Sql)
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
|
MsgBox("Error in OnTextSelectedValueChanged:" & vbNewLine & ex.Message)
|
||||||
|
|||||||
Reference in New Issue
Block a user