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

MS:02.11.2015

Browse Source
This commit is contained in:
SchreiberM
2015-11-03 09:54:39 +01:00
parent f26ba63935
commit 304df6b023
19 changed files with 182 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
app/DD-Record-Organiser/frmDokumentart_NameConvention.vb
View File

@@ -7,11 +7,17 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click
If Not Me.cmbIndex_AUTO.Text = "" Then
Dim text As String
If Me.cmbIndex_AUTO.Text.StartsWith("NC_") Then
text = "[%a" & Me.cmbIndex_AUTO.Text.ToString.ToUpper & "#" & Me.cmbIndex_AUTO.SelectedValue & "]"
Else
text = "[%a" & Me.cmbIndex_AUTO.Text.ToString.ToUpper & "]"
End If
'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version]
Dim text As String = "[%a" & Me.cmbIndex_AUTO.Text.ToString.ToUpper & "]"
Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart()
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text)
Me.txtnamenKonv.SelectionStart = altePosition + text.Length
Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, Text)
Me.txtnamenKonv.SelectionStart = altePosition + Text.Length
End If
End Sub
@@ -37,12 +43,22 @@
Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_KONFIGURATION)
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID)
Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmDokumentart_Konfig.akt_DokartID
Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex, "LOAD AUTOINDEXE")
'Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_INDEX_AUTOM, frmDokumentart_Konfig.akt_DokartID)
DT_ENTITIES = ClassDatabase.Return_Datatable("select T.GUID, T.FORMVIEW_ID, T1.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 = " & frmDokumentart_Konfig.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
cmbEntity.SelectedIndex = 0
cmbIndex_AUTO.DataSource = DTAUTOINDEX
cmbIndex_AUTO.DisplayMember = DTAUTOINDEX.Columns(1).ColumnName
cmbIndex_AUTO.ValueMember = DTAUTOINDEX.Columns(0).ColumnName
cmbIndex_AUTO.SelectedIndex = 0
'txtnamenKonv.Text = frmDokumentart_Konfig.akt_Namenkonvention
Catch ex As Exception
MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)