MS_13.10.2015
This commit is contained in:
@@ -179,9 +179,6 @@ Public Class frmQuickEdit
|
||||
Public Sub LoadFormProperties()
|
||||
'Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID
|
||||
Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid
|
||||
|
||||
Console.WriteLine(thisformid)
|
||||
|
||||
'Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)
|
||||
Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL)
|
||||
|
||||
@@ -269,10 +266,6 @@ Public Class frmQuickEdit
|
||||
' TODO: DRAG DROP GROUPBOX
|
||||
End Sub
|
||||
|
||||
Private Sub Control_PressTab(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs)
|
||||
Console.WriteLine(sender.ToString)
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Sub OpenFormData(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
|
||||
@@ -564,7 +557,6 @@ Public Class frmQuickEdit
|
||||
Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
|
||||
Dim SourceControl As Control = ContextMenu.SourceControl
|
||||
Dim MasterDataId As Integer = SourceControl.Tag
|
||||
Console.WriteLine(MasterDataId)
|
||||
CURRENT_MASTER_FORM_ID = MasterDataId
|
||||
frmQuickInput.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user