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.
343 lines
26 KiB
343 lines
26 KiB
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
|
|
Imports System.ComponentModel
|
|
|
|
Public Class frmDomainFAAppl
|
|
Inherits EDOKAApp.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 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
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection1 = 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.DataSet1 = New System.Data.DataSet()
|
|
CType(Me.DataSet1, 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", "FA_APPL", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ApplNr", "ApplNr"), New System.Data.Common.DataColumnMapping("Bezeichnung", "Bezeichnung"), New System.Data.Common.DataColumnMapping("EDOKA_Mitarbeiter", "EDOKA_Mitarbeiter"), New System.Data.Common.DataColumnMapping("Log_erstellung", "Log_erstellung"), New System.Data.Common.DataColumnMapping("Mail_Empfaneger", "Mail_Empfaneger"), New System.Data.Common.DataColumnMapping("Mail_Periodizitaet", "Mail_Periodizitaet"), New System.Data.Common.DataColumnMapping("Verarbeitungsart", "Verarbeitungsart"), New System.Data.Common.DataColumnMapping("OutputFormat", "OutputFormat"), New System.Data.Common.DataColumnMapping("DTO_Parameter", "DTO_Parameter"), 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("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr")})})
|
|
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_faappl_delete]"
|
|
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
|
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_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Bezeichnung", System.Data.SqlDbType.VarChar, 50, 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_DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DTO_Parameter", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Mitarbeiter", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Log_erstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Log_erstellung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Empfaneger", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Periodizitaet", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_OutputFormat", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OutputFormat", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Verarbeitungsart", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Verarbeitungsart", 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_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_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))
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
|
|
"t security info=False;user id=tgedoka;workstation id=TG602636;packet size=4096"
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_faappl_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
|
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("@Bezeichnung", System.Data.SqlDbType.VarChar, 50, "Bezeichnung"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, "EDOKA_Mitarbeiter"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Log_erstellung", System.Data.SqlDbType.Int, 4, "Log_erstellung"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, "Mail_Empfaneger"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, "Mail_Periodizitaet"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Verarbeitungsart", System.Data.SqlDbType.Int, 4, "Verarbeitungsart"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OutputFormat", System.Data.SqlDbType.VarChar, 50, "OutputFormat"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, "DTO_Parameter"))
|
|
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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_faappl_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
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_faappl_update]"
|
|
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
|
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("@Bezeichnung", System.Data.SqlDbType.VarChar, 50, "Bezeichnung"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, "EDOKA_Mitarbeiter"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Log_erstellung", System.Data.SqlDbType.Int, 4, "Log_erstellung"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, "Mail_Empfaneger"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, "Mail_Periodizitaet"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Verarbeitungsart", System.Data.SqlDbType.Int, 4, "Verarbeitungsart"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OutputFormat", System.Data.SqlDbType.VarChar, 50, "OutputFormat"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, "DTO_Parameter"))
|
|
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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
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("@Original_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Bezeichnung", System.Data.SqlDbType.VarChar, 50, 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_DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DTO_Parameter", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Mitarbeiter", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Log_erstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Log_erstellung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Empfaneger", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Periodizitaet", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_OutputFormat", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OutputFormat", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Verarbeitungsart", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Verarbeitungsart", 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_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_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("@ApplNr", System.Data.SqlDbType.Int, 4, "ApplNr"))
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'frmDomainFAAppl
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(624, 273)
|
|
Me.Name = "frmDomainFAAppl"
|
|
Me.Text = """EDOKA-Import - Fremdanwendungen"""
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub frmDomainFAAppl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Text = "EDOKA-Import - Fremdanwendungen"
|
|
Me.TableName = "fa_appl"
|
|
Dim dbconn As New EDOKA.DB_Connection()
|
|
Me.SqlConnection1.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
|
|
|
|
Dim dt As New DataTable()
|
|
Dim i As Integer
|
|
dt = get_journalerstellung()
|
|
|
|
For i = 0 To dt.Rows.Count - 1
|
|
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vi.DisplayValue = dt.Rows(i).Item("bezeichnung")
|
|
vi.Value = dt.Rows(i).Item("FA_Journalerstellungnr")
|
|
Me.DomainList.Columns("log_erstellung").ValueItems.Values.Add(vi)
|
|
Me.DomainList.Columns("log_erstellung").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
Me.DomainList.Columns("log_erstellung").ValueItems.Translate = True
|
|
Next
|
|
|
|
Dim dv As New DataTable()
|
|
dv = get_verarbeitungsart()
|
|
For i = 0 To dv.Rows.Count - 1
|
|
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vi.DisplayValue = dv.Rows(i).Item("bezeichnung")
|
|
vi.Value = dv.Rows(i).Item("FA_Verarbeitungsartnr")
|
|
Me.DomainList.Columns("verarbeitungsart").ValueItems.Values.Add(vi)
|
|
Me.DomainList.Columns("verarbeitungsart").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
Me.DomainList.Columns("verarbeitungsart").ValueItems.Translate = True
|
|
Next
|
|
|
|
Dim dm As New DataTable()
|
|
dm = get_mailperiode()
|
|
For i = 0 To dm.Rows.Count - 1
|
|
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
vi.DisplayValue = dm.Rows(i).Item("bezeichnung")
|
|
vi.Value = dm.Rows(i).Item("FA_mailperiodenr")
|
|
Me.DomainList.Columns("Mail_Periodizitaet").ValueItems.Values.Add(vi)
|
|
Me.DomainList.Columns("Mail_Periodizitaet").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
Me.DomainList.Columns("Mail_Periodizitaet").ValueItems.Translate = True
|
|
Next
|
|
For i = 1 To 5
|
|
Dim s As String
|
|
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
Select Case i
|
|
Case 1
|
|
s = "PDF"
|
|
Case 2
|
|
s = "TXT"
|
|
Case 3
|
|
s = "CSV"
|
|
Case 4
|
|
s = "DOC"
|
|
Case 5
|
|
s = "XLS"
|
|
End Select
|
|
vi.DisplayValue = s
|
|
vi.Value = s
|
|
Me.DomainList.Columns("OutputFormat").ValueItems.Values.Add(vi)
|
|
Me.DomainList.Columns("OutputFormat").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
|
Me.DomainList.Columns("OutputFormat").ValueItems.Translate = True
|
|
Next
|
|
|
|
|
|
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
|
dv.Dispose()
|
|
dt.Dispose()
|
|
dm.Dispose()
|
|
End Sub
|
|
|
|
Public Function get_journalerstellung() 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_edoka_import_get_journalerstellung"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
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
|
|
|
|
Public Function get_verarbeitungsart() 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_edoka_import_get_verarbeitungsart"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
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
|
|
|
|
Public Function get_mailperiode() 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_edoka_import_get_mailperiode"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
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 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))
|
|
Save_Data = False
|
|
End Try
|
|
End Function
|
|
End Class
|