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.
705 lines
85 KiB
705 lines
85 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
|
|
Public Class frmNLDokumente
|
|
Inherits EDOKA.frmRelEditor
|
|
|
|
#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 SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents DataSet2 As System.Data.DataSet
|
|
Friend WithEvents DataSet3 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
|
|
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 SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlUpdateCommand3 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlDeleteCommand3 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.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.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlDeleteCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlUpdateCommand3 = New System.Data.SqlClient.SqlCommand()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.DataSet2 = New System.Data.DataSet()
|
|
Me.DataSet3 = New System.Data.DataSet()
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.DataSet3, 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", "niederlassung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("niederlassungnr", "niederlassungnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("nlnummer", "nlnummer"), New System.Data.Common.DataColumnMapping("nltyp", "nltyp"), New System.Data.Common.DataColumnMapping("edoka_dokumenterstellung", "edoka_dokumenterstellung"), 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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
|
'
|
|
'SqlDeleteCommand1
|
|
'
|
|
Me.SqlDeleteCommand1.CommandText = "[pv_niederlassung_dok_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_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", 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_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_edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_dokumenterstellung", 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))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nlnummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nlnummer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nltyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nltyp", 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"
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_niederlassung_dok_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("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
|
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("@nlnummer", System.Data.SqlDbType.Int, 4, "nlnummer"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nltyp", System.Data.SqlDbType.VarChar, 255, "nltyp"))
|
|
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, "edoka_dokumenterstellung"))
|
|
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"))
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_niederlassung_dok_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_niederlassung_dok_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("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
|
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("@nlnummer", System.Data.SqlDbType.Int, 4, "nlnummer"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nltyp", System.Data.SqlDbType.VarChar, 255, "nltyp"))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, "edoka_dokumenterstellung"))
|
|
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("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", 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_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_edoka_dokumenterstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edoka_dokumenterstellung", 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("@Original_nlnummer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nlnummer", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nltyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nltyp", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'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", "dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("zu_vercolden", "zu_vercolden"), New System.Data.Common.DataColumnMapping("zu_retournieren", "zu_retournieren"), New System.Data.Common.DataColumnMapping("eingang_ersetzt_ausgang", "eingang_ersetzt_ausgang"), New System.Data.Common.DataColumnMapping("wird_importiert", "wird_importiert"), New System.Data.Common.DataColumnMapping("anzahl_tage", "anzahl_tage"), New System.Data.Common.DataColumnMapping("dbearbeitungszeit", "dbearbeitungszeit"), New System.Data.Common.DataColumnMapping("tage_mutation", "tage_mutation"), New System.Data.Common.DataColumnMapping("partnersaldierung_statusalt", "partnersaldierung_statusalt"), New System.Data.Common.DataColumnMapping("wird_nicht_geloescht", "wird_nicht_geloescht"), New System.Data.Common.DataColumnMapping("vertrauliches_dokument", "vertrauliches_dokument"), New System.Data.Common.DataColumnMapping("unterschrift_links", "unterschrift_links"), New System.Data.Common.DataColumnMapping("unterschrift_rechts", "unterschrift_rechts"), New System.Data.Common.DataColumnMapping("monate_bis_zur_archivierung", "monate_bis_zur_archivierung"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_elektronisch", "aufbewahrungsfrist_elektronisch"), New System.Data.Common.DataColumnMapping("aufbewahrungsfrist_physisch", "aufbewahrungsfrist_physisch"), 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("office_vorlagenr", "office_vorlagenr"), New System.Data.Common.DataColumnMapping("dokumentart_kundendossier", "dokumentart_kundendossier"), New System.Data.Common.DataColumnMapping("dokumentart_neuerstellung", "dokumentart_neuerstellung"), New System.Data.Common.DataColumnMapping("dokumentart_retournierung", "dokumentart_retournierung"), New System.Data.Common.DataColumnMapping("dokumentart_coldausgang", "dokumentart_coldausgang"), New System.Data.Common.DataColumnMapping("dokumentart_coldeingang", "dokumentart_coldeingang"), New System.Data.Common.DataColumnMapping("dokumentart_host", "dokumentart_host"), New System.Data.Common.DataColumnMapping("dokumentart_weitere", "dokumentart_weitere"), New System.Data.Common.DataColumnMapping("dokumentart_nativ", "dokumentart_nativ"), New System.Data.Common.DataColumnMapping("prozessnr", "prozessnr"), New System.Data.Common.DataColumnMapping("prozessnr1", "prozessnr1"), New System.Data.Common.DataColumnMapping("amsdokument", "amsdokument"), New System.Data.Common.DataColumnMapping("hostdokument", "hostdokument"), New System.Data.Common.DataColumnMapping("hostdokumenttyp", "hostdokumenttyp"), New System.Data.Common.DataColumnMapping("cold_folder", "cold_folder"), New System.Data.Common.DataColumnMapping("physisches_archiv", "physisches_archiv"), New System.Data.Common.DataColumnMapping("dokumentstatus", "dokumentstatus"), New System.Data.Common.DataColumnMapping("Dokument_wird_erstellt", "Dokument_wird_erstellt"), New System.Data.Common.DataColumnMapping("Dokument_wird_retourniert", "Dokument_wird_retourniert"), New System.Data.Common.DataColumnMapping("cold_ersetzen", "cold_ersetzen"), New System.Data.Common.DataColumnMapping("email_versand", "email_versand"), New System.Data.Common.DataColumnMapping("funktionen_zuweisen", "funktionen_zuweisen"), New System.Data.Common.DataColumnMapping("dokumentstatus_barcode", "dokumentstatus_barcode"), New System.Data.Common.DataColumnMapping("nurnative", "nurnative"), New System.Data.Common.DataColumnMapping("Owner", "Owner"), New System.Data.Common.DataColumnMapping("vertrag", "vertrag"), New System.Data.Common.DataColumnMapping("objektbezeichnungnr", "objektbezeichnungnr")})})
|
|
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
|
'
|
|
'SqlDeleteCommand2
|
|
'
|
|
Me.SqlDeleteCommand2.CommandText = "[pv_dokumenttyp_nl_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_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.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.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_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", 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_cold_ersetzen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_ersetzen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_nativ", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_nativ", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_barcode", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email_versand", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email_versand", 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_funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionen_zuweisen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", 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_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", 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))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nurnative", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nurnative", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_objektbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "objektbezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.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.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrag", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrag", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlInsertCommand2
|
|
'
|
|
Me.SqlInsertCommand2.CommandText = "[pv_dokumenttyp_nl_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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
|
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("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
|
|
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"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_nativ", System.Data.SqlDbType.Int, 4, "dokumentart_nativ"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_ersetzen", System.Data.SqlDbType.Bit, 1, "cold_ersetzen"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email_versand", System.Data.SqlDbType.Bit, 1, "email_versand"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, "funktionen_zuweisen"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, "dokumentstatus_barcode"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nurnative", System.Data.SqlDbType.Bit, 1, "nurnative"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Owner", System.Data.SqlDbType.Int, 4, "Owner"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrag", System.Data.SqlDbType.Bit, 1, "vertrag"))
|
|
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@objektbezeichnungnr", System.Data.SqlDbType.Int, 4, "objektbezeichnungnr"))
|
|
'
|
|
'SqlSelectCommand2
|
|
'
|
|
Me.SqlSelectCommand2.CommandText = "[pv_dokumenttyp_nl_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_dokumenttyp_nl_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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
|
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("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
|
|
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("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_nativ", System.Data.SqlDbType.Int, 4, "dokumentart_nativ"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_ersetzen", System.Data.SqlDbType.Bit, 1, "cold_ersetzen"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email_versand", System.Data.SqlDbType.Bit, 1, "email_versand"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, "funktionen_zuweisen"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, "dokumentstatus_barcode"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nurnative", System.Data.SqlDbType.Bit, 1, "nurnative"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Owner", System.Data.SqlDbType.Int, 4, "Owner"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrag", System.Data.SqlDbType.Bit, 1, "vertrag"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@objektbezeichnungnr", System.Data.SqlDbType.Int, 4, "objektbezeichnungnr"))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_erstellt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokument_wird_retourniert", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.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.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_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_anzahl_tage", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anzahl_tage", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_elektronisch", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "aufbewahrungsfrist_physisch", 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_cold_ersetzen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_ersetzen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_cold_folder", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "cold_folder", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dbearbeitungszeit", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dbearbeitungszeit", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldausgang", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_coldeingang", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_host", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_host", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_kundendossier", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_nativ", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_nativ", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_neuerstellung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_retournierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_retournierung", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentart_weitere", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentart_weitere", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumentstatus_barcode", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentstatus_barcode", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingang_ersetzt_ausgang", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_email_versand", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "email_versand", 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_funktionen_zuweisen", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionen_zuweisen", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokumenttyp", 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_monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "monate_bis_zur_archivierung", 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))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nurnative", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nurnative", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_objektbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "objektbezeichnungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.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.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "partnersaldierung_statusalt", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_physisches_archiv", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physisches_archiv", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_prozessnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr1", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tage_mutation", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tage_mutation", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_links", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_links", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_unterschrift_rechts", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "unterschrift_rechts", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrag", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrag", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrauliches_dokument", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_importiert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_importiert", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "wird_nicht_geloescht", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_retournieren", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_retournieren", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zu_vercolden", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zu_vercolden", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlDataAdapter3
|
|
'
|
|
Me.SqlDataAdapter3.DeleteCommand = Me.SqlDeleteCommand3
|
|
Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3
|
|
Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3
|
|
Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "nldokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nldokumenttypnr", "nldokumenttypnr"), New System.Data.Common.DataColumnMapping("niederlassungnr", "niederlassungnr"), New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), 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.SqlDataAdapter3.UpdateCommand = Me.SqlUpdateCommand3
|
|
'
|
|
'SqlDeleteCommand3
|
|
'
|
|
Me.SqlDeleteCommand3.CommandText = "[pv_nldokumenttyp_delete]"
|
|
Me.SqlDeleteCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlDeleteCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlDeleteCommand3.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.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nldokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nldokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand3.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.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.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.SqlDeleteCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'SqlInsertCommand3
|
|
'
|
|
Me.SqlInsertCommand3.CommandText = "[pv_nldokumenttyp_insert]"
|
|
Me.SqlInsertCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlInsertCommand3.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.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nldokumenttypnr", System.Data.SqlDbType.Int, 4, "nldokumenttypnr"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
'
|
|
'SqlSelectCommand3
|
|
'
|
|
Me.SqlSelectCommand3.CommandText = "[sp_nldokumenttyp_select]"
|
|
Me.SqlSelectCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Fokus", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
Me.SqlSelectCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Key", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
|
|
'
|
|
'SqlUpdateCommand3
|
|
'
|
|
Me.SqlUpdateCommand3.CommandText = "[pv_nldokumenttyp_update]"
|
|
Me.SqlUpdateCommand3.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlUpdateCommand3.Connection = Me.SqlConnection1
|
|
Me.SqlUpdateCommand3.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.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@nldokumenttypnr", System.Data.SqlDbType.Int, 4, "nldokumenttypnr"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@niederlassungnr", System.Data.SqlDbType.Int, 4, "niederlassungnr"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
|
|
Me.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nldokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nldokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand3.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.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
|
Me.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.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.SqlUpdateCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_niederlassungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "niederlassungnr", System.Data.DataRowVersion.Original, Nothing))
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'DataSet2
|
|
'
|
|
Me.DataSet2.DataSetName = "NewDataSet"
|
|
Me.DataSet2.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'DataSet3
|
|
'
|
|
Me.DataSet3.DataSetName = "NewDataSet"
|
|
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'frmNLDokumente
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(600, 509)
|
|
Me.Name = "frmNLDokumente"
|
|
Me.Text = ""
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Datahandling"
|
|
Public Sub LoadData()
|
|
Dim dbconn As New EDOKA.DB_Connection()
|
|
Dim i As Integer
|
|
|
|
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.TBLeft.DataSource = Me.DataSet1
|
|
Me.TBLeft.DataMember = Me.TableNameLeft
|
|
|
|
' 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)
|
|
Me.TBRight.DataSource = Me.DataSet2
|
|
Me.TBRight.DataMember = Me.TableNameRight
|
|
SpaltenTitel_Aktualisieren(1, Me.TableNameLeft, Me.DataSet1)
|
|
SpaltenTitel_Aktualisieren(2, Me.TableNameRight, Me.DataSet2)
|
|
UpdateGrpText(5045, 5046, 5047)
|
|
|
|
End Sub
|
|
|
|
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBLeft.RowColChange
|
|
check_changes()
|
|
Refresh_TBBottom()
|
|
End Sub
|
|
|
|
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles TBRight.RowColChange
|
|
check_changes()
|
|
Refresh_TBBottom()
|
|
End Sub
|
|
|
|
Public Sub Refresh_TBBottom()
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.Clear()
|
|
If Me.FokusLeft.Checked Then
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 1)
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBLeft.Columns(0).Value)
|
|
Else
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Fokus", 2)
|
|
Me.SqlDataAdapter3.SelectCommand.Parameters.AddWithValue("@Key", Me.TBRight.Columns(0).Value)
|
|
End If
|
|
Try
|
|
Me.DataSet3.Clear()
|
|
Me.SqlDataAdapter3.Fill(Me.DataSet3)
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
Me.TBBottom.DataSource = Me.DataSet3
|
|
Me.TBBottom.DataMember = Me.TableNameBottom
|
|
SpaltenTitel_Aktualisieren(3, Me.TableNameBottom, Me.DataSet3)
|
|
TBBottom_Format()
|
|
End Sub
|
|
|
|
Private Sub TBBottom_Update(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles TBBottom.AfterColEdit
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
Dim i As Integer
|
|
For i = 0 To Me.TBBottom.Columns.Count - 1
|
|
If Me.TBBottom.Columns(i).DataField = "mutiert_am" Then Me.TBBottom.Columns(i).Value = Now
|
|
If Me.TBBottom.Columns(i).DataField = "mutierer" Then Me.TBBottom.Columns(i).Value = Globals.MitarbeiterNr
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Insert_TBBottom()
|
|
Dim iLeft As Integer
|
|
Dim iRigth As Integer
|
|
Dim ic, i As Integer
|
|
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
|
Dim vdata As New edokadb.clsNldokumenttyp()
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim Currentsel As Boolean
|
|
Dim key As Long
|
|
|
|
iLeft = Me.TBLeft.SelectedRows.Count
|
|
iRigth = Me.TBRight.SelectedRows.Count
|
|
If (Me.FokusLeft.Checked And iLeft > 1) Or (Me.FokusRight.Checked And iRigth > 1) Then
|
|
Globals.MyMsg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End If
|
|
If Me.FokusLeft.Checked Then
|
|
ic = iRigth
|
|
colRows = Me.TBRight.SelectedRows
|
|
Else
|
|
ic = iLeft
|
|
colRows = Me.TBLeft.SelectedRows
|
|
End If
|
|
If ic = 0 Then
|
|
ic = ic + 1
|
|
Currentsel = True
|
|
End If
|
|
For i = 0 To ic - 1
|
|
vdata.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
vdata.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
vdata.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
vdata.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
If Me.FokusLeft.Checked Then
|
|
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
|
If Currentsel Then
|
|
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
|
Else
|
|
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).CellValue(colRows(i)), Int32))
|
|
End If
|
|
Else
|
|
If Currentsel Then
|
|
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBLeft.Columns(0).Value, Int32))
|
|
Else
|
|
vdata.iNiederlassungnr = New SqlInt32(CType(Me.TBLeft.Columns(0).CellValue(colRows(i)), Int32))
|
|
End If
|
|
|
|
vdata.iDokumenttypnr = New SqlInt32(CType(Me.TBRight.Columns(0).Value, Int32))
|
|
End If
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("nldokumenttyp")
|
|
vdata.iNldokumenttypnr = New SqlInt32(CType(key, Int32))
|
|
vdata.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
vdata.Insert()
|
|
conn.CloseConnection(True)
|
|
Next
|
|
vdata.Dispose()
|
|
Refresh_TBBottom()
|
|
End Sub
|
|
|
|
Private Function Save_Data() As Boolean
|
|
Save_Data = True
|
|
Try
|
|
SqlDataAdapter3.Update(Me.DataSet3)
|
|
Catch ex As Exception
|
|
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
|
Save_Data = False
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "Toolbar"
|
|
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()
|
|
Case Else
|
|
Throw New Exception(MyMsg.Get_Meldungstext(901))
|
|
End Select
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "FormularFunktionen"
|
|
|
|
Private Sub frmRolle_SysadminFunktion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Cursor.Current = Cursors.WaitCursor
|
|
Me.TableNameLeft = "niederlassung"
|
|
Me.TableNameRight = "dokumenttyp"
|
|
Me.TableNameBottom = "nldokumenttyp"
|
|
LoadData()
|
|
Cursor.Current = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub BtnConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConnect.Click
|
|
Insert_TBBottom()
|
|
End Sub
|
|
|
|
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
|
Dim msg As MsgBoxResult
|
|
If Me.DataSet3.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 Sub check_changes()
|
|
Dim msg As MsgBoxResult
|
|
If Me.DataSet3.HasChanges Then
|
|
msg = Globals.MyMsg.Show_MessageYesNo(2)
|
|
If msg = MsgBoxResult.Yes Then
|
|
Save_Data()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Save_Data()
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
End Class
|