jj 28.09 select correct index for tab
This commit is contained in:
parent
93528062ba
commit
4a0e7cf3b1
@ -315,7 +315,6 @@
|
||||
End Sub
|
||||
Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
|
||||
Save_Dokart()
|
||||
Dim _temp As String
|
||||
akt_DokartID = GUIDTextBox.Text
|
||||
|
||||
Dim sql As String = "select COUNT(T.GUID) FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID
|
||||
@ -328,16 +327,9 @@
|
||||
msg = "Attention: You did not assign at least one entity to the document-type!"
|
||||
End If
|
||||
MsgBox(msg, MsgBoxStyle.Exclamation)
|
||||
XtraTabControl1.SelectedTabPageIndex = 1
|
||||
XtraTabControl1.SelectedTabPageIndex = 2
|
||||
cmbEntity_Doctype.DroppedDown = True
|
||||
End If
|
||||
'_temp = Me.NAMENKONVENTIONTextBox.Text
|
||||
'akt_Namenkonvention = _temp
|
||||
|
||||
'Me.NAMENKONVENTIONTextBox.Text = akt_Namenkonvention
|
||||
'If _temp <> NAMENKONVENTIONTextBox.Text Then
|
||||
' Save_Dokart()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user