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

DAtabase integriert

Browse Source
This commit is contained in:
SchreiberM
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
app/DD-Record-Organizer/frmFollowUp.vb
View File

@@ -23,8 +23,8 @@
Try
Dim sql = String.Format("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID IN (2,3,12) ORDER BY FORM_ID", cmbConstructor.SelectedValue)
Dim DTCTRL_USR As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DTCTRL_GRP As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DTCTRL_USR As DataTable = MYDB_ECM.GetDatatable(sql)
Dim DTCTRL_GRP As DataTable = MYDB_ECM.GetDatatable(sql)
Dim newRow As DataRow = DTCTRL_USR.NewRow()
@@ -53,10 +53,10 @@
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen.
Me.Cursor = Cursors.WaitCursor
Try
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
Dim DT2 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
Dim DT3 As DataTable = ClassDatabase.Return_Datatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME")
Dim DTUser As DataTable = ClassDatabase.Return_Datatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL order by USERNAME")
Dim DT1 As DataTable = MYDB_ECM.GetDatatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
Dim DT2 As DataTable = MYDB_ECM.GetDatatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
Dim DT3 As DataTable = MYDB_ECM.GetDatatable("select GUID,NAME FROM TBPMO_FOLLOW_UP_EMAIL ORDER BY NAME")
Dim DTUser As DataTable = MYDB_ECM.GetDatatable("select guid, username from TBDD_USER t where T.EMAIL IS NOT NULL order by USERNAME")
Load_entity_Data()
PARENT_IDComboBox.DataSource = DT3
PARENT_IDComboBox.DisplayMember = DT3.Columns(1).ColumnName
@@ -112,20 +112,20 @@
Try
loaded = False
Dim sql2 = "SELECT FOLLOW_UP_LOG_ERR_ONLY FROM TBPMO_KONFIGURATION WHERE GUID = 1"
chkbxLogErrorsonly.Checked = CBool(ClassDatabase.Execute_Scalar(sql2))
chkbxLogErrorsonly.Checked = CBool(MYDB_ECM.GetScalarValue(sql2))
load_EmailProfiles()
sql2 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1"
cmbWWEmail.SelectedValue = CInt(ClassDatabase.Execute_Scalar(sql2))
cmbWWEmail.SelectedValue = CInt(MYDB_ECM.GetScalarValue(sql2))
Catch ex As Exception
MsgBox("Fehler beim Laden der Grundeinstellungen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
loaded = True
Case 2
Try
Dim sql = "SELECT [FOLLOW_UP_ID],[NAME],[FOLLOW_UP_SEQUENCE],[FOLLOW_UP_DAYS],[FOLLOW_UP_TIME_SPAN],[NOW_TIME],[RECORD_ID],[VALUE]" & _
",[EMAIL_SUBJECT],[EMAIL_BODY],[TIME_UNITY],[TIME_DIST],[TIME_SPAN],[DEPENDENT_DATE_CTRL_ID],[DEPENDENT_DONE_CTRL_ID],[DONE_VALUE],[CONSTRUCTOR_ID]" & _
Dim sql = "SELECT [FOLLOW_UP_ID],[NAME],[FOLLOW_UP_SEQUENCE],[FOLLOW_UP_DAYS],[FOLLOW_UP_TIME_SPAN],[NOW_TIME],[RECORD_ID],[VALUE]" &
",[EMAIL_SUBJECT],[EMAIL_BODY],[TIME_UNITY],[TIME_DIST],[TIME_SPAN],[DEPENDENT_DATE_CTRL_ID],[DEPENDENT_DONE_CTRL_ID],[DONE_VALUE],[CONSTRUCTOR_ID]" &
",[CONSTRUCTOR_TITLE] FROM VWPMO_FOLLOW_UP_EMAIL"
Dim DT = ClassDatabase.Return_Datatable(sql)
Dim DT = MYDB_ECM.GetDatatable(sql)
GridResult.DataSource = DT
Catch ex As Exception
MsgBox("Unexpected Error in show follow up records:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -143,7 +143,7 @@
bool = 0
End If
Dim upd = "UPDATE TBPMO_KONFIGURATION SET FOLLOW_UP_LOG_ERR_ONLY = " & bool & " WHERE GUID = 1"
ClassDatabase.Execute_non_Query(upd)
MYDB_ECM.ExecuteNonQuery(upd)
End If
Catch ex As Exception
MsgBox("Fehler bei Update LogErrorsOnly:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -157,14 +157,14 @@
Sub load_EmailProfiles()
Try
Dim sql1 = "SELECT FOLLOW_UP_EMAIL_PROFILE FROM TBPMO_KONFIGURATION WHERE GUID = 1"
Dim email_id = ClassDatabase.Execute_Scalar(sql1)
Dim email_id = MYDB_ECM.GetScalarValue(sql1)
Dim sql = "SELECT GUID, NAME FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
If Not IsNothing(DT) Then
cmbWWEmail.DataSource = DT
cmbWWEmail.DisplayMember = DT.Columns(1).ColumnName
cmbWWEmail.ValueMember = DT.Columns(0).ColumnName
Dim emailp = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBDD_EMAIL_ACCOUNT WHERE GUID = " & email_id)
Dim emailp = MYDB_ECM.GetScalarValue("SELECT NAME FROM TBDD_EMAIL_ACCOUNT WHERE GUID = " & email_id)
cmbWWEmail.SelectedIndex = cmbWWEmail.FindStringExact(emailp)
End If
Catch ex As Exception
@@ -185,7 +185,7 @@
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
@@ -216,9 +216,9 @@
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBPMO_FOLLUPEMAIL_USER Where user_id = " & row.Item(5) & " AND FOLLOW_UP_ID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_Scalar(sql) = 0 Then
If MYDB_ECM.GetScalarValue(SQL) = 0 Then
Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", " & Me.GUIDTextBox.Text & ", '" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(ins) = False Then
If MYDB_ECM.ExecuteNonQuery(ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to FollowUp!", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -235,7 +235,7 @@
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql) = False Then
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
@@ -276,7 +276,7 @@
Try
If GUIDTextBox.Text = "" Then Exit Sub
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql)
Dim follup_Days As String = MYDB_ECM.GetScalarValue(SQL)
Formloaded = False
CheckBox1.Checked = False
chkDienstag.Checked = False
@@ -318,7 +318,7 @@
Exit Sub
End If
Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
Dim follup_Days = ClassDatabase.Execute_Scalar(sql)
Dim follup_Days = MYDB_ECM.GetScalarValue(SQL)
If IsNothing(follup_Days) Then
follup_Days = "0000000"
End If
@@ -428,7 +428,7 @@
End Try
Try
Dim upd = "Update TBPMO_KONFIGURATION SET FOLLOW_UP_EMAIL_PROFILE = " & cmbWWEmail.SelectedValue & " WHERE GUID = 1"
ClassDatabase.Execute_non_Query(upd, True)
MYDB_ECM.ExecuteNonQuery(upd)
Catch ex As Exception
MsgBox("Check logfile - unexpected error in updating email-profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try