You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
700 lines
63 KiB
700 lines
63 KiB
Imports System.ComponentModel
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlDbType
|
|
Imports System.Data.SqlTypes
|
|
Imports System.IO
|
|
Public Class frmDomainOfficeVorlage
|
|
Inherits frmDomainEditor
|
|
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents DataSet2 As System.Data.DataSet
|
|
Friend WithEvents DataTable1 As System.Data.DataTable
|
|
Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlConnection3 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet3 As System.Data.DataSet
|
|
Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainOfficeVorlage))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection3 = New System.Data.SqlClient.SqlConnection()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand2 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet2 = New System.Data.DataSet()
|
|
Me.DataTable1 = New System.Data.DataTable()
|
|
Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
|
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem9 = New System.Windows.Forms.MenuItem()
|
|
Me.DataSet3 = New System.Data.DataSet()
|
|
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'SqlDataAdapter1
|
|
'
|
|
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "office_vorlage", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("vorlageid", "vorlageid"), New System.Data.Common.DataColumnMapping("vorlagename", "vorlagename"), New System.Data.Common.DataColumnMapping("prefix_dokumentname", "prefix_dokumentname"), New System.Data.Common.DataColumnMapping("idv_vorlage", "idv_vorlage"), New System.Data.Common.DataColumnMapping("idv_id", "idv_id"), New System.Data.Common.DataColumnMapping("office_vorlage", "office_vorlage"), New System.Data.Common.DataColumnMapping("absender_ersteller", "absender_ersteller"), New System.Data.Common.DataColumnMapping("idv_nativ", "idv_nativ"), New System.Data.Common.DataColumnMapping("dokument_geschuetzt", "dokument_geschuetzt"), New System.Data.Common.DataColumnMapping("kopfzeile_generieren", "kopfzeile_generieren"), New System.Data.Common.DataColumnMapping("klassifizierung", "klassifizierung"), New System.Data.Common.DataColumnMapping("bcpt", "bcpt"), New System.Data.Common.DataColumnMapping("bcpl", "bcpl"), New System.Data.Common.DataColumnMapping("bcw", "bcw"), New System.Data.Common.DataColumnMapping("bch", "bch"), New System.Data.Common.DataColumnMapping("bchorizontal", "bchorizontal"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("anwendungnr", "anwendungnr"), New System.Data.Common.DataColumnMapping("owner", "owner")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_office_vorlage_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_absender_ersteller", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "absender_ersteller", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bch", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bchorizontal", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bchorizontal", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpl", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpt", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcw", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcw", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_geschuetzt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_id", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_id", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_nativ", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_nativ", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_vorlage", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_klassifizierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "klassifizierung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kopfzeile_generieren", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlage", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "owner", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prefix_dokumentname", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlageid", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlageid", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagename", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagename", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlConnection3
|
|
'
|
|
Me.SqlConnection3.ConnectionString = "data source=shu00;initial catalog=edoka;persist security info=False;user id=sa;wo" & _
|
|
"rkstation id=SHU00;packet size=4096"
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_office_vorlage_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlageid", System.Data.SqlDbType.Int, 4, "vorlageid"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagename", System.Data.SqlDbType.VarChar, 255, "vorlagename"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, "prefix_dokumentname"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_vorlage", System.Data.SqlDbType.Bit, 1, "idv_vorlage"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_id", System.Data.SqlDbType.VarChar, 50, "idv_id"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlage", System.Data.SqlDbType.VarChar, 255, "office_vorlage"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@absender_ersteller", System.Data.SqlDbType.Bit, 1, "absender_ersteller"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_nativ", System.Data.SqlDbType.Bit, 1, "idv_nativ"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, "dokument_geschuetzt"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, "kopfzeile_generieren"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@klassifizierung", System.Data.SqlDbType.Int, 4, "klassifizierung"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcpt", System.Data.SqlDbType.Int, 4, "bcpt"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcpl", System.Data.SqlDbType.Int, 4, "bcpl"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcw", System.Data.SqlDbType.Int, 4, "bcw"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bch", System.Data.SqlDbType.Int, 4, "bch"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bchorizontal", System.Data.SqlDbType.Bit, 1, "bchorizontal"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@owner", System.Data.SqlDbType.Int, 4, "owner"))
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_office_vorlage_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
'
|
|
'SqlUpdateCommand1
|
|
'
|
|
Me.SqlUpdateCommand1.CommandText = "[pv_office_vorlage_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection3
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlageid", System.Data.SqlDbType.Int, 4, "vorlageid"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vorlagename", System.Data.SqlDbType.VarChar, 255, "vorlagename"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, "prefix_dokumentname"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_vorlage", System.Data.SqlDbType.Bit, 1, "idv_vorlage"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_id", System.Data.SqlDbType.VarChar, 50, "idv_id"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlage", System.Data.SqlDbType.VarChar, 255, "office_vorlage"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@absender_ersteller", System.Data.SqlDbType.Bit, 1, "absender_ersteller"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@idv_nativ", System.Data.SqlDbType.Bit, 1, "idv_nativ"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, "dokument_geschuetzt"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, "kopfzeile_generieren"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@klassifizierung", System.Data.SqlDbType.Int, 4, "klassifizierung"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcpt", System.Data.SqlDbType.Int, 4, "bcpt"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcpl", System.Data.SqlDbType.Int, 4, "bcpl"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcw", System.Data.SqlDbType.Int, 4, "bcw"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bch", System.Data.SqlDbType.Int, 4, "bch"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bchorizontal", System.Data.SqlDbType.Bit, 1, "bchorizontal"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@owner", System.Data.SqlDbType.Int, 4, "owner"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlagenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlagenr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_absender_ersteller", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "absender_ersteller", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bch", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bchorizontal", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bchorizontal", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpl", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpl", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpt", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcw", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcw", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokument_geschuetzt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokument_geschuetzt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_id", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_id", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_nativ", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_nativ", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_idv_vorlage", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idv_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_klassifizierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "klassifizierung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kopfzeile_generieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kopfzeile_generieren", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_office_vorlage", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "office_vorlage", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "owner", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prefix_dokumentname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prefix_dokumentname", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlageid", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlageid", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagename", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagename", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
|
"station id=SHU;packet size=4096"
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'C1TrueDBDropdown1
|
|
'
|
|
Me.C1TrueDBDropdown1.AllowColMove = True
|
|
Me.C1TrueDBDropdown1.AllowColSelect = True
|
|
Me.C1TrueDBDropdown1.AllowFilter = True
|
|
Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBDropdown1.AllowSort = True
|
|
Me.C1TrueDBDropdown1.AlternatingRows = False
|
|
Me.C1TrueDBDropdown1.CaptionHeight = 17
|
|
Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
|
|
Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
|
|
Me.C1TrueDBDropdown1.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBDropdown1.FetchRowStyles = False
|
|
Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBDropdown1.LayoutFileName = ""
|
|
Me.C1TrueDBDropdown1.LayoutName = ""
|
|
Me.C1TrueDBDropdown1.LayoutURL = ""
|
|
Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(280, 16)
|
|
Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBDropdown1.RowDivider = GridLines1
|
|
Me.C1TrueDBDropdown1.RowHeight = 15
|
|
Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBDropdown1.ScrollTips = False
|
|
Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(224, 192)
|
|
Me.C1TrueDBDropdown1.TabIndex = 5
|
|
Me.C1TrueDBDropdown1.TabStop = False
|
|
Me.C1TrueDBDropdown1.Text = "C1TrueDBDropdown1"
|
|
Me.C1TrueDBDropdown1.Visible = False
|
|
Me.C1TrueDBDropdown1.PropBag = "<?xml version=""1.0""?><Blob><DataCols><C1DataColumn Level=""0"" Caption=""Nr"" DataFie" & _
|
|
"ld=""anwendungnr"" DataWidth=""20"" DefaultValue=""1"" NumberFormat=""Standard""><ValueI" & _
|
|
"tems /></C1DataColumn><C1DataColumn Level=""0"" Caption=""Anwendung"" DataField=""bez" & _
|
|
"eichnung"" DataWidth=""50""><ValueItems /></C1DataColumn></DataCols><Styles type=""C" & _
|
|
"1.Win.C1TrueDBGrid.Design.ContextWrapper""><Data>Caption{AlignHorz:Center;}Normal" & _
|
|
"{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style18{AlignHor" & _
|
|
"z:Near;}Style19{AlignHorz:Near;}Style14{AlignHorz:Near;}Style15{AlignHorz:Near;}" & _
|
|
"Style16{}Style17{}Style10{AlignHorz:Near;}Style11{}OddRow{}Style13{}Style12{}Hig" & _
|
|
"hlightRow{ForeColor:HighlightText;BackColor:Highlight;}RecordSelector{AlignImage" & _
|
|
":Center;}Footer{}Style21{}Style20{}Inactive{ForeColor:InactiveCaptionText;BackCo" & _
|
|
"lor:InactiveCaption;}EvenRow{BackColor:Aqua;}Heading{Wrap:True;AlignVert:Center;" & _
|
|
"Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}FilterBar{}St" & _
|
|
"yle4{}Style9{}Style8{}Style5{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, " & _
|
|
"0;AlignVert:Center;}Style7{}Style6{}Style1{}Style3{}Style2{}</Data></Styles><Spl" & _
|
|
"its><C1.Win.C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHe" & _
|
|
"ight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelector" & _
|
|
"Width=""16"" RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup" & _
|
|
"=""1""><ClientRect>0, 0, 220, 188</ClientRect><internalCols><C1DropDisplayColumn><" & _
|
|
"DCIdx>0</DCIdx><HeadingStyle parent=""Style2"" me=""Style14"" /><Style parent=""Style" & _
|
|
"1"" me=""Style15"" /><FooterStyle parent=""Style3"" me=""Style16"" /><EditorStyle paren" & _
|
|
"t=""Style5"" me=""Style17"" /><Visible>True</Visible><ColumnDivider>DarkGray,Single<" & _
|
|
"/ColumnDivider><Height>15</Height></C1DropDisplayColumn><C1DropDisplayColumn><DC" & _
|
|
"Idx>1</DCIdx><HeadingStyle parent=""Style2"" me=""Style18"" /><Style parent=""Style1""" & _
|
|
" me=""Style19"" /><FooterStyle parent=""Style3"" me=""Style20"" /><EditorStyle parent=" & _
|
|
"""Style5"" me=""Style21"" /><Visible>True</Visible><ColumnDivider>DarkGray,Single</C" & _
|
|
"olumnDivider><Height>15</Height></C1DropDisplayColumn></internalCols><CaptionSty" & _
|
|
"le parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><Ev" & _
|
|
"enRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=" & _
|
|
"""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group" & _
|
|
""" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle" & _
|
|
" parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4" & _
|
|
""" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""Reco" & _
|
|
"rdSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style" & _
|
|
" parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.DropdownView></Splits><Name" & _
|
|
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
|
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
|
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
|
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
|
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
|
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
|
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
|
"ts>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
|
|
"idth><ClientArea>0, 0, 220, 188</ClientArea></Blob>"
|
|
'
|
|
'SqlDataAdapter2
|
|
'
|
|
Me.SqlDataAdapter2.DeleteCommand = Me.SqlDeleteCommand2
|
|
Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2
|
|
Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2
|
|
Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "anwendung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("anwendungnr", "anwendungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
|
|
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
|
'
|
|
'SqlDeleteCommand2
|
|
'
|
|
Me.SqlDeleteCommand2.CommandText = "[pv_anwendung_delete]"
|
|
Me.SqlDeleteCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlInsertCommand2
|
|
'
|
|
Me.SqlInsertCommand2.CommandText = "[pv_anwendung_insert]"
|
|
Me.SqlInsertCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
'
|
|
'SqlSelectCommand2
|
|
'
|
|
Me.SqlSelectCommand2.CommandText = "[pv_anwendung_select]"
|
|
Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
'
|
|
'SqlUpdateCommand2
|
|
'
|
|
Me.SqlUpdateCommand2.CommandText = "[pv_anwendung_update]"
|
|
Me.SqlUpdateCommand2.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand2.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aktiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'DataSet2
|
|
'
|
|
Me.DataSet2.DataSetName = "NewDataSet"
|
|
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
Me.DataSet2.Tables.AddRange(New System.Data.DataTable() {Me.DataTable1})
|
|
'
|
|
'DataTable1
|
|
'
|
|
Me.DataTable1.TableName = "Table1"
|
|
'
|
|
'SqlConnection2
|
|
'
|
|
Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka;integrated security=SSPI;persist security i" & _
|
|
"nfo=False;workstation id=SHU;packet size=4096"
|
|
'
|
|
'OpenFileDialog1
|
|
'
|
|
Me.OpenFileDialog1.DefaultExt = "Doc"
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem9})
|
|
'
|
|
'MenuItem9
|
|
'
|
|
Me.MenuItem9.Index = 0
|
|
Me.MenuItem9.Text = "&Vorlagendateien bearbeiten"
|
|
'
|
|
'DataSet3
|
|
'
|
|
Me.DataSet3.DataSetName = "NewDataSet"
|
|
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'C1TrueDBDropdown2
|
|
'
|
|
Me.C1TrueDBDropdown2.AllowColMove = True
|
|
Me.C1TrueDBDropdown2.AllowColSelect = True
|
|
Me.C1TrueDBDropdown2.AllowFilter = True
|
|
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.C1TrueDBDropdown2.AllowSort = True
|
|
Me.C1TrueDBDropdown2.AlternatingRows = False
|
|
Me.C1TrueDBDropdown2.CaptionHeight = 17
|
|
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
|
|
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
|
|
Me.C1TrueDBDropdown2.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.C1TrueDBDropdown2.FetchRowStyles = False
|
|
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
|
Me.C1TrueDBDropdown2.LayoutFileName = ""
|
|
Me.C1TrueDBDropdown2.LayoutName = ""
|
|
Me.C1TrueDBDropdown2.LayoutURL = ""
|
|
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(-52, -102)
|
|
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
|
|
GridLines2.Color = System.Drawing.Color.DarkGray
|
|
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.C1TrueDBDropdown2.RowDivider = GridLines2
|
|
Me.C1TrueDBDropdown2.RowHeight = 15
|
|
Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.C1TrueDBDropdown2.ScrollTips = False
|
|
Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(208, 184)
|
|
Me.C1TrueDBDropdown2.TabIndex = 8
|
|
Me.C1TrueDBDropdown2.Text = "C1TrueDBDropdown2"
|
|
Me.C1TrueDBDropdown2.Visible = False
|
|
Me.C1TrueDBDropdown2.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
|
|
"ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:Aqua;}Selected{" & _
|
|
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
|
"CaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{AlignHorz:Cent" & _
|
|
"er;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style1{}Od" & _
|
|
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Bord" & _
|
|
"er:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style8{}Style10{Al" & _
|
|
"ignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data></Styles><Splits><C1.Win" & _
|
|
".C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHeight=""17"" C" & _
|
|
"olumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" " & _
|
|
"RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Clien" & _
|
|
"tRect>0, 0, 204, 180</ClientRect><CaptionStyle parent=""Style2"" me=""Style10"" /><E" & _
|
|
"ditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Styl" & _
|
|
"e8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Foo" & _
|
|
"ter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle paren" & _
|
|
"t=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /" & _
|
|
"><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=" & _
|
|
"""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selected" & _
|
|
"Style parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1." & _
|
|
"Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Style parent="""" me=""Normal""" & _
|
|
" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><" & _
|
|
"Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><S" & _
|
|
"tyle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style" & _
|
|
" parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Styl" & _
|
|
"e parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><S" & _
|
|
"tyle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Nam" & _
|
|
"edStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layou" & _
|
|
"t><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 204, 180</ClientA" & _
|
|
"rea></Blob>"
|
|
'
|
|
'frmDomainOfficeVorlage
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(752, 305)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBDropdown2, Me.C1TrueDBDropdown1})
|
|
Me.Name = "frmDomainOfficeVorlage"
|
|
Me.Text = "cldDomainBerechtigung"
|
|
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Cursor.Current = Cursors.WaitCursor
|
|
Me.TableName = "office_vorlage"
|
|
Dim dbconn As New EDOKA.DB_Connection()
|
|
Dim i As Integer
|
|
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection2.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection3.ConnectionString = Globals.sConnectionString
|
|
Me.SqlConnection1.Open()
|
|
|
|
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
|
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
Me.DomainList.DataSource = Me.DataSet1
|
|
Me.DomainList.DataMember = Me.TableName
|
|
|
|
' Nur für den aktuell gewählten Mandanten die Daten auslesen
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters.Clear()
|
|
Me.SqlDataAdapter2.SelectCommand.Parameters.AddWithValue("@mandantnr", Globals.MandantNr)
|
|
|
|
Me.SqlDataAdapter2.Fill(Me.DataSet2)
|
|
For i = 0 To Me.DataSet2.Tables(0).Rows.Count
|
|
|
|
Next
|
|
|
|
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
Dim vi1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vi.DisplayValue = "Word"
|
|
vi.Value = 1
|
|
Me.DomainList.Columns("anwendungnr").ValueItems.Values.Add(vi)
|
|
vi1.DisplayValue = "Excel"
|
|
vi1.Value = 2
|
|
Me.DomainList.Columns("anwendungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
Me.DomainList.Columns("anwendungnr").ValueItems.Values.Add(vi1)
|
|
Me.DomainList.Columns("ANWENDUNGNR").ValueItems.Translate = True
|
|
|
|
'Me.C1TrueDBDropdown2.DataSource = Me.DataSet3
|
|
'Me.C1TrueDBDropdown2.DataMember = Me.DataSet3.Tables(0).TableName
|
|
'Me.C1TrueDBDropdown2.AllowFilter = True
|
|
'Me.C1TrueDBDropdown2.DisplayColumns(0).Width = 0
|
|
'Me.C1TrueDBDropdown2.DisplayColumns(1).AutoSize()
|
|
'Me.DomainList.Columns("owner").DropDown = Me.C1TrueDBDropdown2
|
|
'Me.DomainList.Columns("owner").ValueItems.Translate = True
|
|
|
|
Me.DomainList.ContextMenu = Me.ContextMenu1
|
|
|
|
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
|
|
|
For i = 0 To Me.DomainList.Columns.Count - 1
|
|
'Präsentation von Readonly
|
|
If Me.DomainList.Columns(i).DataField = "idv_vorlage" Or _
|
|
Me.DomainList.Columns(i).DataField = "absender_ersteller" Or _
|
|
Me.DomainList.Columns(i).DataField = "idv_nativ" Or _
|
|
Me.DomainList.Columns(i).DataField = "dokument_geschuetzt" Or _
|
|
Me.DomainList.Columns(i).DataField = "bchorizontal" Or _
|
|
Me.DomainList.Columns(i).DataField = "kopfzeile_generieren" Then
|
|
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
|
Me.DomainList.Columns(i).DefaultValue = False
|
|
End If
|
|
Next
|
|
|
|
'Defaults setzen
|
|
Me.DomainList.Columns("anwendungnr").DefaultValue = 1
|
|
Me.DomainList.Columns("bcpt").DefaultValue = 793
|
|
Me.DomainList.Columns("bcpl").DefaultValue = 360
|
|
Me.DomainList.Columns("bcw").DefaultValue = 200
|
|
Me.DomainList.Columns("bch").DefaultValue = 33
|
|
Me.DomainList.Columns("bchorizontal").DefaultValue = True
|
|
Me.DomainList.Columns("idv_vorlage").DefaultValue = True
|
|
Me.DomainList.Columns("kopfzeile_generieren").DefaultValue = True
|
|
Me.DomainList.Columns("owner").DefaultValue = Globals.MitarbeiterNr
|
|
|
|
|
|
Me.Refresh()
|
|
Cursor.Current = Cursors.Default
|
|
|
|
Dim ma As New DataTable()
|
|
ma = Mitarbeiter_lesen()
|
|
Me.DataSet3.Clear()
|
|
Me.DataSet3.Tables.Add(ma)
|
|
Me.DomainList.Columns("owner").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
For i = 0 To ma.Rows.Count - 1
|
|
Dim v As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
v.DisplayValue = ma.Rows(i).Item(1)
|
|
v.Value = ma.Rows(i).Item(0)
|
|
Me.DomainList.Columns("owner").ValueItems.Values.Add(v)
|
|
Next
|
|
Me.DomainList.Columns("owner").ValueItems.Translate = True
|
|
Me.DomainList.Splits(0).DisplayColumns("owner").FetchStyle = True
|
|
Me.DomainList.Splits(0).DisplayColumns("owner").AutoComplete = True
|
|
Me.DomainList.Splits(0).DisplayColumns("owner").AutoDropDown = True
|
|
|
|
|
|
'Me.C1TrueDBDropdown2.DataSource = Me.DataSet3
|
|
'Me.C1TrueDBDropdown2.DataMember = Me.DataSet3.Tables(0).TableName
|
|
'Me.C1TrueDBDropdown2.DisplayColumns(0).Width = 0
|
|
'Me.C1TrueDBDropdown2.Columns(0).Caption = "Owner"
|
|
'Me.DomainList.Columns("owner").DropDown = Me.C1TrueDBDropdown2
|
|
'Me.C1TrueDBDropdown2.DisplayColumns(1).AutoSize()
|
|
'Me.DomainList.Splits(0).DisplayColumns("owner").FetchStyle = True
|
|
'Me.DomainList.Splits(0).DisplayColumns("owner").AutoComplete = True
|
|
'Me.DomainList.Splits(0).DisplayColumns("owner").AutoDropDown = True
|
|
'Me.DomainList.Splits()
|
|
|
|
If UCase(Microsoft.VisualBasic.Left(Globals.conn.scoDBConnection.DataSource, 3)) = "TGT" Then
|
|
' Me.MenuItem1.Enabled = True
|
|
' Me.MenuItem2.Enabled = True
|
|
' Me.MenuItem7.Enabled = True
|
|
' Me.MenuItem8.Enabled = True
|
|
Else
|
|
' Me.MenuItem1.Enabled = False
|
|
' Me.MenuItem2.Enabled = False
|
|
' Me.MenuItem7.Enabled = False
|
|
' Me.MenuItem8.Enabled = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
|
Case 0 'close button
|
|
Me.Close()
|
|
Case 1 'Speichern
|
|
Save_Data()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Save_Data()
|
|
End Sub
|
|
|
|
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
|
Dim msg As MsgBoxResult
|
|
If Me.DataSet1.HasChanges Then
|
|
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
|
If msg = MsgBoxResult.No Then
|
|
e.Cancel = False
|
|
End If
|
|
If msg = MsgBoxResult.Yes Then
|
|
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
|
End If
|
|
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Function Save_Data() As Boolean
|
|
Save_Data = True
|
|
Try
|
|
SqlDataAdapter1.Update(Me.DataSet1)
|
|
Catch ex As Exception
|
|
MsgBox(Globals.MyMsg.Get_Meldungstext(902) + ex.Message)
|
|
Save_Data = False
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
|
|
Dim f As New FrmDomainOfficeVorlageDatei()
|
|
f.MdiParent = Me.ParentForm
|
|
f.vorlagenr = Me.DomainList.Columns(0).Value
|
|
f.Show()
|
|
End Sub
|
|
|
|
Public Function Mitarbeiter_lesen() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_mitarbeiter_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub Domainlist_BeforeColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs) Handles DomainList.BeforeColEdit
|
|
If Not DivFnkt.Check_Sysadmin_Stellvertreter(Me.DomainList.Columns("owner").Value) Then
|
|
MyMsg.show_standardmessage(245, MsgBoxStyle.Information)
|
|
e.Cancel = True
|
|
End If
|
|
End Sub
|
|
|
|
|
|
End Class
|