AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-12-09 10:23:42 +01:00
parent 481e767a99
commit 30a6c6b9fb
35 changed files with 1449 additions and 3454 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
app/DD-Record-Organiser/frmTool_ControlProperties.vb
View File

@@ -204,14 +204,14 @@
If IsDBNull(FromDateId) OrElse FromDateId = 0 Then
props.FromDate = ""
Else
props.FromDate = Get_Name_for_ControlID(FromDateId, CURRENT_FORM_ID)
props.FromDate = Get_Name_for_ControlID(FromDateId, CURRENT_ENTITY_ID)
End If
ToDateId = f.Item("INTEGER2")
If IsDBNull(ToDateId) OrElse ToDateId = 0 Then
props.ToDate = ""
Else
props.ToDate = Get_Name_for_ControlID(ToDateId, CURRENT_FORM_ID)
props.ToDate = Get_Name_for_ControlID(ToDateId, CURRENT_ENTITY_ID)
End If
SubjectString = f.Item("STRING1")
@@ -272,7 +272,7 @@
' Wird von frmLevelDesigner aufgerufen
'Public Sub LoadControlProperties(ctrl As Control)
' Try
' Dim sql As String = "SELECT CTRLSCR_ID FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_NAME = '" & ctrl.Name & "' AND FORM_ID = " & CURRENT_FORM_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
' Dim sql As String = "SELECT CTRLSCR_ID FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_NAME = '" & ctrl.Name & "' AND FORM_ID = " & CURRENT_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID
' Dim CTRLSCR_ID = ClassDatabase.Execute_Scalar(sql)
' If CTRLSCR_ID > 0 Then
' Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CTRLSCR_ID = " & CTRLSCR_ID)
@@ -366,7 +366,7 @@
' Me.Text = "Eigenschaften Control-ID: " & props.ID
' If type = "F_AddAppointment" Then
' Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_FORM_ID)
' Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_ENTITY_ID)
' Dim dr = ClassFunctionCommands.LoadFunction(ControlId)
' Dim FromDateId, ToDateId, SubjectString, Subject2String, PlaceString, DescString
@@ -382,13 +382,13 @@
' If IsDBNull(FromDateId) OrElse FromDateId = 0 Then
' props.FromDate = ""
' Else
' props.FromDate = Get_Name_for_ControlID(FromDateId, CURRENT_FORM_ID)
' props.FromDate = Get_Name_for_ControlID(FromDateId, CURRENT_ENTITY_ID)
' End If
' If IsDBNull(ToDateId) OrElse ToDateId = 0 Then
' props.ToDate = ""
' Else
' props.ToDate = Get_Name_for_ControlID(ToDateId, CURRENT_FORM_ID)
' props.ToDate = Get_Name_for_ControlID(ToDateId, CURRENT_ENTITY_ID)
' End If
@@ -420,7 +420,7 @@
' props.Caption = row.Item("CTRLSCR_CAPTION")
' ElseIf type = "F_AddFormData" Then
' ' TODO
' Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_FORM_ID)
' Dim ControlId = GetControlID_for_Name(ctrl.Name, CURRENT_ENTITY_ID)
' Dim dr = ClassFunctionCommands.LoadFunction(ControlId)
' Dim FormId, ScreenId
@@ -587,7 +587,7 @@
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
If MsgBox("Wollen Sie das Element wirklich löschen?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
If IsGroupBox(CtrlBuilder.CurrentControl) Then
Dim parentID As Integer = GetControlID_for_Name(CtrlBuilder.CurrentControl.Name, CURRENT_FORM_ID)
Dim parentID As Integer = GetControlID_for_Name(CtrlBuilder.CurrentControl.Name, CURRENT_ENTITY_ID)
Dim SQL = "SELECT GUID FROM TBPMO_CONTROL WHERE PARENT_CONTROL_ID = " & parentID
Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL)