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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb
View File

@@ -206,7 +206,7 @@
Sub Load_Entities()
Try
'Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID)
Dim DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID & " ORDER BY T1.FORM_TITLE", "Load NameConventionData")
Dim DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T.FORMVIEW_ID), 1) AS 'FORM_TITLE' FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID & " ORDER BY T1.FORM_TITLE")
cmbEntity.DataSource = DT_ENTITIES
cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName
@@ -217,7 +217,7 @@
End Sub
Sub Load_ControlTags(FORM_VIEW_ID As Integer)
Try
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_COL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID in (2,3,4) and FORM_ID = (SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID & ")", "LoadControlsForEntity - NameConvention")
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_COL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID in (2,3,4) and FORM_ID = (SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & FORM_VIEW_ID & ")")
If DT1.Rows.Count >= 1 Then
cmbControlsEntity.DataSource = DT1
cmbControlsEntity.DisplayMember = DT1.Columns(0).ColumnName
@@ -285,7 +285,7 @@
"WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = {0} UNION ALL " & _
"SELECT '999', 'Doctype' AS DISPLAY " & _
"ORDER BY DISPLAY", GUIDTextBox.Text)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention")
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
If DT1.Rows.Count >= 1 Then
cmbIndex_Controls.DataSource = DT1
cmbIndex_Controls.DisplayMember = DT1.Columns(1).ColumnName
@@ -299,7 +299,7 @@
End Try
Try
Dim sql = String.Format("SELECT GUID, 'M' + NAME AS DISPLAY FROM TBPMO_INDEX_MAN WHERE DOCTYPE_ID = {0} AND ACTIVE = 1 UNION ALL SELECT GUID,'A' + INDEXNAME AS DISPLAY FROM TBDD_INDEX_AUTOM WHERE SQL_RESULT IS NOT NULL AND SQL_RESULT <> '' AND DOCTYPE_ID = {0} ORDER BY DISPLAY", GUIDTextBox.Text)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention")
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql)
If DT1.Rows.Count >= 1 Then
cmbCrFolderIndex.DataSource = DT1
cmbCrFolderIndex.DisplayMember = DT1.Columns(1).ColumnName
@@ -318,7 +318,7 @@
akt_DokartID = GUIDTextBox.Text
Dim sql As String = "select COUNT(T.GUID) FROM TBPMO_WD_FORMVIEW_DOKTYPES T, TBPMO_FORM_VIEW T1 WHERE T.FORMVIEW_ID = T1.GUID AND T1.SCREEN_ID = 1 AND T.DOCTYPE_ID = " & akt_DokartID
Dim count = ClassDatabase.Execute_Scalar(sql, True)
Dim count = ClassDatabase.Execute_Scalar(sql)
If count > 0 Then
frmDoctype_NameConvention.ShowDialog()
Else
@@ -501,7 +501,7 @@
If Changes = True Then
Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd) = False Then
If ClassDatabase.Execute_non_Query(upd, False) = False Then
MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
End If
cmbCrFolderIndex.SelectedIndex = -1
@@ -518,7 +518,7 @@
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Try
Dim upd = String.Format("UPDATE TBDD_DOKUMENTART SET FOLDER_FOR_INDEX = '{0}', GEANDERTWER = '{1}' WHERE GUID = {2}", FOLDER_FOR_INDEXTextBox.Text, USER_USERNAME, GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd) = False Then
If ClassDatabase.Execute_non_Query(upd, False) = False Then
MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
Else
Dim msg = "Variabler Ordner gespeichert - " & Now.ToString