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

MS Verwaltung Doctype

Browse Source
This commit is contained in:
SchreiberM
2022-03-04 14:18:23 +01:00
parent 35d129b2ce
commit 87619c9d9a
11 changed files with 250 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
GUIs.ZooFlow/Administration/Globix/frmAdmin_Globix.vb
View File

@@ -21,19 +21,19 @@ Public Class frmAdmin_Globix
End Sub
Private Sub frmAdmin_Globix_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE". Sie können sie bei Bedarf verschieben oder entfernen.
InitializeBaseForm(My.LogConfig)
Try
VWIDB_DOCTYPE_LANGUAGETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
Me.TBGI_REGEX_DOCTYPETableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
Me.VWIDB_OBJECT_STORETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.VWIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_OBJECT_STORE)
Me.VWIDB_BE_ATTRIBUTETableAdapter.Connection.ConnectionString = My.DatabaseIDB.CurrentSQLConnectionString
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE)
TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = My.DatabaseECM.CurrentSQLConnectionString
Me.VWIDB_DOCTYPE_LANGUAGETableAdapter.FillByLanguage(Me.DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGE, My.Application.User.Language)
TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
Me.VWIDB_OBJECT_STORETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_OBJECT_STORE)
Try
Me.VWIDB_BE_ATTRIBUTETableAdapter.Fill(Me.DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, My.Application.User.Language)
Catch ex As Exception
@@ -243,7 +243,7 @@ Public Class frmAdmin_Globix
Dim oIns = $"INSERT INTO [TBDD_DOKUMENTART] ([BEZEICHNUNG] ,[OBJEKTTYP] ,[EINGANGSART_ID] ,[IDB_DOCTYPE_ID] ,[ZIEL_PFAD] ,[BESCHREIBUNG]
,[WINDREAM_DIRECT] ,[FOLDER_FOR_INDEX] ,[DUPLICATE_HANDLING],[AKTIV],[LANGUAGE],
[SEQUENCE],[NAMENKONVENTION],[ERSTELLTWER],IDB_OBJECT_STORE_ID) VALUES
('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,'{IDB_DOCTYPE_IDComboBox.SelectedValue}','IDB_STORE','{TextEditBeschreibung.Text}'
('{TextEditBezeichnung.Text}','IDB_DRIVEN',1,{IDB_DOCTYPE_IDComboBox.SelectedValue},'IDB_STORE','{TextEditBeschreibung.Text}'
,'False','{FOLDER_FOR_INDEXTextEdit.Text}','{ComboBoxEditDupl_handling.EditValue}' ,'{AKTIVCheckBox.Checked}','{My.Application.User.Language}'
, {SEQUENCENumericUpDown.Value},'{TextEditNamenkonvention.Text}','{My.Application.User.UserName}',{IDB_OBJECT_STORE_IDComboBox.SelectedValue})"
If My.DatabaseECM.ExecuteNonQuery(oIns) = True Then
@@ -265,7 +265,7 @@ Public Class frmAdmin_Globix
End Function
Private Function Update_Doctype() As Boolean
Try
Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = '{IDB_DOCTYPE_IDComboBox.SelectedValue}' ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}'
Dim oUpd = $"UPDATE TBDD_DOKUMENTART SET [BEZEICHNUNG] = '{TextEditBezeichnung.Text}' ,[IDB_DOCTYPE_ID] = {IDB_DOCTYPE_IDComboBox.SelectedValue} ,[BESCHREIBUNG] = '{TextEditBeschreibung.Text}'
,[DUPLICATE_HANDLING] = '{ComboBoxEditDupl_handling.EditValue}',[AKTIV] = '{AKTIVCheckBox.Checked}',[SEQUENCE] = {SEQUENCENumericUpDown.Value}
,[NAMENKONVENTION] = '{TextEditNamenkonvention.Text}', [FOLDER_FOR_INDEX] = '{FOLDER_FOR_INDEXTextEdit.Text}',[GEANDERTWER] = '{My.Application.User.UserName}',IDB_OBJECT_STORE_ID = {IDB_OBJECT_STORE_IDComboBox.SelectedValue} WHERE GUID = {TextEditDoctypeID.Text}"