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

MS_20.01

Browse Source
This commit is contained in:
SchreiberM
2016-01-20 15:46:55 +01:00
parent 48fe3a4845
commit b89733ece6
22 changed files with 153 additions and 11439 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/DD-Record-Organiser/frmQuickInput.vb
View File

@@ -4,7 +4,7 @@ Public Class frmQuickInput
Dim Isinsert As Boolean = False
Private Sub frmQuickInput_Load(sender As Object, e As EventArgs) Handles Me.Load
Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_MASTER_FORM_ID.ToString
Dim sql As String = "SELECT * FROM VWTEMP_PMO_FORM" & CURRENT_FORM_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
If DT Is Nothing = False Then
'DT.Columns.Remove("Record-ID")
@@ -36,7 +36,7 @@ Public Class frmQuickInput
If Isinsert = True Then
' Create the record first
Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_MASTER_FORM_ID & ")"
Dim Sql As String = "INSERT INTO TBPMO_RECORD(ADDED_WHO, FORM_ID) VALUES ('" & Environment.UserName & "', " & CURRENT_FORM_ID & ")"
If ClassDatabase.Execute_non_Query(Sql) = True Then
' Get last RecordID
Sql = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where ADDED_WHO = '" & Environment.UserName & "'"
@@ -48,7 +48,7 @@ Public Class frmQuickInput
Dim val As Object = vGridQuickInput.GetCellValue(row, vGridQuickInput.FocusedRecord)
Dim fieldName As String = row.Properties.FieldName
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName)
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
If CONTROL_ID <> 0 Then
If ClassFunctionCommands.InsertValue(CONTROL_ID, RECORD_ID, val) Then
tsStatus.Visible = True
@@ -74,7 +74,7 @@ Public Class frmQuickInput
RECORD_ID = val
End If
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_MASTER_FORM_ID, fieldName)
CONTROL_ID = ClassFunctionCommands.GETCONTROL_ID_FOR_COL_NAME(CURRENT_FORM_ID, fieldName)
If CONTROL_ID <> 0 Then
If ClassFunctionCommands.UpdateValue(CONTROL_ID, RECORD_ID, val) = True Then
tsStatus.Visible = True