This commit is contained in:
SchreiberM
2016-09-29 16:49:16 +02:00
13 changed files with 2368 additions and 516 deletions

View File

@@ -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