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

MS27062016

Browse Source
This commit is contained in:
SchreiberM
2016-06-27 13:43:47 +02:00
parent 59371f3fba
commit c5f276c37d
27 changed files with 1192 additions and 626 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -203,6 +203,36 @@
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei cmbDokumentTypen.SelectedIndexChanged: ")
End Try
End Sub
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")
cmbEntity.DataSource = DT_ENTITIES
cmbEntity.DisplayMember = DT_ENTITIES.Columns(2).ColumnName
cmbEntity.ValueMember = DT_ENTITIES.Columns(0).ColumnName
Catch ex As Exception
MsgBox("Unexpected Error in Load_Entities: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
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")
If DT1.Rows.Count >= 1 Then
cmbControlsEntity.DataSource = DT1
cmbControlsEntity.DisplayMember = DT1.Columns(0).ColumnName
cmbControlsEntity.ValueMember = DT1.Columns(0).ColumnName
cmbControlsEntity.Enabled = True
btnAddIndexA.Enabled = True
Else
cmbControlsEntity.Enabled = False
btnAddIndexA.Enabled = False
End If
Catch ex As Exception
MsgBox("Unexpected Error in Load Control Tags: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
Save_Indexe_Auto()
End Sub
@@ -228,7 +258,7 @@
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)
If count > 0 Then
frmDokumentart_NameConvention.ShowDialog()
frmDoctype_NameConvention.ShowDialog()
Else
Dim msg As String = "Achtung: Sie haben der Dokumentart noch keine Entitäten zugeordnet!"
If USER_LANGUAGE <> "de-DE" Then
@@ -329,4 +359,21 @@
End If
End If
End Sub
Private Sub chkEntityData_CheckedChanged(sender As Object, e As EventArgs) Handles chkEntityData.CheckedChanged
If chkEntityData.Checked Then
GroupBox2.Enabled = True
Load_Entities()
Else
GroupBox2.Enabled = False
End If
End Sub
Private Sub cmbEntity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntity.SelectedIndexChanged
If cmbEntity.SelectedIndex <> -1 Then
Dim FORM_VIEW_ID = ClassDatabase.Execute_Scalar("SELECT FORMVIEW_ID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE GUID = " & Me.cmbEntity.SelectedValue, True)
Load_ControlTags(FORM_VIEW_ID)
End If
End Sub
End Class