This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-16 11:06:35 +02:00
parent 5a345bd658
commit 76796df71f
3 changed files with 7 additions and 2 deletions

View File

@@ -3172,7 +3172,7 @@ Public Class frmConstructor_Main
End If
TabWindream.Text = stg
End If
Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2}", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
Dim sel = String.Format("SELECT * FROM TBPMO_RECORD WHERE RECORD_ENTITY_ID = (SELECT RECORD_ENTITY_ID FROM TBPMO_RECORD WHERE GUID = {0}) AND FORM_ID = {1} AND GUID <> {2} AND DELETED = 0", SELECTED_RECORD_ID, ENTITY_ID, SELECTED_RECORD_ID)
Dim DT_VARIANT As DataTable = ClassDatabase.Return_Datatable(sel, True)
If DT_VARIANT.Rows.Count > 0 Then
TabPageVariant.PageVisible = True