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

MS

Browse Source
This commit is contained in:
SchreiberM
2016-07-18 14:29:33 +02:00
parent b9388d045a
commit b089c68613
37 changed files with 5975 additions and 2701 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -244,12 +244,73 @@
Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
Select Case XtraTabControl1.SelectedTabPageIndex
Case 0
Case 1
Case 2
Refresh_DokID_FORM_VIEW()
Me.btnAddDokart_Entity.Text = "Entität zu Dokumentart ' " & Me.KURZNAMETextBox.Text & "' hinzufügen"
Case 3
Load_Variable_folder()
End Select
End Sub
Sub Load_Variable_Folder()
Try
If GUIDTextBox.Text <> "" Then
FOLDER_FOR_INDEXTextBox.Enabled = True
grbxFolderforIndex.Enabled = True
Dim sql As String = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & GUIDTextBox.Text
Dim result = ClassDatabase.Execute_Scalar(sql)
If IsDBNull(result) Then
FOLDER_FOR_INDEXTextBox.Text = ""
Else
FOLDER_FOR_INDEXTextBox.Text = result.ToString
End If
Else
FOLDER_FOR_INDEXTextBox.Enabled = False
grbxFolderforIndex.Enabled = False
Exit Sub
End If
Catch ex As Exception
MsgBox("Unexpected Error in Getting variable Folder Tag: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
Exit Sub
End Try
Try
Dim sql = String.Format("SELECT [CONTROL_ID] , [CONTROL_COL_NAME]AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _
"WHERE CTRLTYPE_ID in (2,3,4) and FORM_ID = {0} UNION ALL " & _
"SELECT [CONTROL_ID] , [CTRLSCR_CAPTION] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] " & _
"WHERE CTRLTYPE_ID = 1 AND [CONTROL_SQLCOMMAND_1] <> '' and FORM_ID = {0} " & _
"ORDER BY DISPLAY", GUIDTextBox.Text)
Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql, "LoadControlsForEntity - NameConvention")
If DT1.Rows.Count >= 1 Then
cmbIndex_Controls.DataSource = DT1
cmbIndex_Controls.DisplayMember = DT1.Columns(1).ColumnName
cmbIndex_Controls.ValueMember = DT1.Columns(0).ColumnName
cmbIndex_Controls.Enabled = True
Else
cmbIndex_Controls.Enabled = False
End If
Catch ex As Exception
MsgBox("Error in Load Controls for EntitySelect: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
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")
If DT1.Rows.Count >= 1 Then
cmbCrFolderIndex.DataSource = DT1
cmbCrFolderIndex.DisplayMember = DT1.Columns(1).ColumnName
cmbCrFolderIndex.ValueMember = DT1.Columns(0).ColumnName
cmbCrFolderIndex.Enabled = True
Else
cmbCrFolderIndex.Enabled = False
End If
Catch ex As Exception
MsgBox("Error in Load manual indices: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
Save_Dokart()
Dim _temp As String
@@ -312,6 +373,18 @@
ElseIf VALUETextBox.Text.Contains("#") Then
chkEntityData.Checked = True
End If
Select Case XtraTabControl1.SelectedTabPageIndex
Case 0
Case 1
Case 2
Refresh_DokID_FORM_VIEW()
Me.btnAddDokart_Entity.Text = "Entität zu Dokumentart ' " & Me.KURZNAMETextBox.Text & "' hinzufügen"
Case 3
Load_Variable_Folder()
End Select
End Sub
Sub Refresh_Doktype_Relevant_Data()
Refresh_Indexe_Auto(GUIDTextBox.Text)
@@ -396,4 +469,58 @@
VALUETextBox.Text = text
End If
End Sub
Private Sub btnaddcrFolderParameter_Click(sender As Object, e As EventArgs) Handles btnaddcrFolderParameter.Click
Dim str As String
Dim Changes As Boolean = False
If (FOLDER_FOR_INDEXTextBox.Text = "") = False Then
str = FOLDER_FOR_INDEXTextBox.Text & "\"
End If
If cmbCrFolderIndex.SelectedIndex <> -1 Then
Dim value = Me.cmbCrFolderIndex.Text.ToString.ToUpper
Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%" & value & "#" & cmbCrFolderIndex.SelectedValue & "]"
Changes = True
cmbCrFolderIndex.SelectedIndex = -1
ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then
Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%V_" & cmbCrFolderDate.Text & "]"
cmbCrFolderDate.SelectedIndex = -1
Changes = True
ElseIf cmbIndex_Controls.SelectedIndex <> -1 Then
Dim value = Me.cmbIndex_Controls.Text.ToString.ToUpper
Dim text As String = "[%CTRL" & value & "#" & cmbIndex_Controls.SelectedValue & "]"
text = text.Replace("##", "#")
Me.FOLDER_FOR_INDEXTextBox.Text = str & text
cmbIndex_Controls.SelectedIndex = -1
Changes = True
End If
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, Environment.UserName, GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd) = False Then
MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
End If
End If
End Sub
Private Sub btncrFolder_delete_Click(sender As Object, e As EventArgs)
Me.FOLDER_FOR_INDEXTextBox.Text = ""
End Sub
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, Environment.UserName, GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd) = False Then
MsgBox("Unexpected Error in Adding Variable path - Check logfile", MsgBoxStyle.Exclamation)
Else
Dim msg = "Variabler Ordner gespeichert - " & Now.ToString
If USER_LANGUAGE <> "de-DE" Then
msg = "Data saved - " & Now.ToString
End If
MsgBox(msg, MsgBoxStyle.Information)
End If
Catch ex As Exception
End Try
End Sub
End Class