diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..d669d1e --- /dev/null +++ b/.gitignore @@ -0,0 +1,5 @@ +################################################################################ +# Diese .gitignore-Datei wurde von Microsoft(R) Visual Studio automatisch erstellt. +################################################################################ + +/.vs/MC_SUPPLYWATCH/v15/Server/sqlite3 diff --git a/.vs/MC_SUPPLYWATCH/DesignTimeBuild/.dtbcache b/.vs/MC_SUPPLYWATCH/DesignTimeBuild/.dtbcache new file mode 100644 index 0000000..d006879 Binary files /dev/null and b/.vs/MC_SUPPLYWATCH/DesignTimeBuild/.dtbcache differ diff --git a/.vs/MC_SUPPLYWATCH/v15/.suo b/.vs/MC_SUPPLYWATCH/v15/.suo index b702b4a..f0f0ea3 100644 Binary files a/.vs/MC_SUPPLYWATCH/v15/.suo and b/.vs/MC_SUPPLYWATCH/v15/.suo differ diff --git a/.vs/Supplywatch/v15/.suo b/.vs/Supplywatch/v15/.suo index 4e1b923..48e2c6f 100644 Binary files a/.vs/Supplywatch/v15/.suo and b/.vs/Supplywatch/v15/.suo differ diff --git a/.vs/slnx.sqlite b/.vs/slnx.sqlite index dd57552..8c5f137 100644 Binary files a/.vs/slnx.sqlite and b/.vs/slnx.sqlite differ diff --git a/Supplywatch/ClassDatabase.vb b/Supplywatch/ClassDatabase.vb index 99378e0..901970e 100644 --- a/Supplywatch/ClassDatabase.vb +++ b/Supplywatch/ClassDatabase.vb @@ -15,16 +15,18 @@ ' End Try 'End Function - Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False) + Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False, Optional _TO As Integer = 500) Try Dim SQLconnect As New SqlClient.SqlConnection - Dim SQLcommand As SqlClient.SqlCommand + Dim SQLcommand As New SqlClient.SqlCommand + SQLcommand.CommandTimeout = _TO SQLconnect.ConnectionString = My.Settings.ConfigConnectionString SQLconnect.Open() SQLcommand = SQLconnect.CreateCommand SQLcommand.CommandText = Select_anweisung Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() adapter1.Fill(dt) SQLconnect.Close() diff --git a/Supplywatch/FMMain.Designer.vb b/Supplywatch/FMMain.Designer.vb index d141a35..a4bce58 100644 --- a/Supplywatch/FMMain.Designer.vb +++ b/Supplywatch/FMMain.Designer.vb @@ -50,7 +50,6 @@ Partial Class FMMain Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.VWRPT_SUPPLIES_TOORDERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.MyDataset = New SUPPLYWATCH.MyDataset() Me.VWGERAET_ORDERBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -145,32 +144,16 @@ Partial Class FMMain Me.tsbtn_setBack2Besterford = New System.Windows.Forms.ToolStripButton() Me.tsbtnSet2BestelltManually = New System.Windows.Forms.ToolStripButton() Me.tpBestellungen = New System.Windows.Forms.TabPage() + Me.pnlGridOrders = New System.Windows.Forms.Panel() Me.GridControlBestellungen = New DevExpress.XtraGrid.GridControl() - Me.TBSUPPLY_BESTELLUNGViewBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GridViewBestellUebersicht = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colBestellID = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colGERAET1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colSERIEN_NR1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colSUPPLY_BEZEICHNUNG1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMENGE1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMENGE_ORIGIN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colBESTELLNR = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMARKT1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMANUELL1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colBESTELLT_WANN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colBESTELLT_WER1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colFILE_ORDER_CONFIRM = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GroupBox6 = New System.Windows.Forms.GroupBox() - Me.chkbDatumfilterOrder = New System.Windows.Forms.CheckBox() - Me.dtpOrder_bis = New System.Windows.Forms.DateTimePicker() - Me.Label12 = New System.Windows.Forms.Label() - Me.dtpOrder_von = New System.Windows.Forms.DateTimePicker() + Me.pnlOrderDateSelector = New System.Windows.Forms.Panel() Me.Label13 = New System.Windows.Forms.Label() - Me.chbFilterMarkt_Bestellungen = New System.Windows.Forms.CheckBox() - Me.DGTBWH_Markt_Bestellungen = New System.Windows.Forms.DataGridView() - Me.DataGridViewTextBoxColumn15 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TBWH_MARKTBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.DateTimePickerOrdervon = New System.Windows.Forms.DateTimePicker() + Me.DateTimePickerOrderbis = New System.Windows.Forms.DateTimePicker() + Me.Label12 = New System.Windows.Forms.Label() + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.BindingNavigatorCountItem3 = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorMoveFirstItem3 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem3 = New System.Windows.Forms.ToolStripButton() @@ -182,10 +165,17 @@ Partial Class FMMain Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator() Me.tsbRefresh_Bestellungen = New System.Windows.Forms.ToolStripButton() Me.tsbExel_bestellungen = New System.Windows.Forms.ToolStripButton() + Me.tsbtOrderSelectDate = New System.Windows.Forms.ToolStripButton() Me.TabPageBestell_Import = New System.Windows.Forms.TabPage() - Me.chkLogData = New System.Windows.Forms.CheckBox() Me.DataGridView2 = New System.Windows.Forms.DataGridView() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.btnImportBestellungen = New System.Windows.Forms.Button() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.btnTSR_open = New System.Windows.Forms.Button() + Me.Label22 = New System.Windows.Forms.Label() + Me.cmbMandant = New System.Windows.Forms.ComboBox() + Me.TBMANDANTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.chkLogData = New System.Windows.Forms.CheckBox() Me.DataGridView3 = New System.Windows.Forms.DataGridView() Me.MELDEDATUMDataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.SUPPLYLEVELDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -383,6 +373,7 @@ Partial Class FMMain Me.chbFilterMarktNV = New System.Windows.Forms.CheckBox() Me.DGVTBWH_MARKT_VF = New System.Windows.Forms.DataGridView() Me.clmMarkt = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.TBWH_MARKTBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.tsbtnSupplyverfolgung = New System.Windows.Forms.ToolStrip() Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() @@ -448,7 +439,6 @@ Partial Class FMMain Me.ToolStripButton27 = New System.Windows.Forms.ToolStripButton() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.FILTERTextBox = New System.Windows.Forms.TextBox() - Me.TBMANDANTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBMANDANTENDataGridView = New System.Windows.Forms.DataGridView() Me.DataGridViewTextBoxColumn21 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn22 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -650,6 +640,7 @@ Partial Class FMMain Me.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter = New SUPPLYWATCH.MyDatasetTableAdapters.ViewSUPPLY_STATUS_VERFOLGUNGTableAdapter() Me.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter = New SUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_BESTELLUNG_GESENDETTableAdapter() Me.VWSUPPLIES_2_ORDERTableAdapter = New SUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLIES_2_ORDERTableAdapter() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() GEAENDERTWANNLabel = New System.Windows.Forms.Label() GEAENDERTWERLabel = New System.Windows.Forms.Label() STATUS_SDLabel = New System.Windows.Forms.Label() @@ -696,16 +687,18 @@ Partial Class FMMain CType(Me.BindingNavigator4, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator4.SuspendLayout() Me.tpBestellungen.SuspendLayout() + Me.pnlGridOrders.SuspendLayout() CType(Me.GridControlBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBSUPPLY_BESTELLUNGViewBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridViewBestellUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox6.SuspendLayout() - CType(Me.DGTBWH_Markt_Bestellungen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBWH_MARKTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBSUPPLY_BESTELLUNGViewBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.SuspendLayout() + Me.pnlOrderDateSelector.SuspendLayout() + CType(Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.SuspendLayout() + CType(Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPageBestell_Import.SuspendLayout() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox10.SuspendLayout() + Me.GroupBox5.SuspendLayout() + CType(Me.TBMANDANTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWSUPPLY_VERFOLGUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() @@ -759,6 +752,7 @@ Partial Class FMMain Me.Panel2.SuspendLayout() Me.GroupBox7.SuspendLayout() CType(Me.DGVTBWH_MARKT_VF, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_MARKTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.tsbtnSupplyverfolgung.SuspendLayout() Me.tpEinstellungen.SuspendLayout() Me.TabControlEinstellungen.SuspendLayout() @@ -774,7 +768,6 @@ Partial Class FMMain CType(Me.TBSUPPLY_DEFINITIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBSUPPLY_DEFINITIONBindingNavigator.SuspendLayout() Me.GroupBox12.SuspendLayout() - CType(Me.TBMANDANTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBMANDANTENDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBMANDANTENBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBMANDANTENBindingNavigator.SuspendLayout() @@ -1834,9 +1827,9 @@ Partial Class FMMain 'tpBestellungen ' Me.tpBestellungen.AutoScroll = True - Me.tpBestellungen.Controls.Add(Me.GridControlBestellungen) - Me.tpBestellungen.Controls.Add(Me.GroupBox6) - Me.tpBestellungen.Controls.Add(Me.TBSUPPLY_BESTELLUNGViewBindingNavigator) + Me.tpBestellungen.Controls.Add(Me.pnlGridOrders) + Me.tpBestellungen.Controls.Add(Me.pnlOrderDateSelector) + Me.tpBestellungen.Controls.Add(Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator) Me.tpBestellungen.Location = New System.Drawing.Point(4, 22) Me.tpBestellungen.Name = "tpBestellungen" Me.tpBestellungen.Padding = New System.Windows.Forms.Padding(3) @@ -1845,22 +1838,25 @@ Partial Class FMMain Me.tpBestellungen.Text = "Bestell-Übersichten" Me.tpBestellungen.UseVisualStyleBackColor = True ' + 'pnlGridOrders + ' + Me.pnlGridOrders.Controls.Add(Me.GridControlBestellungen) + Me.pnlGridOrders.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlGridOrders.Location = New System.Drawing.Point(3, 69) + Me.pnlGridOrders.Name = "pnlGridOrders" + Me.pnlGridOrders.Size = New System.Drawing.Size(1269, 234) + Me.pnlGridOrders.TabIndex = 7 + ' 'GridControlBestellungen ' - Me.GridControlBestellungen.DataSource = Me.TBSUPPLY_BESTELLUNGViewBindingSource Me.GridControlBestellungen.Dock = System.Windows.Forms.DockStyle.Fill - Me.GridControlBestellungen.Location = New System.Drawing.Point(332, 28) + Me.GridControlBestellungen.Location = New System.Drawing.Point(0, 0) Me.GridControlBestellungen.MainView = Me.GridViewBestellUebersicht Me.GridControlBestellungen.Name = "GridControlBestellungen" - Me.GridControlBestellungen.Size = New System.Drawing.Size(940, 275) + Me.GridControlBestellungen.Size = New System.Drawing.Size(1269, 234) Me.GridControlBestellungen.TabIndex = 4 Me.GridControlBestellungen.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewBestellUebersicht}) ' - 'TBSUPPLY_BESTELLUNGViewBindingSource - ' - Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataMember = "VWSUPPLY_BESTELLUNG_FRONTEND" - Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataSource = Me.MyDataset - ' 'GridViewBestellUebersicht ' Me.GridViewBestellUebersicht.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan @@ -1869,7 +1865,6 @@ Partial Class FMMain Me.GridViewBestellUebersicht.Appearance.OddRow.Options.UseBackColor = True Me.GridViewBestellUebersicht.Appearance.SelectedRow.BackColor = System.Drawing.Color.Magenta Me.GridViewBestellUebersicht.Appearance.SelectedRow.Options.UseBackColor = True - Me.GridViewBestellUebersicht.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBestellID, Me.colGERAET1, Me.colSERIEN_NR1, Me.colSUPPLY_BEZEICHNUNG1, Me.colMENGE1, Me.colMENGE_ORIGIN, Me.colBESTELLNR, Me.colMARKT1, Me.colMANUELL1, Me.colBESTELLT_WANN1, Me.colBESTELLT_WER1, Me.colFILE_ORDER_CONFIRM}) Me.GridViewBestellUebersicht.GridControl = Me.GridControlBestellungen Me.GridViewBestellUebersicht.HorzScrollVisibility = DevExpress.XtraGrid.Views.Base.ScrollVisibility.Always Me.GridViewBestellUebersicht.Name = "GridViewBestellUebersicht" @@ -1883,245 +1878,75 @@ Partial Class FMMain Me.GridViewBestellUebersicht.OptionsView.EnableAppearanceOddRow = True Me.GridViewBestellUebersicht.OptionsView.ShowAutoFilterRow = True ' - 'colBestellID + 'pnlOrderDateSelector ' - Me.colBestellID.Caption = "Bestell-ID" - Me.colBestellID.FieldName = "GUID" - Me.colBestellID.Name = "colBestellID" - Me.colBestellID.OptionsColumn.AllowEdit = False - Me.colBestellID.Visible = True - Me.colBestellID.VisibleIndex = 0 - ' - 'colGERAET1 - ' - Me.colGERAET1.Caption = "Gerät" - Me.colGERAET1.FieldName = "GERAET" - Me.colGERAET1.Name = "colGERAET1" - Me.colGERAET1.OptionsColumn.AllowEdit = False - Me.colGERAET1.Visible = True - Me.colGERAET1.VisibleIndex = 1 - ' - 'colSERIEN_NR1 - ' - Me.colSERIEN_NR1.Caption = "Serial" - Me.colSERIEN_NR1.FieldName = "SERIEN_NR" - Me.colSERIEN_NR1.Name = "colSERIEN_NR1" - Me.colSERIEN_NR1.OptionsColumn.AllowEdit = False - Me.colSERIEN_NR1.Visible = True - Me.colSERIEN_NR1.VisibleIndex = 2 - ' - 'colSUPPLY_BEZEICHNUNG1 - ' - Me.colSUPPLY_BEZEICHNUNG1.Caption = "Supply" - Me.colSUPPLY_BEZEICHNUNG1.FieldName = "SUPPLY_BEZEICHNUNG" - Me.colSUPPLY_BEZEICHNUNG1.Name = "colSUPPLY_BEZEICHNUNG1" - Me.colSUPPLY_BEZEICHNUNG1.OptionsColumn.AllowEdit = False - Me.colSUPPLY_BEZEICHNUNG1.Visible = True - Me.colSUPPLY_BEZEICHNUNG1.VisibleIndex = 3 - ' - 'colMENGE1 - ' - Me.colMENGE1.AppearanceCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.colMENGE1.AppearanceCell.Options.UseBackColor = True - Me.colMENGE1.Caption = "Menge" - Me.colMENGE1.FieldName = "MENGE" - Me.colMENGE1.Name = "colMENGE1" - Me.colMENGE1.Visible = True - Me.colMENGE1.VisibleIndex = 4 - ' - 'colMENGE_ORIGIN - ' - Me.colMENGE_ORIGIN.Caption = "Menge Orig." - Me.colMENGE_ORIGIN.FieldName = "MENGE_ORIGIN" - Me.colMENGE_ORIGIN.Name = "colMENGE_ORIGIN" - Me.colMENGE_ORIGIN.Visible = True - Me.colMENGE_ORIGIN.VisibleIndex = 5 - ' - 'colBESTELLNR - ' - Me.colBESTELLNR.AppearanceCell.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.colBESTELLNR.AppearanceCell.Options.UseBackColor = True - Me.colBESTELLNR.Caption = "Bestell Nr" - Me.colBESTELLNR.FieldName = "BESTELLNR" - Me.colBESTELLNR.Name = "colBESTELLNR" - Me.colBESTELLNR.Visible = True - Me.colBESTELLNR.VisibleIndex = 6 - ' - 'colMARKT1 - ' - Me.colMARKT1.Caption = "Markt" - Me.colMARKT1.FieldName = "MARKT" - Me.colMARKT1.Name = "colMARKT1" - Me.colMARKT1.OptionsColumn.AllowEdit = False - Me.colMARKT1.Visible = True - Me.colMARKT1.VisibleIndex = 7 - ' - 'colMANUELL1 - ' - Me.colMANUELL1.Caption = "Manuell" - Me.colMANUELL1.FieldName = "MANUELL" - Me.colMANUELL1.Name = "colMANUELL1" - Me.colMANUELL1.OptionsColumn.AllowEdit = False - Me.colMANUELL1.Visible = True - Me.colMANUELL1.VisibleIndex = 8 - ' - 'colBESTELLT_WANN1 - ' - Me.colBESTELLT_WANN1.Caption = "Bestellt wann" - Me.colBESTELLT_WANN1.FieldName = "BESTELLT_WANN" - Me.colBESTELLT_WANN1.Name = "colBESTELLT_WANN1" - Me.colBESTELLT_WANN1.OptionsColumn.AllowEdit = False - Me.colBESTELLT_WANN1.Visible = True - Me.colBESTELLT_WANN1.VisibleIndex = 10 - ' - 'colBESTELLT_WER1 - ' - Me.colBESTELLT_WER1.Caption = "Bestellt wer" - Me.colBESTELLT_WER1.FieldName = "BESTELLT_WER" - Me.colBESTELLT_WER1.Name = "colBESTELLT_WER1" - Me.colBESTELLT_WER1.OptionsColumn.AllowEdit = False - Me.colBESTELLT_WER1.Visible = True - Me.colBESTELLT_WER1.VisibleIndex = 9 - ' - 'colFILE_ORDER_CONFIRM - ' - Me.colFILE_ORDER_CONFIRM.Caption = "File-Order" - Me.colFILE_ORDER_CONFIRM.FieldName = "FILE_ORDER_CONFIRM" - Me.colFILE_ORDER_CONFIRM.Name = "colFILE_ORDER_CONFIRM" - Me.colFILE_ORDER_CONFIRM.OptionsColumn.AllowEdit = False - Me.colFILE_ORDER_CONFIRM.Visible = True - Me.colFILE_ORDER_CONFIRM.VisibleIndex = 11 - ' - 'GroupBox6 - ' - Me.GroupBox6.Controls.Add(Me.chkbDatumfilterOrder) - Me.GroupBox6.Controls.Add(Me.dtpOrder_bis) - Me.GroupBox6.Controls.Add(Me.Label12) - Me.GroupBox6.Controls.Add(Me.dtpOrder_von) - Me.GroupBox6.Controls.Add(Me.Label13) - Me.GroupBox6.Controls.Add(Me.chbFilterMarkt_Bestellungen) - Me.GroupBox6.Controls.Add(Me.DGTBWH_Markt_Bestellungen) - Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Left - Me.GroupBox6.Location = New System.Drawing.Point(3, 28) - Me.GroupBox6.Name = "GroupBox6" - Me.GroupBox6.Size = New System.Drawing.Size(329, 275) - Me.GroupBox6.TabIndex = 2 - Me.GroupBox6.TabStop = False - Me.GroupBox6.Text = "Märkte und Datumsfilter:" - ' - 'chkbDatumfilterOrder - ' - Me.chkbDatumfilterOrder.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.chkbDatumfilterOrder.AutoSize = True - Me.chkbDatumfilterOrder.Location = New System.Drawing.Point(6, 166) - Me.chkbDatumfilterOrder.Name = "chkbDatumfilterOrder" - Me.chkbDatumfilterOrder.Size = New System.Drawing.Size(89, 17) - Me.chkbDatumfilterOrder.TabIndex = 12 - Me.chkbDatumfilterOrder.Text = "Datumsfilter" - Me.chkbDatumfilterOrder.UseVisualStyleBackColor = True - ' - 'dtpOrder_bis - ' - Me.dtpOrder_bis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.dtpOrder_bis.Enabled = False - Me.dtpOrder_bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpOrder_bis.Location = New System.Drawing.Point(6, 249) - Me.dtpOrder_bis.Name = "dtpOrder_bis" - Me.dtpOrder_bis.Size = New System.Drawing.Size(118, 22) - Me.dtpOrder_bis.TabIndex = 11 - ' - 'Label12 - ' - Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(3, 233) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(95, 13) - Me.Label12.TabIndex = 10 - Me.Label12.Text = "Bestelldatum bis:" - ' - 'dtpOrder_von - ' - Me.dtpOrder_von.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.dtpOrder_von.Enabled = False - Me.dtpOrder_von.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpOrder_von.Location = New System.Drawing.Point(6, 205) - Me.dtpOrder_von.Name = "dtpOrder_von" - Me.dtpOrder_von.Size = New System.Drawing.Size(118, 22) - Me.dtpOrder_von.TabIndex = 9 + Me.pnlOrderDateSelector.Controls.Add(Me.Label13) + Me.pnlOrderDateSelector.Controls.Add(Me.DateTimePickerOrdervon) + Me.pnlOrderDateSelector.Controls.Add(Me.DateTimePickerOrderbis) + Me.pnlOrderDateSelector.Controls.Add(Me.Label12) + Me.pnlOrderDateSelector.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlOrderDateSelector.Location = New System.Drawing.Point(3, 28) + Me.pnlOrderDateSelector.Name = "pnlOrderDateSelector" + Me.pnlOrderDateSelector.Size = New System.Drawing.Size(1269, 41) + Me.pnlOrderDateSelector.TabIndex = 6 + Me.pnlOrderDateSelector.Visible = False ' 'Label13 ' - Me.Label13.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(3, 189) + Me.Label13.Location = New System.Drawing.Point(155, 14) Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(99, 13) - Me.Label13.TabIndex = 8 - Me.Label13.Text = "Bestelldatum von:" + Me.Label13.Size = New System.Drawing.Size(59, 13) + Me.Label13.TabIndex = 3 + Me.Label13.Text = "Datum bis" ' - 'chbFilterMarkt_Bestellungen + 'DateTimePickerOrdervon ' - Me.chbFilterMarkt_Bestellungen.AutoSize = True - Me.chbFilterMarkt_Bestellungen.Location = New System.Drawing.Point(6, 21) - Me.chbFilterMarkt_Bestellungen.Name = "chbFilterMarkt_Bestellungen" - Me.chbFilterMarkt_Bestellungen.Size = New System.Drawing.Size(79, 17) - Me.chbFilterMarkt_Bestellungen.TabIndex = 2 - Me.chbFilterMarkt_Bestellungen.Text = "Filter aktiv" - Me.chbFilterMarkt_Bestellungen.UseVisualStyleBackColor = True + Me.DateTimePickerOrdervon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DateTimePickerOrdervon.Location = New System.Drawing.Point(72, 11) + Me.DateTimePickerOrdervon.Name = "DateTimePickerOrdervon" + Me.DateTimePickerOrdervon.Size = New System.Drawing.Size(77, 22) + Me.DateTimePickerOrdervon.TabIndex = 0 ' - 'DGTBWH_Markt_Bestellungen + 'DateTimePickerOrderbis ' - Me.DGTBWH_Markt_Bestellungen.AllowUserToAddRows = False - Me.DGTBWH_Markt_Bestellungen.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan - Me.DGTBWH_Markt_Bestellungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.DGTBWH_Markt_Bestellungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.DGTBWH_Markt_Bestellungen.AutoGenerateColumns = False - Me.DGTBWH_Markt_Bestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DGTBWH_Markt_Bestellungen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn15}) - Me.DGTBWH_Markt_Bestellungen.DataSource = Me.TBWH_MARKTBindingSource - Me.DGTBWH_Markt_Bestellungen.Location = New System.Drawing.Point(6, 44) - Me.DGTBWH_Markt_Bestellungen.Name = "DGTBWH_Markt_Bestellungen" - Me.DGTBWH_Markt_Bestellungen.ReadOnly = True - Me.DGTBWH_Markt_Bestellungen.RowHeadersVisible = False - Me.DGTBWH_Markt_Bestellungen.Size = New System.Drawing.Size(316, 116) - Me.DGTBWH_Markt_Bestellungen.TabIndex = 1 - Me.DGTBWH_Markt_Bestellungen.Visible = False + Me.DateTimePickerOrderbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DateTimePickerOrderbis.Location = New System.Drawing.Point(220, 11) + Me.DateTimePickerOrderbis.Name = "DateTimePickerOrderbis" + Me.DateTimePickerOrderbis.Size = New System.Drawing.Size(89, 22) + Me.DateTimePickerOrderbis.TabIndex = 1 ' - 'DataGridViewTextBoxColumn15 + 'Label12 ' - Me.DataGridViewTextBoxColumn15.DataPropertyName = "MARKT" - Me.DataGridViewTextBoxColumn15.HeaderText = "Markt" - Me.DataGridViewTextBoxColumn15.Name = "DataGridViewTextBoxColumn15" - Me.DataGridViewTextBoxColumn15.ReadOnly = True - Me.DataGridViewTextBoxColumn15.Width = 220 + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 14) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(63, 13) + Me.Label12.TabIndex = 2 + Me.Label12.Text = "Datum von" ' - 'TBWH_MARKTBindingSource + 'VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator ' - Me.TBWH_MARKTBindingSource.DataMember = "TBWH_MARKT" - Me.TBWH_MARKTBindingSource.DataSource = Me.MyDataset + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.AddNewItem = Nothing + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.BindingSource = Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingSource + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.CountItem = Me.BindingNavigatorCountItem3 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.CountItemFormat = "von {0} Bestellungen" + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.DeleteItem = Nothing + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.tsbRefresh_Bestellungen, Me.tsbExel_bestellungen, Me.tsbtOrderSelectDate}) + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.Location = New System.Drawing.Point(3, 3) + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem3 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem3 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem3 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.Name = "VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator" + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem3 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.Size = New System.Drawing.Size(1269, 25) + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.TabIndex = 0 + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.Text = "BindingNavigator1" ' - 'TBSUPPLY_BESTELLUNGViewBindingNavigator + 'VWSUPPLY_BESTELLUNG_FRONTENDBindingSource ' - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.AddNewItem = Nothing - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.BindingSource = Me.TBSUPPLY_BESTELLUNGViewBindingSource - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.CountItem = Me.BindingNavigatorCountItem3 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.CountItemFormat = "von {0} Bestellungen" - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.DeleteItem = Nothing - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.tsbRefresh_Bestellungen, Me.tsbExel_bestellungen}) - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Location = New System.Drawing.Point(3, 3) - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem3 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem3 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem3 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Name = "TBSUPPLY_BESTELLUNGViewBindingNavigator" - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem3 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Size = New System.Drawing.Size(1269, 25) - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.TabIndex = 0 - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.Text = "BindingNavigator1" + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingSource.AllowNew = False ' 'BindingNavigatorCountItem3 ' @@ -2208,55 +2033,131 @@ Partial Class FMMain Me.tsbExel_bestellungen.Size = New System.Drawing.Size(23, 22) Me.tsbExel_bestellungen.Text = "Export Excel" ' + 'tsbtOrderSelectDate + ' + Me.tsbtOrderSelectDate.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsbtOrderSelectDate.CheckOnClick = True + Me.tsbtOrderSelectDate.Image = CType(resources.GetObject("tsbtOrderSelectDate.Image"), System.Drawing.Image) + Me.tsbtOrderSelectDate.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtOrderSelectDate.Name = "tsbtOrderSelectDate" + Me.tsbtOrderSelectDate.Size = New System.Drawing.Size(146, 22) + Me.tsbtOrderSelectDate.Text = "Datumseinschränkung" + ' 'TabPageBestell_Import ' - Me.TabPageBestell_Import.Controls.Add(Me.chkLogData) Me.TabPageBestell_Import.Controls.Add(Me.DataGridView2) - Me.TabPageBestell_Import.Controls.Add(Me.btnImportBestellungen) + Me.TabPageBestell_Import.Controls.Add(Me.GroupBox10) + Me.TabPageBestell_Import.Controls.Add(Me.GroupBox5) + Me.TabPageBestell_Import.Controls.Add(Me.chkLogData) Me.TabPageBestell_Import.Location = New System.Drawing.Point(4, 22) Me.TabPageBestell_Import.Name = "TabPageBestell_Import" Me.TabPageBestell_Import.Padding = New System.Windows.Forms.Padding(3) Me.TabPageBestell_Import.Size = New System.Drawing.Size(1275, 306) Me.TabPageBestell_Import.TabIndex = 3 - Me.TabPageBestell_Import.Text = "Import Bestellungen-Reports" + Me.TabPageBestell_Import.Text = "Import Reports" Me.TabPageBestell_Import.UseVisualStyleBackColor = True ' - 'chkLogData - ' - Me.chkLogData.AutoSize = True - Me.chkLogData.Location = New System.Drawing.Point(859, 42) - Me.chkLogData.Name = "chkLogData" - Me.chkLogData.Size = New System.Drawing.Size(119, 17) - Me.chkLogData.TabIndex = 3 - Me.chkLogData.Text = "Log Excel cell data" - Me.chkLogData.UseVisualStyleBackColor = True - ' 'DataGridView2 ' Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DataGridView2.Location = New System.Drawing.Point(7, 66) + Me.DataGridView2.Location = New System.Drawing.Point(385, 56) Me.DataGridView2.Name = "DataGridView2" - Me.DataGridView2.Size = New System.Drawing.Size(971, 150) - Me.DataGridView2.TabIndex = 2 + Me.DataGridView2.Size = New System.Drawing.Size(825, 225) + Me.DataGridView2.TabIndex = 7 + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Me.btnImportBestellungen) + Me.GroupBox10.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox10.Location = New System.Drawing.Point(6, 6) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(239, 84) + Me.GroupBox10.TabIndex = 6 + Me.GroupBox10.TabStop = False + Me.GroupBox10.Text = "Bestell-Report" ' 'btnImportBestellungen ' + Me.btnImportBestellungen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnImportBestellungen.Image = Global.SUPPLYWATCH.My.Resources.Resources.fghfgh Me.btnImportBestellungen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnImportBestellungen.Location = New System.Drawing.Point(6, 6) + Me.btnImportBestellungen.Location = New System.Drawing.Point(6, 21) Me.btnImportBestellungen.Name = "btnImportBestellungen" - Me.btnImportBestellungen.Size = New System.Drawing.Size(185, 53) + Me.btnImportBestellungen.Size = New System.Drawing.Size(221, 53) Me.btnImportBestellungen.TabIndex = 1 Me.btnImportBestellungen.Text = "Import Bestellungen" Me.btnImportBestellungen.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnImportBestellungen.UseVisualStyleBackColor = True ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.btnTSR_open) + Me.GroupBox5.Controls.Add(Me.Label22) + Me.GroupBox5.Controls.Add(Me.cmbMandant) + Me.GroupBox5.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox5.Location = New System.Drawing.Point(6, 96) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(239, 133) + Me.GroupBox5.TabIndex = 5 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "Toner Shipment Report" + ' + 'btnTSR_open + ' + Me.btnTSR_open.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTSR_open.Image = Global.SUPPLYWATCH.My.Resources.Resources.fghfgh + Me.btnTSR_open.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTSR_open.Location = New System.Drawing.Point(6, 70) + Me.btnTSR_open.Name = "btnTSR_open" + Me.btnTSR_open.Size = New System.Drawing.Size(221, 53) + Me.btnTSR_open.TabIndex = 4 + Me.btnTSR_open.Text = "Auswahl Datei und Start" + Me.btnTSR_open.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTSR_open.UseVisualStyleBackColor = True + ' + 'Label22 + ' + Me.Label22.AutoSize = True + Me.Label22.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label22.Location = New System.Drawing.Point(6, 23) + Me.Label22.Name = "Label22" + Me.Label22.Size = New System.Drawing.Size(116, 13) + Me.Label22.TabIndex = 7 + Me.Label22.Text = "Mandant auswählen:" + ' + 'cmbMandant + ' + Me.cmbMandant.DataSource = Me.TBMANDANTENBindingSource + Me.cmbMandant.DisplayMember = "NAME" + Me.cmbMandant.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbMandant.FormattingEnabled = True + Me.cmbMandant.Location = New System.Drawing.Point(6, 39) + Me.cmbMandant.Name = "cmbMandant" + Me.cmbMandant.Size = New System.Drawing.Size(179, 21) + Me.cmbMandant.TabIndex = 6 + Me.cmbMandant.ValueMember = "GUID" + ' + 'TBMANDANTENBindingSource + ' + Me.TBMANDANTENBindingSource.DataMember = "TBMANDANTEN" + Me.TBMANDANTENBindingSource.DataSource = Me.MyDataset + ' + 'chkLogData + ' + Me.chkLogData.AutoSize = True + Me.chkLogData.Location = New System.Drawing.Point(385, 22) + Me.chkLogData.Name = "chkLogData" + Me.chkLogData.Size = New System.Drawing.Size(103, 17) + Me.chkLogData.TabIndex = 3 + Me.chkLogData.Text = "Detail-Logging" + Me.chkLogData.UseVisualStyleBackColor = True + ' 'DataGridView3 ' Me.DataGridView3.AllowUserToAddRows = False Me.DataGridView3.AllowUserToDeleteRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan - Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan + Me.DataGridView3.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.DataGridView3.AutoGenerateColumns = False Me.DataGridView3.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView3.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MELDEDATUMDataGridViewTextBoxColumn1, Me.SUPPLYLEVELDataGridViewTextBoxColumn, Me.STATUSDataGridViewTextBoxColumn1, Me.ERFASSTWANNDataGridViewTextBoxColumn1}) @@ -2635,8 +2536,8 @@ Partial Class FMMain ' Me.TBWH_STATUSFILTERDataGridView.AllowUserToAddRows = False Me.TBWH_STATUSFILTERDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.Fuchsia - Me.TBWH_STATUSFILTERDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Fuchsia + Me.TBWH_STATUSFILTERDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.TBWH_STATUSFILTERDataGridView.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TBWH_STATUSFILTERDataGridView.AutoGenerateColumns = False @@ -3087,8 +2988,8 @@ Partial Class FMMain ' Me.TBCHANGE_LOG_GERAETDataGridView.AllowUserToAddRows = False Me.TBCHANGE_LOG_GERAETDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan - Me.TBCHANGE_LOG_GERAETDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan + Me.TBCHANGE_LOG_GERAETDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.TBCHANGE_LOG_GERAETDataGridView.AutoGenerateColumns = False Me.TBCHANGE_LOG_GERAETDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBCHANGE_LOG_GERAETDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn4, Me.ERFASSTWANN}) @@ -3238,8 +3139,8 @@ Partial Class FMMain Me.VWSUPPLIES_AKTUELLDataGridView.AllowUserToAddRows = False Me.VWSUPPLIES_AKTUELLDataGridView.AllowUserToDeleteRows = False Me.VWSUPPLIES_AKTUELLDataGridView.AllowUserToOrderColumns = True - DataGridViewCellStyle5.BackColor = System.Drawing.Color.Yellow - Me.VWSUPPLIES_AKTUELLDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.Yellow + Me.VWSUPPLIES_AKTUELLDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.VWSUPPLIES_AKTUELLDataGridView.AutoGenerateColumns = False Me.VWSUPPLIES_AKTUELLDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.VWSUPPLIES_AKTUELLDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.VWSUPPLIES_AKTUELLDataGridViewSupplyID, Me.DataGridViewTextBoxColumn38, Me.DataGridViewTextBoxColumn39, Me.DataGridViewTextBoxColumn40, Me.DataGridViewTextBoxColumn41, Me.DataGridViewTextBoxColumn42, Me.DataGridViewTextBoxColumn44, Me.DataGridViewTextBoxColumn50, Me.DataGridViewTextBoxColumn49, Me.VWSUPPLIES_AKTUELLDataGridViewOnHold, Me.DataGridViewTextBoxColumn51, Me.DataGridViewTextBoxColumn45, Me.DataGridViewTextBoxColumn46, Me.DataGridViewTextBoxColumn47}) @@ -3358,8 +3259,8 @@ Partial Class FMMain ' Me.DataGridView1.AllowUserToAddRows = False Me.DataGridView1.AllowUserToDeleteRows = False - DataGridViewCellStyle6.BackColor = System.Drawing.Color.Lime - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle5.BackColor = System.Drawing.Color.Lime + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5 Me.DataGridView1.AutoGenerateColumns = False Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.MeldedatumDataGridViewTextBoxColumn, Me.StatusDataGridViewTextBoxColumn, Me.MarkerDataGridViewTextBoxColumn, Me.ErfasstWannDataGridViewTextBoxColumn}) @@ -3741,7 +3642,7 @@ Partial Class FMMain ' 'tscmbaktiv ' - Me.tscmbaktiv.Items.AddRange(New Object() {"Nur aktive Geräte", "Inaktive Geräte"}) + Me.tscmbaktiv.Items.AddRange(New Object() {"Nur aktive Geräte", "Inaktive Geräte", "Abgebaute Geräte"}) Me.tscmbaktiv.Name = "tscmbaktiv" Me.tscmbaktiv.Size = New System.Drawing.Size(121, 25) ' @@ -4013,8 +3914,8 @@ Partial Class FMMain ' Me.DGVTBWH_MARKT_VF.AllowUserToAddRows = False Me.DGVTBWH_MARKT_VF.AllowUserToDeleteRows = False - DataGridViewCellStyle7.BackColor = System.Drawing.Color.Cyan - Me.DGVTBWH_MARKT_VF.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.Cyan + Me.DGVTBWH_MARKT_VF.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.DGVTBWH_MARKT_VF.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -4038,6 +3939,11 @@ Partial Class FMMain Me.clmMarkt.ReadOnly = True Me.clmMarkt.Width = 220 ' + 'TBWH_MARKTBindingSource + ' + Me.TBWH_MARKTBindingSource.DataMember = "TBWH_MARKT" + Me.TBWH_MARKTBindingSource.DataSource = Me.MyDataset + ' 'tsbtnSupplyverfolgung ' Me.tsbtnSupplyverfolgung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton30, Me.ToolStripButton10, Me.tsProgressBar, Me.tslbl_Files, Me.tsbtnManaulOrders, Me.tsbtnAbbrechen, Me.ToolStripDropDownButton1, Me.ToolStripSeparator4, Me.tsbtnNAchverfolgung, Me.ToolStripSeparator10, Me.ToolStripLabel3, Me.cmbMandanten}) @@ -4200,8 +4106,8 @@ Partial Class FMMain ' 'TBSTATUSDataGridView ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.Aqua - Me.TBSTATUSDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.Aqua + Me.TBSTATUSDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.TBSTATUSDataGridView.AutoGenerateColumns = False Me.TBSTATUSDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBSTATUSDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.statusBezeichnung, Me.StatusBeschreibung, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.Statusgeaendertwer, Me.DataGridViewTextBoxColumn8}) @@ -4385,8 +4291,8 @@ Partial Class FMMain 'TBSUPPLY_DEFINITIONDataGridView ' Me.TBSUPPLY_DEFINITIONDataGridView.AllowUserToOrderColumns = True - DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.TBSUPPLY_DEFINITIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.TBSUPPLY_DEFINITIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.TBSUPPLY_DEFINITIONDataGridView.AutoGenerateColumns = False Me.TBSUPPLY_DEFINITIONDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBSUPPLY_DEFINITIONDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn20, Me.DataGridViewTextBoxColumn26, Me.SUPPLY_NAME_DATEI, Me.DataGridViewTextBoxColumn28, Me.DataGridViewTextBoxColumn30, Me.DataGridViewTextBoxColumn31, Me.DataGridViewTextBoxColumn32}) @@ -4604,17 +4510,12 @@ Partial Class FMMain Me.FILTERTextBox.Size = New System.Drawing.Size(409, 22) Me.FILTERTextBox.TabIndex = 21 ' - 'TBMANDANTENBindingSource - ' - Me.TBMANDANTENBindingSource.DataMember = "TBMANDANTEN" - Me.TBMANDANTENBindingSource.DataSource = Me.MyDataset - ' 'TBMANDANTENDataGridView ' Me.TBMANDANTENDataGridView.AllowUserToAddRows = False Me.TBMANDANTENDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle10.BackColor = System.Drawing.Color.Cyan - Me.TBMANDANTENDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle9.BackColor = System.Drawing.Color.Cyan + Me.TBMANDANTENDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 Me.TBMANDANTENDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -6290,6 +6191,11 @@ Partial Class FMMain ' Me.VWSUPPLIES_2_ORDERTableAdapter.ClearBeforeFill = True ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + Me.OpenFileDialog1.RestoreDirectory = True + ' 'FMMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -6339,19 +6245,22 @@ Partial Class FMMain Me.BindingNavigator4.PerformLayout() Me.tpBestellungen.ResumeLayout(False) Me.tpBestellungen.PerformLayout() + Me.pnlGridOrders.ResumeLayout(False) CType(Me.GridControlBestellungen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBSUPPLY_BESTELLUNGViewBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridViewBestellUebersicht, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox6.ResumeLayout(False) - Me.GroupBox6.PerformLayout() - CType(Me.DGTBWH_Markt_Bestellungen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBWH_MARKTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBSUPPLY_BESTELLUNGViewBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.ResumeLayout(False) - Me.TBSUPPLY_BESTELLUNGViewBindingNavigator.PerformLayout() + Me.pnlOrderDateSelector.ResumeLayout(False) + Me.pnlOrderDateSelector.PerformLayout() + CType(Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.ResumeLayout(False) + Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator.PerformLayout() + CType(Me.VWSUPPLY_BESTELLUNG_FRONTENDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPageBestell_Import.ResumeLayout(False) Me.TabPageBestell_Import.PerformLayout() CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.TBMANDANTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DataGridView3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWSUPPLY_VERFOLGUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit() @@ -6420,6 +6329,7 @@ Partial Class FMMain Me.GroupBox7.ResumeLayout(False) Me.GroupBox7.PerformLayout() CType(Me.DGVTBWH_MARKT_VF, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_MARKTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.tsbtnSupplyverfolgung.ResumeLayout(False) Me.tsbtnSupplyverfolgung.PerformLayout() Me.tpEinstellungen.ResumeLayout(False) @@ -6441,7 +6351,6 @@ Partial Class FMMain Me.TBSUPPLY_DEFINITIONBindingNavigator.PerformLayout() Me.GroupBox12.ResumeLayout(False) Me.GroupBox12.PerformLayout() - CType(Me.TBMANDANTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBMANDANTENDataGridView, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBMANDANTENBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBMANDANTENBindingNavigator.ResumeLayout(False) @@ -6654,11 +6563,7 @@ Partial Class FMMain Friend WithEvents TBWH_STATUS5TableAdapter As SUPPLYWATCH.MyDatasetTableAdapters.TBWH_STATUS5TableAdapter Friend WithEvents tsborders As System.Windows.Forms.ToolStripButton Friend WithEvents tpBestellungen As System.Windows.Forms.TabPage - Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox - Friend WithEvents chbFilterMarkt_Bestellungen As System.Windows.Forms.CheckBox - Friend WithEvents DGTBWH_Markt_Bestellungen As System.Windows.Forms.DataGridView - Friend WithEvents DataGridViewTextBoxColumn15 As System.Windows.Forms.DataGridViewTextBoxColumn - Friend WithEvents TBSUPPLY_BESTELLUNGViewBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents VWSUPPLY_BESTELLUNG_FRONTENDBindingNavigator As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorCountItem3 As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorMoveFirstItem3 As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorMovePreviousItem3 As System.Windows.Forms.ToolStripButton @@ -6669,7 +6574,7 @@ Partial Class FMMain Friend WithEvents BindingNavigatorMoveLastItem3 As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator11 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbRefresh_Bestellungen As System.Windows.Forms.ToolStripButton - Friend WithEvents TBSUPPLY_BESTELLUNGViewBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWSUPPLY_BESTELLUNG_FRONTENDBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBSUPPLY_BESTELLUNGViewTableAdapter As SUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLY_BESTELLUNG_FRONTENDTableAdapter Friend WithEvents tsbexcel_geraete As System.Windows.Forms.ToolStripButton Friend WithEvents tsbExcel_Supplies As System.Windows.Forms.ToolStripButton @@ -6691,11 +6596,6 @@ Partial Class FMMain Friend WithEvents chkbDatumfilter As System.Windows.Forms.CheckBox Friend WithEvents VWSUPPLY_VERFOLGUNGBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWSUPPLY_VERFOLGUNGTableAdapter As SUPPLYWATCH.MyDatasetTableAdapters.VWSUPPLY_VERFOLGUNGTableAdapter - Friend WithEvents chkbDatumfilterOrder As System.Windows.Forms.CheckBox - Friend WithEvents dtpOrder_bis As System.Windows.Forms.DateTimePicker - Friend WithEvents Label12 As System.Windows.Forms.Label - Friend WithEvents dtpOrder_von As System.Windows.Forms.DateTimePicker - Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Friend WithEvents txtConfigPath As System.Windows.Forms.TextBox Friend WithEvents TabPage1 As System.Windows.Forms.TabPage @@ -6876,7 +6776,6 @@ Partial Class FMMain Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel Friend WithEvents cmbMandanten As System.Windows.Forms.ToolStripComboBox - Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView Private WithEvents rptViewerBestellungen As Microsoft.Reporting.WinForms.ReportViewer Friend WithEvents tsbtnChangelog As System.Windows.Forms.ToolStripButton Friend WithEvents TBCHANGE_LOG_GERAETBindingSource As System.Windows.Forms.BindingSource @@ -6975,17 +6874,6 @@ Partial Class FMMain Friend WithEvents tsbtnSet2BestelltManually As System.Windows.Forms.ToolStripButton Friend WithEvents GridControlBestellungen As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewBestellUebersicht As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colBestellID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGERAET1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSERIEN_NR1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSUPPLY_BEZEICHNUNG1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMENGE1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colBESTELLNR As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMARKT1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMANUELL1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colBESTELLT_WANN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colBESTELLT_WER1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colFILE_ORDER_CONFIRM As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents GridControlGeraete As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewGeraete As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents GUID As DevExpress.XtraGrid.Columns.GridColumn @@ -7082,9 +6970,7 @@ Partial Class FMMain Friend WithEvents colGUI_SELECTED As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents chkLogData As System.Windows.Forms.CheckBox - Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents SplitContainerGeraet As DevExpress.XtraEditors.SplitContainerControl - Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator Friend WithEvents BindingNavigatorCountItem7 As System.Windows.Forms.ToolStripLabel Friend WithEvents BindingNavigatorMoveFirstItem7 As System.Windows.Forms.ToolStripButton @@ -7104,5 +6990,20 @@ Partial Class FMMain Friend WithEvents tsbtnManaulOrders As ToolStripButton Friend WithEvents ToolStripSeparator4 As ToolStripSeparator Friend WithEvents colMENGE2 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMENGE_ORIGIN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents btnTSR_open As Button + Friend WithEvents OpenFileDialog1 As OpenFileDialog + Friend WithEvents GroupBox5 As GroupBox + Friend WithEvents cmbMandant As ComboBox + Friend WithEvents Label22 As Label + Friend WithEvents GroupBox10 As GroupBox + Friend WithEvents DataGridView2 As DataGridView + Friend WithEvents tsbtOrderSelectDate As ToolStripButton + Friend WithEvents pnlGridOrders As Panel + Friend WithEvents pnlOrderDateSelector As Panel + Friend WithEvents Label13 As Label + Friend WithEvents DateTimePickerOrdervon As DateTimePicker + Friend WithEvents DateTimePickerOrderbis As DateTimePicker + Friend WithEvents Label12 As Label + Friend WithEvents Panel1 As Panel + Friend WithEvents Panel2 As Panel End Class diff --git a/Supplywatch/FMMain.resx b/Supplywatch/FMMain.resx index 981d394..7a8be7f 100644 --- a/Supplywatch/FMMain.resx +++ b/Supplywatch/FMMain.resx @@ -166,16 +166,16 @@ False - 543, 290 + 277, 329 824, 17 - 922, 251 + 508, 290 - 17, 290 + 976, 290 444, 17 @@ -219,10 +219,10 @@ - 1303, 173 + 734, 212 - 505, 641 + 844, 680 191, 17 @@ -268,10 +268,10 @@ - 975, 602 + 17, 680 - 351, 641 + 690, 680 @@ -313,14 +313,11 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - 881, 329 + + 17, 56 - - 17, 251 - - - 812, 173 + + 719, 134 @@ -362,11 +359,22 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABmSURBVDhPrc5BCoAwDERRz5YD26Opm2wrESZIm9aMWvgk + Wny4qGr90gWIyKv+B/btCLO7shZ/tp0GgOBjiwbaOoDNAWQvoz+IcgDnDjxN7EMg0xSIJkoBbTQQTZQC + Mg0Bpg7g03oCWsjBUV6taqgAAAAASUVORK5CYII= + + + + 533, 602 + - 750, 368 + 292, 407 - 821, 602 + 1084, 641 @@ -409,13 +417,13 @@ - 826, 212 + 287, 251 - 958, 95 + 230, 134 - 825, 56 + 17, 95 @@ -458,16 +466,16 @@ - 1116, 173 + 547, 212 True - 706, 563 + 967, 602 - 1012, 641 + 17, 719 @@ -510,13 +518,13 @@ - 431, 251 + 17, 290 - 17, 602 + 280, 641 - 667, 602 + 930, 641 @@ -559,7 +567,7 @@ - 17, 173 + 1057, 173 @@ -602,7 +610,7 @@ - 622, 56 + 1207, 56 @@ -645,10 +653,10 @@ - 17, 212 + 877, 212 - 461, 524 + 641, 563 @@ -690,14 +698,17 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + 885, 251 + - 328, 134 + 17, 173 - 504, 134 + 193, 173 - 1221, 212 + 682, 251 @@ -743,10 +754,10 @@ True - 228, 446 + 228, 485 - 915, 134 + 604, 173 @@ -788,11 +799,8 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - 272, 563 - - 508, 95 + 1157, 95 @@ -850,25 +858,25 @@ 934, 17 - 449, 329 + 230, 368 - 17, 329 + 1228, 329 - 17, 95 + 666, 95 - 1042, 56 + 234, 95 - 190, 56 + 775, 56 - 734, 446 + 734, 485 - 17, 134 + 1054, 134 @@ -911,13 +919,13 @@ - 1233, 407 + 1031, 446 - 1291, 368 + 833, 407 - 690, 134 + 379, 173 @@ -960,10 +968,10 @@ - 219, 407 + 17, 446 - 236, 95 + 885, 95 @@ -1013,7 +1021,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAA2 - CwAAAk1TRnQBSQFMAgEBAwEAAYgBIQGIASEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CwAAAk1TRnQBSQFMAgEBAwEAAdgBIwHYASMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1064,160 +1072,163 @@ - 17, 368 + 944, 368 - 17, 485 + 17, 524 587, 17 - 1174, 17 + 368, 56 - 17, 56 + 602, 56 - 409, 56 + 994, 56 - 1261, 56 + 453, 95 - 745, 95 + 17, 134 - 1205, 95 + 477, 134 - 1187, 134 + 876, 173 - 282, 173 + 17, 212 - 550, 173 + 285, 212 - 281, 212 + 1141, 212 - 556, 212 + 17, 251 - 1026, 212 + 487, 251 - 227, 251 + 1095, 251 - 679, 251 + 265, 290 - 1159, 251 + 745, 290 - 283, 290 + 17, 329 - 829, 290 + 563, 329 - 1110, 290 + 844, 329 - 1305, 290 + 1039, 329 - 236, 329 + 17, 368 - 668, 329 + 449, 368 - 1168, 329 + 662, 368 - 249, 368 + 1176, 368 - 475, 368 - - - 1023, 368 - - 17, 407 + + 565, 407 + + + 1041, 407 + - 474, 407 + 272, 446 - 723, 407 + 521, 446 - 981, 407 + 779, 446 - 17, 446 + 17, 485 - 484, 446 + 484, 485 - 1028, 446 + 1028, 485 - 332, 485 + 332, 524 - 641, 485 + 641, 524 - 767, 485 + 767, 524 - 1023, 485 + 1023, 524 - 1273, 485 - - - 17, 524 - - - 242, 524 - - - 709, 524 - - - 951, 524 - - - 1132, 524 - - 17, 563 + + 197, 563 + + + 422, 563 + + + 889, 563 + + + 1131, 563 + + + 17, 602 + + + 278, 602 + - 492, 563 + 753, 602 - 975, 563 - - - 345, 602 - - 17, 641 + + 608, 641 + + + 356, 680 + - 761, 641 + 1100, 680 + + + 171, 719 - 208 + 187 diff --git a/Supplywatch/FMMain.vb b/Supplywatch/FMMain.vb index 0d2237c..2b2b76c 100644 --- a/Supplywatch/FMMain.vb +++ b/Supplywatch/FMMain.vb @@ -3,6 +3,7 @@ Imports Excel = Microsoft.Office.Interop.Excel Imports System.ComponentModel Imports System.Data.SqlClient Imports System.IO +Imports System.Data.OleDb Public Class FMMain Dim FormLoaded As Boolean = False @@ -43,7 +44,7 @@ Public Class FMMain Try Me.tscmbaktiv.SelectedIndex = 0 'IP-Adresse-Auslesen - Dim Addresslist() As IPAddress = _ + Dim Addresslist() As IPAddress = Dns.GetHostEntry(Dns.GetHostName()).AddressList Dim IPs As IPAddress For Each IPs In Addresslist @@ -141,7 +142,7 @@ Public Class FMMain Load_Datagrid(TBSTATUSDataGridView, "TBSTATUSDataGridView") Load_Datagrid(VWSUPPLIES_AKTUELLDataGridView, "VWSUPPLIES_AKTUELLDataGridView") Load_Datagrid(TBWH_STATUSFILTERDataGridView, "TBWH_STATUSFILTERDataGridView") - Load_Datagrid(DGTBWH_Markt_Bestellungen, "DGTBWH_Markt_Bestellungen") + Load_Datagrid(TBSUPPLY_DEFINITIONDataGridView, "TBSUPPLY_DEFINITIONDataGridView") Load_GridLayout_BestGesendet() Load_GridLayout_Bestuebersicht() @@ -173,7 +174,7 @@ Public Class FMMain Save_Datagrid(VWSUPPLIES_AKTUELLDataGridView, "VWSUPPLIES_AKTUELLDataGridView") Save_Datagrid(TBSTATUSDataGridView, "TBSTATUSDataGridView") Save_Datagrid(TBWH_STATUSFILTERDataGridView, "TBWH_STATUSFILTERDataGridView") - Save_Datagrid(DGTBWH_Markt_Bestellungen, "DGTBWH_Markt_Bestellungen") + Save_Datagrid(TBSUPPLY_DEFINITIONDataGridView, "TBSUPPLY_DEFINITIONDataGridView") Save_GridLayout_BestGesendet() Save_GridLayout_Bestuebersicht() @@ -402,13 +403,28 @@ Public Class FMMain cmbMandanten.BackColor = Color.White Me.Cursor = Cursors.WaitCursor - Dim aktiv As Boolean If Me.tscmbaktiv.SelectedIndex = 0 Then - aktiv = 1 + FILTER_DEVICE = "" + Else - aktiv = 0 + FILTER_DEVICE = tscmbaktiv.Text + End If - Me.TBGERAETTableAdapter.Fill(Me.MyDataset.TBGERAET, aktiv, mandant_id) + Select Case Me.tscmbaktiv.Text + Case "Nur aktive Geräte" + Me.TBGERAETTableAdapter.Fill(Me.MyDataset.TBGERAET, True, mandant_id) + Case "Inaktive Geräte" + Me.TBGERAETTableAdapter.Fill(Me.MyDataset.TBGERAET, False, mandant_id) + Case "Abgebaute Geräte" + Me.TBGERAETTableAdapter.FillByAbgebaut1(Me.MyDataset.TBGERAET, mandant_id) + End Select + + + + + + + Me.MyDataset.VWSUPPLIES_AKTUELL.Clear() Else @@ -540,7 +556,7 @@ Public Class FMMain Gesamtfiles = 0 Dim diPfad As New IO.DirectoryInfo(pathBestellungen) For Each file As IO.FileInfo In diPfad.GetFiles() - If file.Name.ToUpper.EndsWith(".XLS") Then + If (file.Name.ToUpper.Contains("_BESTELLUNG_") And file.Name.ToUpper.EndsWith(".XLS")) Or (file.Name.ToUpper.Contains("_BESTELLUNG_") And file.Name.ToUpper.EndsWith(".XLSX")) Then Gesamtfiles = Gesamtfiles + 1 End If Next @@ -552,240 +568,359 @@ Public Class FMMain End If End Sub Private Sub bwBestellungen_verarbeiten_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) - Dim diPfad As New IO.DirectoryInfo(pathBestellungen) - Dim Progress As Integer = 0 - Dim Counter As Integer = 0 - For Each file As IO.FileInfo In diPfad.GetFiles() - ' Dim vDatum As String = "" - If file.Name.ToUpper.EndsWith(".XLS") Then - Anzahl_Dateien = Anzahl_Dateien + 1 - Progress += 25 - 'bwXMLverarbeiten.ReportProgress(Progress) - 'Dim str As String = file.Name - ''1106271' - 'vDatum = file.Name.Substring(4, 2) & "." & file.Name.Substring(2, 2) & ".20" & file.Name.Substring(0, 2) + Try + Dim _errorsOrders As String = "" + Dim diPfad As New IO.DirectoryInfo(pathBestellungen) + Dim Progress As Integer = 0 + Dim Counter As Integer = 0 + ClassLoggerSW.Init("", "Supply_Watch", False) - 'MsgBox(vDatum & vbNewLine & file.FullName) - Dim _DS As New DataSet - 'Datei auslesen und Dataset rückgeben lassen - _DS = XLSReader(file.FullName, file.Name) - If _DS Is Nothing Then - MsgBox("Datei: " & vbNewLine & file.FullName & vbNewLine & " wurde nicht verarbeitet!", MsgBoxStyle.Exclamation, "Achtung:") - Anzahl_Dateien = Anzahl_Dateien - 1 - Else - 'MsgBox("Anzahl: " & _DS.Tables(0).Rows.Count & vbNewLine & "Hier müssten jetzt die Updates erfolgen") - Dim DT As System.Data.DataTable - Dim DR As System.Data.DataRow - ' Dim DC As System.Data.DataColumn - '' --- DataSet zuweisen - 'DS = Me.MyDataset - '' --- Zugriff auf Tabelle - DT = _DS.Tables(0) - Dim idxGeraet, idxSerial, idxVertrag, idxMarkt, idxSupplyID As Integer + For Each file As IO.FileInfo In diPfad.GetFiles() + ' Dim vDatum As String = "" + If (file.Name.ToUpper.Contains("_BESTELLUNG_") And file.Name.ToUpper.EndsWith(".XLS")) Or (file.Name.ToUpper.Contains("_BESTELLUNG_") And file.Name.ToUpper.EndsWith(".XLSX")) Then + Anzahl_Dateien = Anzahl_Dateien + 1 + Progress += 25 + 'bwXMLverarbeiten.ReportProgress(Progress) + 'Dim str As String = file.Name + ''1106271' + 'vDatum = file.Name.Substring(4, 2) & "." & file.Name.Substring(2, 2) & ".20" & file.Name.Substring(0, 2) - Dim _gerät, _markt, _seriennr, _Supply, _Part As String - Dim _VAS - Dim _BestellSupplyID As String - Dim _SupplyID As Integer - Dim _BestellID As Integer - Dim _returnvalueGeraet, _returnvalueSerial, _returnvalueSupplyID, _returnvalueVAS As Type - 'Überprüfen wie die Datei aufgebaut/bearbeitet wurde? - Dim RowIndex = 0 - Dim GeraetebezeichnungHook - Dim GeraetebezeichnungHook1 - - For Each DR In DT.Rows - _VAS = Nothing - idxGeraet = 99 - - If RowIndex >= 5 Then - GeraetebezeichnungHook = DR.Item(0) - GeraetebezeichnungHook1 = DR.Item(1) - If GeraetebezeichnungHook.GetType.ToString <> "System.DBNull" Then - If GeraetebezeichnungHook = "Gerätebezeichnung" Then - idxGeraet = 0 - End If - Else - If GeraetebezeichnungHook1.GetType.ToString <> "System.DBNull" Then - If GeraetebezeichnungHook1 = "Gerätebezeichnung" Then - GeraetebezeichnungHook = "Gerätebezeichnung" - idxGeraet = 1 - End If - End If - End If - End If - - 'Dim Rowstring = DR.Item(0) - 'Dim Rowstring1 = DR.Item(1) - 'If Rowstring.GetType.ToString <> "System.DBNull" Then - ' If Rowstring.ToString.StartsWith("HP") Then - ' idxGeraet = 0 - ' End If - 'Else - ' If Rowstring1.GetType.ToString <> "System.DBNull" Then - ' Rowstring = Rowstring1 - ' End If - - 'End If - - 'If DR.Item(1).GetType.ToString <> "System.DBNull" Then - ' If Rowstring.ToString.StartsWith("HP") Then - ' idxGeraet = 1 - ' End If - 'End If - If idxGeraet < 99 Then - Exit For - End If - - RowIndex += 1 - Next - If idxGeraet = 99 Then - MsgBox("In der Datei konnte keine gültige Devicedefinition gefunden werden!", MsgBoxStyle.Exclamation) + 'MsgBox(vDatum & vbNewLine & file.FullName) + Dim _DS As New DataSet + 'Datei auslesen und Dataset rückgeben lassen + _DS = XLSReader(file.FullName, "RptOrder_Supplies") + If _DS Is Nothing Then + MsgBox("Datei: " & vbNewLine & file.Name & vbNewLine & " wurde nicht verarbeitet!" & vbNewLine & "Prüfen Sie ob der Name des Tabellenblattes RptOrder_Supplies ist?!", MsgBoxStyle.Exclamation, "Achtung:") + Anzahl_Dateien = Anzahl_Dateien - 1 Else - If GeraetebezeichnungHook = "Gerätebezeichnung" Then - End If - Dim zaehler As Integer = 0 - For Each DR In DT.Rows - _gerät = "" - _seriennr = "" - _markt = "" - _SupplyID = 0 - _BestellSupplyID = "" - _BestellID = 0 - _Supply = "" - 'If zaehler >= 6 Then - ' MsgBox("_gerät " & DR.Item(1) & vbNewLine & _ - '"_seriennr " & DR.Item(2) & vbNewLine & _ - ' "_markt: " & DR.Item(4) & vbNewLine & _ - ' "_SupplyID: " & DR.Item(5)) - 'End If - _returnvalueGeraet = DR.Item(idxGeraet).GetType() - _returnvalueSerial = DR.Item(idxGeraet + 1).GetType() - _returnvalueSupplyID = DR.Item(idxGeraet + 4).GetType() - _returnvalueVAS = DR.Item(idxGeraet + 9).GetType() - If _returnvalueGeraet.ToString <> "System.DBNull" Then - If _returnvalueSerial.ToString <> "System.DBNull" Then - If _returnvalueSupplyID.ToString <> "System.DBNull" And _returnvalueVAS.ToString <> "System.DBNull" Then - Dim Device = DR.Item(idxGeraet) - If CStr(Device) <> "Gerätebezeichnung" Then '.StartsWith("HP") Then - _gerät = DR.Item(idxGeraet) - _seriennr = DR.Item(idxGeraet + 1) - _markt = DR.Item(idxGeraet + 3) - _BestellSupplyID = RTrim(LTrim(DR.Item(idxGeraet + 4))) - '_SupplyID = DR.Item(idxGeraet + 4) - _Supply = DR.Item(idxGeraet + 5) - _VAS = RTrim(LTrim(DR.Item(idxGeraet + 9).ToString)).ToString.Replace(" ", "") - _VAS = _VAS.Replace(vbCr, "").Replace(vbLf, "") - _VAS = _VAS.ToString.Where(Function(x) Not Char.IsWhiteSpace(x)).ToArray() - ' Convert to String data. - Dim value As New String(_VAS) - _VAS = value - If chkLogData.Checked Then - Dim msg = "Device: '" & _gerät & "'" & vbNewLine & - "Serial: '" & _seriennr & "'" & vbNewLine & - "Markt: '" & _markt & "'" & vbNewLine & - "OrderSupplyID: '" & _BestellSupplyID & "'" & vbNewLine & - "Supply: '" & _gerät & "'" & vbNewLine & - "VAS#: '" & _VAS & "'" - ClassLogger.Add(msg, False) + 'MsgBox("Anzahl: " & _DS.Tables(0).Rows.Count & vbNewLine & "Hier müssten jetzt die Updates erfolgen") + Dim DT As System.Data.DataTable + Dim DR As System.Data.DataRow + ' Dim DC As System.Data.DataColumn + '' --- DataSet zuweisen + 'DS = Me.MyDataset + '' --- Zugriff auf Tabelle + DT = _DS.Tables(0) + If DT.Rows.Count > 0 Then + Dim idxGeraet, idxSerial, idxVertrag, idxMarkt, idxSupplyID As Integer + + Dim _gerät, _markt, _seriennr, _Supply, _Part, _Anzahl As String + Dim _VAS As String + Dim _BestellSupplyID As String + Dim _SupplyID As Integer + Dim _BestellID + Dim _returnvalueGeraet, _returnvalueSerial, _returnvalueSupplyID, _returnValueCount, _returnvalueVAS As Type + 'Überprüfen wie die Datei aufgebaut/bearbeitet wurde? + Dim RowIndex = 0 + Dim GeraetebezeichnungHook + Dim GeraetebezeichnungHook1 + + For Each DR In DT.Rows + _VAS = Nothing + idxGeraet = 99 + + If RowIndex >= 5 Then + GeraetebezeichnungHook = DR.Item(0) + GeraetebezeichnungHook1 = DR.Item(1) + If GeraetebezeichnungHook.GetType.ToString <> "System.DBNull" Then + If GeraetebezeichnungHook = "Gerätebezeichnung" Then + idxGeraet = 0 + End If + Else + If GeraetebezeichnungHook1.GetType.ToString <> "System.DBNull" Then + If GeraetebezeichnungHook1 = "Gerätebezeichnung" Then + GeraetebezeichnungHook = "Gerätebezeichnung" + idxGeraet = 1 End If - If _BestellSupplyID.StartsWith("#2") Then 'reguläre Bestellung kommt zurück - _SupplyID = _BestellSupplyID.Replace("#2", "") - Dim sql = String.Format("SELECT ISNULL(MAX(GUID), 0) FROM TBSUPPLY_BESTELLUNG WHERE (SUPPLY_ID = {0})", _SupplyID) - _BestellID = ClassDatabase.Execute_Scalar(sql, True) - ElseIf _BestellSupplyID.StartsWith("#1") Then 'manuelle Bestellung kommt zurück - _BestellID = _BestellSupplyID.Replace("#1", "") - End If - - 'Dim GUID As Integer = TBSUPPLY_BESTELLUNGViewTableAdapter.cmdgetID_ORDER_SUPPLYID(_SupplyID) - 'MsgBox(GUID) - If _BestellID <> 0 Then - If _VAS <> String.Empty Then - Try - Dim vasint = CInt(_VAS) - Catch ex As Exception - If _VAS.ToLower.StartsWith("pa") Then - - Else - MsgBox("Achtung:" & vbNewLine & "Die Bestellnummer '" & _VAS & "' entspricht nicht den Vorgaben. (Numerisch oder beginnend mit 'PA')") - Continue For - End If - End Try - Dim upd - Try - upd = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLNR = '{0}', FILE_ORDER_CONFIRM = '{1}' WHERE GUID = {2}", _VAS, file.Name, _BestellID) - - If ClassDatabase.Execute_non_Query(upd, True) = True Then - Counter = Counter + 1 - End If - Catch ex As Exception - MsgBox("Error in update Bestellnr:" & vbNewLine & ex.Message & vbNewLine & "Command copied to clipboard", MsgBoxStyle.Critical) - My.Computer.Clipboard.SetText(upd) - End Try - - 'TBSUPPLY_BESTELLUNGViewTableAdapter.cmdUpdateVAS(_VAS, file.Name, GUID) - Else - MsgBox("Achtung:" & vbNewLine & "Es liegt keine Bestellnummer für die Supply-ID: " & _SupplyID & " vor.") - End If - End If - Else - ClassLoggerSW.Add(">> Device is not defined for OrderImport: '" & Device & "'", False) End If End If End If + + 'Dim Rowstring = DR.Item(0) + 'Dim Rowstring1 = DR.Item(1) + 'If Rowstring.GetType.ToString <> "System.DBNull" Then + ' If Rowstring.ToString.StartsWith("HP") Then + ' idxGeraet = 0 + ' End If + 'Else + ' If Rowstring1.GetType.ToString <> "System.DBNull" Then + ' Rowstring = Rowstring1 + ' End If + + 'End If + + 'If DR.Item(1).GetType.ToString <> "System.DBNull" Then + ' If Rowstring.ToString.StartsWith("HP") Then + ' idxGeraet = 1 + ' End If + 'End If + If idxGeraet < 99 Then + Exit For + End If + + RowIndex += 1 + Next + If idxGeraet = 99 Then + MsgBox("In der Datei konnte keine gültige Devicedefinition gefunden werden!", MsgBoxStyle.Exclamation) + Else + If GeraetebezeichnungHook = "Gerätebezeichnung" Then + + End If + Dim zaehler As Integer = 0 + For Each DR In DT.Rows + _gerät = "" + _seriennr = "" + _markt = "" + _SupplyID = 0 + _BestellSupplyID = "" + _BestellID = 0 + _Supply = "" + _Anzahl = "1" + 'If zaehler >= 6 Then + ' MsgBox("_gerät " & DR.Item(1) & vbNewLine & _ + '"_seriennr " & DR.Item(2) & vbNewLine & _ + ' "_markt: " & DR.Item(4) & vbNewLine & _ + ' "_SupplyID: " & DR.Item(5)) + 'End If + _returnvalueGeraet = DR.Item(idxGeraet).GetType() + _returnvalueSerial = DR.Item(idxGeraet + 1).GetType() + _returnvalueSupplyID = DR.Item(idxGeraet + 4).GetType() + _returnValueCount = DR.Item(idxGeraet + 5).GetType() + _returnvalueVAS = DR.Item(idxGeraet + 9).GetType() + If _returnvalueGeraet.ToString <> "System.DBNull" Then + If _returnvalueSerial.ToString <> "System.DBNull" Then + If _returnvalueSupplyID.ToString <> "System.DBNull" Then 'And _returnvalueVAS.ToString <> "System.DBNull" + Dim Device = DR.Item(idxGeraet) + If CStr(Device) <> "Gerätebezeichnung" Then '.StartsWith("HP") Then + _gerät = DR.Item(idxGeraet) + _seriennr = DR.Item(idxGeraet + 1) + _markt = DR.Item(idxGeraet + 3) + _BestellSupplyID = RTrim(LTrim(DR.Item(idxGeraet + 4))) + '_SupplyID = DR.Item(idxGeraet + 4) + _Supply = DR.Item(idxGeraet + 5) + + + + Dim _count = DR.Item(6) + If IsDBNull(_count) Then + _Anzahl = "1" + Else + _Anzahl = _count + End If + + Dim _vasno = DR.Item(idxGeraet + 9).ToString + + _VAS = RTrim(LTrim(DR.Item(idxGeraet + 9).ToString)).ToString.Replace(" ", "") + _VAS = _VAS.Replace(vbCr, "").Replace(vbLf, "") + _VAS = _VAS.Replace("\n", "").Replace("\r", "") + _VAS = _VAS.Replace(vbCrLf, "") + _VAS = _VAS.ToString.Where(Function(x) Not Char.IsWhiteSpace(x)).ToArray() + ' Convert to String data. + Dim value As New String(_VAS) + _VAS = value + If chkLogData.Checked Then + Dim msg = "Device: '" & _gerät & "'" & vbNewLine & + "Serial: '" & _seriennr & "'" & vbNewLine & + "Markt: '" & _markt & "'" & vbNewLine & + "OrderSupplyID: '" & _BestellSupplyID & "'" & vbNewLine & + "Supply: '" & _Supply & "'" & vbNewLine & + "VAS#: '" & _VAS & "'" + ClassLogger.Add(msg, False) + End If + + If _BestellSupplyID.StartsWith("#2") Then 'reguläre Bestellung kommt zurück + _BestellID = _BestellSupplyID.Replace("#2", "") + + 'Dim sql = String.Format("SELECT ISNULL(MAX(GUID), 0) FROM TBSUPPLY_BESTELLUNG WHERE (SUPPLY_ID = {0})", _SupplyID) + '_BestellID = ClassDatabase.Execute_Scalar(sql, True) + ElseIf _BestellSupplyID.StartsWith("#1") Then 'manuelle Bestellung kommt zurück + _BestellID = _BestellSupplyID.Replace("#1", "") + End If + + 'Dim GUID As Integer = TBSUPPLY_BESTELLUNGViewTableAdapter.cmdgetID_ORDER_SUPPLYID(_SupplyID) + 'MsgBox(GUID) + If _BestellID <> 0 Then + If _VAS <> String.Empty Then + If _VAS.ToString.StartsWith("5") Then + MsgBox(_VAS) + End If + If Not IsNumeric(_VAS) Then + MsgBox("Achtung:" & vbNewLine & "Die Bestellnummer '" & _VAS & "' entspricht nicht den Vorgaben. (Numerisch)") + Continue For + End If + + Dim sql = String.Format("SELECT COUNT(GUID) FROM TBSUPPLY_BESTELLUNG WHERE GUID = {0}", _BestellID) + Dim exists = ClassDatabase.Execute_Scalar(sql, True) + If exists = 0 Then + Dim DTRECORD As DataTable + sql = String.Format("SELECT T.BEZEICHNUNG,T1.MARKT,'ERR-ORDER-DELETED',T1.BEZEICHNUNG,T1.SERIENNR,T.GUID,T1.GUID,T.[LEVEL],T1.MANDANT_ID " & + "FROM TBSUPPLIES T, TBGERAET T1 WHERE T.GERAET_ID = T1.GUID AND T.STATUS_ID <> 6 AND " & + "UPPER(T1.SERIENNR) = UPPER('{0}') AND " & + "UPPER(T.BEZEICHNUNG) = UPPER('{1}')", _seriennr, _Supply) + DTRECORD = ClassDatabase.Return_Datatable(sql, True) + If Not IsNothing(DTRECORD) And DTRECORD.Rows.Count >= 1 Then + _markt = DTRECORD.Rows(0).Item(1) + Dim wer = "ERR-ORDER-DELETED" + Dim SUPP_ID = DTRECORD.Rows(0).Item(5) + Dim GERAETID = DTRECORD.Rows(0).Item(6) + Dim BESTELL_LEVEL = DTRECORD.Rows(0).Item(7) + Dim MandantID = DTRECORD.Rows(0).Item(8) + + Dim ins = String.Format("INSERT INTO TBSUPPLY_BESTELLUNG(SUPPLY_BEZEICHNUNG,MARKT,BESTELLT_WER,GERAET,SERIEN_NR,SUPPLY_ID,GERAET_ID,BESTELL_LEVEL,MANDANT_ID,MENGE) VALUES (" & + "'{0}','{1}','{2}','{3}','{4}',{5},{6},'{7}',{8},{9})", + _Supply, _markt, wer, _gerät, _seriennr, SUPP_ID, GERAETID, BESTELL_LEVEL, MandantID, _Anzahl) + If ClassDatabase.Execute_non_Query(ins, True) = True Then + sql = String.Format("SELECT MAX(GUID) FROM TBSUPPLY_BESTELLUNG WHERE UPPER(SUPPLY_BEZEICHNUNG) = UPPER('{0}') AND UPPER(SERIEN_NR) = UPPER('{1}')", _Supply, _seriennr) + _BestellID = ClassDatabase.Execute_Scalar(sql, True) + If IsDBNull(_BestellID) Or IsNothing(_BestellID) Or _BestellID = 0 Then + MsgBox("Achtung:" & vbNewLine & "Für die hinzugefügte Bestellung konnte kein Datensatz geholt werden!") + Continue For + End If + Else + MsgBox("Could not insert the new Order-record! - Why: BestellID was nothing!") + End If + Else + MsgBox("Achtung:" & vbNewLine & "Für die OrderID '" & _BestellID & "' konnte kein Supply identifiziert werden!") + Continue For + End If + End If + + + + + Dim upd + Try + upd = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLNR = '{0}', FILE_ORDER_CONFIRM = '{1}' WHERE GUID = {2}", _VAS, file.Name, _BestellID) + If chkLogData.Checked Then + ClassLogger.Add(upd, False) + End If + If ClassDatabase.Execute_non_Query(upd, True) = True Then + Counter = Counter + 1 + End If + Catch ex As Exception + MsgBox("Error in update Bestellnr:" & vbNewLine & ex.Message & vbNewLine & "Command copied to clipboard", MsgBoxStyle.Critical) + My.Computer.Clipboard.SetText(upd) + End Try + + 'TBSUPPLY_BESTELLUNGViewTableAdapter.cmdUpdateVAS(_VAS, file.Name, GUID) + Else + If _errorsOrders <> String.Empty Then + _errorsOrders &= vbNewLine & _BestellID.ToString + Else + _errorsOrders = _BestellID.ToString + End If + + MsgBox("Achtung:" & vbNewLine & "Die Bestellnummer ist leer bzw konnte nicht ausgewertet werden!" & vbNewLine & "Die BestellID: " & _BestellID.ToString & " wird geloggt und später aufgeführt!") + End If + End If + Else + ClassLoggerSW.Add(">> Device is not defined for OrderImport: '" & Device & "'", False) + End If + End If + End If + End If + zaehler += 1 + Next End If - zaehler += 1 - Next + Else + MsgBox("Excel-Tabelle konnte nicht gelesen werden!", MsgBoxStyle.MsgBoxHelp) + End If + + + End If + 'For Each DC In DT.Columns + ' MsgBox(DC.ColumnName & vbNewLine & DC.Caption) + 'Next + Progress += 75 + Gesamtfiles += -1 + bwBestellungen_verarbeiten.ReportProgress(Progress) + If Counter > 0 Then + MoveFile(file.FullName, file.Name, pathBestellungen, pathBestellungen) + End If End If + Next + If Anzahl_Dateien <> 0 And Counter > 0 Then + MsgBox("Es wurde(n) " & Anzahl_Dateien & " Datei(en) erfolgreich verarbeitet!" & vbNewLine & + Counter & " Bestell-Nummern wurden erfolgreich upgedated.", MsgBoxStyle.Information, "Erfolgsmeldung:") + 'Me.Wertehilfen_fuellen() + Else + MsgBox("Keine Dateien zum Verarbeiten vorhanden oder" & vbNewLine & "die Dateizellen können nicht gelesen werden!" & vbNewLine & "Überwachter Ordner: " & vbNewLine & pathBestellungen, MsgBoxStyle.Exclamation, "Achtung:") + End If - 'For Each DC In DT.Columns - ' MsgBox(DC.ColumnName & vbNewLine & DC.Caption) - 'Next - Progress += 75 - Gesamtfiles += -1 - bwBestellungen_verarbeiten.ReportProgress(Progress) - If Counter > 0 Then - MoveFile(file.FullName, file.Name, pathBestellungen, pathBestellungen) - End If + If _errorsOrders <> String.Empty Then + MsgBox("Achtung: folgende Bestell-IDs konnten nicht verarbeitet werden: " & vbNewLine & _errorsOrders & vbNewLine & vbNewLine & "Bitte korrigieren Sie etwaige Formatierungen manuell und lesen die Datei erneut ein!", MsgBoxStyle.Exclamation) End If - Next - If Anzahl_Dateien <> 0 And Counter > 0 Then - MsgBox("Es wurde(n) " & Anzahl_Dateien & " Datei(en) erfolgreich verarbeitet!" & vbNewLine & _ - Counter & " Bestell-Nummern wurden erfolgreich upgedated.", MsgBoxStyle.Information, "Erfolgsmeldung:") - 'Me.Wertehilfen_fuellen() - Else - MsgBox("Keine Dateien zum Verarbeiten vorhanden oder" & vbNewLine & "die Dateizellen können nicht gelesen werden!" & vbNewLine & "Überwachter Ordner: " & vbNewLine & pathBestellungen, MsgBoxStyle.Exclamation, "Achtung:") - End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in bwBestellungen_verarbeiten_DoWork:") + End Try + + End Sub - Private Function XLSReader(ByVal filepath As String, ByVal filename As String) + + Private Function XLSReader(ByVal filepath As String, Sheetname As String) + Dim ds As New DataSet + Dim con As String + Dim excelConnection As OleDbConnection Try + 'Instanz des DataSet-Objektes instanzieren - Dim ds As New DataSet - 'Verbindungszeichenfolge festlegen, der Name der Excel-Datei wird als Parameter übergeben - Dim con As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";" & - "Extended Properties=""Excel 8.0;HDR=YES;""" - Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM [" & My.Settings.SheetnameBestellung & "$]", con) + + Try + 'Verbindungszeichenfolge festlegen, der Name der Excel-Datei wird als Parameter übergeben + con = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filepath + ";Extended Properties='Excel 12.0;HDR=YES;'" + '"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";" & + ' "Extended Properties=""Excel 8.0;HDR=YES;""" + excelConnection = New OleDbConnection(con) + excelConnection.Open() + If chkLogData.Checked Then ClassLogger.Add("excelConnection opened....", False) + Catch ex1 As Exception + If ex1.Message = "Der 'Microsoft.ACE.OLEDB.12.0'-Provider ist nicht auf dem lokalen Computer registriert." Then + con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties='Excel 8.0;HDR=YES;'" + excelConnection = New OleDbConnection(con) + Try + excelConnection.Open() + Catch ex As Exception + Return Nothing + End Try + Else + MsgBox(ex1.Message, MsgBoxStyle.Critical, "Could not create excel-Connection 12.0:") + Try + excelConnection.Close() + Catch ex As Exception + End Try + Return Nothing + End If + + + + + + + End Try + + Dim da_final As New OleDb.OleDbDataAdapter("SELECT * FROM [" & Sheetname & "$]", con) 'Report + If chkLogData.Checked Then ClassLogger.Add("da_final opening....", False) 'DataSet füllen - da.Fill(ds) + da_final.Fill(ds) Dim DT As System.Data.DataTable DT = ds.Tables(0) + da_final.Dispose() + excelConnection.Close() 'DataSet zurückgeben Return ds Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei XLSReader:") - Dim newcon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + filepath + ";Extended Properties=Excel 12.0;"";" - Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM [" & My.Settings.SheetnameBestellung & "$]", newcon) - 'DataSet füllen - Dim ds As New DataSet - da.Fill(ds) - Dim DT As System.Data.DataTable - DT = ds.Tables(0) - MsgBox("New Connectionw as established") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in XLSReader:") + Try + excelConnection.Close() + Catch ex1 As Exception + + End Try + Return Nothing End Try End Function @@ -819,7 +954,7 @@ Public Class FMMain MsgBox("Der aktuelle Import läuft noch!", MsgBoxStyle.Exclamation, "ACHTUNG:") End If End Sub - _ + Private Sub bwXMLverarbeiten_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Try Me.TBVERTRAG_NOTEXISTTableAdapter.Delete() @@ -995,7 +1130,7 @@ Public Class FMMain IO.Directory.CreateDirectory(Me._EmailProfile.Path & "\Archiv") End If Dim SQL_ergebnis = "" - dateiname = Me._EmailProfile.Path & "\" & My.Computer.Clock.LocalTime.Year & "_" & My.Computer.Clock.LocalTime.Month & "_" & My.Computer.Clock.LocalTime.Day & "_" & Me._EmailProfile.Profilname & _ + dateiname = Me._EmailProfile.Path & "\" & My.Computer.Clock.LocalTime.Year & "_" & My.Computer.Clock.LocalTime.Month & "_" & My.Computer.Clock.LocalTime.Day & "_" & Me._EmailProfile.Profilname & "." & Me._EmailProfile.Format ' die SQL-Abfrage durchführen (liefert den Wert der in den windream-Index geschrieben werden soll) SQL_ergebnis = ExportDataFromMssqlDb(Me._EmailProfile.Profilname, dateiname, Me._EmailProfile.vSQL_Anweisung, My.Settings.ConfigConnectionString, Me._EmailProfile.Format) @@ -1031,7 +1166,7 @@ Public Class FMMain With email .Absender(Me._EmailProfile.Emailfrom, Me._EmailProfile.EmailAbsender) .Empfänger(_mailempfaenger, _mailempfaenger) - .Nachricht(Me._EmailProfile.EmailBetreff, "" & Me._EmailProfile.EmailBody & "
Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _ + .Nachricht(Me._EmailProfile.EmailBetreff, "" & Me._EmailProfile.EmailBody & "
Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & My.Computer.Clock.LocalTime.ToLongTimeString & "") .Nachricht_Einstellungen(True, Net.Mail.MailPriority.Normal) .Anlage(Resultdatei) @@ -1056,7 +1191,7 @@ Public Class FMMain With bemail .Absender(Me._EmailProfile.Emailfrom, Me._EmailProfile.EmailAbsender) .Empfänger(_bmailempfaenger, _bmailempfaenger) - .Nachricht(Me._EmailProfile.EmailBetreff & " - Bestätigung", " Email für das Profil: " & Me._EmailProfile.Profilname & " wurde erfolgreich versendet!
" & "Datei: " & dateiname & "
Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & _ + .Nachricht(Me._EmailProfile.EmailBetreff & " - Bestätigung", " Email für das Profil: " & Me._EmailProfile.Profilname & " wurde erfolgreich versendet!
" & "Datei: " & dateiname & "
Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" & My.Computer.Clock.LocalTime.ToLongTimeString & "") .Nachricht_Einstellungen(True, Net.Mail.MailPriority.Normal) .Anlage(Resultdatei) @@ -1498,14 +1633,14 @@ Public Class FMMain Case "serialnumber".ToLower If vSerienNrGeraet = "" Then vSerienNrGeraet = Value - If vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower = "" Or _ + If vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower = "" Or vSerienNrGeraet.ToLower.StartsWith("<") Or vSerienNrGeraet.Length < 6 Or vSerienNrGeraet.ToLower = "" Then vSerienNrGeraet = "" End If marker &= vbNewLine & "- vseriennrgeraet: " & vSerienNrGeraet End If - + ' msgbox("1 " & vseriennrgeraet) Case "pagecount".ToLower If IsNumeric(Value) Then @@ -1670,7 +1805,7 @@ Public Class FMMain ' MsgBox("1.1 " & vSerienNrGeraet) marker &= vbNewLine & "2. Den Geräteverfolgungsdatensatz " & vSerienNrGeraet & " inserten" ' MsgBox("2 " & vSerienNrGeraet) - Me.TBGERAETE_VERFOLGUNGTableAdapter.cmdinsert(vGeraete_Bez, vIP, vSerienNrGeraet, vPagecount, Markt, filename, Datum, vVertrag, vModelNr, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3TotalColorImpressions, _ + Me.TBGERAETE_VERFOLGUNGTableAdapter.cmdinsert(vGeraete_Bez, vIP, vSerienNrGeraet, vPagecount, Markt, filename, Datum, vVertrag, vModelNr, A3DuplexSheets, A3SimplexSheets, A4DuplexSheets, A4SimplexSheets, A3TotalColorImpressions, A3TotalMonoImpression, A4TotalMonoImpressions, A4ColorTotalImpressions, AverageBlackCoverage, AverageCyanCoverage, AverageMagentaCoverage, AverageYellowCoverage, ScanA3TotalImages, ScanA4TotalImages, vKD_KZ, FaxIncoming, ScanA4TotalImages, ScanA3TotalImages, vPORT_DISPLAY) ClassLoggerSW.Add(" ==> Gerät inserted: " & vGeraete_Bez & " - " & vSerienNrGeraet, False) @@ -1906,7 +2041,7 @@ Public Class FMMain Dim inuse As Boolean = False If System.IO.File.Exists(_filename) Then Try - FileOpen(fs, _filename, OpenMode.Binary, _ + FileOpen(fs, _filename, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite) Catch inuse = True @@ -2057,7 +2192,7 @@ Public Class FMMain Dim diPfad As New IO.DirectoryInfo(pathBestellungen) Dim _count As Integer = 0 For Each file As IO.FileInfo In diPfad.GetFiles() - If file.Name.ToUpper.EndsWith(".XLS") Then + If (file.Name.ToUpper.Contains("_BESTELLUNG_") And file.Name.ToUpper.EndsWith(".XLS")) Or (file.Name.ToUpper.Contains("_BESTELLUNG_") And file.Name.ToUpper.EndsWith(".XLSX")) Then _count = _count + 1 End If Next @@ -2156,58 +2291,76 @@ Public Class FMMain End If End Sub Private Sub tsborders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsborders.Click - Load_Bestellungen_Manuell + Load_Bestellungen_Manuell() End Sub Sub Load_Bestellungen_Manuell() frmBestellung.Show() End Sub - Private Sub chbFilterMarkt_Bestellungen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbFilterMarkt_Bestellungen.CheckedChanged - If Me.chbFilterMarkt_Bestellungen.Checked Then - 'Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataSource = TBWH_MARKTBindingSource - 'TBSUPPLY_BESTELLUNGViewBindingSource.DataMember = "RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView" - Me.DGTBWH_Markt_Bestellungen.Visible = True - Else - 'Me.TBSUPPLY_BESTELLUNGViewBindingSource.DataSource = MyDataset - 'TBSUPPLY_BESTELLUNGViewBindingSource.DataMember = "TBSUPPLY_BESTELLUNGView" - Me.DGTBWH_Markt_Bestellungen.Visible = False - End If - End Sub + Private Sub Refresh_Bestellungen() Try - If Me.chbFilterMarkt_Bestellungen.Checked = False And Me.chkbDatumfilterOrder.Checked = False Then - ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für alle Märkte" - Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillByall(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, cmbMandanten.Text) + Me.Cursor = Cursors.WaitCursor + Dim sql = String.Format("SELECT * FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T " & + "WHERE (UPPER(Mandant) = UPPER('{0}'))", cmbMandanten.Text) + If pnlOrderDateSelector.Visible = True Then + sql &= $" AND convert(Date,[Bestellt wann]) >= CONVERT(DATE,'{DateTimePickerOrdervon.Value}') AND convert(Date,[Bestellt wann]) <= CONVERT(DATE,'{DateTimePickerOrderbis.Value}')" Else - If chbFilterMarkt_Bestellungen.Checked Then - Dim Markt As String = DGTBWH_Markt_Bestellungen.CurrentCell.Value() - - If Me.chkbDatumfilterOrder.Checked Then - ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für Markt: " & Markt.ToUpper & " und in Zeitraum" - Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillBy_DatumMArkt(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, Markt, Me.dtpOrder_von.Value, Me.dtpOrder_bis.Value) - Else - ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für Markt: " & Markt.ToUpper - Me.TBSUPPLY_BESTELLUNGViewTableAdapter.Fill_ByMarkt(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, Markt) - End If - ElseIf Me.chkbDatumfilterOrder.Checked Then - ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen in Zeitraum" - Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillByDatum(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, cmbMandanten.Text, Me.dtpOrder_von.Value, Me.dtpOrder_bis.Value) - End If + sql &= " AND YEAR([Bestellt wann]) = YEAR(GETDATE())" End If + sql &= " ORDER BY [Bestellt wann] DESC" + + + Dim DTRESULT As DataTable = ClassDatabase.Return_Datatable(sql, True) + If Not IsNothing(DTRESULT) Then + VWSUPPLY_BESTELLUNG_FRONTENDBindingSource.DataSource = DTRESULT + GridControlBestellungen.DataSource = VWSUPPLY_BESTELLUNG_FRONTENDBindingSource + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Uebersicht") + If File.Exists(XMLPath) Then + GridControlBestellungen.MainView.RestoreLayoutFromXml(XMLPath) + End If + + Else + VWSUPPLY_BESTELLUNG_FRONTENDBindingSource.DataSource = Nothing + GridControlBestellungen.DataSource = Nothing + GridViewBestellUebersicht.Columns.Clear() + + End If + 'If Me.chbFilterMarkt_Bestellungen.Checked = False And Me.chkbDatumfilterOrder.Checked = False Then + ' ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für alle Märkte" + ' Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillByall(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, cmbMandanten.Text) + 'Else + ' If chbFilterMarkt_Bestellungen.Checked Then + ' Dim Markt As String = DGTBWH_Markt_Bestellungen.CurrentCell.Value() + + ' If Me.chkbDatumfilterOrder.Checked Then + ' ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für Markt: " & Markt.ToUpper & " und in Zeitraum" + ' Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillBy_DatumMArkt(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, Markt, Me.dtpOrder_von.Value, Me.dtpOrder_bis.Value) + ' Else + ' ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen für Markt: " & Markt.ToUpper + ' Me.TBSUPPLY_BESTELLUNGViewTableAdapter.Fill_ByMarkt(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, Markt) + ' End If + ' ElseIf Me.chkbDatumfilterOrder.Checked Then + ' ' Me.DGTBSUPPLY_BESTELLUNG.Caption = "Bestellungen in Zeitraum" + ' Me.TBSUPPLY_BESTELLUNGViewTableAdapter.FillByDatum(Me.MyDataset.VWSUPPLY_BESTELLUNG_FRONTEND, cmbMandanten.Text, Me.dtpOrder_von.Value, Me.dtpOrder_bis.Value) + ' End If + 'End If Catch ex As System.Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Abfragen der Bestellungen:") End Try + Me.Cursor = Cursors.Default End Sub Private Sub tsbRefresh_Bestellungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbRefresh_Bestellungen.Click Me.Cursor = Cursors.WaitCursor + Save_GridLayout_Bestuebersicht() Refresh_Bestellungen() Cursor = Cursors.Default End Sub Private Sub tsbexcel_geraete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbexcel_geraete.Click - Dim saveFileDialog1 As New SaveFileDialog + Dim saveFileDialog1 As New SaveFileDialog saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx" saveFileDialog1.Title = "Export to Excel:" saveFileDialog1.ShowDialog() @@ -2495,32 +2648,7 @@ Public Class FMMain XLS_Mit_Filter(MyDataset, "VWGERAETE_VERFOLGUNG", "Geräteverfolgung") Cursor = Cursors.Default End Sub - Private Sub chkbDatumfilterOrder_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkbDatumfilterOrder.CheckedChanged - If Me.chkbDatumfilterOrder.Checked Then - dtpOrder_von.Enabled = True - dtpOrder_bis.Enabled = True - Else - dtpOrder_von.Enabled = False - dtpOrder_bis.Enabled = False - End If - End Sub - Private Sub DGTBWH_Markt_Bestellungen_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DGTBWH_Markt_Bestellungen.SelectionChanged - If Me.FormLoaded = True And Me.TBWH_MARKTBindingSource.Count > 0 And Me.chbFilterMarkt_Bestellungen.Checked Then - Refresh_Bestellungen() - End If - End Sub - Private Sub dtpOrder_bis_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpOrder_bis.ValueChanged - If Me.chkbDatumfilterOrder.Checked Then - Refresh_Bestellungen() - End If - End Sub - - Private Sub dtpOrder_von_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpOrder_von.ValueChanged - If Me.chkbDatumfilterOrder.Checked Then - Refresh_Bestellungen() - End If - End Sub Private Sub dtpVerfolgung_von_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpVerfolgung_von.ValueChanged If dtpVerfolgung_bis.Value.ToShortDateString >= dtpVerfolgung_von.Value.ToShortDateString Then @@ -2820,7 +2948,7 @@ Public Class FMMain End If End Sub Private Sub VWSUPPLIES_DG_Click(sender As System.Object, e As System.EventArgs) - + End Sub Private Sub tsbtnNAchverfolgung_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnNAchverfolgung.Click @@ -2876,9 +3004,9 @@ Public Class FMMain SplitContainerGeraet.Collapsed = True End If Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anzeige Changelog:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anzeige Changelog:") End Try - + End Sub Private Sub Refresh_ChangeLog(GID As Integer) @@ -2990,7 +3118,7 @@ Public Class FMMain Cursor = Cursors.Default End Sub - + Sub Load_Bestellung_Gesendet() Try Cursor = Cursors.WaitCursor @@ -3119,7 +3247,7 @@ Public Class FMMain GridControlSupplies2Order.MainView.SaveLayoutToXml(XMLPath) End Sub Sub Save_GridLayout_Bestuebersicht() - Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Uebersciht") + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Uebersicht") GridControlBestellungen.MainView.SaveLayoutToXml(XMLPath) End Sub Sub Save_GridLayout_BestGesendet() @@ -3136,7 +3264,7 @@ Public Class FMMain GridControlProduktVertrag.MainView.SaveLayoutToXml(XMLPath) End Sub - + Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton16.Click Load_Bestellung_Gesendet() @@ -3155,9 +3283,9 @@ Public Class FMMain If Manuell = False Then sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 2, GEAENDERTWER = '{0}', MARKER = 'Frontend' WHERE GUID = {1} AND STATUS_ID = 10", Environment.UserName, SupplyID) If ClassDatabase.Execute_non_Query(sql, True) = True Then - sql = String.Format("DELETE FROM TBSUPPLY_BESTELLUNG WHERE (GUID = {0})", BestellID) - ClassDatabase.Execute_non_Query(sql, True) - ' TBSUPPLY_BESTELLUNGViewTableAdapter.Delete(BestellID) + 'sql = String.Format("DELETE FROM TBSUPPLY_BESTELLUNG WHERE (GUID = {0})", BestellID) + 'ClassDatabase.Execute_non_Query(sql, True) + End If Else Dim marker @@ -3168,7 +3296,7 @@ Public Class FMMain End If sql = String.Format("INSERT INTO TBSUPPLIES_2_ORDER_TEMP (SUPPLY_ID,MARKER,ERFASSTWER,MANUALLY,BESTELL_ID) VALUES ({0},'{1}','{2}',1,{3})", SupplyID, marker, BestelltWer, BestellID) If ClassDatabase.Execute_non_Query(sql, True) = True Then - sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET MARKER = 'Rückgängig Bestellung gesendet',MANUELL_BESTELLT = 0 WHERE GUID = {0}", BestellID) + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET MARKER = 'Rückgängig Bestellung gesendet',STATE_MSG = 'Default', MANUELL_BESTELLT = 0 WHERE GUID = {0}", BestellID) ClassDatabase.Execute_non_Query(sql, True) End If End If @@ -3208,7 +3336,7 @@ Public Class FMMain If Manuell = False Then sql = String.Format("UPDATE TBSUPPLIES SET STATUS_ID = 4, STATUS_WER = '{0}', MARKER = 'MANUALLY FROM BESTELLUNG GESENDET' WHERE (STATUS_ID = 10) AND (GUID = {1})", Environment.UserName, SupplyID) If ClassDatabase.Execute_non_Query(sql, True) = True Then - sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLT_WANN = GETDATE(), MARKER = 'Status Bestellt manuell gesetzt durch: {0}' WHERE GUID = {1}", Environment.UserName, BestellID) + sql = String.Format("UPDATE TBSUPPLY_BESTELLUNG SET BESTELLT_WANN = GETDATE(), BESTELLNR = 'PLEASE UPDATE MANUALLY', MARKER = 'Status Bestellt manuell gesetzt durch: {0}' WHERE GUID = {1}", Environment.UserName, BestellID) ClassDatabase.Execute_non_Query(sql, True) End If 'TBSUPPLIESTableAdapter.cmdSetBestellt(Environment.UserName, "MANUALLY FROM BESTELLUNG GESENDET", SupplyID) @@ -3239,13 +3367,15 @@ Public Class FMMain 'Überhaupt Rows in Grid? If GridViewBestellUebersicht.RowCount > 0 Then Dim coc = GridViewBestellUebersicht.FocusedValue - Dim BestellNr = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("BESTELLNR")) - Dim ID = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("GUID")) - Dim Menge = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("MENGE")) + Dim BestellNr = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("BestellNr")) + Dim ID = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("MC2BestellID")) + Dim Menge = GridViewBestellUebersicht.GetFocusedRowCellValue(GridViewBestellUebersicht.Columns("Menge")) If BestellNr Is Nothing = False And Not IsNothing(ID) Then tslbl_Hinweis.Text = "Bestell-Nr./Menge eingepflegt/geändert' - " & Now tslbl_Hinweis.Visible = True Me.TBSUPPLY_BESTELLUNGViewTableAdapter.cmdUpdate_BestNr(BestellNr, Environment.UserName, Menge, ID) + Dim XMLPath = ClassHelper.GetSelectionGridName("GridViewBestellungen_Gesendet") + Save_GridLayout_Bestuebersicht() Refresh_Bestellungen() Else tslbl_Hinweis.Visible = False @@ -3278,7 +3408,7 @@ Public Class FMMain End If - Cursor = Cursors.Default + Cursor = Cursors.Default End Sub Private Sub GridViewGeraete_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewGeraete.FocusedColumnChanged ROWCOL_Change_Geraet() @@ -3306,7 +3436,7 @@ Public Class FMMain Catch ex As Exception Exit Sub End Try - + End If End Sub @@ -3314,6 +3444,212 @@ Public Class FMMain Load_Bestellungen_Manuell() End Sub + Private Sub btnTSR_open_Click(sender As Object, e As EventArgs) Handles btnTSR_open.Click + If cmbMandant.SelectedIndex = -1 Then + Exit Sub + End If + If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then + Try + ClassLogger.Init("", "ImportTSR_", False) + If chkLogData.Checked Then MsgBox("Working on file: " & OpenFileDialog1.FileName) + Dim _DS As New DataSet + 'Datei auslesen und Dataset rückgeben lassen + _DS = XLSReader(OpenFileDialog1.FileName, "Report") + If _DS Is Nothing Then + MsgBox("Datei: " & vbNewLine & OpenFileDialog1.FileName & vbNewLine & " wurde nicht verarbeitet!", MsgBoxStyle.Exclamation, "Achtung:") + Else + Me.Cursor = Cursors.WaitCursor + If chkLogData.Checked Then ClassLogger.Add("XLSReaderTSR finished....", False) + + 'MsgBox("Anzahl: " & _DS.Tables(0).Rows.Count & vbNewLine & "Hier müssten jetzt die Updates erfolgen") + Dim DT As System.Data.DataTable + Dim DR As System.Data.DataRow + ' Dim DC As System.Data.DataColumn + '' --- DataSet zuweisen + 'DS = Me.MyDataset + '' --- Zugriff auf Tabelle + DT = _DS.Tables(0) + Dim _ORDER_ID, _CREATE_DT, _SHIP_DT, _DEV_SERIAL_NO, _ORD_PART_NO, _ORD_QTY, _SHIP_QTY, _TRACKING_NO, _SHIPTO_POSTCODE, _CUSTOM_LABEL_1, _CUSTOM_LABEL_2 As String + + 'Überprüfen wie die Datei aufgebaut/bearbeitet wurde? + Dim RowIndex = 1 + Dim ordercount As Integer = 0 + Dim _error As Boolean = False + If chkLogData.Checked Then ClassLogger.Add("DS contains '" & DT.Rows.Count & "' rows!", False) + For Each DR In DT.Rows + If RowIndex >= 1 Then '>= 3 Then + Dim FirstColumnValue = DR.Item(0) + Dim DateValue = DR.Item(3) + If IsNumeric(FirstColumnValue) And IsDate(DateValue) Then + If chkLogData.Checked Then ClassLogger.Add("Working on Order '" & FirstColumnValue & "'...", False) + Try + _ORDER_ID = FirstColumnValue + Catch ex As Exception + ClassLogger.Add("Could not convert _ORDER_ID", False) + Continue For + End Try + Try + _SHIP_DT = DR.Item(3).ToString + _SHIP_DT = DR.Item(3).ToString.Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _SHIP_DT = "" + End If + End Try + Try + _CREATE_DT = DR.Item(2).ToString + _CREATE_DT = DR.Item(2).ToString.Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _CREATE_DT = "" + End If + End Try + Try + _DEV_SERIAL_NO = DR.Item(10) + _DEV_SERIAL_NO = DR.Item(10).Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _DEV_SERIAL_NO = "" + End If + End Try + Try + _ORD_PART_NO = DR.Item(13) + _ORD_PART_NO = DR.Item(13).Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _ORD_PART_NO = "" + End If + End Try + Try + _ORD_QTY = DR.Item(15) + If IsNumeric(_ORD_QTY) = False Then + _SHIP_QTY = DR.Item(15).Replace("'", "") + End If + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _ORD_QTY = "1" + End If + + End Try + Try + _SHIP_QTY = DR.Item(16) + If IsNumeric(_SHIP_QTY) = False Then + _SHIP_QTY = DR.Item(16).Replace("'", "") + End If + + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _SHIP_QTY = "1" + End If + + End Try + Try + _TRACKING_NO = DR.Item(19).ToString + _TRACKING_NO = DR.Item(19).Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _TRACKING_NO = "" + End If + End Try + Try + _SHIPTO_POSTCODE = DR.Item(26) + _SHIPTO_POSTCODE = DR.Item(26).Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _SHIPTO_POSTCODE = "" + End If + End Try + Try + _CUSTOM_LABEL_1 = DR.Item(29) + _CUSTOM_LABEL_1 = DR.Item(29).Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _CUSTOM_LABEL_1 = "" + End If + End Try + Try + _CUSTOM_LABEL_2 = DR.Item(30) + _CUSTOM_LABEL_2 = DR.Item(30).Replace("'", "") + Catch ex As Exception + If Not ex.Message.Contains("Replace für den Typ Double") Then + _CUSTOM_LABEL_2 = "" + End If + End Try + Dim del = $"DELETE FROM TBTONER_SHIPMENT_REPORT WHERE ORDER_ID = '{_ORDER_ID}' AND DEV_SERIAL_NO = '{_DEV_SERIAL_NO}' AND TRACKING_NO = '{_TRACKING_NO}'" + If ClassDatabase.Execute_non_Query(del) = True Then + Dim ins = String.Format("INSERT INTO TBTONER_SHIPMENT_REPORT ([ORDER_ID],[SHIP_DT],[DEV_SERIAL_NO],[ORD_PART_NO],[ORD_QTY],[SHIP_QTY],[TRACKING_NO],[SHIPTO_POSTCODE],[CUSTOM_LABEL_1],[CUSTOM_LABEL_2],[ADDED_WHO], MANDANT_ID,CREATE_DT) VALUES ( + '{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}',{11},'{12}')", _ORDER_ID, _SHIP_DT, _DEV_SERIAL_NO, _ORD_PART_NO, _ORD_QTY, _SHIP_QTY, _TRACKING_NO, _SHIPTO_POSTCODE, _CUSTOM_LABEL_1, _CUSTOM_LABEL_2, Environment.UserName, cmbMandant.SelectedValue, _CREATE_DT) + If ClassDatabase.Execute_non_Query(ins) = False Then + _error = True + Else + ordercount += 1 + End If + End If + Else + Console.WriteLine("No datevalue: " & DateValue.ToString & " - " & FirstColumnValue.ToString) + End If + End If + RowIndex += 1 + + Next + If _error = False And ordercount > 1 Then + MsgBox(String.Format("Es wurden {0} Reportzeilen erfolgreich eingelesen!", ordercount), MsgBoxStyle.Information) + Else + MsgBox("Die Datei wurde verarbeitet, allerdings ereigneten sich hierbei Fehler!", MsgBoxStyle.Exclamation) + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in working TonerShipment:") + End Try + Me.Cursor = Cursors.Default + End If + End Sub + Dim IsFilterMode As Boolean = False + Private Sub GridViewBestellUebersicht_RowStyle(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowStyleEventArgs) Handles GridViewBestellUebersicht.RowStyle + If e.RowHandle = -1 Then + IsFilterMode = True + Exit Sub + Else + IsFilterMode = False + End If + If e.RowHandle = DevExpress.XtraGrid.GridControl.AutoFilterRowHandle Then + IsFilterMode = True + e.Appearance.BackColor = Color.Orange + + Else + IsFilterMode = False + Try + Dim rowCellValue = GridViewBestellUebersicht.GetRowCellValue(e.RowHandle, "BestellNr") + If rowCellValue <> "" Then + If rowCellValue = "PLEASE UPDATE MANUALLY" Then + e.Appearance.BackColor = Color.Red + e.HighPriority = True + End If + + End If + Catch ex As Exception + ClassLogger.Add(">> Unexpected Error in RowStyle: " & ex.Message, False) + End Try + + End If + End Sub + + Private Sub GridControlBestellungen_Leave(sender As Object, e As EventArgs) Handles GridControlBestellungen.Leave + Save_GridLayout_Bestuebersicht() + End Sub + + Private Sub tscmbaktiv_Click(sender As Object, e As EventArgs) Handles tscmbaktiv.Click + + End Sub + + Private Sub tsbtOrderSelectDate_Click(sender As Object, e As EventArgs) Handles tsbtOrderSelectDate.Click + If pnlOrderDateSelector.Visible = False Then + pnlOrderDateSelector.Visible = True + Else + pnlOrderDateSelector.Visible = False + End If + End Sub + 'Private Sub GridViewGeraetOrder_RowUpdated(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectEventArgs) ' If FormLoaded = True Then ' Try diff --git a/Supplywatch/ModuleCURRENT.vb b/Supplywatch/ModuleCURRENT.vb index 508a7ad..900fb51 100644 --- a/Supplywatch/ModuleCURRENT.vb +++ b/Supplywatch/ModuleCURRENT.vb @@ -1,4 +1,5 @@ Module ModuleCURRENT Public CURRENT_GERAETE_ID As Integer Public MyConnectionString As String + Public FILTER_DEVICE As String End Module diff --git a/Supplywatch/My Project/AssemblyInfo.vb b/Supplywatch/My Project/AssemblyInfo.vb index 6583ee4..6224679 100644 --- a/Supplywatch/My Project/AssemblyInfo.vb +++ b/Supplywatch/My Project/AssemblyInfo.vb @@ -11,14 +11,14 @@ Imports System.Runtime.InteropServices - - + + 'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird - + ' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: ' @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/Supplywatch/My Project/Resources.Designer.vb b/Supplywatch/My Project/Resources.Designer.vb index 6764010..f134f85 100644 --- a/Supplywatch/My Project/Resources.Designer.vb +++ b/Supplywatch/My Project/Resources.Designer.vb @@ -320,6 +320,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property ImportCatalogPart_6777() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("ImportCatalogPart_6777", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -409,5 +419,15 @@ Namespace My.Resources Return CType(obj,System.Drawing.Bitmap) End Get End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property XSDSchema_ImportIcon() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("XSDSchema_ImportIcon", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property End Module End Namespace diff --git a/Supplywatch/My Project/Resources.resx b/Supplywatch/My Project/Resources.resx index 6eb787c..2d7c0d3 100644 --- a/Supplywatch/My Project/Resources.resx +++ b/Supplywatch/My Project/Resources.resx @@ -127,12 +127,12 @@ ..\Resources\benutzer7.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\My Downloads XP.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\table_delete.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -148,6 +148,9 @@ ..\Resources\arrow_Forward_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\aktualisieren_1.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -160,15 +163,15 @@ ..\Resources\Beenden2.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\DigitalDataLogo.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\CheckIn_13188.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ico2168.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\EMAIL.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -190,11 +193,11 @@ ..\Resources\delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\My Downloads XP.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\My Rar Files XP.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ico1411.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\link_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -208,11 +211,11 @@ ..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ico1411.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\My Rar Files XP.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ico2168.ico;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\bug.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -220,7 +223,10 @@ ..\Resources\CheckOutforEdit_13187.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ImportCatalogPart_6777.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\XSDSchema_ImportIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/Supplywatch/MyDataset.Designer.vb b/Supplywatch/MyDataset.Designer.vb index 341d7b0..1b92507 100644 --- a/Supplywatch/MyDataset.Designer.vb +++ b/Supplywatch/MyDataset.Designer.vb @@ -148,7 +148,7 @@ Partial Public Class MyDataset Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -160,7 +160,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -324,7 +324,7 @@ Partial Public Class MyDataset End Sub _ Public ReadOnly Property TBGERAET() As TBGERAETDataTable @@ -334,7 +334,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLIES() As VWSUPPLIESDataTable @@ -344,7 +344,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_STATUS1() As TBWH_STATUS1DataTable @@ -354,7 +354,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_STATUS2() As TBWH_STATUS2DataTable @@ -364,7 +364,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_STATUS3() As TBWH_STATUS3DataTable @@ -374,7 +374,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_STATUSFILTER() As TBWH_STATUSFILTERDataTable @@ -384,7 +384,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBSUPPLY_VERFOLGUNG() As TBSUPPLY_VERFOLGUNGDataTable @@ -394,7 +394,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKONFIGURATION() As TBKONFIGURATIONDataTable @@ -404,7 +404,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBSTATUS() As TBSTATUSDataTable @@ -414,7 +414,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_MARKT() As TBWH_MARKTDataTable @@ -424,7 +424,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLIES_AKTUELL() As VWSUPPLIES_AKTUELLDataTable @@ -434,7 +434,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWGERAET_ORDER() As VWGERAET_ORDERDataTable @@ -444,7 +444,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLIES_TO_ORDER() As VWSUPPLIES_TO_ORDERDataTable @@ -454,7 +454,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBSUPPLIES() As TBSUPPLIESDataTable @@ -464,7 +464,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_STATUS4() As TBWH_STATUS4DataTable @@ -474,7 +474,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_STATUS5() As TBWH_STATUS5DataTable @@ -484,7 +484,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBSUPPLY_BESTELLUNG() As TBSUPPLY_BESTELLUNGDataTable @@ -494,7 +494,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_SUPPLIES_MARKT() As TBWH_SUPPLIES_MARKTDataTable @@ -504,7 +504,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLY_BESTELLUNG_FRONTEND() As VWSUPPLY_BESTELLUNG_FRONTENDDataTable @@ -514,7 +514,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGERAETByMarkt() As TBGERAETByMarktDataTable @@ -524,7 +524,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBIMPORT_PRODUKT() As TBIMPORT_PRODUKTDataTable @@ -534,7 +534,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBVERTRAEGE() As TBVERTRAEGEDataTable @@ -544,7 +544,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBPRODUKT_VERTRAG() As TBPRODUKT_VERTRAGDataTable @@ -554,7 +554,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGERAETE_NOTINLIST() As TBGERAETE_NOTINLISTDataTable @@ -564,7 +564,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_MODELL() As TBWH_MODELLDataTable @@ -574,7 +574,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBSUPPLY_DEFINITION() As TBSUPPLY_DEFINITIONDataTable @@ -584,7 +584,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGERAET_SUPPLY_ZUORDNUNG() As TBGERAET_SUPPLY_ZUORDNUNGDataTable @@ -594,7 +594,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWGeraet_Supply_Zuordnung() As VWGeraet_Supply_ZuordnungDataTable @@ -604,7 +604,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBUSER_RECHTE() As TBUSER_RECHTEDataTable @@ -614,7 +614,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBMELDEDATUM() As TBMELDEDATUMDataTable @@ -624,7 +624,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBGERAETE_VERFOLGUNG() As TBGERAETE_VERFOLGUNGDataTable @@ -634,7 +634,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWMarkt_Verfolgung() As VWMarkt_VerfolgungDataTable @@ -644,7 +644,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWGERAETE_VERFOLGUNG() As VWGERAETE_VERFOLGUNGDataTable @@ -654,7 +654,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBREFLISTE_HISTORY() As TBREFLISTE_HISTORYDataTable @@ -664,7 +664,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBMANDANTEN() As TBMANDANTENDataTable @@ -674,7 +674,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLY_VERFOLGUNG() As VWSUPPLY_VERFOLGUNGDataTable @@ -684,7 +684,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBIMPORT_PRODUKTE_DUPLIKATE() As TBIMPORT_PRODUKTE_DUPLIKATEDataTable @@ -694,7 +694,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBCHANGE_LOG_GERAET() As TBCHANGE_LOG_GERAETDataTable @@ -704,7 +704,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBSERVICE_IMP_LOG() As TBSERVICE_IMP_LOGDataTable @@ -714,7 +714,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWGERAETE_MELDUNG_STATUS() As VWGERAETE_MELDUNG_STATUSDataTable @@ -724,7 +724,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property ViewSUPPLY_STATUS_VERFOLGUNG() As ViewSUPPLY_STATUS_VERFOLGUNGDataTable @@ -734,7 +734,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLIES_BESTELLUNG_GESENDET() As VWSUPPLIES_BESTELLUNG_GESENDETDataTable @@ -744,7 +744,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWRPT_SUPPLIES_TOORDER() As VWRPT_SUPPLIES_TOORDERDataTable @@ -754,7 +754,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWSUPPLIES_2_ORDER() As VWSUPPLIES_2_ORDERDataTable @@ -764,7 +764,7 @@ Partial Public Class MyDataset End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -777,7 +777,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -786,7 +786,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -795,7 +795,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -803,7 +803,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -812,19 +812,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -977,7 +977,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -986,13 +986,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBGERAET = CType(MyBase.Tables("TBGERAET"),TBGERAETDataTable) If (initTable = true) Then @@ -1277,7 +1277,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" @@ -1407,271 +1407,271 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGERAET() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLIES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_STATUS1() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_STATUS2() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_STATUS3() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_STATUSFILTER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBSUPPLY_VERFOLGUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKONFIGURATION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBSTATUS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_MARKT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLIES_AKTUELL() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWGERAET_ORDER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLIES_TO_ORDER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBSUPPLIES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_STATUS4() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_STATUS5() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBSUPPLY_BESTELLUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_SUPPLIES_MARKT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLY_BESTELLUNG_FRONTEND() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGERAETByMarkt() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBIMPORT_PRODUKT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBVERTRAEGE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBPRODUKT_VERTRAG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGERAETE_NOTINLIST() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_MODELL() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBSUPPLY_DEFINITION() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGERAET_SUPPLY_ZUORDNUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWGeraet_Supply_Zuordnung() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBUSER_RECHTE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBMELDEDATUM() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBGERAETE_VERFOLGUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWMarkt_Verfolgung() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWGERAETE_VERFOLGUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBREFLISTE_HISTORY() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBMANDANTEN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLY_VERFOLGUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBIMPORT_PRODUKTE_DUPLIKATE() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBCHANGE_LOG_GERAET() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBSERVICE_IMP_LOG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWGERAETE_MELDUNG_STATUS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeViewSUPPLY_STATUS_VERFOLGUNG() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLIES_BESTELLUNG_GESENDET() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWRPT_SUPPLIES_TOORDER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWSUPPLIES_2_ORDER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -1679,7 +1679,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -1728,136 +1728,136 @@ Partial Public Class MyDataset Return type End Function - _ + _ Public Delegate Sub TBGERAETRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLIESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIESRowChangeEvent) - _ + _ Public Delegate Sub TBWH_STATUS1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS1RowChangeEvent) - _ + _ Public Delegate Sub TBWH_STATUS2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS2RowChangeEvent) - _ + _ Public Delegate Sub TBWH_STATUS3RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS3RowChangeEvent) - _ + _ Public Delegate Sub TBWH_STATUSFILTERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUSFILTERRowChangeEvent) - _ + _ Public Delegate Sub TBSUPPLY_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLY_VERFOLGUNGRowChangeEvent) - _ + _ Public Delegate Sub TBKONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKONFIGURATIONRowChangeEvent) - _ + _ Public Delegate Sub TBSTATUSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSTATUSRowChangeEvent) - _ + _ Public Delegate Sub TBWH_MARKTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_MARKTRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLIES_AKTUELLRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_AKTUELLRowChangeEvent) - _ + _ Public Delegate Sub VWGERAET_ORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAET_ORDERRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLIES_TO_ORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_TO_ORDERRowChangeEvent) - _ + _ Public Delegate Sub TBSUPPLIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLIESRowChangeEvent) - _ + _ Public Delegate Sub TBWH_STATUS4RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS4RowChangeEvent) - _ + _ Public Delegate Sub TBWH_STATUS5RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_STATUS5RowChangeEvent) - _ + _ Public Delegate Sub TBSUPPLY_BESTELLUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLY_BESTELLUNGRowChangeEvent) - _ + _ Public Delegate Sub TBWH_SUPPLIES_MARKTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SUPPLIES_MARKTRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent) - _ + _ Public Delegate Sub TBGERAETByMarktRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETByMarktRowChangeEvent) - _ + _ Public Delegate Sub TBIMPORT_PRODUKTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIMPORT_PRODUKTRowChangeEvent) - _ + _ Public Delegate Sub TBVERTRAEGERowChangeEventHandler(ByVal sender As Object, ByVal e As TBVERTRAEGERowChangeEvent) - _ + _ Public Delegate Sub TBPRODUKT_VERTRAGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPRODUKT_VERTRAGRowChangeEvent) - _ + _ Public Delegate Sub TBGERAETE_NOTINLISTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETE_NOTINLISTRowChangeEvent) - _ + _ Public Delegate Sub TBWH_MODELLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_MODELLRowChangeEvent) - _ + _ Public Delegate Sub TBSUPPLY_DEFINITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSUPPLY_DEFINITIONRowChangeEvent) - _ + _ Public Delegate Sub TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent) - _ + _ Public Delegate Sub VWGeraet_Supply_ZuordnungRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGeraet_Supply_ZuordnungRowChangeEvent) - _ + _ Public Delegate Sub TBUSER_RECHTERowChangeEventHandler(ByVal sender As Object, ByVal e As TBUSER_RECHTERowChangeEvent) - _ + _ Public Delegate Sub TBMELDEDATUMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMELDEDATUMRowChangeEvent) - _ + _ Public Delegate Sub TBGERAETE_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGERAETE_VERFOLGUNGRowChangeEvent) - _ + _ Public Delegate Sub VWMarkt_VerfolgungRowChangeEventHandler(ByVal sender As Object, ByVal e As VWMarkt_VerfolgungRowChangeEvent) - _ + _ Public Delegate Sub VWGERAETE_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAETE_VERFOLGUNGRowChangeEvent) - _ + _ Public Delegate Sub TBREFLISTE_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBREFLISTE_HISTORYRowChangeEvent) - _ + _ Public Delegate Sub TBMANDANTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMANDANTENRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLY_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLY_VERFOLGUNGRowChangeEvent) - _ + _ Public Delegate Sub TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent) - _ + _ Public Delegate Sub TBCHANGE_LOG_GERAETRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCHANGE_LOG_GERAETRowChangeEvent) - _ + _ Public Delegate Sub TBSERVICE_IMP_LOGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBSERVICE_IMP_LOGRowChangeEvent) - _ + _ Public Delegate Sub VWGERAETE_MELDUNG_STATUSRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGERAETE_MELDUNG_STATUSRowChangeEvent) - _ + _ Public Delegate Sub ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler(ByVal sender As Object, ByVal e As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent) - _ + _ Public Delegate Sub VWRPT_SUPPLIES_TOORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWRPT_SUPPLIES_TOORDERRowChangeEvent) - _ + _ Public Delegate Sub VWSUPPLIES_2_ORDERRowChangeEventHandler(ByVal sender As Object, ByVal e As VWSUPPLIES_2_ORDERRowChangeEvent) ''' @@ -1919,7 +1919,7 @@ Partial Public Class MyDataset Private columnMandant_KZ As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBGERAET" @@ -1929,7 +1929,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1947,14 +1947,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1962,7 +1962,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -1970,7 +1970,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn Get Return Me.columnIP_ADRESSE @@ -1978,7 +1978,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -1986,7 +1986,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -1994,7 +1994,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_COUNT @@ -2002,7 +2002,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn Get Return Me.columnPPM @@ -2010,7 +2010,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -2018,7 +2018,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -2026,7 +2026,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -2034,7 +2034,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -2042,7 +2042,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLUNG @@ -2050,7 +2050,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKER @@ -2058,7 +2058,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PC_INITIALColumn() As Global.System.Data.DataColumn Get Return Me.columnPC_INITIAL @@ -2066,7 +2066,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATE_INITIALColumn() As Global.System.Data.DataColumn Get Return Me.columnDATE_INITIAL @@ -2074,7 +2074,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODEL_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnMODEL_NR @@ -2082,7 +2082,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property UMGEZOGENColumn() As Global.System.Data.DataColumn Get Return Me.columnUMGEZOGEN @@ -2090,7 +2090,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAGSNR @@ -2098,7 +2098,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ONHOLDColumn() As Global.System.Data.DataColumn Get Return Me.columnONHOLD @@ -2106,7 +2106,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ONHOLD_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnONHOLD_DATE @@ -2114,7 +2114,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -2122,7 +2122,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NICHT_AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnNICHT_AKTIV @@ -2130,7 +2130,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ABGEBAUTColumn() As Global.System.Data.DataColumn Get Return Me.columnABGEBAUT @@ -2138,7 +2138,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant @@ -2146,7 +2146,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Mandant_KZColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant_KZ @@ -2154,7 +2154,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2163,33 +2163,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETRow Get Return CType(Me.Rows(index),TBGERAETRow) End Get End Property - _ + _ Public Event TBGERAETRowChanging As TBGERAETRowChangeEventHandler - _ + _ Public Event TBGERAETRowChanged As TBGERAETRowChangeEventHandler - _ + _ Public Event TBGERAETRowDeleting As TBGERAETRowChangeEventHandler - _ + _ Public Event TBGERAETRowDeleted As TBGERAETRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGERAETRow(ByVal row As TBGERAETRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGERAETRow( _ ByVal BEZEICHNUNG As String, _ ByVal IP_ADRESSE As String, _ @@ -2226,13 +2226,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBGERAETDataTable = CType(MyBase.Clone,TBGERAETDataTable) cln.InitVars @@ -2240,13 +2240,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGERAETDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -2276,7 +2276,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2364,25 +2364,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGERAETRow() As TBGERAETRow Return CType(Me.NewRow,TBGERAETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGERAETRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGERAETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGERAETRowChangedEvent) Is Nothing) Then @@ -2391,7 +2391,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGERAETRowChangingEvent) Is Nothing) Then @@ -2400,7 +2400,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGERAETRowDeletedEvent) Is Nothing) Then @@ -2409,7 +2409,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGERAETRowDeletingEvent) Is Nothing) Then @@ -2418,13 +2418,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGERAETRow(ByVal row As TBGERAETRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2543,7 +2543,7 @@ Partial Public Class MyDataset Private columnSTATUS_WER As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLIES" @@ -2553,7 +2553,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2571,14 +2571,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -2586,7 +2586,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -2594,7 +2594,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEVICE @@ -2602,7 +2602,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZ @@ -2610,7 +2610,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -2618,7 +2618,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -2626,7 +2626,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -2634,7 +2634,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -2642,7 +2642,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_ID @@ -2650,7 +2650,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS @@ -2658,7 +2658,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -2666,7 +2666,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -2674,7 +2674,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -2682,7 +2682,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -2690,7 +2690,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WANN @@ -2698,7 +2698,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET @@ -2706,7 +2706,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IPColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_IP @@ -2714,7 +2714,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_SERIENNR @@ -2722,7 +2722,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_PAGECOUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_PAGECOUNT @@ -2730,7 +2730,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_PPMColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_PPM @@ -2738,7 +2738,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLUNG @@ -2746,7 +2746,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WER @@ -2754,7 +2754,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2763,33 +2763,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIESRow Get Return CType(Me.Rows(index),VWSUPPLIESRow) End Get End Property - _ + _ Public Event VWSUPPLIESRowChanging As VWSUPPLIESRowChangeEventHandler - _ + _ Public Event VWSUPPLIESRowChanged As VWSUPPLIESRowChangeEventHandler - _ + _ Public Event VWSUPPLIESRowDeleting As VWSUPPLIESRowChangeEventHandler - _ + _ Public Event VWSUPPLIESRowDeleted As VWSUPPLIESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLIESRow(ByVal row As VWSUPPLIESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWSUPPLIESRow( _ ByVal SUPPLY_ID As Integer, _ ByVal MARKT As String, _ @@ -2824,13 +2824,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindBySUPPLY_ID(ByVal SUPPLY_ID As Integer) As VWSUPPLIESRow Return CType(Me.Rows.Find(New Object() {SUPPLY_ID}),VWSUPPLIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLIESDataTable = CType(MyBase.Clone,VWSUPPLIESDataTable) cln.InitVars @@ -2838,13 +2838,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLIESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") Me.columnMARKT = MyBase.Columns("MARKT") @@ -2871,7 +2871,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSUPPLY_ID) @@ -2944,25 +2944,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLIESRow() As VWSUPPLIESRow Return CType(Me.NewRow,VWSUPPLIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLIESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLIESRowChangedEvent) Is Nothing) Then @@ -2971,7 +2971,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLIESRowChangingEvent) Is Nothing) Then @@ -2980,7 +2980,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLIESRowDeletedEvent) Is Nothing) Then @@ -2989,7 +2989,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLIESRowDeletingEvent) Is Nothing) Then @@ -2998,13 +2998,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLIESRow(ByVal row As VWSUPPLIESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3083,7 +3083,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_STATUS1" @@ -3093,7 +3093,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3111,14 +3111,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3126,7 +3126,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3134,7 +3134,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3143,33 +3143,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS1Row Get Return CType(Me.Rows(index),TBWH_STATUS1Row) End Get End Property - _ + _ Public Event TBWH_STATUS1RowChanging As TBWH_STATUS1RowChangeEventHandler - _ + _ Public Event TBWH_STATUS1RowChanged As TBWH_STATUS1RowChangeEventHandler - _ + _ Public Event TBWH_STATUS1RowDeleting As TBWH_STATUS1RowChangeEventHandler - _ + _ Public Event TBWH_STATUS1RowDeleted As TBWH_STATUS1RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_STATUS1Row(ByVal row As TBWH_STATUS1Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_STATUS1Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS1Row Dim rowTBWH_STATUS1Row As TBWH_STATUS1Row = CType(Me.NewRow,TBWH_STATUS1Row) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -3179,13 +3179,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS1Row Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_STATUS1DataTable = CType(MyBase.Clone,TBWH_STATUS1DataTable) cln.InitVars @@ -3193,20 +3193,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_STATUS1DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3224,25 +3224,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_STATUS1Row() As TBWH_STATUS1Row Return CType(Me.NewRow,TBWH_STATUS1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_STATUS1Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_STATUS1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_STATUS1RowChangedEvent) Is Nothing) Then @@ -3251,7 +3251,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_STATUS1RowChangingEvent) Is Nothing) Then @@ -3260,7 +3260,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_STATUS1RowDeletedEvent) Is Nothing) Then @@ -3269,7 +3269,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_STATUS1RowDeletingEvent) Is Nothing) Then @@ -3278,13 +3278,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_STATUS1Row(ByVal row As TBWH_STATUS1Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3363,7 +3363,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_STATUS2" @@ -3373,7 +3373,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3391,14 +3391,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3406,7 +3406,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3414,7 +3414,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3423,33 +3423,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS2Row Get Return CType(Me.Rows(index),TBWH_STATUS2Row) End Get End Property - _ + _ Public Event TBWH_STATUS2RowChanging As TBWH_STATUS2RowChangeEventHandler - _ + _ Public Event TBWH_STATUS2RowChanged As TBWH_STATUS2RowChangeEventHandler - _ + _ Public Event TBWH_STATUS2RowDeleting As TBWH_STATUS2RowChangeEventHandler - _ + _ Public Event TBWH_STATUS2RowDeleted As TBWH_STATUS2RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_STATUS2Row(ByVal row As TBWH_STATUS2Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_STATUS2Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS2Row Dim rowTBWH_STATUS2Row As TBWH_STATUS2Row = CType(Me.NewRow,TBWH_STATUS2Row) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -3459,13 +3459,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS2Row Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS2Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_STATUS2DataTable = CType(MyBase.Clone,TBWH_STATUS2DataTable) cln.InitVars @@ -3473,20 +3473,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_STATUS2DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3504,25 +3504,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_STATUS2Row() As TBWH_STATUS2Row Return CType(Me.NewRow,TBWH_STATUS2Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_STATUS2Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_STATUS2Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_STATUS2RowChangedEvent) Is Nothing) Then @@ -3531,7 +3531,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_STATUS2RowChangingEvent) Is Nothing) Then @@ -3540,7 +3540,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_STATUS2RowDeletedEvent) Is Nothing) Then @@ -3549,7 +3549,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_STATUS2RowDeletingEvent) Is Nothing) Then @@ -3558,13 +3558,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_STATUS2Row(ByVal row As TBWH_STATUS2Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3643,7 +3643,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_STATUS3" @@ -3653,7 +3653,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3671,14 +3671,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3686,7 +3686,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3694,7 +3694,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3703,33 +3703,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS3Row Get Return CType(Me.Rows(index),TBWH_STATUS3Row) End Get End Property - _ + _ Public Event TBWH_STATUS3RowChanging As TBWH_STATUS3RowChangeEventHandler - _ + _ Public Event TBWH_STATUS3RowChanged As TBWH_STATUS3RowChangeEventHandler - _ + _ Public Event TBWH_STATUS3RowDeleting As TBWH_STATUS3RowChangeEventHandler - _ + _ Public Event TBWH_STATUS3RowDeleted As TBWH_STATUS3RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_STATUS3Row(ByVal row As TBWH_STATUS3Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_STATUS3Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS3Row Dim rowTBWH_STATUS3Row As TBWH_STATUS3Row = CType(Me.NewRow,TBWH_STATUS3Row) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -3739,13 +3739,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS3Row Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS3Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_STATUS3DataTable = CType(MyBase.Clone,TBWH_STATUS3DataTable) cln.InitVars @@ -3753,20 +3753,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_STATUS3DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3784,25 +3784,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_STATUS3Row() As TBWH_STATUS3Row Return CType(Me.NewRow,TBWH_STATUS3Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_STATUS3Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_STATUS3Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_STATUS3RowChangedEvent) Is Nothing) Then @@ -3811,7 +3811,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_STATUS3RowChangingEvent) Is Nothing) Then @@ -3820,7 +3820,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_STATUS3RowDeletedEvent) Is Nothing) Then @@ -3829,7 +3829,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_STATUS3RowDeletingEvent) Is Nothing) Then @@ -3838,13 +3838,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_STATUS3Row(ByVal row As TBWH_STATUS3Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3923,7 +3923,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_STATUSFILTER" @@ -3933,7 +3933,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3951,14 +3951,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3966,7 +3966,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3974,7 +3974,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3983,33 +3983,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUSFILTERRow Get Return CType(Me.Rows(index),TBWH_STATUSFILTERRow) End Get End Property - _ + _ Public Event TBWH_STATUSFILTERRowChanging As TBWH_STATUSFILTERRowChangeEventHandler - _ + _ Public Event TBWH_STATUSFILTERRowChanged As TBWH_STATUSFILTERRowChangeEventHandler - _ + _ Public Event TBWH_STATUSFILTERRowDeleting As TBWH_STATUSFILTERRowChangeEventHandler - _ + _ Public Event TBWH_STATUSFILTERRowDeleted As TBWH_STATUSFILTERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_STATUSFILTERRow(ByVal row As TBWH_STATUSFILTERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_STATUSFILTERRow(ByVal BEZEICHNUNG As String) As TBWH_STATUSFILTERRow Dim rowTBWH_STATUSFILTERRow As TBWH_STATUSFILTERRow = CType(Me.NewRow,TBWH_STATUSFILTERRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -4019,13 +4019,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUSFILTERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUSFILTERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_STATUSFILTERDataTable = CType(MyBase.Clone,TBWH_STATUSFILTERDataTable) cln.InitVars @@ -4033,20 +4033,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_STATUSFILTERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4064,25 +4064,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_STATUSFILTERRow() As TBWH_STATUSFILTERRow Return CType(Me.NewRow,TBWH_STATUSFILTERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_STATUSFILTERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_STATUSFILTERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_STATUSFILTERRowChangedEvent) Is Nothing) Then @@ -4091,7 +4091,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_STATUSFILTERRowChangingEvent) Is Nothing) Then @@ -4100,7 +4100,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_STATUSFILTERRowDeletedEvent) Is Nothing) Then @@ -4109,7 +4109,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_STATUSFILTERRowDeletingEvent) Is Nothing) Then @@ -4118,13 +4118,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_STATUSFILTERRow(ByVal row As TBWH_STATUSFILTERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4223,7 +4223,7 @@ Partial Public Class MyDataset Private columnMELDEDATUM As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBSUPPLY_VERFOLGUNG" @@ -4233,7 +4233,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4251,14 +4251,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4266,7 +4266,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -4274,7 +4274,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -4282,7 +4282,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -4290,7 +4290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -4298,7 +4298,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -4306,7 +4306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -4314,7 +4314,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -4322,7 +4322,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -4330,7 +4330,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -4338,7 +4338,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKER @@ -4346,7 +4346,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -4354,7 +4354,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -4363,33 +4363,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLY_VERFOLGUNGRow Get Return CType(Me.Rows(index),TBSUPPLY_VERFOLGUNGRow) End Get End Property - _ + _ Public Event TBSUPPLY_VERFOLGUNGRowChanging As TBSUPPLY_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event TBSUPPLY_VERFOLGUNGRowChanged As TBSUPPLY_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event TBSUPPLY_VERFOLGUNGRowDeleting As TBSUPPLY_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event TBSUPPLY_VERFOLGUNGRowDeleted As TBSUPPLY_VERFOLGUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBSUPPLY_VERFOLGUNGRow(ByVal row As TBSUPPLY_VERFOLGUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBSUPPLY_VERFOLGUNGRow(ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal GERAET_ID As Integer, ByVal LEVEL As Integer, ByVal PARTNUMBER As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal MARKER As String, ByVal MELDEDATUM As String) As TBSUPPLY_VERFOLGUNGRow Dim rowTBSUPPLY_VERFOLGUNGRow As TBSUPPLY_VERFOLGUNGRow = CType(Me.NewRow,TBSUPPLY_VERFOLGUNGRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SERIENNR, GERAET_ID, LEVEL, PARTNUMBER, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, MARKER, MELDEDATUM} @@ -4399,13 +4399,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLY_VERFOLGUNGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLY_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBSUPPLY_VERFOLGUNGDataTable = CType(MyBase.Clone,TBSUPPLY_VERFOLGUNGDataTable) cln.InitVars @@ -4413,13 +4413,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBSUPPLY_VERFOLGUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -4436,7 +4436,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4480,25 +4480,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBSUPPLY_VERFOLGUNGRow() As TBSUPPLY_VERFOLGUNGRow Return CType(Me.NewRow,TBSUPPLY_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBSUPPLY_VERFOLGUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBSUPPLY_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBSUPPLY_VERFOLGUNGRowChangedEvent) Is Nothing) Then @@ -4507,7 +4507,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBSUPPLY_VERFOLGUNGRowChangingEvent) Is Nothing) Then @@ -4516,7 +4516,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBSUPPLY_VERFOLGUNGRowDeletedEvent) Is Nothing) Then @@ -4525,7 +4525,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBSUPPLY_VERFOLGUNGRowDeletingEvent) Is Nothing) Then @@ -4534,13 +4534,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBSUPPLY_VERFOLGUNGRow(ByVal row As TBSUPPLY_VERFOLGUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4643,7 +4643,7 @@ Partial Public Class MyDataset Private columnIMPORT_BESTELLUNGEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKONFIGURATION" @@ -4653,7 +4653,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4671,14 +4671,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_OKColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_OK @@ -4686,7 +4686,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_BESTColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_BEST @@ -4694,7 +4694,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_SDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_SD @@ -4702,7 +4702,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -4710,7 +4710,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -4718,7 +4718,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -4726,7 +4726,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4734,7 +4734,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEF_SWColumn() As Global.System.Data.DataColumn Get Return Me.columnDEF_SW @@ -4742,7 +4742,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_BESTELLTColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_BESTELLT @@ -4750,7 +4750,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_ERSETZTColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_ERSETZT @@ -4758,7 +4758,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_UNKLARColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_UNKLAR @@ -4766,7 +4766,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IMPORT_XMLColumn() As Global.System.Data.DataColumn Get Return Me.columnIMPORT_XML @@ -4774,7 +4774,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IMPORT_XMLARCHIVColumn() As Global.System.Data.DataColumn Get Return Me.columnIMPORT_XMLARCHIV @@ -4782,7 +4782,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IMPORT_BESTELLUNGENColumn() As Global.System.Data.DataColumn Get Return Me.columnIMPORT_BESTELLUNGEN @@ -4790,7 +4790,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -4799,33 +4799,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKONFIGURATIONRow Get Return CType(Me.Rows(index),TBKONFIGURATIONRow) End Get End Property - _ + _ Public Event TBKONFIGURATIONRowChanging As TBKONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBKONFIGURATIONRowChanged As TBKONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBKONFIGURATIONRowDeleting As TBKONFIGURATIONRowChangeEventHandler - _ + _ Public Event TBKONFIGURATIONRowDeleted As TBKONFIGURATIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKONFIGURATIONRow(ByVal row As TBKONFIGURATIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKONFIGURATIONRow(ByVal STATUS_OK As Integer, ByVal STATUS_BEST As Integer, ByVal STATUS_SD As Integer, ByVal BEMERKUNG As String, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal GUID As Integer, ByVal DEF_SW As Integer, ByVal STATUS_BESTELLT As Integer, ByVal STATUS_ERSETZT As Integer, ByVal STATUS_UNKLAR As Integer, ByVal IMPORT_XML As String, ByVal IMPORT_XMLARCHIV As String, ByVal IMPORT_BESTELLUNGEN As String) As TBKONFIGURATIONRow Dim rowTBKONFIGURATIONRow As TBKONFIGURATIONRow = CType(Me.NewRow,TBKONFIGURATIONRow) Dim columnValuesArray() As Object = New Object() {STATUS_OK, STATUS_BEST, STATUS_SD, BEMERKUNG, GEAENDERTWER, GEAENDERTWANN, GUID, DEF_SW, STATUS_BESTELLT, STATUS_ERSETZT, STATUS_UNKLAR, IMPORT_XML, IMPORT_XMLARCHIV, IMPORT_BESTELLUNGEN} @@ -4835,13 +4835,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKONFIGURATIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKONFIGURATIONDataTable = CType(MyBase.Clone,TBKONFIGURATIONDataTable) cln.InitVars @@ -4849,13 +4849,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKONFIGURATIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSTATUS_OK = MyBase.Columns("STATUS_OK") Me.columnSTATUS_BEST = MyBase.Columns("STATUS_BEST") @@ -4874,7 +4874,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSTATUS_OK = New Global.System.Data.DataColumn("STATUS_OK", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSTATUS_OK) @@ -4923,25 +4923,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKONFIGURATIONRow() As TBKONFIGURATIONRow Return CType(Me.NewRow,TBKONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKONFIGURATIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKONFIGURATIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKONFIGURATIONRowChangedEvent) Is Nothing) Then @@ -4950,7 +4950,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKONFIGURATIONRowChangingEvent) Is Nothing) Then @@ -4959,7 +4959,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKONFIGURATIONRowDeletedEvent) Is Nothing) Then @@ -4968,7 +4968,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKONFIGURATIONRowDeletingEvent) Is Nothing) Then @@ -4977,13 +4977,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKONFIGURATIONRow(ByVal row As TBKONFIGURATIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5076,7 +5076,7 @@ Partial Public Class MyDataset Private columnTIMESTAMP1 As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBSTATUS" @@ -5086,7 +5086,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5104,14 +5104,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -5119,7 +5119,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -5127,7 +5127,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESCHREIBUNG @@ -5135,7 +5135,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -5143,7 +5143,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -5151,7 +5151,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -5159,7 +5159,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -5167,7 +5167,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -5175,7 +5175,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn Get Return Me.columnTIMESTAMP1 @@ -5183,7 +5183,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -5192,33 +5192,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBSTATUSRow Get Return CType(Me.Rows(index),TBSTATUSRow) End Get End Property - _ + _ Public Event TBSTATUSRowChanging As TBSTATUSRowChangeEventHandler - _ + _ Public Event TBSTATUSRowChanged As TBSTATUSRowChangeEventHandler - _ + _ Public Event TBSTATUSRowDeleting As TBSTATUSRowChangeEventHandler - _ + _ Public Event TBSTATUSRowDeleted As TBSTATUSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBSTATUSRow(ByVal row As TBSTATUSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBSTATUSRow(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal BEMERKUNG As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As TBSTATUSRow Dim rowTBSTATUSRow As TBSTATUSRow = CType(Me.NewRow,TBSTATUSRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, BESCHREIBUNG, BEMERKUNG, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1} @@ -5228,13 +5228,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBSTATUSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBSTATUSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBSTATUSDataTable = CType(MyBase.Clone,TBSTATUSDataTable) cln.InitVars @@ -5242,13 +5242,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBSTATUSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -5262,7 +5262,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -5300,25 +5300,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBSTATUSRow() As TBSTATUSRow Return CType(Me.NewRow,TBSTATUSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBSTATUSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBSTATUSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBSTATUSRowChangedEvent) Is Nothing) Then @@ -5327,7 +5327,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBSTATUSRowChangingEvent) Is Nothing) Then @@ -5336,7 +5336,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBSTATUSRowDeletedEvent) Is Nothing) Then @@ -5345,7 +5345,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBSTATUSRowDeletingEvent) Is Nothing) Then @@ -5354,13 +5354,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBSTATUSRow(ByVal row As TBSTATUSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5437,7 +5437,7 @@ Partial Public Class MyDataset Private columnMARKT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_MARKT" @@ -5447,7 +5447,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5465,14 +5465,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -5480,7 +5480,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -5489,33 +5489,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_MARKTRow Get Return CType(Me.Rows(index),TBWH_MARKTRow) End Get End Property - _ + _ Public Event TBWH_MARKTRowChanging As TBWH_MARKTRowChangeEventHandler - _ + _ Public Event TBWH_MARKTRowChanged As TBWH_MARKTRowChangeEventHandler - _ + _ Public Event TBWH_MARKTRowDeleting As TBWH_MARKTRowChangeEventHandler - _ + _ Public Event TBWH_MARKTRowDeleted As TBWH_MARKTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_MARKTRow(ByVal row As TBWH_MARKTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_MARKTRow(ByVal MARKT As String) As TBWH_MARKTRow Dim rowTBWH_MARKTRow As TBWH_MARKTRow = CType(Me.NewRow,TBWH_MARKTRow) Dim columnValuesArray() As Object = New Object() {MARKT} @@ -5525,7 +5525,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_MARKTDataTable = CType(MyBase.Clone,TBWH_MARKTDataTable) cln.InitVars @@ -5533,19 +5533,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_MARKTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnMARKT = MyBase.Columns("MARKT") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnMARKT = New Global.System.Data.DataColumn("MARKT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMARKT) @@ -5553,25 +5553,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_MARKTRow() As TBWH_MARKTRow Return CType(Me.NewRow,TBWH_MARKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_MARKTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_MARKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_MARKTRowChangedEvent) Is Nothing) Then @@ -5580,7 +5580,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_MARKTRowChangingEvent) Is Nothing) Then @@ -5589,7 +5589,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_MARKTRowDeletedEvent) Is Nothing) Then @@ -5598,7 +5598,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_MARKTRowDeletingEvent) Is Nothing) Then @@ -5607,13 +5607,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_MARKTRow(ByVal row As TBWH_MARKTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5724,7 +5724,7 @@ Partial Public Class MyDataset Private columnOH_DATE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLIES_AKTUELL" @@ -5734,7 +5734,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5752,14 +5752,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -5767,7 +5767,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -5775,7 +5775,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEVICE @@ -5783,7 +5783,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZ @@ -5791,7 +5791,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -5799,7 +5799,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -5807,7 +5807,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -5815,7 +5815,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -5823,7 +5823,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_ID @@ -5831,7 +5831,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS @@ -5839,7 +5839,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -5847,7 +5847,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -5855,7 +5855,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -5863,7 +5863,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -5871,7 +5871,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WANN @@ -5879,7 +5879,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WER @@ -5887,7 +5887,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ON_HOLDColumn() As Global.System.Data.DataColumn Get Return Me.columnON_HOLD @@ -5895,7 +5895,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OH_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnOH_DATE @@ -5903,7 +5903,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -5912,33 +5912,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_AKTUELLRow Get Return CType(Me.Rows(index),VWSUPPLIES_AKTUELLRow) End Get End Property - _ + _ Public Event VWSUPPLIES_AKTUELLRowChanging As VWSUPPLIES_AKTUELLRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_AKTUELLRowChanged As VWSUPPLIES_AKTUELLRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_AKTUELLRowDeleting As VWSUPPLIES_AKTUELLRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_AKTUELLRowDeleted As VWSUPPLIES_AKTUELLRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLIES_AKTUELLRow(ByVal row As VWSUPPLIES_AKTUELLRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWSUPPLIES_AKTUELLRow( _ ByVal SUPPLY_ID As Integer, _ ByVal MARKT As String, _ @@ -5966,13 +5966,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindBySUPPLY_ID(ByVal SUPPLY_ID As Integer) As VWSUPPLIES_AKTUELLRow Return CType(Me.Rows.Find(New Object() {SUPPLY_ID}),VWSUPPLIES_AKTUELLRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLIES_AKTUELLDataTable = CType(MyBase.Clone,VWSUPPLIES_AKTUELLDataTable) cln.InitVars @@ -5980,13 +5980,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLIES_AKTUELLDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") Me.columnMARKT = MyBase.Columns("MARKT") @@ -6009,7 +6009,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSUPPLY_ID) @@ -6071,25 +6071,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLIES_AKTUELLRow() As VWSUPPLIES_AKTUELLRow Return CType(Me.NewRow,VWSUPPLIES_AKTUELLRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLIES_AKTUELLRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLIES_AKTUELLRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLIES_AKTUELLRowChangedEvent) Is Nothing) Then @@ -6098,7 +6098,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLIES_AKTUELLRowChangingEvent) Is Nothing) Then @@ -6107,7 +6107,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLIES_AKTUELLRowDeletedEvent) Is Nothing) Then @@ -6116,7 +6116,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLIES_AKTUELLRowDeletingEvent) Is Nothing) Then @@ -6125,13 +6125,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLIES_AKTUELLRow(ByVal row As VWSUPPLIES_AKTUELLRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6226,7 +6226,7 @@ Partial Public Class MyDataset Private columnMANUALLY As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWGERAET_ORDER" @@ -6236,7 +6236,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6254,14 +6254,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -6269,7 +6269,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_BEZ @@ -6277,7 +6277,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -6285,7 +6285,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -6293,7 +6293,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_COUNT @@ -6301,7 +6301,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn Get Return Me.columnPPM @@ -6309,7 +6309,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLUNG @@ -6317,7 +6317,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT_ID @@ -6325,7 +6325,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT @@ -6333,7 +6333,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUALLYColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUALLY @@ -6341,7 +6341,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -6350,33 +6350,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAET_ORDERRow Get Return CType(Me.Rows(index),VWGERAET_ORDERRow) End Get End Property - _ + _ Public Event VWGERAET_ORDERRowChanging As VWGERAET_ORDERRowChangeEventHandler - _ + _ Public Event VWGERAET_ORDERRowChanged As VWGERAET_ORDERRowChangeEventHandler - _ + _ Public Event VWGERAET_ORDERRowDeleting As VWGERAET_ORDERRowChangeEventHandler - _ + _ Public Event VWGERAET_ORDERRowDeleted As VWGERAET_ORDERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWGERAET_ORDERRow(ByVal row As VWGERAET_ORDERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWGERAET_ORDERRow(ByVal GUID As Integer, ByVal GERAET_BEZ As String, ByVal SERIENNR As String, ByVal MARKT As String, ByVal PAGE_COUNT As Integer, ByVal PPM As Integer, ByVal BESTELLUNG As Boolean, ByVal MANDANT_ID As Integer, ByVal MANDANT As String, ByVal MANUALLY As Boolean) As VWGERAET_ORDERRow Dim rowVWGERAET_ORDERRow As VWGERAET_ORDERRow = CType(Me.NewRow,VWGERAET_ORDERRow) Dim columnValuesArray() As Object = New Object() {GUID, GERAET_BEZ, SERIENNR, MARKT, PAGE_COUNT, PPM, BESTELLUNG, MANDANT_ID, MANDANT, MANUALLY} @@ -6386,13 +6386,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWGERAET_ORDERRow Return CType(Me.Rows.Find(New Object() {GUID}),VWGERAET_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWGERAET_ORDERDataTable = CType(MyBase.Clone,VWGERAET_ORDERDataTable) cln.InitVars @@ -6400,13 +6400,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWGERAET_ORDERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnGERAET_BEZ = MyBase.Columns("GERAET_BEZ") @@ -6421,7 +6421,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -6460,25 +6460,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWGERAET_ORDERRow() As VWGERAET_ORDERRow Return CType(Me.NewRow,VWGERAET_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWGERAET_ORDERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWGERAET_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWGERAET_ORDERRowChangedEvent) Is Nothing) Then @@ -6487,7 +6487,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWGERAET_ORDERRowChangingEvent) Is Nothing) Then @@ -6496,7 +6496,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWGERAET_ORDERRowDeletedEvent) Is Nothing) Then @@ -6505,7 +6505,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWGERAET_ORDERRowDeletingEvent) Is Nothing) Then @@ -6514,13 +6514,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWGERAET_ORDERRow(ByVal row As VWGERAET_ORDERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6627,7 +6627,7 @@ Partial Public Class MyDataset Private columnFW As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLIES_TO_ORDER" @@ -6637,7 +6637,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6655,14 +6655,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -6670,7 +6670,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -6678,7 +6678,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZ @@ -6686,7 +6686,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -6694,7 +6694,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -6702,7 +6702,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -6710,7 +6710,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -6718,7 +6718,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_ID @@ -6726,7 +6726,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS @@ -6734,7 +6734,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -6742,7 +6742,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -6750,7 +6750,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WANN @@ -6758,7 +6758,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WER @@ -6766,7 +6766,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUELL @@ -6774,7 +6774,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT @@ -6782,7 +6782,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FWColumn() As Global.System.Data.DataColumn Get Return Me.columnFW @@ -6790,7 +6790,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -6799,33 +6799,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_TO_ORDERRow Get Return CType(Me.Rows(index),VWSUPPLIES_TO_ORDERRow) End Get End Property - _ + _ Public Event VWSUPPLIES_TO_ORDERRowChanging As VWSUPPLIES_TO_ORDERRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_TO_ORDERRowChanged As VWSUPPLIES_TO_ORDERRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_TO_ORDERRowDeleting As VWSUPPLIES_TO_ORDERRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_TO_ORDERRowDeleted As VWSUPPLIES_TO_ORDERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLIES_TO_ORDERRow(ByVal row As VWSUPPLIES_TO_ORDERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWSUPPLIES_TO_ORDERRow( _ ByVal SUPPLY_ID As Integer, _ ByVal parentVWGERAET_ORDERRowByVWGERAET_ORDER_VWSUPPLIES_TO_ORDER As VWGERAET_ORDERRow, _ @@ -6854,13 +6854,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindBySUPPLY_ID(ByVal SUPPLY_ID As Integer) As VWSUPPLIES_TO_ORDERRow Return CType(Me.Rows.Find(New Object() {SUPPLY_ID}),VWSUPPLIES_TO_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLIES_TO_ORDERDataTable = CType(MyBase.Clone,VWSUPPLIES_TO_ORDERDataTable) cln.InitVars @@ -6868,13 +6868,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLIES_TO_ORDERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSUPPLY_ID = MyBase.Columns("SUPPLY_ID") Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") @@ -6895,7 +6895,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSUPPLY_ID = New Global.System.Data.DataColumn("SUPPLY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSUPPLY_ID) @@ -6952,25 +6952,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLIES_TO_ORDERRow() As VWSUPPLIES_TO_ORDERRow Return CType(Me.NewRow,VWSUPPLIES_TO_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLIES_TO_ORDERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLIES_TO_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLIES_TO_ORDERRowChangedEvent) Is Nothing) Then @@ -6979,7 +6979,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLIES_TO_ORDERRowChangingEvent) Is Nothing) Then @@ -6988,7 +6988,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLIES_TO_ORDERRowDeletedEvent) Is Nothing) Then @@ -6997,7 +6997,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLIES_TO_ORDERRowDeletingEvent) Is Nothing) Then @@ -7006,13 +7006,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLIES_TO_ORDERRow(ByVal row As VWSUPPLIES_TO_ORDERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7127,7 +7127,7 @@ Partial Public Class MyDataset Private columnOH_DATE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBSUPPLIES" @@ -7137,7 +7137,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7155,14 +7155,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7170,7 +7170,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -7178,7 +7178,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -7186,7 +7186,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -7194,7 +7194,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -7202,7 +7202,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -7210,7 +7210,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -7218,7 +7218,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_ID @@ -7226,7 +7226,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WANN @@ -7234,7 +7234,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WER @@ -7242,7 +7242,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG @@ -7250,7 +7250,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -7258,7 +7258,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -7266,7 +7266,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -7274,7 +7274,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -7282,7 +7282,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn Get Return Me.columnTIMESTAMP1 @@ -7290,7 +7290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKER @@ -7298,7 +7298,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_DEF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_DEF_ID @@ -7306,7 +7306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ON_HOLDColumn() As Global.System.Data.DataColumn Get Return Me.columnON_HOLD @@ -7314,7 +7314,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property OH_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnOH_DATE @@ -7322,7 +7322,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -7331,33 +7331,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLIESRow Get Return CType(Me.Rows(index),TBSUPPLIESRow) End Get End Property - _ + _ Public Event TBSUPPLIESRowChanging As TBSUPPLIESRowChangeEventHandler - _ + _ Public Event TBSUPPLIESRowChanged As TBSUPPLIESRowChangeEventHandler - _ + _ Public Event TBSUPPLIESRowDeleting As TBSUPPLIESRowChangeEventHandler - _ + _ Public Event TBSUPPLIESRowDeleted As TBSUPPLIESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBSUPPLIESRow(ByVal row As TBSUPPLIESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBSUPPLIESRow( _ ByVal GERAET_ID As Integer, _ ByVal BEZEICHNUNG As String, _ @@ -7392,13 +7392,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLIESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBSUPPLIESDataTable = CType(MyBase.Clone,TBSUPPLIESDataTable) cln.InitVars @@ -7406,13 +7406,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBSUPPLIESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnGERAET_ID = MyBase.Columns("GERAET_ID") @@ -7437,7 +7437,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -7507,25 +7507,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBSUPPLIESRow() As TBSUPPLIESRow Return CType(Me.NewRow,TBSUPPLIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBSUPPLIESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBSUPPLIESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBSUPPLIESRowChangedEvent) Is Nothing) Then @@ -7534,7 +7534,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBSUPPLIESRowChangingEvent) Is Nothing) Then @@ -7543,7 +7543,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBSUPPLIESRowDeletedEvent) Is Nothing) Then @@ -7552,7 +7552,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBSUPPLIESRowDeletingEvent) Is Nothing) Then @@ -7561,13 +7561,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBSUPPLIESRow(ByVal row As TBSUPPLIESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7646,7 +7646,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_STATUS4" @@ -7656,7 +7656,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7674,14 +7674,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7689,7 +7689,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -7697,7 +7697,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -7706,33 +7706,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS4Row Get Return CType(Me.Rows(index),TBWH_STATUS4Row) End Get End Property - _ + _ Public Event TBWH_STATUS4RowChanging As TBWH_STATUS4RowChangeEventHandler - _ + _ Public Event TBWH_STATUS4RowChanged As TBWH_STATUS4RowChangeEventHandler - _ + _ Public Event TBWH_STATUS4RowDeleting As TBWH_STATUS4RowChangeEventHandler - _ + _ Public Event TBWH_STATUS4RowDeleted As TBWH_STATUS4RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_STATUS4Row(ByVal row As TBWH_STATUS4Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_STATUS4Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS4Row Dim rowTBWH_STATUS4Row As TBWH_STATUS4Row = CType(Me.NewRow,TBWH_STATUS4Row) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -7742,13 +7742,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS4Row Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS4Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_STATUS4DataTable = CType(MyBase.Clone,TBWH_STATUS4DataTable) cln.InitVars @@ -7756,20 +7756,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_STATUS4DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -7787,25 +7787,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_STATUS4Row() As TBWH_STATUS4Row Return CType(Me.NewRow,TBWH_STATUS4Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_STATUS4Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_STATUS4Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_STATUS4RowChangedEvent) Is Nothing) Then @@ -7814,7 +7814,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_STATUS4RowChangingEvent) Is Nothing) Then @@ -7823,7 +7823,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_STATUS4RowDeletedEvent) Is Nothing) Then @@ -7832,7 +7832,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_STATUS4RowDeletingEvent) Is Nothing) Then @@ -7841,13 +7841,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_STATUS4Row(ByVal row As TBWH_STATUS4Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7926,7 +7926,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_STATUS5" @@ -7936,7 +7936,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7954,14 +7954,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -7969,7 +7969,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -7977,7 +7977,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -7986,33 +7986,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_STATUS5Row Get Return CType(Me.Rows(index),TBWH_STATUS5Row) End Get End Property - _ + _ Public Event TBWH_STATUS5RowChanging As TBWH_STATUS5RowChangeEventHandler - _ + _ Public Event TBWH_STATUS5RowChanged As TBWH_STATUS5RowChangeEventHandler - _ + _ Public Event TBWH_STATUS5RowDeleting As TBWH_STATUS5RowChangeEventHandler - _ + _ Public Event TBWH_STATUS5RowDeleted As TBWH_STATUS5RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_STATUS5Row(ByVal row As TBWH_STATUS5Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_STATUS5Row(ByVal BEZEICHNUNG As String) As TBWH_STATUS5Row Dim rowTBWH_STATUS5Row As TBWH_STATUS5Row = CType(Me.NewRow,TBWH_STATUS5Row) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG} @@ -8022,13 +8022,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_STATUS5Row Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_STATUS5Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_STATUS5DataTable = CType(MyBase.Clone,TBWH_STATUS5DataTable) cln.InitVars @@ -8036,20 +8036,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_STATUS5DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -8067,25 +8067,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_STATUS5Row() As TBWH_STATUS5Row Return CType(Me.NewRow,TBWH_STATUS5Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_STATUS5Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_STATUS5Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_STATUS5RowChangedEvent) Is Nothing) Then @@ -8094,7 +8094,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_STATUS5RowChangingEvent) Is Nothing) Then @@ -8103,7 +8103,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_STATUS5RowDeletedEvent) Is Nothing) Then @@ -8112,7 +8112,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_STATUS5RowDeletingEvent) Is Nothing) Then @@ -8121,13 +8121,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_STATUS5Row(ByVal row As TBWH_STATUS5Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8226,7 +8226,7 @@ Partial Public Class MyDataset Private columnSUPPLY_ID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBSUPPLY_BESTELLUNG" @@ -8236,7 +8236,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8254,14 +8254,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -8269,7 +8269,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZEICHNUNG @@ -8277,7 +8277,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn Get Return Me.columnMENGE @@ -8285,7 +8285,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -8293,7 +8293,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUELL @@ -8301,7 +8301,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLT_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLT_WER @@ -8309,7 +8309,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLT_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLT_WANN @@ -8317,7 +8317,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET @@ -8325,7 +8325,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIEN_NR @@ -8333,7 +8333,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLNR @@ -8341,7 +8341,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -8349,7 +8349,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -8357,7 +8357,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -8366,33 +8366,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLY_BESTELLUNGRow Get Return CType(Me.Rows(index),TBSUPPLY_BESTELLUNGRow) End Get End Property - _ + _ Public Event TBSUPPLY_BESTELLUNGRowChanging As TBSUPPLY_BESTELLUNGRowChangeEventHandler - _ + _ Public Event TBSUPPLY_BESTELLUNGRowChanged As TBSUPPLY_BESTELLUNGRowChangeEventHandler - _ + _ Public Event TBSUPPLY_BESTELLUNGRowDeleting As TBSUPPLY_BESTELLUNGRowChangeEventHandler - _ + _ Public Event TBSUPPLY_BESTELLUNGRowDeleted As TBSUPPLY_BESTELLUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBSUPPLY_BESTELLUNGRow(ByVal row As TBSUPPLY_BESTELLUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBSUPPLY_BESTELLUNGRow(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal GERAET_ID As Integer, ByVal SUPPLY_ID As Integer) As TBSUPPLY_BESTELLUNGRow Dim rowTBSUPPLY_BESTELLUNGRow As TBSUPPLY_BESTELLUNGRow = CType(Me.NewRow,TBSUPPLY_BESTELLUNGRow) Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, GERAET_ID, SUPPLY_ID} @@ -8402,13 +8402,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLY_BESTELLUNGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLY_BESTELLUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBSUPPLY_BESTELLUNGDataTable = CType(MyBase.Clone,TBSUPPLY_BESTELLUNGDataTable) cln.InitVars @@ -8416,13 +8416,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBSUPPLY_BESTELLUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSUPPLY_BEZEICHNUNG = MyBase.Columns("SUPPLY_BEZEICHNUNG") @@ -8439,7 +8439,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -8487,25 +8487,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBSUPPLY_BESTELLUNGRow() As TBSUPPLY_BESTELLUNGRow Return CType(Me.NewRow,TBSUPPLY_BESTELLUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBSUPPLY_BESTELLUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBSUPPLY_BESTELLUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBSUPPLY_BESTELLUNGRowChangedEvent) Is Nothing) Then @@ -8514,7 +8514,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBSUPPLY_BESTELLUNGRowChangingEvent) Is Nothing) Then @@ -8523,7 +8523,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBSUPPLY_BESTELLUNGRowDeletedEvent) Is Nothing) Then @@ -8532,7 +8532,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBSUPPLY_BESTELLUNGRowDeletingEvent) Is Nothing) Then @@ -8541,13 +8541,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBSUPPLY_BESTELLUNGRow(ByVal row As TBSUPPLY_BESTELLUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8628,7 +8628,7 @@ Partial Public Class MyDataset Private columnSupply As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_SUPPLIES_MARKT" @@ -8638,7 +8638,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8656,14 +8656,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -8671,7 +8671,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -8679,7 +8679,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SupplyColumn() As Global.System.Data.DataColumn Get Return Me.columnSupply @@ -8687,7 +8687,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -8696,33 +8696,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_SUPPLIES_MARKTRow Get Return CType(Me.Rows(index),TBWH_SUPPLIES_MARKTRow) End Get End Property - _ + _ Public Event TBWH_SUPPLIES_MARKTRowChanging As TBWH_SUPPLIES_MARKTRowChangeEventHandler - _ + _ Public Event TBWH_SUPPLIES_MARKTRowChanged As TBWH_SUPPLIES_MARKTRowChangeEventHandler - _ + _ Public Event TBWH_SUPPLIES_MARKTRowDeleting As TBWH_SUPPLIES_MARKTRowChangeEventHandler - _ + _ Public Event TBWH_SUPPLIES_MARKTRowDeleted As TBWH_SUPPLIES_MARKTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_SUPPLIES_MARKTRow(ByVal row As TBWH_SUPPLIES_MARKTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_SUPPLIES_MARKTRow(ByVal BEZEICHNUNG As String, ByVal Supply As String) As TBWH_SUPPLIES_MARKTRow Dim rowTBWH_SUPPLIES_MARKTRow As TBWH_SUPPLIES_MARKTRow = CType(Me.NewRow,TBWH_SUPPLIES_MARKTRow) Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, Nothing, Supply} @@ -8732,13 +8732,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_SUPPLIES_MARKTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_SUPPLIES_MARKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_SUPPLIES_MARKTDataTable = CType(MyBase.Clone,TBWH_SUPPLIES_MARKTDataTable) cln.InitVars @@ -8746,13 +8746,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_SUPPLIES_MARKTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnGUID = MyBase.Columns("GUID") @@ -8760,7 +8760,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) @@ -8780,25 +8780,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_SUPPLIES_MARKTRow() As TBWH_SUPPLIES_MARKTRow Return CType(Me.NewRow,TBWH_SUPPLIES_MARKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_SUPPLIES_MARKTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_SUPPLIES_MARKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_SUPPLIES_MARKTRowChangedEvent) Is Nothing) Then @@ -8807,7 +8807,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_SUPPLIES_MARKTRowChangingEvent) Is Nothing) Then @@ -8816,7 +8816,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_SUPPLIES_MARKTRowDeletedEvent) Is Nothing) Then @@ -8825,7 +8825,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_SUPPLIES_MARKTRowDeletingEvent) Is Nothing) Then @@ -8834,13 +8834,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_SUPPLIES_MARKTRow(ByVal row As TBWH_SUPPLIES_MARKTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8938,8 +8938,16 @@ Partial Public Class MyDataset Private columnMENGE_ORIGIN As Global.System.Data.DataColumn + Private columnTRACKING_NO As Global.System.Data.DataColumn + + Private columnSHIPTO_POSTCODE As Global.System.Data.DataColumn + + Private columnCUSTOM_LABEL_1 As Global.System.Data.DataColumn + + Private columnCUSTOM_LABEL_2 As Global.System.Data.DataColumn + _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLY_BESTELLUNG_FRONTEND" @@ -8949,7 +8957,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8967,14 +8975,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -8982,7 +8990,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZEICHNUNG @@ -8990,7 +8998,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn Get Return Me.columnMENGE @@ -8998,7 +9006,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -9006,7 +9014,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUELL @@ -9014,7 +9022,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLT_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLT_WER @@ -9022,7 +9030,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLT_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLT_WANN @@ -9030,7 +9038,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET @@ -9038,7 +9046,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIEN_NR @@ -9046,7 +9054,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLNR @@ -9054,7 +9062,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILE_ORDER_CONFIRMColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_ORDER_CONFIRM @@ -9062,7 +9070,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MENGE_ORIGINColumn() As Global.System.Data.DataColumn Get Return Me.columnMENGE_ORIGIN @@ -9070,7 +9078,39 @@ Partial Public Class MyDataset End Property _ + Public ReadOnly Property TRACKING_NOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTRACKING_NO + End Get + End Property + + _ + Public ReadOnly Property SHIPTO_POSTCODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHIPTO_POSTCODE + End Get + End Property + + _ + Public ReadOnly Property CUSTOM_LABEL_1Column() As Global.System.Data.DataColumn + Get + Return Me.columnCUSTOM_LABEL_1 + End Get + End Property + + _ + Public ReadOnly Property CUSTOM_LABEL_2Column() As Global.System.Data.DataColumn + Get + Return Me.columnCUSTOM_LABEL_2 + End Get + End Property + + _ Public ReadOnly Property Count() As Integer Get @@ -9079,36 +9119,36 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLY_BESTELLUNG_FRONTENDRow Get Return CType(Me.Rows(index),VWSUPPLY_BESTELLUNG_FRONTENDRow) End Get End Property - _ + _ Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowChanging As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler - _ + _ Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowChanged As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler - _ + _ Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowDeleting As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler - _ + _ Public Event VWSUPPLY_BESTELLUNG_FRONTENDRowDeleted As VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal row As VWSUPPLY_BESTELLUNG_FRONTENDRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView As TBWH_MARKTRow, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal FILE_ORDER_CONFIRM As String, ByVal MENGE_ORIGIN As Integer) As VWSUPPLY_BESTELLUNG_FRONTENDRow + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Overloads Function AddVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView As TBWH_MARKTRow, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal FILE_ORDER_CONFIRM As String, ByVal MENGE_ORIGIN As Integer, ByVal TRACKING_NO As String, ByVal SHIPTO_POSTCODE As String, ByVal CUSTOM_LABEL_1 As String, ByVal CUSTOM_LABEL_2 As String) As VWSUPPLY_BESTELLUNG_FRONTENDRow Dim rowVWSUPPLY_BESTELLUNG_FRONTENDRow As VWSUPPLY_BESTELLUNG_FRONTENDRow = CType(Me.NewRow,VWSUPPLY_BESTELLUNG_FRONTENDRow) - Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZEICHNUNG, MENGE, Nothing, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN} + Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZEICHNUNG, MENGE, Nothing, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN, TRACKING_NO, SHIPTO_POSTCODE, CUSTOM_LABEL_1, CUSTOM_LABEL_2} If (Not (parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView) Is Nothing) Then columnValuesArray(3) = parentTBWH_MARKTRowByRelTBWH_MARKT_TBSUPPLY_BESTELLUNGView(0) End If @@ -9118,13 +9158,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWSUPPLY_BESTELLUNG_FRONTENDRow Return CType(Me.Rows.Find(New Object() {GUID}),VWSUPPLY_BESTELLUNG_FRONTENDRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLY_BESTELLUNG_FRONTENDDataTable = CType(MyBase.Clone,VWSUPPLY_BESTELLUNG_FRONTENDDataTable) cln.InitVars @@ -9132,13 +9172,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLY_BESTELLUNG_FRONTENDDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSUPPLY_BEZEICHNUNG = MyBase.Columns("SUPPLY_BEZEICHNUNG") @@ -9152,10 +9192,14 @@ Partial Public Class MyDataset Me.columnBESTELLNR = MyBase.Columns("BESTELLNR") Me.columnFILE_ORDER_CONFIRM = MyBase.Columns("FILE_ORDER_CONFIRM") Me.columnMENGE_ORIGIN = MyBase.Columns("MENGE_ORIGIN") + Me.columnTRACKING_NO = MyBase.Columns("TRACKING_NO") + Me.columnSHIPTO_POSTCODE = MyBase.Columns("SHIPTO_POSTCODE") + Me.columnCUSTOM_LABEL_1 = MyBase.Columns("CUSTOM_LABEL_1") + Me.columnCUSTOM_LABEL_2 = MyBase.Columns("CUSTOM_LABEL_2") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -9181,6 +9225,14 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnFILE_ORDER_CONFIRM) Me.columnMENGE_ORIGIN = New Global.System.Data.DataColumn("MENGE_ORIGIN", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMENGE_ORIGIN) + Me.columnTRACKING_NO = New Global.System.Data.DataColumn("TRACKING_NO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTRACKING_NO) + Me.columnSHIPTO_POSTCODE = New Global.System.Data.DataColumn("SHIPTO_POSTCODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHIPTO_POSTCODE) + Me.columnCUSTOM_LABEL_1 = New Global.System.Data.DataColumn("CUSTOM_LABEL_1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCUSTOM_LABEL_1) + Me.columnCUSTOM_LABEL_2 = New Global.System.Data.DataColumn("CUSTOM_LABEL_2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCUSTOM_LABEL_2) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false @@ -9190,40 +9242,41 @@ Partial Public Class MyDataset Me.columnSUPPLY_BEZEICHNUNG.MaxLength = 100 Me.columnMENGE.AllowDBNull = false Me.columnMENGE.DefaultValue = CType(1,Integer) - Me.columnMARKT.AllowDBNull = false Me.columnMARKT.MaxLength = 50 Me.columnMANUELL.AllowDBNull = false Me.columnMANUELL.DefaultValue = CType(true,Boolean) - Me.columnBESTELLT_WER.AllowDBNull = false Me.columnBESTELLT_WER.MaxLength = 30 - Me.columnBESTELLT_WANN.AllowDBNull = false Me.columnGERAET.MaxLength = 50 Me.columnSERIEN_NR.MaxLength = 50 Me.columnBESTELLNR.MaxLength = 30 Me.columnFILE_ORDER_CONFIRM.MaxLength = 100 Me.columnMENGE_ORIGIN.AllowDBNull = false + Me.columnTRACKING_NO.MaxLength = 100 + Me.columnSHIPTO_POSTCODE.MaxLength = 20 + Me.columnCUSTOM_LABEL_1.MaxLength = 100 + Me.columnCUSTOM_LABEL_2.MaxLength = 100 End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLY_BESTELLUNG_FRONTENDRow() As VWSUPPLY_BESTELLUNG_FRONTENDRow Return CType(Me.NewRow,VWSUPPLY_BESTELLUNG_FRONTENDRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLY_BESTELLUNG_FRONTENDRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLY_BESTELLUNG_FRONTENDRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowChangedEvent) Is Nothing) Then @@ -9232,7 +9285,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowChangingEvent) Is Nothing) Then @@ -9241,7 +9294,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowDeletedEvent) Is Nothing) Then @@ -9250,7 +9303,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLY_BESTELLUNG_FRONTENDRowDeletingEvent) Is Nothing) Then @@ -9259,13 +9312,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLY_BESTELLUNG_FRONTENDRow(ByVal row As VWSUPPLY_BESTELLUNG_FRONTENDRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -9350,7 +9403,7 @@ Partial Public Class MyDataset Private columnDATE_INITIAL As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBGERAETByMarkt" @@ -9360,7 +9413,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9378,14 +9431,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -9393,7 +9446,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -9401,7 +9454,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -9409,7 +9462,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -9417,7 +9470,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATE_INITIALColumn() As Global.System.Data.DataColumn Get Return Me.columnDATE_INITIAL @@ -9425,7 +9478,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -9434,33 +9487,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETByMarktRow Get Return CType(Me.Rows(index),TBGERAETByMarktRow) End Get End Property - _ + _ Public Event TBGERAETByMarktRowChanging As TBGERAETByMarktRowChangeEventHandler - _ + _ Public Event TBGERAETByMarktRowChanged As TBGERAETByMarktRowChangeEventHandler - _ + _ Public Event TBGERAETByMarktRowDeleting As TBGERAETByMarktRowChangeEventHandler - _ + _ Public Event TBGERAETByMarktRowDeleted As TBGERAETByMarktRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGERAETByMarktRow(ByVal row As TBGERAETByMarktRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGERAETByMarktRow(ByVal BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal DATE_INITIAL As Date) As TBGERAETByMarktRow Dim rowTBGERAETByMarktRow As TBGERAETByMarktRow = CType(Me.NewRow,TBGERAETByMarktRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, MARKT, SERIENNR, DATE_INITIAL} @@ -9470,13 +9523,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETByMarktRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETByMarktRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBGERAETByMarktDataTable = CType(MyBase.Clone,TBGERAETByMarktDataTable) cln.InitVars @@ -9484,13 +9537,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGERAETByMarktDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -9500,7 +9553,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -9528,25 +9581,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGERAETByMarktRow() As TBGERAETByMarktRow Return CType(Me.NewRow,TBGERAETByMarktRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGERAETByMarktRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGERAETByMarktRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGERAETByMarktRowChangedEvent) Is Nothing) Then @@ -9555,7 +9608,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGERAETByMarktRowChangingEvent) Is Nothing) Then @@ -9564,7 +9617,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGERAETByMarktRowDeletedEvent) Is Nothing) Then @@ -9573,7 +9626,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGERAETByMarktRowDeletingEvent) Is Nothing) Then @@ -9582,13 +9635,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGERAETByMarktRow(ByVal row As TBGERAETByMarktRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -9681,7 +9734,7 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBIMPORT_PRODUKT" @@ -9691,7 +9744,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9709,14 +9762,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -9724,7 +9777,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAGSNR @@ -9732,7 +9785,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIEN_NR @@ -9740,7 +9793,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnPRODUKT_NR @@ -9748,7 +9801,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODELL_NAME @@ -9756,7 +9809,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -9764,7 +9817,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -9772,7 +9825,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -9780,7 +9833,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -9788,7 +9841,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -9797,33 +9850,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBIMPORT_PRODUKTRow Get Return CType(Me.Rows(index),TBIMPORT_PRODUKTRow) End Get End Property - _ + _ Public Event TBIMPORT_PRODUKTRowChanging As TBIMPORT_PRODUKTRowChangeEventHandler - _ + _ Public Event TBIMPORT_PRODUKTRowChanged As TBIMPORT_PRODUKTRowChangeEventHandler - _ + _ Public Event TBIMPORT_PRODUKTRowDeleting As TBIMPORT_PRODUKTRowChangeEventHandler - _ + _ Public Event TBIMPORT_PRODUKTRowDeleted As TBIMPORT_PRODUKTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBIMPORT_PRODUKTRow(ByVal row As TBIMPORT_PRODUKTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBIMPORT_PRODUKTRow(ByVal VERTRAGSNR As String, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBIMPORT_PRODUKTRow Dim rowTBIMPORT_PRODUKTRow As TBIMPORT_PRODUKTRow = CType(Me.NewRow,TBIMPORT_PRODUKTRow) Dim columnValuesArray() As Object = New Object() {Nothing, VERTRAGSNR, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN} @@ -9833,13 +9886,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBIMPORT_PRODUKTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBIMPORT_PRODUKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIMPORT_PRODUKTDataTable = CType(MyBase.Clone,TBIMPORT_PRODUKTDataTable) cln.InitVars @@ -9847,13 +9900,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIMPORT_PRODUKTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") @@ -9867,7 +9920,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -9907,25 +9960,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBIMPORT_PRODUKTRow() As TBIMPORT_PRODUKTRow Return CType(Me.NewRow,TBIMPORT_PRODUKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIMPORT_PRODUKTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIMPORT_PRODUKTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIMPORT_PRODUKTRowChangedEvent) Is Nothing) Then @@ -9934,7 +9987,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIMPORT_PRODUKTRowChangingEvent) Is Nothing) Then @@ -9943,7 +9996,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIMPORT_PRODUKTRowDeletedEvent) Is Nothing) Then @@ -9952,7 +10005,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIMPORT_PRODUKTRowDeletingEvent) Is Nothing) Then @@ -9961,13 +10014,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBIMPORT_PRODUKTRow(ByVal row As TBIMPORT_PRODUKTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -10058,7 +10111,7 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBVERTRAEGE" @@ -10068,7 +10121,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -10086,14 +10139,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -10101,7 +10154,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGSNRColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAGSNR @@ -10109,7 +10162,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNG1Column() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG1 @@ -10117,7 +10170,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNG2Column() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG2 @@ -10125,7 +10178,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -10133,7 +10186,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -10141,7 +10194,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -10149,7 +10202,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -10157,7 +10210,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -10166,33 +10219,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBVERTRAEGERow Get Return CType(Me.Rows(index),TBVERTRAEGERow) End Get End Property - _ + _ Public Event TBVERTRAEGERowChanging As TBVERTRAEGERowChangeEventHandler - _ + _ Public Event TBVERTRAEGERowChanged As TBVERTRAEGERowChangeEventHandler - _ + _ Public Event TBVERTRAEGERowDeleting As TBVERTRAEGERowChangeEventHandler - _ + _ Public Event TBVERTRAEGERowDeleted As TBVERTRAEGERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBVERTRAEGERow(ByVal row As TBVERTRAEGERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBVERTRAEGERow(ByVal VERTRAGSNR As String, ByVal BEZEICHNUNG1 As String, ByVal BEZEICHNUNG2 As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBVERTRAEGERow Dim rowTBVERTRAEGERow As TBVERTRAEGERow = CType(Me.NewRow,TBVERTRAEGERow) Dim columnValuesArray() As Object = New Object() {Nothing, VERTRAGSNR, BEZEICHNUNG1, BEZEICHNUNG2, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN} @@ -10202,13 +10255,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBVERTRAEGERow Return CType(Me.Rows.Find(New Object() {GUID}),TBVERTRAEGERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBVERTRAEGEDataTable = CType(MyBase.Clone,TBVERTRAEGEDataTable) cln.InitVars @@ -10216,13 +10269,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBVERTRAEGEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnVERTRAGSNR = MyBase.Columns("VERTRAGSNR") @@ -10235,7 +10288,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -10272,25 +10325,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBVERTRAEGERow() As TBVERTRAEGERow Return CType(Me.NewRow,TBVERTRAEGERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBVERTRAEGERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBVERTRAEGERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBVERTRAEGERowChangedEvent) Is Nothing) Then @@ -10299,7 +10352,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBVERTRAEGERowChangingEvent) Is Nothing) Then @@ -10308,7 +10361,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBVERTRAEGERowDeletedEvent) Is Nothing) Then @@ -10317,7 +10370,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBVERTRAEGERowDeletingEvent) Is Nothing) Then @@ -10326,13 +10379,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBVERTRAEGERow(ByVal row As TBVERTRAEGERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -10427,7 +10480,7 @@ Partial Public Class MyDataset Private columnAKTIV As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBPRODUKT_VERTRAG" @@ -10437,7 +10490,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -10455,14 +10508,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -10470,7 +10523,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAG_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAG_ID @@ -10478,7 +10531,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIEN_NR @@ -10486,7 +10539,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnPRODUKT_NR @@ -10494,7 +10547,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODELL_NAME @@ -10502,7 +10555,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -10510,7 +10563,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -10518,7 +10571,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -10526,7 +10579,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -10534,7 +10587,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -10542,7 +10595,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -10551,33 +10604,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPRODUKT_VERTRAGRow Get Return CType(Me.Rows(index),TBPRODUKT_VERTRAGRow) End Get End Property - _ + _ Public Event TBPRODUKT_VERTRAGRowChanging As TBPRODUKT_VERTRAGRowChangeEventHandler - _ + _ Public Event TBPRODUKT_VERTRAGRowChanged As TBPRODUKT_VERTRAGRowChangeEventHandler - _ + _ Public Event TBPRODUKT_VERTRAGRowDeleting As TBPRODUKT_VERTRAGRowChangeEventHandler - _ + _ Public Event TBPRODUKT_VERTRAGRowDeleted As TBPRODUKT_VERTRAGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBPRODUKT_VERTRAGRow(ByVal row As TBPRODUKT_VERTRAGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBPRODUKT_VERTRAGRow(ByVal parentTBVERTRAEGERowByFK_TBPRODUKT_VERTRAG_VERTRAG As TBVERTRAEGERow, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal AKTIV As Boolean) As TBPRODUKT_VERTRAGRow Dim rowTBPRODUKT_VERTRAGRow As TBPRODUKT_VERTRAGRow = CType(Me.NewRow,TBPRODUKT_VERTRAGRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SERIEN_NR, PRODUKT_NR, MODELL_NAME, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV} @@ -10590,13 +10643,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBPRODUKT_VERTRAGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPRODUKT_VERTRAGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPRODUKT_VERTRAGDataTable = CType(MyBase.Clone,TBPRODUKT_VERTRAGDataTable) cln.InitVars @@ -10604,13 +10657,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPRODUKT_VERTRAGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnVERTRAG_ID = MyBase.Columns("VERTRAG_ID") @@ -10625,7 +10678,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -10667,25 +10720,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBPRODUKT_VERTRAGRow() As TBPRODUKT_VERTRAGRow Return CType(Me.NewRow,TBPRODUKT_VERTRAGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPRODUKT_VERTRAGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPRODUKT_VERTRAGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPRODUKT_VERTRAGRowChangedEvent) Is Nothing) Then @@ -10694,7 +10747,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPRODUKT_VERTRAGRowChangingEvent) Is Nothing) Then @@ -10703,7 +10756,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPRODUKT_VERTRAGRowDeletedEvent) Is Nothing) Then @@ -10712,7 +10765,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPRODUKT_VERTRAGRowDeletingEvent) Is Nothing) Then @@ -10721,13 +10774,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBPRODUKT_VERTRAGRow(ByVal row As TBPRODUKT_VERTRAGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -10820,7 +10873,7 @@ Partial Public Class MyDataset Private columnTIMESTAMP1 As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBGERAETE_NOTINLIST" @@ -10830,7 +10883,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -10848,14 +10901,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -10863,7 +10916,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAG_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAG_ID @@ -10871,7 +10924,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODELL_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODELL_NAME @@ -10879,7 +10932,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -10887,7 +10940,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -10895,7 +10948,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -10903,7 +10956,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -10911,7 +10964,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -10919,7 +10972,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn Get Return Me.columnTIMESTAMP1 @@ -10927,7 +10980,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -10936,33 +10989,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETE_NOTINLISTRow Get Return CType(Me.Rows(index),TBGERAETE_NOTINLISTRow) End Get End Property - _ + _ Public Event TBGERAETE_NOTINLISTRowChanging As TBGERAETE_NOTINLISTRowChangeEventHandler - _ + _ Public Event TBGERAETE_NOTINLISTRowChanged As TBGERAETE_NOTINLISTRowChangeEventHandler - _ + _ Public Event TBGERAETE_NOTINLISTRowDeleting As TBGERAETE_NOTINLISTRowChangeEventHandler - _ + _ Public Event TBGERAETE_NOTINLISTRowDeleted As TBGERAETE_NOTINLISTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGERAETE_NOTINLISTRow(ByVal row As TBGERAETE_NOTINLISTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGERAETE_NOTINLISTRow(ByVal parentTBVERTRAEGERowByFK_TBGERAETE_NOTINLIST_VERTRAG As TBVERTRAEGERow, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As TBGERAETE_NOTINLISTRow Dim rowTBGERAETE_NOTINLISTRow As TBGERAETE_NOTINLISTRow = CType(Me.NewRow,TBGERAETE_NOTINLISTRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, MODELL_NAME, MARKT, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1} @@ -10975,13 +11028,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETE_NOTINLISTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETE_NOTINLISTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBGERAETE_NOTINLISTDataTable = CType(MyBase.Clone,TBGERAETE_NOTINLISTDataTable) cln.InitVars @@ -10989,13 +11042,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGERAETE_NOTINLISTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnVERTRAG_ID = MyBase.Columns("VERTRAG_ID") @@ -11009,7 +11062,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -11048,25 +11101,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGERAETE_NOTINLISTRow() As TBGERAETE_NOTINLISTRow Return CType(Me.NewRow,TBGERAETE_NOTINLISTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGERAETE_NOTINLISTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGERAETE_NOTINLISTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGERAETE_NOTINLISTRowChangedEvent) Is Nothing) Then @@ -11075,7 +11128,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGERAETE_NOTINLISTRowChangingEvent) Is Nothing) Then @@ -11084,7 +11137,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGERAETE_NOTINLISTRowDeletedEvent) Is Nothing) Then @@ -11093,7 +11146,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGERAETE_NOTINLISTRowDeletingEvent) Is Nothing) Then @@ -11102,13 +11155,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGERAETE_NOTINLISTRow(ByVal row As TBGERAETE_NOTINLISTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -11187,7 +11240,7 @@ Partial Public Class MyDataset Private columnString As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_MODELL" @@ -11197,7 +11250,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11215,14 +11268,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRODUKT_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnPRODUKT_NR @@ -11230,7 +11283,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get Return Me.columnString @@ -11238,7 +11291,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -11247,33 +11300,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_MODELLRow Get Return CType(Me.Rows(index),TBWH_MODELLRow) End Get End Property - _ + _ Public Event TBWH_MODELLRowChanging As TBWH_MODELLRowChangeEventHandler - _ + _ Public Event TBWH_MODELLRowChanged As TBWH_MODELLRowChangeEventHandler - _ + _ Public Event TBWH_MODELLRowDeleting As TBWH_MODELLRowChangeEventHandler - _ + _ Public Event TBWH_MODELLRowDeleted As TBWH_MODELLRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_MODELLRow(ByVal row As TBWH_MODELLRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_MODELLRow(ByVal PRODUKT_NR As String, ByVal _String As String) As TBWH_MODELLRow Dim rowTBWH_MODELLRow As TBWH_MODELLRow = CType(Me.NewRow,TBWH_MODELLRow) Dim columnValuesArray() As Object = New Object() {PRODUKT_NR, _String} @@ -11283,7 +11336,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_MODELLDataTable = CType(MyBase.Clone,TBWH_MODELLDataTable) cln.InitVars @@ -11291,20 +11344,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_MODELLDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnPRODUKT_NR = MyBase.Columns("PRODUKT_NR") Me.columnString = MyBase.Columns("String") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnPRODUKT_NR = New Global.System.Data.DataColumn("PRODUKT_NR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPRODUKT_NR) @@ -11319,25 +11372,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_MODELLRow() As TBWH_MODELLRow Return CType(Me.NewRow,TBWH_MODELLRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_MODELLRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_MODELLRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_MODELLRowChangedEvent) Is Nothing) Then @@ -11346,7 +11399,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_MODELLRowChangingEvent) Is Nothing) Then @@ -11355,7 +11408,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_MODELLRowDeletedEvent) Is Nothing) Then @@ -11364,7 +11417,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_MODELLRowDeletingEvent) Is Nothing) Then @@ -11373,13 +11426,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_MODELLRow(ByVal row As TBWH_MODELLRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -11470,7 +11523,7 @@ Partial Public Class MyDataset Private columnSUPPLY_NAME_DATEI As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBSUPPLY_DEFINITION" @@ -11480,7 +11533,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11498,14 +11551,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -11513,7 +11566,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZ @@ -11521,7 +11574,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -11529,7 +11582,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -11537,7 +11590,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -11545,7 +11598,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -11553,7 +11606,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn Get Return Me.columnTIMESTAMP1 @@ -11561,7 +11614,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_NAME_DATEIColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_NAME_DATEI @@ -11569,7 +11622,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -11578,33 +11631,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBSUPPLY_DEFINITIONRow Get Return CType(Me.Rows(index),TBSUPPLY_DEFINITIONRow) End Get End Property - _ + _ Public Event TBSUPPLY_DEFINITIONRowChanging As TBSUPPLY_DEFINITIONRowChangeEventHandler - _ + _ Public Event TBSUPPLY_DEFINITIONRowChanged As TBSUPPLY_DEFINITIONRowChangeEventHandler - _ + _ Public Event TBSUPPLY_DEFINITIONRowDeleting As TBSUPPLY_DEFINITIONRowChangeEventHandler - _ + _ Public Event TBSUPPLY_DEFINITIONRowDeleted As TBSUPPLY_DEFINITIONRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBSUPPLY_DEFINITIONRow(ByVal row As TBSUPPLY_DEFINITIONRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBSUPPLY_DEFINITIONRow(ByVal SUPPLY_BEZ As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte, ByVal SUPPLY_NAME_DATEI As String) As TBSUPPLY_DEFINITIONRow Dim rowTBSUPPLY_DEFINITIONRow As TBSUPPLY_DEFINITIONRow = CType(Me.NewRow,TBSUPPLY_DEFINITIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, SUPPLY_BEZ, ERFASSTWER, ERFASSTWANN, GEAENDERTWER, GEAENDERTWANN, TIMESTAMP1, SUPPLY_NAME_DATEI} @@ -11614,13 +11667,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBSUPPLY_DEFINITIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBSUPPLY_DEFINITIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBSUPPLY_DEFINITIONDataTable = CType(MyBase.Clone,TBSUPPLY_DEFINITIONDataTable) cln.InitVars @@ -11628,13 +11681,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBSUPPLY_DEFINITIONDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSUPPLY_BEZ = MyBase.Columns("SUPPLY_BEZ") @@ -11647,7 +11700,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -11682,25 +11735,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBSUPPLY_DEFINITIONRow() As TBSUPPLY_DEFINITIONRow Return CType(Me.NewRow,TBSUPPLY_DEFINITIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBSUPPLY_DEFINITIONRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBSUPPLY_DEFINITIONRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBSUPPLY_DEFINITIONRowChangedEvent) Is Nothing) Then @@ -11709,7 +11762,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBSUPPLY_DEFINITIONRowChangingEvent) Is Nothing) Then @@ -11718,7 +11771,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBSUPPLY_DEFINITIONRowDeletedEvent) Is Nothing) Then @@ -11727,7 +11780,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBSUPPLY_DEFINITIONRowDeletingEvent) Is Nothing) Then @@ -11736,13 +11789,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBSUPPLY_DEFINITIONRow(ByVal row As TBSUPPLY_DEFINITIONRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -11829,7 +11882,7 @@ Partial Public Class MyDataset Private columnSCHWELLENWERT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBGERAET_SUPPLY_ZUORDNUNG" @@ -11839,7 +11892,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -11857,14 +11910,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -11872,7 +11925,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_BEZ @@ -11880,7 +11933,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -11888,7 +11941,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -11896,7 +11949,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -11904,7 +11957,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -11912,7 +11965,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -11921,33 +11974,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAET_SUPPLY_ZUORDNUNGRow Get Return CType(Me.Rows(index),TBGERAET_SUPPLY_ZUORDNUNGRow) End Get End Property - _ + _ Public Event TBGERAET_SUPPLY_ZUORDNUNGRowChanging As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler - _ + _ Public Event TBGERAET_SUPPLY_ZUORDNUNGRowChanged As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler - _ + _ Public Event TBGERAET_SUPPLY_ZUORDNUNGRowDeleting As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler - _ + _ Public Event TBGERAET_SUPPLY_ZUORDNUNGRowDeleted As TBGERAET_SUPPLY_ZUORDNUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGERAET_SUPPLY_ZUORDNUNGRow(ByVal row As TBGERAET_SUPPLY_ZUORDNUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGERAET_SUPPLY_ZUORDNUNGRow(ByVal GERAET_BEZ As String, ByVal parentTBSUPPLY_DEFINITIONRowByFK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID As TBSUPPLY_DEFINITIONRow, ByVal ERFASSTWER As String, ByVal PARTNUMBER As String, ByVal SCHWELLENWERT As Integer) As TBGERAET_SUPPLY_ZUORDNUNGRow Dim rowTBGERAET_SUPPLY_ZUORDNUNGRow As TBGERAET_SUPPLY_ZUORDNUNGRow = CType(Me.NewRow,TBGERAET_SUPPLY_ZUORDNUNGRow) Dim columnValuesArray() As Object = New Object() {Nothing, GERAET_BEZ, Nothing, ERFASSTWER, PARTNUMBER, SCHWELLENWERT} @@ -11960,13 +12013,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGERAET_SUPPLY_ZUORDNUNGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAET_SUPPLY_ZUORDNUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBGERAET_SUPPLY_ZUORDNUNGDataTable = CType(MyBase.Clone,TBGERAET_SUPPLY_ZUORDNUNGDataTable) cln.InitVars @@ -11974,13 +12027,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGERAET_SUPPLY_ZUORDNUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnGERAET_BEZ = MyBase.Columns("GERAET_BEZ") @@ -11991,7 +12044,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -12023,25 +12076,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGERAET_SUPPLY_ZUORDNUNGRow() As TBGERAET_SUPPLY_ZUORDNUNGRow Return CType(Me.NewRow,TBGERAET_SUPPLY_ZUORDNUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGERAET_SUPPLY_ZUORDNUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGERAET_SUPPLY_ZUORDNUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowChangedEvent) Is Nothing) Then @@ -12050,7 +12103,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowChangingEvent) Is Nothing) Then @@ -12059,7 +12112,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowDeletedEvent) Is Nothing) Then @@ -12068,7 +12121,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGERAET_SUPPLY_ZUORDNUNGRowDeletingEvent) Is Nothing) Then @@ -12077,13 +12130,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGERAET_SUPPLY_ZUORDNUNGRow(ByVal row As TBGERAET_SUPPLY_ZUORDNUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -12174,7 +12227,7 @@ Partial Public Class MyDataset Private columnERFASSTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWGeraet_Supply_Zuordnung" @@ -12184,7 +12237,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -12202,14 +12255,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -12217,7 +12270,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_BEZ @@ -12225,7 +12278,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZ @@ -12233,7 +12286,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -12241,7 +12294,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBER_ORDERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER_ORDER @@ -12249,7 +12302,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -12257,7 +12310,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -12265,7 +12318,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -12273,7 +12326,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -12282,33 +12335,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWGeraet_Supply_ZuordnungRow Get Return CType(Me.Rows(index),VWGeraet_Supply_ZuordnungRow) End Get End Property - _ + _ Public Event VWGeraet_Supply_ZuordnungRowChanging As VWGeraet_Supply_ZuordnungRowChangeEventHandler - _ + _ Public Event VWGeraet_Supply_ZuordnungRowChanged As VWGeraet_Supply_ZuordnungRowChangeEventHandler - _ + _ Public Event VWGeraet_Supply_ZuordnungRowDeleting As VWGeraet_Supply_ZuordnungRowChangeEventHandler - _ + _ Public Event VWGeraet_Supply_ZuordnungRowDeleted As VWGeraet_Supply_ZuordnungRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWGeraet_Supply_ZuordnungRow(ByVal row As VWGeraet_Supply_ZuordnungRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWGeraet_Supply_ZuordnungRow(ByVal GERAET_BEZ As String, ByVal SUPPLY_BEZ As String, ByVal PARTNUMBER As String, ByVal PARTNUMBER_ORDER As String, ByVal SCHWELLENWERT As Integer, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date) As VWGeraet_Supply_ZuordnungRow Dim rowVWGeraet_Supply_ZuordnungRow As VWGeraet_Supply_ZuordnungRow = CType(Me.NewRow,VWGeraet_Supply_ZuordnungRow) Dim columnValuesArray() As Object = New Object() {Nothing, GERAET_BEZ, SUPPLY_BEZ, PARTNUMBER, PARTNUMBER_ORDER, SCHWELLENWERT, ERFASSTWER, ERFASSTWANN} @@ -12318,13 +12371,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWGeraet_Supply_ZuordnungRow Return CType(Me.Rows.Find(New Object() {GUID}),VWGeraet_Supply_ZuordnungRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWGeraet_Supply_ZuordnungDataTable = CType(MyBase.Clone,VWGeraet_Supply_ZuordnungDataTable) cln.InitVars @@ -12332,13 +12385,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWGeraet_Supply_ZuordnungDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnGERAET_BEZ = MyBase.Columns("GERAET_BEZ") @@ -12351,7 +12404,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -12391,25 +12444,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWGeraet_Supply_ZuordnungRow() As VWGeraet_Supply_ZuordnungRow Return CType(Me.NewRow,VWGeraet_Supply_ZuordnungRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWGeraet_Supply_ZuordnungRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWGeraet_Supply_ZuordnungRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWGeraet_Supply_ZuordnungRowChangedEvent) Is Nothing) Then @@ -12418,7 +12471,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWGeraet_Supply_ZuordnungRowChangingEvent) Is Nothing) Then @@ -12427,7 +12480,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWGeraet_Supply_ZuordnungRowDeletedEvent) Is Nothing) Then @@ -12436,7 +12489,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWGeraet_Supply_ZuordnungRowDeletingEvent) Is Nothing) Then @@ -12445,13 +12498,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWGeraet_Supply_ZuordnungRow(ByVal row As VWGeraet_Supply_ZuordnungRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -12540,7 +12593,7 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBUSER_RECHTE" @@ -12550,7 +12603,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -12568,14 +12621,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -12583,7 +12636,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property USR_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSR_NAME @@ -12591,7 +12644,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EINLESENColumn() As Global.System.Data.DataColumn Get Return Me.columnEINLESEN @@ -12599,7 +12652,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KONGIGURATIONColumn() As Global.System.Data.DataColumn Get Return Me.columnKONGIGURATION @@ -12607,7 +12660,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -12615,7 +12668,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -12623,7 +12676,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -12631,7 +12684,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -12640,33 +12693,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBUSER_RECHTERow Get Return CType(Me.Rows(index),TBUSER_RECHTERow) End Get End Property - _ + _ Public Event TBUSER_RECHTERowChanging As TBUSER_RECHTERowChangeEventHandler - _ + _ Public Event TBUSER_RECHTERowChanged As TBUSER_RECHTERowChangeEventHandler - _ + _ Public Event TBUSER_RECHTERowDeleting As TBUSER_RECHTERowChangeEventHandler - _ + _ Public Event TBUSER_RECHTERowDeleted As TBUSER_RECHTERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBUSER_RECHTERow(ByVal row As TBUSER_RECHTERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBUSER_RECHTERow(ByVal USR_NAME As String, ByVal EINLESEN As Boolean, ByVal KONGIGURATION As Boolean, ByVal ERFASSTWER As String, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As TBUSER_RECHTERow Dim rowTBUSER_RECHTERow As TBUSER_RECHTERow = CType(Me.NewRow,TBUSER_RECHTERow) Dim columnValuesArray() As Object = New Object() {Nothing, USR_NAME, EINLESEN, KONGIGURATION, ERFASSTWER, GEAENDERTWER, GEAENDERTWANN} @@ -12676,13 +12729,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBUSER_RECHTERow Return CType(Me.Rows.Find(New Object() {GUID}),TBUSER_RECHTERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBUSER_RECHTEDataTable = CType(MyBase.Clone,TBUSER_RECHTEDataTable) cln.InitVars @@ -12690,13 +12743,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBUSER_RECHTEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSR_NAME = MyBase.Columns("USR_NAME") @@ -12708,7 +12761,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -12741,25 +12794,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBUSER_RECHTERow() As TBUSER_RECHTERow Return CType(Me.NewRow,TBUSER_RECHTERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBUSER_RECHTERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBUSER_RECHTERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBUSER_RECHTERowChangedEvent) Is Nothing) Then @@ -12768,7 +12821,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBUSER_RECHTERowChangingEvent) Is Nothing) Then @@ -12777,7 +12830,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBUSER_RECHTERowDeletedEvent) Is Nothing) Then @@ -12786,7 +12839,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBUSER_RECHTERowDeletingEvent) Is Nothing) Then @@ -12795,13 +12848,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBUSER_RECHTERow(ByVal row As TBUSER_RECHTERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -12892,7 +12945,7 @@ Partial Public Class MyDataset Private columnTIMESTAMP1 As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBMELDEDATUM" @@ -12902,7 +12955,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -12920,14 +12973,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -12935,7 +12988,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -12943,7 +12996,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -12951,7 +13004,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -12959,7 +13012,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -12967,7 +13020,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -12975,7 +13028,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -12983,7 +13036,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TIMESTAMP1Column() As Global.System.Data.DataColumn Get Return Me.columnTIMESTAMP1 @@ -12991,7 +13044,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -13000,33 +13053,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBMELDEDATUMRow Get Return CType(Me.Rows(index),TBMELDEDATUMRow) End Get End Property - _ + _ Public Event TBMELDEDATUMRowChanging As TBMELDEDATUMRowChangeEventHandler - _ + _ Public Event TBMELDEDATUMRowChanged As TBMELDEDATUMRowChangeEventHandler - _ + _ Public Event TBMELDEDATUMRowDeleting As TBMELDEDATUMRowChangeEventHandler - _ + _ Public Event TBMELDEDATUMRowDeleted As TBMELDEDATUMRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBMELDEDATUMRow(ByVal row As TBMELDEDATUMRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBMELDEDATUMRow(ByVal MELDEDATUM As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TIMESTAMP1() As Byte) As TBMELDEDATUMRow Dim rowTBMELDEDATUMRow As TBMELDEDATUMRow = CType(Me.NewRow,TBMELDEDATUMRow) Dim columnValuesArray() As Object = New Object() {Nothing, MELDEDATUM, MARKT, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TIMESTAMP1} @@ -13036,13 +13089,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByMELDEDATUMMARKT(ByVal MELDEDATUM As String, ByVal MARKT As String) As TBMELDEDATUMRow Return CType(Me.Rows.Find(New Object() {MELDEDATUM, MARKT}),TBMELDEDATUMRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBMELDEDATUMDataTable = CType(MyBase.Clone,TBMELDEDATUMDataTable) cln.InitVars @@ -13050,13 +13103,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMELDEDATUMDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMELDEDATUM = MyBase.Columns("MELDEDATUM") @@ -13069,7 +13122,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -13104,25 +13157,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBMELDEDATUMRow() As TBMELDEDATUMRow Return CType(Me.NewRow,TBMELDEDATUMRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMELDEDATUMRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMELDEDATUMRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMELDEDATUMRowChangedEvent) Is Nothing) Then @@ -13131,7 +13184,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMELDEDATUMRowChangingEvent) Is Nothing) Then @@ -13140,7 +13193,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMELDEDATUMRowDeletedEvent) Is Nothing) Then @@ -13149,7 +13202,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMELDEDATUMRowDeletingEvent) Is Nothing) Then @@ -13158,13 +13211,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBMELDEDATUMRow(ByVal row As TBMELDEDATUMRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -13301,7 +13354,7 @@ Partial Public Class MyDataset Private columnScanA4Total As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBGERAETE_VERFOLGUNG" @@ -13311,7 +13364,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -13329,14 +13382,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -13344,7 +13397,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAETE_ID @@ -13352,7 +13405,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -13360,7 +13413,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn Get Return Me.columnIP_ADRESSE @@ -13368,7 +13421,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -13376,7 +13429,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_COUNT @@ -13384,7 +13437,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -13392,7 +13445,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -13400,7 +13453,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -13408,7 +13461,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -13416,7 +13469,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATEINAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnDATEINAME @@ -13424,7 +13477,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -13432,7 +13485,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAG @@ -13440,7 +13493,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NOTINLISTColumn() As Global.System.Data.DataColumn Get Return Me.columnNOTINLIST @@ -13448,7 +13501,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODEL_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnMODEL_NR @@ -13456,7 +13509,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DOPPELT_GEMELDETColumn() As Global.System.Data.DataColumn Get Return Me.columnDOPPELT_GEMELDET @@ -13464,7 +13517,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NO_SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnNO_SERIENNR @@ -13472,7 +13525,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A3DuplexSheetsColumn() As Global.System.Data.DataColumn Get Return Me.columnA3DuplexSheets @@ -13480,7 +13533,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A3SimplexSheetsColumn() As Global.System.Data.DataColumn Get Return Me.columnA3SimplexSheets @@ -13488,7 +13541,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A4DuplexSheetsColumn() As Global.System.Data.DataColumn Get Return Me.columnA4DuplexSheets @@ -13496,7 +13549,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A4SimplexSheetsColumn() As Global.System.Data.DataColumn Get Return Me.columnA4SimplexSheets @@ -13504,7 +13557,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A3ColorTotalImpressionsColumn() As Global.System.Data.DataColumn Get Return Me.columnA3ColorTotalImpressions @@ -13512,7 +13565,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A3MonoTotalImpressionsColumn() As Global.System.Data.DataColumn Get Return Me.columnA3MonoTotalImpressions @@ -13520,7 +13573,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A4MonoTotalImpressionsColumn() As Global.System.Data.DataColumn Get Return Me.columnA4MonoTotalImpressions @@ -13528,7 +13581,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property A4ColorTotalImpressionsColumn() As Global.System.Data.DataColumn Get Return Me.columnA4ColorTotalImpressions @@ -13536,7 +13589,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AverageBlackCoverageColumn() As Global.System.Data.DataColumn Get Return Me.columnAverageBlackCoverage @@ -13544,7 +13597,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AverageCyanCoverageColumn() As Global.System.Data.DataColumn Get Return Me.columnAverageCyanCoverage @@ -13552,7 +13605,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AverageMagentaCoverageColumn() As Global.System.Data.DataColumn Get Return Me.columnAverageMagentaCoverage @@ -13560,7 +13613,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AverageYellowCoverageColumn() As Global.System.Data.DataColumn Get Return Me.columnAverageYellowCoverage @@ -13568,7 +13621,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ScanA3TotalColumn() As Global.System.Data.DataColumn Get Return Me.columnScanA3Total @@ -13576,7 +13629,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ScanA4TotalColumn() As Global.System.Data.DataColumn Get Return Me.columnScanA4Total @@ -13584,7 +13637,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -13593,33 +13646,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBGERAETE_VERFOLGUNGRow Get Return CType(Me.Rows(index),TBGERAETE_VERFOLGUNGRow) End Get End Property - _ + _ Public Event TBGERAETE_VERFOLGUNGRowChanging As TBGERAETE_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event TBGERAETE_VERFOLGUNGRowChanged As TBGERAETE_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event TBGERAETE_VERFOLGUNGRowDeleting As TBGERAETE_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event TBGERAETE_VERFOLGUNGRowDeleted As TBGERAETE_VERFOLGUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBGERAETE_VERFOLGUNGRow(ByVal row As TBGERAETE_VERFOLGUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBGERAETE_VERFOLGUNGRow( _ ByVal GERAETE_ID As Integer, _ ByVal BEZEICHNUNG As String, _ @@ -13659,13 +13712,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBGERAETE_VERFOLGUNGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBGERAETE_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBGERAETE_VERFOLGUNGDataTable = CType(MyBase.Clone,TBGERAETE_VERFOLGUNGDataTable) cln.InitVars @@ -13673,13 +13726,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBGERAETE_VERFOLGUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") @@ -13715,7 +13768,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -13805,25 +13858,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBGERAETE_VERFOLGUNGRow() As TBGERAETE_VERFOLGUNGRow Return CType(Me.NewRow,TBGERAETE_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBGERAETE_VERFOLGUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBGERAETE_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBGERAETE_VERFOLGUNGRowChangedEvent) Is Nothing) Then @@ -13832,7 +13885,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBGERAETE_VERFOLGUNGRowChangingEvent) Is Nothing) Then @@ -13841,7 +13894,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBGERAETE_VERFOLGUNGRowDeletedEvent) Is Nothing) Then @@ -13850,7 +13903,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBGERAETE_VERFOLGUNGRowDeletingEvent) Is Nothing) Then @@ -13859,13 +13912,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBGERAETE_VERFOLGUNGRow(ByVal row As TBGERAETE_VERFOLGUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -13956,7 +14009,7 @@ Partial Public Class MyDataset Private columnMARKT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWMarkt_Verfolgung" @@ -13966,7 +14019,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -13984,14 +14037,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAETE_ID @@ -13999,7 +14052,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEVICE @@ -14007,7 +14060,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -14015,7 +14068,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_MINColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_MIN @@ -14023,7 +14076,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_MAXColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_MAX @@ -14031,7 +14084,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DRUCKSEITENColumn() As Global.System.Data.DataColumn Get Return Me.columnDRUCKSEITEN @@ -14039,7 +14092,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LETZTES_MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnLETZTES_MELDEDATUM @@ -14047,7 +14100,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -14055,7 +14108,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -14064,33 +14117,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWMarkt_VerfolgungRow Get Return CType(Me.Rows(index),VWMarkt_VerfolgungRow) End Get End Property - _ + _ Public Event VWMarkt_VerfolgungRowChanging As VWMarkt_VerfolgungRowChangeEventHandler - _ + _ Public Event VWMarkt_VerfolgungRowChanged As VWMarkt_VerfolgungRowChangeEventHandler - _ + _ Public Event VWMarkt_VerfolgungRowDeleting As VWMarkt_VerfolgungRowChangeEventHandler - _ + _ Public Event VWMarkt_VerfolgungRowDeleted As VWMarkt_VerfolgungRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWMarkt_VerfolgungRow(ByVal row As VWMarkt_VerfolgungRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWMarkt_VerfolgungRow(ByVal GERAETE_ID As Integer, ByVal DEVICE As String, ByVal SERIENNR As String, ByVal PAGE_MIN As Integer, ByVal PAGE_MAX As Integer, ByVal DRUCKSEITEN As Integer, ByVal LETZTES_MELDEDATUM As Date, ByVal MARKT As String) As VWMarkt_VerfolgungRow Dim rowVWMarkt_VerfolgungRow As VWMarkt_VerfolgungRow = CType(Me.NewRow,VWMarkt_VerfolgungRow) Dim columnValuesArray() As Object = New Object() {GERAETE_ID, DEVICE, SERIENNR, PAGE_MIN, PAGE_MAX, DRUCKSEITEN, LETZTES_MELDEDATUM, MARKT} @@ -14100,7 +14153,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWMarkt_VerfolgungDataTable = CType(MyBase.Clone,VWMarkt_VerfolgungDataTable) cln.InitVars @@ -14108,13 +14161,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWMarkt_VerfolgungDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") Me.columnDEVICE = MyBase.Columns("DEVICE") @@ -14127,7 +14180,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGERAETE_ID = New Global.System.Data.DataColumn("GERAETE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGERAETE_ID) @@ -14158,25 +14211,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWMarkt_VerfolgungRow() As VWMarkt_VerfolgungRow Return CType(Me.NewRow,VWMarkt_VerfolgungRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWMarkt_VerfolgungRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWMarkt_VerfolgungRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWMarkt_VerfolgungRowChangedEvent) Is Nothing) Then @@ -14185,7 +14238,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWMarkt_VerfolgungRowChangingEvent) Is Nothing) Then @@ -14194,7 +14247,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWMarkt_VerfolgungRowDeletedEvent) Is Nothing) Then @@ -14203,7 +14256,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWMarkt_VerfolgungRowDeletingEvent) Is Nothing) Then @@ -14212,13 +14265,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWMarkt_VerfolgungRow(ByVal row As VWMarkt_VerfolgungRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -14317,7 +14370,7 @@ Partial Public Class MyDataset Private columnGERAETE_ID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWGERAETE_VERFOLGUNG" @@ -14327,7 +14380,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -14345,14 +14398,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMODELL @@ -14360,7 +14413,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -14368,7 +14421,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -14376,7 +14429,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PC_INITIALColumn() As Global.System.Data.DataColumn Get Return Me.columnPC_INITIAL @@ -14384,7 +14437,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_COUNT @@ -14392,7 +14445,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn Get Return Me.columnPPM @@ -14400,7 +14453,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -14408,7 +14461,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -14416,7 +14469,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATEINAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnDATEINAME @@ -14424,7 +14477,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IP_ADRESSEColumn() As Global.System.Data.DataColumn Get Return Me.columnIP_ADRESSE @@ -14432,7 +14485,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATE_INITIALColumn() As Global.System.Data.DataColumn Get Return Me.columnDATE_INITIAL @@ -14440,7 +14493,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAETE_ID @@ -14448,7 +14501,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -14457,33 +14510,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAETE_VERFOLGUNGRow Get Return CType(Me.Rows(index),VWGERAETE_VERFOLGUNGRow) End Get End Property - _ + _ Public Event VWGERAETE_VERFOLGUNGRowChanging As VWGERAETE_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event VWGERAETE_VERFOLGUNGRowChanged As VWGERAETE_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event VWGERAETE_VERFOLGUNGRowDeleting As VWGERAETE_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event VWGERAETE_VERFOLGUNGRowDeleted As VWGERAETE_VERFOLGUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWGERAETE_VERFOLGUNGRow(ByVal row As VWGERAETE_VERFOLGUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWGERAETE_VERFOLGUNGRow(ByVal MODELL As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal PC_INITIAL As Integer, ByVal PAGE_COUNT As Integer, ByVal PPM As Double, ByVal MELDEDATUM As Date, ByVal ERFASSTWANN As Date, ByVal DATEINAME As String, ByVal IP_ADRESSE As String, ByVal DATE_INITIAL As Date, ByVal GERAETE_ID As Integer) As VWGERAETE_VERFOLGUNGRow Dim rowVWGERAETE_VERFOLGUNGRow As VWGERAETE_VERFOLGUNGRow = CType(Me.NewRow,VWGERAETE_VERFOLGUNGRow) Dim columnValuesArray() As Object = New Object() {MODELL, MARKT, SERIENNR, PC_INITIAL, PAGE_COUNT, PPM, MELDEDATUM, ERFASSTWANN, DATEINAME, IP_ADRESSE, DATE_INITIAL, GERAETE_ID} @@ -14493,7 +14546,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWGERAETE_VERFOLGUNGDataTable = CType(MyBase.Clone,VWGERAETE_VERFOLGUNGDataTable) cln.InitVars @@ -14501,13 +14554,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWGERAETE_VERFOLGUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnMODELL = MyBase.Columns("MODELL") Me.columnMARKT = MyBase.Columns("MARKT") @@ -14524,7 +14577,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnMODELL = New Global.System.Data.DataColumn("MODELL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMODELL) @@ -14562,25 +14615,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWGERAETE_VERFOLGUNGRow() As VWGERAETE_VERFOLGUNGRow Return CType(Me.NewRow,VWGERAETE_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWGERAETE_VERFOLGUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWGERAETE_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWGERAETE_VERFOLGUNGRowChangedEvent) Is Nothing) Then @@ -14589,7 +14642,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWGERAETE_VERFOLGUNGRowChangingEvent) Is Nothing) Then @@ -14598,7 +14651,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWGERAETE_VERFOLGUNGRowDeletedEvent) Is Nothing) Then @@ -14607,7 +14660,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWGERAETE_VERFOLGUNGRowDeletingEvent) Is Nothing) Then @@ -14616,13 +14669,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWGERAETE_VERFOLGUNGRow(ByVal row As VWGERAETE_VERFOLGUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -14701,7 +14754,7 @@ Partial Public Class MyDataset Private columnDatum As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBREFLISTE_HISTORY" @@ -14711,7 +14764,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -14729,14 +14782,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -14744,7 +14797,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DatumColumn() As Global.System.Data.DataColumn Get Return Me.columnDatum @@ -14752,7 +14805,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -14761,33 +14814,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBREFLISTE_HISTORYRow Get Return CType(Me.Rows(index),TBREFLISTE_HISTORYRow) End Get End Property - _ + _ Public Event TBREFLISTE_HISTORYRowChanging As TBREFLISTE_HISTORYRowChangeEventHandler - _ + _ Public Event TBREFLISTE_HISTORYRowChanged As TBREFLISTE_HISTORYRowChangeEventHandler - _ + _ Public Event TBREFLISTE_HISTORYRowDeleting As TBREFLISTE_HISTORYRowChangeEventHandler - _ + _ Public Event TBREFLISTE_HISTORYRowDeleted As TBREFLISTE_HISTORYRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBREFLISTE_HISTORYRow(ByVal row As TBREFLISTE_HISTORYRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBREFLISTE_HISTORYRow(ByVal ERFASSTWER As String, ByVal Datum As Date) As TBREFLISTE_HISTORYRow Dim rowTBREFLISTE_HISTORYRow As TBREFLISTE_HISTORYRow = CType(Me.NewRow,TBREFLISTE_HISTORYRow) Dim columnValuesArray() As Object = New Object() {ERFASSTWER, Datum} @@ -14797,7 +14850,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBREFLISTE_HISTORYDataTable = CType(MyBase.Clone,TBREFLISTE_HISTORYDataTable) cln.InitVars @@ -14805,20 +14858,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBREFLISTE_HISTORYDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnERFASSTWER = MyBase.Columns("ERFASSTWER") Me.columnDatum = MyBase.Columns("Datum") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnERFASSTWER = New Global.System.Data.DataColumn("ERFASSTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERFASSTWER) @@ -14830,25 +14883,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBREFLISTE_HISTORYRow() As TBREFLISTE_HISTORYRow Return CType(Me.NewRow,TBREFLISTE_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBREFLISTE_HISTORYRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBREFLISTE_HISTORYRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBREFLISTE_HISTORYRowChangedEvent) Is Nothing) Then @@ -14857,7 +14910,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBREFLISTE_HISTORYRowChangingEvent) Is Nothing) Then @@ -14866,7 +14919,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBREFLISTE_HISTORYRowDeletedEvent) Is Nothing) Then @@ -14875,7 +14928,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBREFLISTE_HISTORYRowDeletingEvent) Is Nothing) Then @@ -14884,13 +14937,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBREFLISTE_HISTORYRow(ByVal row As TBREFLISTE_HISTORYRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -14987,7 +15040,7 @@ Partial Public Class MyDataset Private columnFILTER As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBMANDANTEN" @@ -14997,7 +15050,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -15015,14 +15068,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -15030,7 +15083,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -15038,7 +15091,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAME_LANGColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME_LANG @@ -15046,7 +15099,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KENNZEICHENColumn() As Global.System.Data.DataColumn Get Return Me.columnKENNZEICHEN @@ -15054,7 +15107,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FLEETWATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnFLEETWATCH @@ -15062,7 +15115,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLYWATCHColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLYWATCH @@ -15070,7 +15123,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERSTELLLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLLTWER @@ -15078,7 +15131,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN @@ -15086,7 +15139,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -15094,7 +15147,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -15102,7 +15155,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FILTERColumn() As Global.System.Data.DataColumn Get Return Me.columnFILTER @@ -15110,7 +15163,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -15119,33 +15172,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBMANDANTENRow Get Return CType(Me.Rows(index),TBMANDANTENRow) End Get End Property - _ + _ Public Event TBMANDANTENRowChanging As TBMANDANTENRowChangeEventHandler - _ + _ Public Event TBMANDANTENRowChanged As TBMANDANTENRowChangeEventHandler - _ + _ Public Event TBMANDANTENRowDeleting As TBMANDANTENRowChangeEventHandler - _ + _ Public Event TBMANDANTENRowDeleted As TBMANDANTENRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBMANDANTENRow(ByVal row As TBMANDANTENRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBMANDANTENRow(ByVal NAME As String, ByVal NAME_LANG As String, ByVal KENNZEICHEN As String, ByVal FLEETWATCH As Boolean, ByVal SUPPLYWATCH As Boolean, ByVal ERSTELLLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWANN As Date, ByVal GEAENDERTWER As String, ByVal FILTER As String) As TBMANDANTENRow Dim rowTBMANDANTENRow As TBMANDANTENRow = CType(Me.NewRow,TBMANDANTENRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, NAME_LANG, KENNZEICHEN, FLEETWATCH, SUPPLYWATCH, ERSTELLLTWER, ERSTELLTWANN, GEAENDERTWANN, GEAENDERTWER, FILTER} @@ -15155,13 +15208,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBMANDANTENRow Return CType(Me.Rows.Find(New Object() {GUID}),TBMANDANTENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBMANDANTENDataTable = CType(MyBase.Clone,TBMANDANTENDataTable) cln.InitVars @@ -15169,13 +15222,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBMANDANTENDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -15191,7 +15244,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -15238,25 +15291,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBMANDANTENRow() As TBMANDANTENRow Return CType(Me.NewRow,TBMANDANTENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBMANDANTENRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBMANDANTENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBMANDANTENRowChangedEvent) Is Nothing) Then @@ -15265,7 +15318,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBMANDANTENRowChangingEvent) Is Nothing) Then @@ -15274,7 +15327,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBMANDANTENRowDeletedEvent) Is Nothing) Then @@ -15283,7 +15336,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBMANDANTENRowDeletingEvent) Is Nothing) Then @@ -15292,13 +15345,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBMANDANTENRow(ByVal row As TBMANDANTENRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -15393,7 +15446,7 @@ Partial Public Class MyDataset Private columnPARTNUMBER As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLY_VERFOLGUNG" @@ -15403,7 +15456,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -15421,14 +15474,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MODELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMODELL @@ -15436,7 +15489,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -15444,7 +15497,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -15452,7 +15505,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLYColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY @@ -15460,7 +15513,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_LEVEL @@ -15468,7 +15521,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -15476,7 +15529,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -15484,7 +15537,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS @@ -15492,7 +15545,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_SERIENNR @@ -15500,7 +15553,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -15508,7 +15561,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -15517,33 +15570,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLY_VERFOLGUNGRow Get Return CType(Me.Rows(index),VWSUPPLY_VERFOLGUNGRow) End Get End Property - _ + _ Public Event VWSUPPLY_VERFOLGUNGRowChanging As VWSUPPLY_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event VWSUPPLY_VERFOLGUNGRowChanged As VWSUPPLY_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event VWSUPPLY_VERFOLGUNGRowDeleting As VWSUPPLY_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event VWSUPPLY_VERFOLGUNGRowDeleted As VWSUPPLY_VERFOLGUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLY_VERFOLGUNGRow(ByVal row As VWSUPPLY_VERFOLGUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWSUPPLY_VERFOLGUNGRow(ByVal MODELL As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal SUPPLY As String, ByVal SUPPLY_LEVEL As Integer, ByVal MELDEDATUM As Date, ByVal ERFASSTWANN As Date, ByVal STATUS As String, ByVal SUPPLY_SERIENNR As String, ByVal PARTNUMBER As String) As VWSUPPLY_VERFOLGUNGRow Dim rowVWSUPPLY_VERFOLGUNGRow As VWSUPPLY_VERFOLGUNGRow = CType(Me.NewRow,VWSUPPLY_VERFOLGUNGRow) Dim columnValuesArray() As Object = New Object() {MODELL, MARKT, SERIENNR, SUPPLY, SUPPLY_LEVEL, MELDEDATUM, ERFASSTWANN, STATUS, SUPPLY_SERIENNR, PARTNUMBER} @@ -15553,7 +15606,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLY_VERFOLGUNGDataTable = CType(MyBase.Clone,VWSUPPLY_VERFOLGUNGDataTable) cln.InitVars @@ -15561,13 +15614,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLY_VERFOLGUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnMODELL = MyBase.Columns("MODELL") Me.columnMARKT = MyBase.Columns("MARKT") @@ -15582,7 +15635,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnMODELL = New Global.System.Data.DataColumn("MODELL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMODELL) @@ -15616,25 +15669,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLY_VERFOLGUNGRow() As VWSUPPLY_VERFOLGUNGRow Return CType(Me.NewRow,VWSUPPLY_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLY_VERFOLGUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLY_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLY_VERFOLGUNGRowChangedEvent) Is Nothing) Then @@ -15643,7 +15696,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLY_VERFOLGUNGRowChangingEvent) Is Nothing) Then @@ -15652,7 +15705,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLY_VERFOLGUNGRowDeletedEvent) Is Nothing) Then @@ -15661,7 +15714,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLY_VERFOLGUNGRowDeletingEvent) Is Nothing) Then @@ -15670,13 +15723,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLY_VERFOLGUNGRow(ByVal row As VWSUPPLY_VERFOLGUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -15755,7 +15808,7 @@ Partial Public Class MyDataset Private columnDUPLIKATE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBIMPORT_PRODUKTE_DUPLIKATE" @@ -15765,7 +15818,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -15783,14 +15836,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIALColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIAL @@ -15798,7 +15851,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DUPLIKATEColumn() As Global.System.Data.DataColumn Get Return Me.columnDUPLIKATE @@ -15806,7 +15859,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -15815,33 +15868,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBIMPORT_PRODUKTE_DUPLIKATERow Get Return CType(Me.Rows(index),TBIMPORT_PRODUKTE_DUPLIKATERow) End Get End Property - _ + _ Public Event TBIMPORT_PRODUKTE_DUPLIKATERowChanging As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler - _ + _ Public Event TBIMPORT_PRODUKTE_DUPLIKATERowChanged As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler - _ + _ Public Event TBIMPORT_PRODUKTE_DUPLIKATERowDeleting As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler - _ + _ Public Event TBIMPORT_PRODUKTE_DUPLIKATERowDeleted As TBIMPORT_PRODUKTE_DUPLIKATERowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBIMPORT_PRODUKTE_DUPLIKATERow(ByVal row As TBIMPORT_PRODUKTE_DUPLIKATERow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBIMPORT_PRODUKTE_DUPLIKATERow(ByVal SERIAL As String, ByVal DUPLIKATE As Integer) As TBIMPORT_PRODUKTE_DUPLIKATERow Dim rowTBIMPORT_PRODUKTE_DUPLIKATERow As TBIMPORT_PRODUKTE_DUPLIKATERow = CType(Me.NewRow,TBIMPORT_PRODUKTE_DUPLIKATERow) Dim columnValuesArray() As Object = New Object() {SERIAL, DUPLIKATE} @@ -15851,7 +15904,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBIMPORT_PRODUKTE_DUPLIKATEDataTable = CType(MyBase.Clone,TBIMPORT_PRODUKTE_DUPLIKATEDataTable) cln.InitVars @@ -15859,20 +15912,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBIMPORT_PRODUKTE_DUPLIKATEDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSERIAL = MyBase.Columns("SERIAL") Me.columnDUPLIKATE = MyBase.Columns("DUPLIKATE") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSERIAL = New Global.System.Data.DataColumn("SERIAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSERIAL) @@ -15884,25 +15937,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBIMPORT_PRODUKTE_DUPLIKATERow() As TBIMPORT_PRODUKTE_DUPLIKATERow Return CType(Me.NewRow,TBIMPORT_PRODUKTE_DUPLIKATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBIMPORT_PRODUKTE_DUPLIKATERow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBIMPORT_PRODUKTE_DUPLIKATERow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowChangedEvent) Is Nothing) Then @@ -15911,7 +15964,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowChangingEvent) Is Nothing) Then @@ -15920,7 +15973,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowDeletedEvent) Is Nothing) Then @@ -15929,7 +15982,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBIMPORT_PRODUKTE_DUPLIKATERowDeletingEvent) Is Nothing) Then @@ -15938,13 +15991,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBIMPORT_PRODUKTE_DUPLIKATERow(ByVal row As TBIMPORT_PRODUKTE_DUPLIKATERow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -16027,7 +16080,7 @@ Partial Public Class MyDataset Private columnERFASSTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBCHANGE_LOG_GERAET" @@ -16037,7 +16090,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -16055,14 +16108,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -16070,7 +16123,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDUNG @@ -16078,7 +16131,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -16086,7 +16139,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -16094,7 +16147,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -16103,33 +16156,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCHANGE_LOG_GERAETRow Get Return CType(Me.Rows(index),TBCHANGE_LOG_GERAETRow) End Get End Property - _ + _ Public Event TBCHANGE_LOG_GERAETRowChanging As TBCHANGE_LOG_GERAETRowChangeEventHandler - _ + _ Public Event TBCHANGE_LOG_GERAETRowChanged As TBCHANGE_LOG_GERAETRowChangeEventHandler - _ + _ Public Event TBCHANGE_LOG_GERAETRowDeleting As TBCHANGE_LOG_GERAETRowChangeEventHandler - _ + _ Public Event TBCHANGE_LOG_GERAETRowDeleted As TBCHANGE_LOG_GERAETRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBCHANGE_LOG_GERAETRow(ByVal row As TBCHANGE_LOG_GERAETRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBCHANGE_LOG_GERAETRow(ByVal MELDUNG As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date) As TBCHANGE_LOG_GERAETRow Dim rowTBCHANGE_LOG_GERAETRow As TBCHANGE_LOG_GERAETRow = CType(Me.NewRow,TBCHANGE_LOG_GERAETRow) Dim columnValuesArray() As Object = New Object() {Nothing, MELDUNG, ERFASSTWER, ERFASSTWANN} @@ -16139,13 +16192,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBCHANGE_LOG_GERAETRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCHANGE_LOG_GERAETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCHANGE_LOG_GERAETDataTable = CType(MyBase.Clone,TBCHANGE_LOG_GERAETDataTable) cln.InitVars @@ -16153,13 +16206,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCHANGE_LOG_GERAETDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMELDUNG = MyBase.Columns("MELDUNG") @@ -16168,7 +16221,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -16193,25 +16246,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBCHANGE_LOG_GERAETRow() As TBCHANGE_LOG_GERAETRow Return CType(Me.NewRow,TBCHANGE_LOG_GERAETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCHANGE_LOG_GERAETRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCHANGE_LOG_GERAETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCHANGE_LOG_GERAETRowChangedEvent) Is Nothing) Then @@ -16220,7 +16273,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCHANGE_LOG_GERAETRowChangingEvent) Is Nothing) Then @@ -16229,7 +16282,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCHANGE_LOG_GERAETRowDeletedEvent) Is Nothing) Then @@ -16238,7 +16291,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCHANGE_LOG_GERAETRowDeletingEvent) Is Nothing) Then @@ -16247,13 +16300,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBCHANGE_LOG_GERAETRow(ByVal row As TBCHANGE_LOG_GERAETRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -16342,7 +16395,7 @@ Partial Public Class MyDataset Private columnDATEI As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBSERVICE_IMP_LOG" @@ -16352,7 +16405,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -16370,14 +16423,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -16385,7 +16438,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAG @@ -16393,7 +16446,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -16401,7 +16454,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IMPORT_DATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnIMPORT_DATUM @@ -16409,7 +16462,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -16417,7 +16470,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property IMPORT_STATEColumn() As Global.System.Data.DataColumn Get Return Me.columnIMPORT_STATE @@ -16425,7 +16478,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DATEIColumn() As Global.System.Data.DataColumn Get Return Me.columnDATEI @@ -16433,7 +16486,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -16442,33 +16495,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBSERVICE_IMP_LOGRow Get Return CType(Me.Rows(index),TBSERVICE_IMP_LOGRow) End Get End Property - _ + _ Public Event TBSERVICE_IMP_LOGRowChanging As TBSERVICE_IMP_LOGRowChangeEventHandler - _ + _ Public Event TBSERVICE_IMP_LOGRowChanged As TBSERVICE_IMP_LOGRowChangeEventHandler - _ + _ Public Event TBSERVICE_IMP_LOGRowDeleting As TBSERVICE_IMP_LOGRowChangeEventHandler - _ + _ Public Event TBSERVICE_IMP_LOGRowDeleted As TBSERVICE_IMP_LOGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBSERVICE_IMP_LOGRow(ByVal row As TBSERVICE_IMP_LOGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBSERVICE_IMP_LOGRow(ByVal NAME As String, ByVal VERTRAG As String, ByVal MELDEDATUM As Date, ByVal IMPORT_DATUM As Date, ByVal ERFASSTWANN As Date, ByVal IMPORT_STATE As String, ByVal DATEI As String) As TBSERVICE_IMP_LOGRow Dim rowTBSERVICE_IMP_LOGRow As TBSERVICE_IMP_LOGRow = CType(Me.NewRow,TBSERVICE_IMP_LOGRow) Dim columnValuesArray() As Object = New Object() {NAME, VERTRAG, MELDEDATUM, IMPORT_DATUM, ERFASSTWANN, IMPORT_STATE, DATEI} @@ -16478,7 +16531,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBSERVICE_IMP_LOGDataTable = CType(MyBase.Clone,TBSERVICE_IMP_LOGDataTable) cln.InitVars @@ -16486,13 +16539,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBSERVICE_IMP_LOGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnNAME = MyBase.Columns("NAME") Me.columnVERTRAG = MyBase.Columns("VERTRAG") @@ -16504,7 +16557,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) @@ -16532,25 +16585,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBSERVICE_IMP_LOGRow() As TBSERVICE_IMP_LOGRow Return CType(Me.NewRow,TBSERVICE_IMP_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBSERVICE_IMP_LOGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBSERVICE_IMP_LOGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBSERVICE_IMP_LOGRowChangedEvent) Is Nothing) Then @@ -16559,7 +16612,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBSERVICE_IMP_LOGRowChangingEvent) Is Nothing) Then @@ -16568,7 +16621,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBSERVICE_IMP_LOGRowDeletedEvent) Is Nothing) Then @@ -16577,7 +16630,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBSERVICE_IMP_LOGRowDeletingEvent) Is Nothing) Then @@ -16586,13 +16639,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBSERVICE_IMP_LOGRow(ByVal row As TBSERVICE_IMP_LOGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -16685,7 +16738,7 @@ Partial Public Class MyDataset Private columnMARKER As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWGERAETE_MELDUNG_STATUS" @@ -16695,7 +16748,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -16713,14 +16766,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT_ID @@ -16728,7 +16781,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAETE_ID @@ -16736,7 +16789,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -16744,7 +16797,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -16752,7 +16805,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -16760,7 +16813,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MELDEDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnMELDEDATUM @@ -16768,7 +16821,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAG @@ -16776,7 +16829,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATE @@ -16784,7 +16837,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKERColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKER @@ -16792,7 +16845,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -16801,33 +16854,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWGERAETE_MELDUNG_STATUSRow Get Return CType(Me.Rows(index),VWGERAETE_MELDUNG_STATUSRow) End Get End Property - _ + _ Public Event VWGERAETE_MELDUNG_STATUSRowChanging As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler - _ + _ Public Event VWGERAETE_MELDUNG_STATUSRowChanged As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler - _ + _ Public Event VWGERAETE_MELDUNG_STATUSRowDeleting As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler - _ + _ Public Event VWGERAETE_MELDUNG_STATUSRowDeleted As VWGERAETE_MELDUNG_STATUSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWGERAETE_MELDUNG_STATUSRow(ByVal row As VWGERAETE_MELDUNG_STATUSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWGERAETE_MELDUNG_STATUSRow(ByVal MANDANT_ID As Integer, ByVal GERAETE_ID As Integer, ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal MARKT As String, ByVal MELDEDATUM As String, ByVal VERTRAG As String, ByVal STATE As String, ByVal MARKER As String) As VWGERAETE_MELDUNG_STATUSRow Dim rowVWGERAETE_MELDUNG_STATUSRow As VWGERAETE_MELDUNG_STATUSRow = CType(Me.NewRow,VWGERAETE_MELDUNG_STATUSRow) Dim columnValuesArray() As Object = New Object() {MANDANT_ID, GERAETE_ID, BEZEICHNUNG, SERIENNR, MARKT, MELDEDATUM, VERTRAG, STATE, MARKER} @@ -16837,7 +16890,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWGERAETE_MELDUNG_STATUSDataTable = CType(MyBase.Clone,VWGERAETE_MELDUNG_STATUSDataTable) cln.InitVars @@ -16845,13 +16898,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWGERAETE_MELDUNG_STATUSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") Me.columnGERAETE_ID = MyBase.Columns("GERAETE_ID") @@ -16865,7 +16918,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnMANDANT_ID = New Global.System.Data.DataColumn("MANDANT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMANDANT_ID) @@ -16899,25 +16952,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWGERAETE_MELDUNG_STATUSRow() As VWGERAETE_MELDUNG_STATUSRow Return CType(Me.NewRow,VWGERAETE_MELDUNG_STATUSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWGERAETE_MELDUNG_STATUSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWGERAETE_MELDUNG_STATUSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWGERAETE_MELDUNG_STATUSRowChangedEvent) Is Nothing) Then @@ -16926,7 +16979,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWGERAETE_MELDUNG_STATUSRowChangingEvent) Is Nothing) Then @@ -16935,7 +16988,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWGERAETE_MELDUNG_STATUSRowDeletedEvent) Is Nothing) Then @@ -16944,7 +16997,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWGERAETE_MELDUNG_STATUSRowDeletingEvent) Is Nothing) Then @@ -16953,13 +17006,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWGERAETE_MELDUNG_STATUSRow(ByVal row As VWGERAETE_MELDUNG_STATUSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -17042,7 +17095,7 @@ Partial Public Class MyDataset Private columnErfasst_wann As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "ViewSUPPLY_STATUS_VERFOLGUNG" @@ -17052,7 +17105,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -17070,14 +17123,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MeldedatumColumn() As Global.System.Data.DataColumn Get Return Me.columnMeldedatum @@ -17085,7 +17138,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property StatusColumn() As Global.System.Data.DataColumn Get Return Me.columnStatus @@ -17093,7 +17146,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MarkerColumn() As Global.System.Data.DataColumn Get Return Me.columnMarker @@ -17101,7 +17154,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Erfasst_wannColumn() As Global.System.Data.DataColumn Get Return Me.columnErfasst_wann @@ -17109,7 +17162,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -17118,33 +17171,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As ViewSUPPLY_STATUS_VERFOLGUNGRow Get Return CType(Me.Rows(index),ViewSUPPLY_STATUS_VERFOLGUNGRow) End Get End Property - _ + _ Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowChanging As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowChanged As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowDeleting As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler - _ + _ Public Event ViewSUPPLY_STATUS_VERFOLGUNGRowDeleted As ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddViewSUPPLY_STATUS_VERFOLGUNGRow(ByVal row As ViewSUPPLY_STATUS_VERFOLGUNGRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddViewSUPPLY_STATUS_VERFOLGUNGRow(ByVal Meldedatum As Date, ByVal Status As String, ByVal Marker As String, ByVal Erfasst_wann As Date) As ViewSUPPLY_STATUS_VERFOLGUNGRow Dim rowViewSUPPLY_STATUS_VERFOLGUNGRow As ViewSUPPLY_STATUS_VERFOLGUNGRow = CType(Me.NewRow,ViewSUPPLY_STATUS_VERFOLGUNGRow) Dim columnValuesArray() As Object = New Object() {Meldedatum, Status, Marker, Erfasst_wann} @@ -17154,7 +17207,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As ViewSUPPLY_STATUS_VERFOLGUNGDataTable = CType(MyBase.Clone,ViewSUPPLY_STATUS_VERFOLGUNGDataTable) cln.InitVars @@ -17162,13 +17215,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New ViewSUPPLY_STATUS_VERFOLGUNGDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnMeldedatum = MyBase.Columns("Meldedatum") Me.columnStatus = MyBase.Columns("Status") @@ -17177,7 +17230,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnMeldedatum = New Global.System.Data.DataColumn("Meldedatum", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMeldedatum) @@ -17195,25 +17248,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewViewSUPPLY_STATUS_VERFOLGUNGRow() As ViewSUPPLY_STATUS_VERFOLGUNGRow Return CType(Me.NewRow,ViewSUPPLY_STATUS_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New ViewSUPPLY_STATUS_VERFOLGUNGRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(ViewSUPPLY_STATUS_VERFOLGUNGRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowChangedEvent) Is Nothing) Then @@ -17222,7 +17275,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowChangingEvent) Is Nothing) Then @@ -17231,7 +17284,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowDeletedEvent) Is Nothing) Then @@ -17240,7 +17293,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.ViewSUPPLY_STATUS_VERFOLGUNGRowDeletingEvent) Is Nothing) Then @@ -17249,13 +17302,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveViewSUPPLY_STATUS_VERFOLGUNGRow(ByVal row As ViewSUPPLY_STATUS_VERFOLGUNGRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -17352,7 +17405,7 @@ Partial Public Class MyDataset Private columnSUPPLY_ID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLIES_BESTELLUNG_GESENDET" @@ -17362,7 +17415,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -17380,14 +17433,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELL_ID @@ -17395,7 +17448,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLT_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLT_WANN @@ -17403,7 +17456,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLT_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLT_WER @@ -17411,7 +17464,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET @@ -17419,7 +17472,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUELL @@ -17427,7 +17480,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -17435,7 +17488,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn Get Return Me.columnMENGE @@ -17443,7 +17496,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIEN_NRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIEN_NR @@ -17451,7 +17504,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZEICHNUNG @@ -17459,7 +17512,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT @@ -17467,7 +17520,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -17475,7 +17528,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -17484,33 +17537,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_BESTELLUNG_GESENDETRow Get Return CType(Me.Rows(index),VWSUPPLIES_BESTELLUNG_GESENDETRow) End Get End Property - _ + _ Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowChanging As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowChanged As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowDeleting As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_BESTELLUNG_GESENDETRowDeleted As VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLIES_BESTELLUNG_GESENDETRow(ByVal row As VWSUPPLIES_BESTELLUNG_GESENDETRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWSUPPLIES_BESTELLUNG_GESENDETRow(ByVal BESTELL_ID As Integer, ByVal BESTELLT_WANN As Date, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal MANUELL As Boolean, ByVal MARKT As String, ByVal MENGE As Integer, ByVal SERIEN_NR As String, ByVal SUPPLY_BEZEICHNUNG As String, ByVal MANDANT As String, ByVal SUPPLY_ID As Integer) As VWSUPPLIES_BESTELLUNG_GESENDETRow Dim rowVWSUPPLIES_BESTELLUNG_GESENDETRow As VWSUPPLIES_BESTELLUNG_GESENDETRow = CType(Me.NewRow,VWSUPPLIES_BESTELLUNG_GESENDETRow) Dim columnValuesArray() As Object = New Object() {BESTELL_ID, BESTELLT_WANN, BESTELLT_WER, GERAET, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, MANDANT, SUPPLY_ID} @@ -17520,13 +17573,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByBESTELL_ID(ByVal BESTELL_ID As Integer) As VWSUPPLIES_BESTELLUNG_GESENDETRow Return CType(Me.Rows.Find(New Object() {BESTELL_ID}),VWSUPPLIES_BESTELLUNG_GESENDETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLIES_BESTELLUNG_GESENDETDataTable = CType(MyBase.Clone,VWSUPPLIES_BESTELLUNG_GESENDETDataTable) cln.InitVars @@ -17534,13 +17587,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLIES_BESTELLUNG_GESENDETDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnBESTELL_ID = MyBase.Columns("BESTELL_ID") Me.columnBESTELLT_WANN = MyBase.Columns("BESTELLT_WANN") @@ -17556,7 +17609,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnBESTELL_ID = New Global.System.Data.DataColumn("BESTELL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBESTELL_ID) @@ -17599,25 +17652,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLIES_BESTELLUNG_GESENDETRow() As VWSUPPLIES_BESTELLUNG_GESENDETRow Return CType(Me.NewRow,VWSUPPLIES_BESTELLUNG_GESENDETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLIES_BESTELLUNG_GESENDETRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLIES_BESTELLUNG_GESENDETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowChangedEvent) Is Nothing) Then @@ -17626,7 +17679,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowChangingEvent) Is Nothing) Then @@ -17635,7 +17688,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowDeletedEvent) Is Nothing) Then @@ -17644,7 +17697,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLIES_BESTELLUNG_GESENDETRowDeletingEvent) Is Nothing) Then @@ -17653,13 +17706,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLIES_BESTELLUNG_GESENDETRow(ByVal row As VWSUPPLIES_BESTELLUNG_GESENDETRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -17770,7 +17823,7 @@ Partial Public Class MyDataset Private columnSUPPLY_ID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWRPT_SUPPLIES_TOORDER" @@ -17780,7 +17833,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -17798,14 +17851,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -17813,7 +17866,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAETColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET @@ -17821,7 +17874,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IPColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_IP @@ -17829,7 +17882,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_SERIENNR @@ -17837,7 +17890,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_PAGECOUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_PAGECOUNT @@ -17845,7 +17898,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_PPMColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_PPM @@ -17853,7 +17906,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -17861,7 +17914,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZ @@ -17869,7 +17922,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -17877,7 +17930,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -17885,7 +17938,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -17893,7 +17946,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -17901,7 +17954,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS @@ -17909,7 +17962,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VERTRAGColumn() As Global.System.Data.DataColumn Get Return Me.columnVERTRAG @@ -17917,7 +17970,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBER_ORDERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER_ORDER @@ -17925,7 +17978,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUELL @@ -17933,7 +17986,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ANZAHLColumn() As Global.System.Data.DataColumn Get Return Me.columnANZAHL @@ -17941,7 +17994,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -17949,7 +18002,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -17958,33 +18011,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWRPT_SUPPLIES_TOORDERRow Get Return CType(Me.Rows(index),VWRPT_SUPPLIES_TOORDERRow) End Get End Property - _ + _ Public Event VWRPT_SUPPLIES_TOORDERRowChanging As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler - _ + _ Public Event VWRPT_SUPPLIES_TOORDERRowChanged As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler - _ + _ Public Event VWRPT_SUPPLIES_TOORDERRowDeleting As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler - _ + _ Public Event VWRPT_SUPPLIES_TOORDERRowDeleted As VWRPT_SUPPLIES_TOORDERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWRPT_SUPPLIES_TOORDERRow(ByVal row As VWRPT_SUPPLIES_TOORDERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWRPT_SUPPLIES_TOORDERRow( _ ByVal GEAENDERTWER As String, _ ByVal GERAET As String, _ @@ -18012,7 +18065,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWRPT_SUPPLIES_TOORDERDataTable = CType(MyBase.Clone,VWRPT_SUPPLIES_TOORDERDataTable) cln.InitVars @@ -18020,13 +18073,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWRPT_SUPPLIES_TOORDERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") Me.columnGERAET = MyBase.Columns("GERAET") @@ -18049,7 +18102,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGEAENDERTWER = New Global.System.Data.DataColumn("GEAENDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEAENDERTWER) @@ -18113,25 +18166,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWRPT_SUPPLIES_TOORDERRow() As VWRPT_SUPPLIES_TOORDERRow Return CType(Me.NewRow,VWRPT_SUPPLIES_TOORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWRPT_SUPPLIES_TOORDERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWRPT_SUPPLIES_TOORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWRPT_SUPPLIES_TOORDERRowChangedEvent) Is Nothing) Then @@ -18140,7 +18193,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWRPT_SUPPLIES_TOORDERRowChangingEvent) Is Nothing) Then @@ -18149,7 +18202,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWRPT_SUPPLIES_TOORDERRowDeletedEvent) Is Nothing) Then @@ -18158,7 +18211,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWRPT_SUPPLIES_TOORDERRowDeletingEvent) Is Nothing) Then @@ -18167,13 +18220,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWRPT_SUPPLIES_TOORDERRow(ByVal row As VWRPT_SUPPLIES_TOORDERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -18302,7 +18355,7 @@ Partial Public Class MyDataset Private columnBESTELL_ID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWSUPPLIES_2_ORDER" @@ -18312,7 +18365,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -18330,14 +18383,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANTColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT @@ -18345,7 +18398,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT_ID @@ -18353,7 +18406,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_ID @@ -18361,7 +18414,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GERAET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGERAET_ID @@ -18369,7 +18422,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEVICEColumn() As Global.System.Data.DataColumn Get Return Me.columnDEVICE @@ -18377,7 +18430,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property DEVICE_SERIALColumn() As Global.System.Data.DataColumn Get Return Me.columnDEVICE_SERIAL @@ -18385,7 +18438,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MARKTColumn() As Global.System.Data.DataColumn Get Return Me.columnMARKT @@ -18393,7 +18446,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAGE_COUNTColumn() As Global.System.Data.DataColumn Get Return Me.columnPAGE_COUNT @@ -18401,7 +18454,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PPMColumn() As Global.System.Data.DataColumn Get Return Me.columnPPM @@ -18409,7 +18462,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELLUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELLUNG @@ -18417,7 +18470,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SUPPLY_BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnSUPPLY_BEZEICHNUNG @@ -18425,7 +18478,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LEVELColumn() As Global.System.Data.DataColumn Get Return Me.columnLEVEL @@ -18433,7 +18486,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SCHWELLENWERTColumn() As Global.System.Data.DataColumn Get Return Me.columnSCHWELLENWERT @@ -18441,7 +18494,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PARTNUMBERColumn() As Global.System.Data.DataColumn Get Return Me.columnPARTNUMBER @@ -18449,7 +18502,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SERIENNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSERIENNR @@ -18457,7 +18510,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_ID @@ -18465,7 +18518,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUSColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS @@ -18473,7 +18526,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -18481,7 +18534,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWER @@ -18489,7 +18542,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WANN @@ -18497,7 +18550,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property STATUS_WERColumn() As Global.System.Data.DataColumn Get Return Me.columnSTATUS_WER @@ -18505,7 +18558,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANUELLColumn() As Global.System.Data.DataColumn Get Return Me.columnMANUELL @@ -18513,7 +18566,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FWColumn() As Global.System.Data.DataColumn Get Return Me.columnFW @@ -18521,7 +18574,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -18529,7 +18582,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUI_SELECTEDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUI_SELECTED @@ -18537,7 +18590,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MENGEColumn() As Global.System.Data.DataColumn Get Return Me.columnMENGE @@ -18545,7 +18598,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BESTELL_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnBESTELL_ID @@ -18553,7 +18606,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -18562,33 +18615,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWSUPPLIES_2_ORDERRow Get Return CType(Me.Rows(index),VWSUPPLIES_2_ORDERRow) End Get End Property - _ + _ Public Event VWSUPPLIES_2_ORDERRowChanging As VWSUPPLIES_2_ORDERRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_2_ORDERRowChanged As VWSUPPLIES_2_ORDERRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_2_ORDERRowDeleting As VWSUPPLIES_2_ORDERRowChangeEventHandler - _ + _ Public Event VWSUPPLIES_2_ORDERRowDeleted As VWSUPPLIES_2_ORDERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWSUPPLIES_2_ORDERRow(ByVal row As VWSUPPLIES_2_ORDERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWSUPPLIES_2_ORDERRow( _ ByVal MANDANT As String, _ ByVal MANDANT_ID As Integer, _ @@ -18625,13 +18678,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWSUPPLIES_2_ORDERRow Return CType(Me.Rows.Find(New Object() {GUID}),VWSUPPLIES_2_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWSUPPLIES_2_ORDERDataTable = CType(MyBase.Clone,VWSUPPLIES_2_ORDERDataTable) cln.InitVars @@ -18639,13 +18692,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWSUPPLIES_2_ORDERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnMANDANT = MyBase.Columns("MANDANT") Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") @@ -18677,7 +18730,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnMANDANT = New Global.System.Data.DataColumn("MANDANT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMANDANT) @@ -18765,25 +18818,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWSUPPLIES_2_ORDERRow() As VWSUPPLIES_2_ORDERRow Return CType(Me.NewRow,VWSUPPLIES_2_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWSUPPLIES_2_ORDERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWSUPPLIES_2_ORDERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWSUPPLIES_2_ORDERRowChangedEvent) Is Nothing) Then @@ -18792,7 +18845,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWSUPPLIES_2_ORDERRowChangingEvent) Is Nothing) Then @@ -18801,7 +18854,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWSUPPLIES_2_ORDERRowDeletedEvent) Is Nothing) Then @@ -18810,7 +18863,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWSUPPLIES_2_ORDERRowDeletingEvent) Is Nothing) Then @@ -18819,13 +18872,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWSUPPLIES_2_ORDERRow(ByVal row As VWSUPPLIES_2_ORDERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -18900,14 +18953,14 @@ Partial Public Class MyDataset Private tableTBGERAET As TBGERAETDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBGERAET = CType(Me.Table,TBGERAETDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBGERAET.GUIDColumn),Integer) @@ -18918,7 +18971,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -18933,7 +18986,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IP_ADRESSE() As String Get Try @@ -18948,7 +19001,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableTBGERAET.SERIENNRColumn),String) @@ -18959,7 +19012,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Try @@ -18974,7 +19027,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_COUNT() As Integer Get Try @@ -18989,7 +19042,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PPM() As Integer Get Try @@ -19004,7 +19057,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -19019,7 +19072,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBGERAET.ERFASSTWANNColumn),Date) @@ -19030,7 +19083,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -19045,7 +19098,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -19060,7 +19113,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLUNG() As Boolean Get Try @@ -19075,7 +19128,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKER() As String Get Try @@ -19090,7 +19143,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PC_INITIAL() As Integer Get Return CType(Me(Me.tableTBGERAET.PC_INITIALColumn),Integer) @@ -19101,7 +19154,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATE_INITIAL() As Date Get Try @@ -19116,7 +19169,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODEL_NR() As String Get Try @@ -19131,7 +19184,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UMGEZOGEN() As Boolean Get Return CType(Me(Me.tableTBGERAET.UMGEZOGENColumn),Boolean) @@ -19142,7 +19195,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAGSNR() As String Get Try @@ -19157,7 +19210,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ONHOLD() As Boolean Get Return CType(Me(Me.tableTBGERAET.ONHOLDColumn),Boolean) @@ -19168,7 +19221,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ONHOLD_DATE() As Date Get Try @@ -19183,7 +19236,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As String Get Try @@ -19198,7 +19251,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NICHT_AKTIV() As Boolean Get Return CType(Me(Me.tableTBGERAET.NICHT_AKTIVColumn),Boolean) @@ -19209,7 +19262,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ABGEBAUT() As Boolean Get Return CType(Me(Me.tableTBGERAET.ABGEBAUTColumn),Boolean) @@ -19220,7 +19273,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Mandant() As String Get Try @@ -19235,7 +19288,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Mandant_KZ() As String Get Try @@ -19250,7 +19303,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_MARKTRow() As TBWH_MARKTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBWH_MARKT_TBGERAET")),TBWH_MARKTRow) @@ -19261,205 +19314,205 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBGERAET.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIP_ADRESSENull() As Boolean Return Me.IsNull(Me.tableTBGERAET.IP_ADRESSEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIP_ADRESSENull() Me(Me.tableTBGERAET.IP_ADRESSEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKTNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.MARKTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKTNull() Me(Me.tableTBGERAET.MARKTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_COUNTNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.PAGE_COUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_COUNTNull() Me(Me.tableTBGERAET.PAGE_COUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPPMNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.PPMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPPMNull() Me(Me.tableTBGERAET.PPMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBGERAET.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBGERAET.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBGERAET.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESTELLUNGNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.BESTELLUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESTELLUNGNull() Me(Me.tableTBGERAET.BESTELLUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKERNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.MARKERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKERNull() Me(Me.tableTBGERAET.MARKERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDATE_INITIALNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.DATE_INITIALColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATE_INITIALNull() Me(Me.tableTBGERAET.DATE_INITIALColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODEL_NRNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.MODEL_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODEL_NRNull() Me(Me.tableTBGERAET.MODEL_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVERTRAGSNRNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.VERTRAGSNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVERTRAGSNRNull() Me(Me.tableTBGERAET.VERTRAGSNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsONHOLD_DATENull() As Boolean Return Me.IsNull(Me.tableTBGERAET.ONHOLD_DATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetONHOLD_DATENull() Me(Me.tableTBGERAET.ONHOLD_DATEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMELDEDATUMNull() Me(Me.tableTBGERAET.MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMandantNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.MandantColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMandantNull() Me(Me.tableTBGERAET.MandantColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMandant_KZNull() As Boolean Return Me.IsNull(Me.tableTBGERAET.Mandant_KZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMandant_KZNull() Me(Me.tableTBGERAET.Mandant_KZColumn) = Global.System.Convert.DBNull End Sub @@ -19474,14 +19527,14 @@ Partial Public Class MyDataset Private tableVWSUPPLIES As VWSUPPLIESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLIES = CType(Me.Table,VWSUPPLIESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES.SUPPLY_IDColumn),Integer) @@ -19492,7 +19545,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWSUPPLIES.MARKTColumn),String) @@ -19503,7 +19556,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEVICE() As String Get Try @@ -19518,7 +19571,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZ() As String Get Try @@ -19533,7 +19586,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Return CType(Me(Me.tableVWSUPPLIES.LEVELColumn),Integer) @@ -19544,7 +19597,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableVWSUPPLIES.SCHWELLENWERTColumn),Integer) @@ -19555,7 +19608,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -19570,7 +19623,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -19585,7 +19638,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES.STATUS_IDColumn),Integer) @@ -19596,7 +19649,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS() As String Get Return CType(Me(Me.tableVWSUPPLIES.STATUSColumn),String) @@ -19607,7 +19660,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES.ERFASSTWANNColumn),Date) @@ -19618,7 +19671,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -19633,7 +19686,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES.GEAENDERTWANNColumn),Date) @@ -19644,7 +19697,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES.GERAET_IDColumn),Integer) @@ -19655,7 +19708,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WANN() As Date Get Try @@ -19670,7 +19723,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET() As String Get Try @@ -19685,7 +19738,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_IP() As String Get Try @@ -19700,7 +19753,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_SERIENNR() As String Get Return CType(Me(Me.tableVWSUPPLIES.GERAET_SERIENNRColumn),String) @@ -19711,7 +19764,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_PAGECOUNT() As Integer Get Try @@ -19726,7 +19779,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_PPM() As Integer Get Try @@ -19741,7 +19794,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLUNG() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES.BESTELLUNGColumn),Boolean) @@ -19752,7 +19805,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WER() As String Get Try @@ -19767,7 +19820,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUSFILTERRow() As TBWH_STATUSFILTERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("TBWH_STATUSFILTER_VWSUPPLIES")),TBWH_STATUSFILTERRow) @@ -19778,139 +19831,139 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDEVICENull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.DEVICEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDEVICENull() Me(Me.tableVWSUPPLIES.DEVICEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_BEZNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.SUPPLY_BEZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_BEZNull() Me(Me.tableVWSUPPLIES.SUPPLY_BEZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableVWSUPPLIES.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableVWSUPPLIES.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableVWSUPPLIES.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WANNNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.STATUS_WANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WANNNull() Me(Me.tableVWSUPPLIES.STATUS_WANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.GERAETColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETNull() Me(Me.tableVWSUPPLIES.GERAETColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_IPNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.GERAET_IPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_IPNull() Me(Me.tableVWSUPPLIES.GERAET_IPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_PAGECOUNTNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.GERAET_PAGECOUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_PAGECOUNTNull() Me(Me.tableVWSUPPLIES.GERAET_PAGECOUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_PPMNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.GERAET_PPMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_PPMNull() Me(Me.tableVWSUPPLIES.GERAET_PPMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES.STATUS_WERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WERNull() Me(Me.tableVWSUPPLIES.STATUS_WERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBWH_STATUSFILTERRows() As TBWH_STATUSFILTERRow() If (Me.Table.ChildRelations("VWSUPPLIES_TBWH_STATUSFILTER") Is Nothing) Then Return New TBWH_STATUSFILTERRow(-1) {} @@ -19929,14 +19982,14 @@ Partial Public Class MyDataset Private tableTBWH_STATUS1 As TBWH_STATUS1DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_STATUS1 = CType(Me.Table,TBWH_STATUS1DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_STATUS1.GUIDColumn),Integer) @@ -19947,7 +20000,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_STATUS1.BEZEICHNUNGColumn),String) @@ -19958,7 +20011,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -19977,14 +20030,14 @@ Partial Public Class MyDataset Private tableTBWH_STATUS2 As TBWH_STATUS2DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_STATUS2 = CType(Me.Table,TBWH_STATUS2DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_STATUS2.GUIDColumn),Integer) @@ -19995,7 +20048,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_STATUS2.BEZEICHNUNGColumn),String) @@ -20006,7 +20059,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID1") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -20025,14 +20078,14 @@ Partial Public Class MyDataset Private tableTBWH_STATUS3 As TBWH_STATUS3DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_STATUS3 = CType(Me.Table,TBWH_STATUS3DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_STATUS3.GUIDColumn),Integer) @@ -20043,7 +20096,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_STATUS3.BEZEICHNUNGColumn),String) @@ -20054,7 +20107,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID2") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -20073,14 +20126,14 @@ Partial Public Class MyDataset Private tableTBWH_STATUSFILTER As TBWH_STATUSFILTERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_STATUSFILTER = CType(Me.Table,TBWH_STATUSFILTERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_STATUSFILTER.GUIDColumn),Integer) @@ -20091,7 +20144,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_STATUSFILTER.BEZEICHNUNGColumn),String) @@ -20102,7 +20155,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VWSUPPLIESRow() As VWSUPPLIESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("VWSUPPLIES_TBWH_STATUSFILTER")),VWSUPPLIESRow) @@ -20113,7 +20166,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetVWSUPPLIESRows() As VWSUPPLIESRow() If (Me.Table.ChildRelations("TBWH_STATUSFILTER_VWSUPPLIES") Is Nothing) Then Return New VWSUPPLIESRow(-1) {} @@ -20123,7 +20176,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID3") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -20142,14 +20195,14 @@ Partial Public Class MyDataset Private tableTBSUPPLY_VERFOLGUNG As TBSUPPLY_VERFOLGUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBSUPPLY_VERFOLGUNG = CType(Me.Table,TBSUPPLY_VERFOLGUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.GUIDColumn),Integer) @@ -20160,7 +20213,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -20175,7 +20228,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -20190,7 +20243,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Try @@ -20205,7 +20258,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Try @@ -20220,7 +20273,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -20235,7 +20288,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWERColumn),String) @@ -20246,7 +20299,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -20261,7 +20314,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -20276,7 +20329,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -20291,7 +20344,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKER() As String Get Try @@ -20306,7 +20359,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As String Get Try @@ -20321,121 +20374,121 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_IDNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.GERAET_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_IDNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.GERAET_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLEVELNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.LEVELColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLEVELNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.LEVELColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.MARKERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKERNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.MARKERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_VERFOLGUNG.MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMELDEDATUMNull() Me(Me.tableTBSUPPLY_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub @@ -20450,14 +20503,14 @@ Partial Public Class MyDataset Private tableTBKONFIGURATION As TBKONFIGURATIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKONFIGURATION = CType(Me.Table,TBKONFIGURATIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_OK() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.STATUS_OKColumn),Integer) @@ -20468,7 +20521,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_BEST() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.STATUS_BESTColumn),Integer) @@ -20479,7 +20532,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_SD() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.STATUS_SDColumn),Integer) @@ -20490,7 +20543,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -20505,7 +20558,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -20520,7 +20573,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBKONFIGURATION.GEAENDERTWANNColumn),Date) @@ -20531,7 +20584,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.GUIDColumn),Integer) @@ -20542,7 +20595,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEF_SW() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.DEF_SWColumn),Integer) @@ -20553,7 +20606,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_BESTELLT() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.STATUS_BESTELLTColumn),Integer) @@ -20564,7 +20617,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_ERSETZT() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.STATUS_ERSETZTColumn),Integer) @@ -20575,7 +20628,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_UNKLAR() As Integer Get Return CType(Me(Me.tableTBKONFIGURATION.STATUS_UNKLARColumn),Integer) @@ -20586,7 +20639,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IMPORT_XML() As String Get Try @@ -20601,7 +20654,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IMPORT_XMLARCHIV() As String Get Try @@ -20616,7 +20669,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IMPORT_BESTELLUNGEN() As String Get Try @@ -20631,61 +20684,61 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBKONFIGURATION.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBKONFIGURATION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBKONFIGURATION.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBKONFIGURATION.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIMPORT_XMLNull() As Boolean Return Me.IsNull(Me.tableTBKONFIGURATION.IMPORT_XMLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIMPORT_XMLNull() Me(Me.tableTBKONFIGURATION.IMPORT_XMLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIMPORT_XMLARCHIVNull() As Boolean Return Me.IsNull(Me.tableTBKONFIGURATION.IMPORT_XMLARCHIVColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIMPORT_XMLARCHIVNull() Me(Me.tableTBKONFIGURATION.IMPORT_XMLARCHIVColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIMPORT_BESTELLUNGENNull() As Boolean Return Me.IsNull(Me.tableTBKONFIGURATION.IMPORT_BESTELLUNGENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIMPORT_BESTELLUNGENNull() Me(Me.tableTBKONFIGURATION.IMPORT_BESTELLUNGENColumn) = Global.System.Convert.DBNull End Sub @@ -20700,14 +20753,14 @@ Partial Public Class MyDataset Private tableTBSTATUS As TBSTATUSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBSTATUS = CType(Me.Table,TBSTATUSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBSTATUS.GUIDColumn),Integer) @@ -20718,7 +20771,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBSTATUS.BEZEICHNUNGColumn),String) @@ -20729,7 +20782,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESCHREIBUNG() As String Get Try @@ -20744,7 +20797,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -20759,7 +20812,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBSTATUS.ERFASSTWERColumn),String) @@ -20770,7 +20823,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -20785,7 +20838,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -20800,7 +20853,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -20815,7 +20868,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TIMESTAMP1() As Byte() Get Try @@ -20830,79 +20883,79 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESCHREIBUNGNull() As Boolean Return Me.IsNull(Me.tableTBSTATUS.BESCHREIBUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESCHREIBUNGNull() Me(Me.tableTBSTATUS.BESCHREIBUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBSTATUS.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBSTATUS.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBSTATUS.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBSTATUS.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBSTATUS.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBSTATUS.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBSTATUS.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBSTATUS.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTIMESTAMP1Null() As Boolean Return Me.IsNull(Me.tableTBSTATUS.TIMESTAMP1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTIMESTAMP1Null() Me(Me.tableTBSTATUS.TIMESTAMP1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID4") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -20921,14 +20974,14 @@ Partial Public Class MyDataset Private tableTBWH_MARKT As TBWH_MARKTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_MARKT = CType(Me.Table,TBWH_MARKTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Try @@ -20943,19 +20996,19 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKTNull() As Boolean Return Me.IsNull(Me.tableTBWH_MARKT.MARKTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKTNull() Me(Me.tableTBWH_MARKT.MARKTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBGERAETRows() As TBGERAETRow() If (Me.Table.ChildRelations("TBWH_MARKT_TBGERAET") Is Nothing) Then Return New TBGERAETRow(-1) {} @@ -20965,7 +21018,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetVWSUPPLY_BESTELLUNG_FRONTENDRows() As VWSUPPLY_BESTELLUNG_FRONTENDRow() If (Me.Table.ChildRelations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView") Is Nothing) Then Return New VWSUPPLY_BESTELLUNG_FRONTENDRow(-1) {} @@ -20984,14 +21037,14 @@ Partial Public Class MyDataset Private tableVWSUPPLIES_AKTUELL As VWSUPPLIES_AKTUELLDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLIES_AKTUELL = CType(Me.Table,VWSUPPLIES_AKTUELLDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SUPPLY_IDColumn),Integer) @@ -21002,7 +21055,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.MARKTColumn),String) @@ -21013,7 +21066,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEVICE() As String Get Try @@ -21028,7 +21081,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZ() As String Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SUPPLY_BEZColumn),String) @@ -21039,7 +21092,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.LEVELColumn),Integer) @@ -21050,7 +21103,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.SCHWELLENWERTColumn),Integer) @@ -21061,7 +21114,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -21076,7 +21129,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -21091,7 +21144,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_IDColumn),Integer) @@ -21102,7 +21155,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS() As String Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.STATUSColumn),String) @@ -21113,7 +21166,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.ERFASSTWANNColumn),Date) @@ -21124,7 +21177,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -21139,7 +21192,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWANNColumn),Date) @@ -21150,7 +21203,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.GERAET_IDColumn),Integer) @@ -21161,7 +21214,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WANN() As Date Get Try @@ -21176,7 +21229,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WER() As String Get Try @@ -21191,7 +21244,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ON_HOLD() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES_AKTUELL.ON_HOLDColumn),Boolean) @@ -21202,7 +21255,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property OH_DATE() As Date Get Try @@ -21217,85 +21270,85 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDEVICENull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.DEVICEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDEVICENull() Me(Me.tableVWSUPPLIES_AKTUELL.DEVICEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableVWSUPPLIES_AKTUELL.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableVWSUPPLIES_AKTUELL.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableVWSUPPLIES_AKTUELL.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WANNNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.STATUS_WANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WANNNull() Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.STATUS_WERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WERNull() Me(Me.tableVWSUPPLIES_AKTUELL.STATUS_WERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsOH_DATENull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_AKTUELL.OH_DATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetOH_DATENull() Me(Me.tableVWSUPPLIES_AKTUELL.OH_DATEColumn) = Global.System.Convert.DBNull End Sub @@ -21310,14 +21363,14 @@ Partial Public Class MyDataset Private tableVWGERAET_ORDER As VWGERAET_ORDERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWGERAET_ORDER = CType(Me.Table,VWGERAET_ORDERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWGERAET_ORDER.GUIDColumn),Integer) @@ -21328,7 +21381,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_BEZ() As String Get Try @@ -21343,7 +21396,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableVWGERAET_ORDER.SERIENNRColumn),String) @@ -21354,7 +21407,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWGERAET_ORDER.MARKTColumn),String) @@ -21365,7 +21418,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_COUNT() As Integer Get Try @@ -21380,7 +21433,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PPM() As Integer Get Try @@ -21395,7 +21448,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLUNG() As Boolean Get Return CType(Me(Me.tableVWGERAET_ORDER.BESTELLUNGColumn),Boolean) @@ -21406,7 +21459,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT_ID() As Integer Get Return CType(Me(Me.tableVWGERAET_ORDER.MANDANT_IDColumn),Integer) @@ -21417,7 +21470,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT() As String Get Return CType(Me(Me.tableVWGERAET_ORDER.MANDANTColumn),String) @@ -21428,7 +21481,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUALLY() As Boolean Get Try @@ -21443,55 +21496,55 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_BEZNull() As Boolean Return Me.IsNull(Me.tableVWGERAET_ORDER.GERAET_BEZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_BEZNull() Me(Me.tableVWGERAET_ORDER.GERAET_BEZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_COUNTNull() As Boolean Return Me.IsNull(Me.tableVWGERAET_ORDER.PAGE_COUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_COUNTNull() Me(Me.tableVWGERAET_ORDER.PAGE_COUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPPMNull() As Boolean Return Me.IsNull(Me.tableVWGERAET_ORDER.PPMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPPMNull() Me(Me.tableVWGERAET_ORDER.PPMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMANUALLYNull() As Boolean Return Me.IsNull(Me.tableVWGERAET_ORDER.MANUALLYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMANUALLYNull() Me(Me.tableVWGERAET_ORDER.MANUALLYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetVWSUPPLIES_TO_ORDERRows() As VWSUPPLIES_TO_ORDERRow() If (Me.Table.ChildRelations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER") Is Nothing) Then Return New VWSUPPLIES_TO_ORDERRow(-1) {} @@ -21510,14 +21563,14 @@ Partial Public Class MyDataset Private tableVWSUPPLIES_TO_ORDER As VWSUPPLIES_TO_ORDERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLIES_TO_ORDER = CType(Me.Table,VWSUPPLIES_TO_ORDERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SUPPLY_IDColumn),Integer) @@ -21528,7 +21581,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.GERAET_IDColumn),Integer) @@ -21539,7 +21592,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZ() As String Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SUPPLY_BEZColumn),String) @@ -21550,7 +21603,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.LEVELColumn),Integer) @@ -21561,7 +21614,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.SCHWELLENWERTColumn),Integer) @@ -21572,7 +21625,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -21587,7 +21640,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -21602,7 +21655,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_IDColumn),Integer) @@ -21613,7 +21666,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS() As String Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.STATUSColumn),String) @@ -21624,7 +21677,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.ERFASSTWANNColumn),Date) @@ -21635,7 +21688,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -21650,7 +21703,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WANN() As Date Get Try @@ -21665,7 +21718,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WER() As String Get Try @@ -21680,7 +21733,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUELL() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.MANUELLColumn),Boolean) @@ -21691,7 +21744,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT() As String Get Return CType(Me(Me.tableVWSUPPLIES_TO_ORDER.MANDANTColumn),String) @@ -21702,7 +21755,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FW() As Boolean Get Try @@ -21717,7 +21770,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VWGERAET_ORDERRow() As VWGERAET_ORDERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("VWGERAET_ORDER_VWSUPPLIES_TO_ORDER")),VWGERAET_ORDERRow) @@ -21728,73 +21781,73 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableVWSUPPLIES_TO_ORDER.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableVWSUPPLIES_TO_ORDER.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableVWSUPPLIES_TO_ORDER.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WANNNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WANNNull() Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WERNull() Me(Me.tableVWSUPPLIES_TO_ORDER.STATUS_WERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFWNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_TO_ORDER.FWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFWNull() Me(Me.tableVWSUPPLIES_TO_ORDER.FWColumn) = Global.System.Convert.DBNull End Sub @@ -21809,14 +21862,14 @@ Partial Public Class MyDataset Private tableTBSUPPLIES As TBSUPPLIESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBSUPPLIES = CType(Me.Table,TBSUPPLIESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBSUPPLIES.GUIDColumn),Integer) @@ -21827,7 +21880,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Return CType(Me(Me.tableTBSUPPLIES.GERAET_IDColumn),Integer) @@ -21838,7 +21891,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -21853,7 +21906,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Return CType(Me(Me.tableTBSUPPLIES.LEVELColumn),Integer) @@ -21864,7 +21917,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableTBSUPPLIES.SCHWELLENWERTColumn),Integer) @@ -21875,7 +21928,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -21890,7 +21943,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -21905,7 +21958,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_ID() As Integer Get Return CType(Me(Me.tableTBSUPPLIES.STATUS_IDColumn),Integer) @@ -21916,7 +21969,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WANN() As Date Get Try @@ -21931,7 +21984,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WER() As String Get Try @@ -21946,7 +21999,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEMERKUNG() As String Get Try @@ -21961,7 +22014,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBSUPPLIES.ERFASSTWERColumn),String) @@ -21972,7 +22025,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBSUPPLIES.ERFASSTWANNColumn),Date) @@ -21983,7 +22036,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -21998,7 +22051,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBSUPPLIES.GEAENDERTWANNColumn),Date) @@ -22009,7 +22062,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TIMESTAMP1() As Byte() Get Try @@ -22024,7 +22077,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKER() As String Get Try @@ -22039,7 +22092,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_DEF_ID() As Integer Get Return CType(Me(Me.tableTBSUPPLIES.SUPPLY_DEF_IDColumn),Integer) @@ -22050,7 +22103,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ON_HOLD() As Boolean Get Return CType(Me(Me.tableTBSUPPLIES.ON_HOLDColumn),Boolean) @@ -22061,7 +22114,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property OH_DATE() As Date Get Try @@ -22076,7 +22129,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUS1Row() As TBWH_STATUS1Row Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID")),TBWH_STATUS1Row) @@ -22087,7 +22140,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUS2Row() As TBWH_STATUS2Row Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID1")),TBWH_STATUS2Row) @@ -22098,7 +22151,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUS3Row() As TBWH_STATUS3Row Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID2")),TBWH_STATUS3Row) @@ -22109,7 +22162,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUSFILTERRow() As TBWH_STATUSFILTERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID3")),TBWH_STATUSFILTERRow) @@ -22120,7 +22173,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBSTATUSRow() As TBSTATUSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID4")),TBSTATUSRow) @@ -22131,7 +22184,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUS4Row() As TBWH_STATUS4Row Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID5")),TBWH_STATUS4Row) @@ -22142,7 +22195,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBWH_STATUS5Row() As TBWH_STATUS5Row Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLIES_STATUS_ID6")),TBWH_STATUS5Row) @@ -22153,7 +22206,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBSUPPLY_DEFINITIONRow() As TBSUPPLY_DEFINITIONRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBSUPPLYDEFINITION")),TBSUPPLY_DEFINITIONRow) @@ -22164,121 +22217,121 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBSUPPLIES.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableTBSUPPLIES.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableTBSUPPLIES.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WANNNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.STATUS_WANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WANNNull() Me(Me.tableTBSUPPLIES.STATUS_WANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.STATUS_WERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WERNull() Me(Me.tableTBSUPPLIES.STATUS_WERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.BEMERKUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBSUPPLIES.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBSUPPLIES.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTIMESTAMP1Null() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.TIMESTAMP1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTIMESTAMP1Null() Me(Me.tableTBSUPPLIES.TIMESTAMP1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.MARKERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKERNull() Me(Me.tableTBSUPPLIES.MARKERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsOH_DATENull() As Boolean Return Me.IsNull(Me.tableTBSUPPLIES.OH_DATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetOH_DATENull() Me(Me.tableTBSUPPLIES.OH_DATEColumn) = Global.System.Convert.DBNull End Sub @@ -22293,14 +22346,14 @@ Partial Public Class MyDataset Private tableTBWH_STATUS4 As TBWH_STATUS4DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_STATUS4 = CType(Me.Table,TBWH_STATUS4DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_STATUS4.GUIDColumn),Integer) @@ -22311,7 +22364,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_STATUS4.BEZEICHNUNGColumn),String) @@ -22322,7 +22375,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID5") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -22341,14 +22394,14 @@ Partial Public Class MyDataset Private tableTBWH_STATUS5 As TBWH_STATUS5DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_STATUS5 = CType(Me.Table,TBWH_STATUS5DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_STATUS5.GUIDColumn),Integer) @@ -22359,7 +22412,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBWH_STATUS5.BEZEICHNUNGColumn),String) @@ -22370,7 +22423,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLIES_STATUS_ID6") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -22389,14 +22442,14 @@ Partial Public Class MyDataset Private tableTBSUPPLY_BESTELLUNG As TBSUPPLY_BESTELLUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBSUPPLY_BESTELLUNG = CType(Me.Table,TBSUPPLY_BESTELLUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.GUIDColumn),Integer) @@ -22407,7 +22460,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_BEZEICHNUNGColumn),String) @@ -22418,7 +22471,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MENGE() As Integer Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.MENGEColumn),Integer) @@ -22429,7 +22482,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.MARKTColumn),String) @@ -22440,7 +22493,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUELL() As Boolean Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.MANUELLColumn),Boolean) @@ -22451,7 +22504,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLT_WER() As String Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLT_WERColumn),String) @@ -22462,7 +22515,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLT_WANN() As Date Get Return CType(Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLT_WANNColumn),Date) @@ -22473,7 +22526,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET() As String Get Try @@ -22488,7 +22541,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIEN_NR() As String Get Try @@ -22503,7 +22556,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLNR() As String Get Try @@ -22518,7 +22571,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Try @@ -22533,7 +22586,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Try @@ -22548,61 +22601,61 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.GERAETColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETNull() Me(Me.tableTBSUPPLY_BESTELLUNG.GERAETColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIEN_NRNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.SERIEN_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIEN_NRNull() Me(Me.tableTBSUPPLY_BESTELLUNG.SERIEN_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESTELLNRNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.BESTELLNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESTELLNRNull() Me(Me.tableTBSUPPLY_BESTELLUNG.BESTELLNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_IDNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.GERAET_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_IDNull() Me(Me.tableTBSUPPLY_BESTELLUNG.GERAET_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_IDNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_IDNull() Me(Me.tableTBSUPPLY_BESTELLUNG.SUPPLY_IDColumn) = Global.System.Convert.DBNull End Sub @@ -22617,14 +22670,14 @@ Partial Public Class MyDataset Private tableTBWH_SUPPLIES_MARKT As TBWH_SUPPLIES_MARKTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_SUPPLIES_MARKT = CType(Me.Table,TBWH_SUPPLIES_MARKTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -22639,7 +22692,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_SUPPLIES_MARKT.GUIDColumn),Integer) @@ -22650,7 +22703,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Supply() As String Get Try @@ -22665,25 +22718,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBWH_SUPPLIES_MARKT.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBWH_SUPPLIES_MARKT.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSupplyNull() As Boolean Return Me.IsNull(Me.tableTBWH_SUPPLIES_MARKT.SupplyColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSupplyNull() Me(Me.tableTBWH_SUPPLIES_MARKT.SupplyColumn) = Global.System.Convert.DBNull End Sub @@ -22698,14 +22751,14 @@ Partial Public Class MyDataset Private tableVWSUPPLY_BESTELLUNG_FRONTEND As VWSUPPLY_BESTELLUNG_FRONTENDDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLY_BESTELLUNG_FRONTEND = CType(Me.Table,VWSUPPLY_BESTELLUNG_FRONTENDDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GUIDColumn),Integer) @@ -22716,7 +22769,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZEICHNUNG() As String Get Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SUPPLY_BEZEICHNUNGColumn),String) @@ -22727,7 +22780,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MENGE() As Integer Get Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MENGEColumn),Integer) @@ -22738,10 +22791,14 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get - Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn),String) + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MARKT in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBNull.", e) + End Try End Get Set Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn) = value @@ -22749,7 +22806,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUELL() As Boolean Get Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MANUELLColumn),Boolean) @@ -22760,10 +22817,15 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLT_WER() As String Get - Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn),String) + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESTELLT_WER in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBNu"& _ + "ll.", e) + End Try End Get Set Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn) = value @@ -22771,10 +22833,15 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLT_WANN() As Date Get - Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn),Date) + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESTELLT_WANN in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBN"& _ + "ull.", e) + End Try End Get Set Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn) = value @@ -22782,7 +22849,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET() As String Get Try @@ -22797,7 +22864,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIEN_NR() As String Get Try @@ -22813,7 +22880,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLNR() As String Get Try @@ -22829,7 +22896,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILE_ORDER_CONFIRM() As String Get Try @@ -22845,7 +22912,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MENGE_ORIGIN() As Integer Get Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MENGE_ORIGINColumn),Integer) @@ -22856,7 +22923,71 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Property TRACKING_NO() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.TRACKING_NOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TRACKING_NO in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.TRACKING_NOColumn) = value + End Set + End Property + + _ + Public Property SHIPTO_POSTCODE() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SHIPTO_POSTCODEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHIPTO_POSTCODE in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SHIPTO_POSTCODEColumn) = value + End Set + End Property + + _ + Public Property CUSTOM_LABEL_1() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUSTOM_LABEL_1 in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_1Column) = value + End Set + End Property + + _ + Public Property CUSTOM_LABEL_2() As String + Get + Try + Return CType(Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CUSTOM_LABEL_2 in Tabelle VWSUPPLY_BESTELLUNG_FRONTEND ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_2Column) = value + End Set + End Property + + _ Public Property TBWH_MARKTRow() As TBWH_MARKTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("RelTBWH_MARKT_TBSUPPLY_BESTELLUNGView")),TBWH_MARKTRow) @@ -22867,52 +22998,136 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public Function IsMARKTNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn) + End Function + + _ + Public Sub SetMARKTNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.MARKTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBESTELLT_WERNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn) + End Function + + _ + Public Sub SetBESTELLT_WERNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBESTELLT_WANNNull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn) + End Function + + _ + Public Sub SetBESTELLT_WANNNull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLT_WANNColumn) = Global.System.Convert.DBNull + End Sub + + _ Public Function IsGERAETNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GERAETColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETNull() Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.GERAETColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIEN_NRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SERIEN_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIEN_NRNull() Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SERIEN_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESTELLNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESTELLNRNull() Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.BESTELLNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFILE_ORDER_CONFIRMNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.FILE_ORDER_CONFIRMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFILE_ORDER_CONFIRMNull() Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.FILE_ORDER_CONFIRMColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function IsTRACKING_NONull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.TRACKING_NOColumn) + End Function + + _ + Public Sub SetTRACKING_NONull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.TRACKING_NOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHIPTO_POSTCODENull() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SHIPTO_POSTCODEColumn) + End Function + + _ + Public Sub SetSHIPTO_POSTCODENull() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.SHIPTO_POSTCODEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCUSTOM_LABEL_1Null() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_1Column) + End Function + + _ + Public Sub SetCUSTOM_LABEL_1Null() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCUSTOM_LABEL_2Null() As Boolean + Return Me.IsNull(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_2Column) + End Function + + _ + Public Sub SetCUSTOM_LABEL_2Null() + Me(Me.tableVWSUPPLY_BESTELLUNG_FRONTEND.CUSTOM_LABEL_2Column) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -22924,14 +23139,14 @@ Partial Public Class MyDataset Private tableTBGERAETByMarkt As TBGERAETByMarktDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBGERAETByMarkt = CType(Me.Table,TBGERAETByMarktDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBGERAETByMarkt.GUIDColumn),Integer) @@ -22942,7 +23157,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -22957,7 +23172,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableTBGERAETByMarkt.MARKTColumn),String) @@ -22968,7 +23183,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableTBGERAETByMarkt.SERIENNRColumn),String) @@ -22979,7 +23194,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATE_INITIAL() As Date Get Return CType(Me(Me.tableTBGERAETByMarkt.DATE_INITIALColumn),Date) @@ -22990,13 +23205,13 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBGERAETByMarkt.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBGERAETByMarkt.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub @@ -23011,14 +23226,14 @@ Partial Public Class MyDataset Private tableTBIMPORT_PRODUKT As TBIMPORT_PRODUKTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIMPORT_PRODUKT = CType(Me.Table,TBIMPORT_PRODUKTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBIMPORT_PRODUKT.GUIDColumn),Integer) @@ -23029,7 +23244,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAGSNR() As String Get Return CType(Me(Me.tableTBIMPORT_PRODUKT.VERTRAGSNRColumn),String) @@ -23040,7 +23255,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIEN_NR() As String Get Try @@ -23055,7 +23270,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRODUKT_NR() As String Get Try @@ -23070,7 +23285,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODELL_NAME() As String Get Try @@ -23085,7 +23300,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBIMPORT_PRODUKT.ERFASSTWERColumn),String) @@ -23096,7 +23311,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBIMPORT_PRODUKT.ERFASSTWANNColumn),Date) @@ -23107,7 +23322,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -23122,7 +23337,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWANNColumn),Date) @@ -23133,49 +23348,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIEN_NRNull() As Boolean Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.SERIEN_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIEN_NRNull() Me(Me.tableTBIMPORT_PRODUKT.SERIEN_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRODUKT_NRNull() As Boolean Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.PRODUKT_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRODUKT_NRNull() Me(Me.tableTBIMPORT_PRODUKT.PRODUKT_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODELL_NAMENull() As Boolean Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.MODELL_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODELL_NAMENull() Me(Me.tableTBIMPORT_PRODUKT.MODELL_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBIMPORT_PRODUKT.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBIMPORT_PRODUKT.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub @@ -23190,14 +23405,14 @@ Partial Public Class MyDataset Private tableTBVERTRAEGE As TBVERTRAEGEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBVERTRAEGE = CType(Me.Table,TBVERTRAEGEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBVERTRAEGE.GUIDColumn),Integer) @@ -23208,7 +23423,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAGSNR() As String Get Return CType(Me(Me.tableTBVERTRAEGE.VERTRAGSNRColumn),String) @@ -23219,7 +23434,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG1() As String Get Try @@ -23234,7 +23449,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG2() As String Get Try @@ -23249,7 +23464,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBVERTRAEGE.ERFASSTWERColumn),String) @@ -23260,7 +23475,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBVERTRAEGE.ERFASSTWANNColumn),Date) @@ -23271,7 +23486,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -23286,7 +23501,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBVERTRAEGE.GEAENDERTWANNColumn),Date) @@ -23297,43 +23512,43 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNG1Null() As Boolean Return Me.IsNull(Me.tableTBVERTRAEGE.BEZEICHNUNG1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNG1Null() Me(Me.tableTBVERTRAEGE.BEZEICHNUNG1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNG2Null() As Boolean Return Me.IsNull(Me.tableTBVERTRAEGE.BEZEICHNUNG2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNG2Null() Me(Me.tableTBVERTRAEGE.BEZEICHNUNG2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBVERTRAEGE.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBVERTRAEGE.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBPRODUKT_VERTRAGRows() As TBPRODUKT_VERTRAGRow() If (Me.Table.ChildRelations("FK_TBPRODUKT_VERTRAG_VERTRAG") Is Nothing) Then Return New TBPRODUKT_VERTRAGRow(-1) {} @@ -23343,7 +23558,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBGERAETE_NOTINLISTRows() As TBGERAETE_NOTINLISTRow() If (Me.Table.ChildRelations("FK_TBGERAETE_NOTINLIST_VERTRAG") Is Nothing) Then Return New TBGERAETE_NOTINLISTRow(-1) {} @@ -23362,14 +23577,14 @@ Partial Public Class MyDataset Private tableTBPRODUKT_VERTRAG As TBPRODUKT_VERTRAGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPRODUKT_VERTRAG = CType(Me.Table,TBPRODUKT_VERTRAGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPRODUKT_VERTRAG.GUIDColumn),Integer) @@ -23380,7 +23595,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAG_ID() As Integer Get Return CType(Me(Me.tableTBPRODUKT_VERTRAG.VERTRAG_IDColumn),Integer) @@ -23391,7 +23606,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIEN_NR() As String Get Try @@ -23406,7 +23621,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRODUKT_NR() As String Get Try @@ -23421,7 +23636,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODELL_NAME() As String Get Try @@ -23436,7 +23651,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBPRODUKT_VERTRAG.ERFASSTWERColumn),String) @@ -23447,7 +23662,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBPRODUKT_VERTRAG.ERFASSTWANNColumn),Date) @@ -23458,7 +23673,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -23473,7 +23688,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBPRODUKT_VERTRAG.GEAENDERTWANNColumn),Date) @@ -23484,7 +23699,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBPRODUKT_VERTRAG.AKTIVColumn),Boolean) @@ -23495,7 +23710,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBVERTRAEGERow() As TBVERTRAEGERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPRODUKT_VERTRAG_VERTRAG")),TBVERTRAEGERow) @@ -23506,49 +23721,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIEN_NRNull() As Boolean Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.SERIEN_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIEN_NRNull() Me(Me.tableTBPRODUKT_VERTRAG.SERIEN_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRODUKT_NRNull() As Boolean Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.PRODUKT_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRODUKT_NRNull() Me(Me.tableTBPRODUKT_VERTRAG.PRODUKT_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODELL_NAMENull() As Boolean Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.MODELL_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODELL_NAMENull() Me(Me.tableTBPRODUKT_VERTRAG.MODELL_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBPRODUKT_VERTRAG.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBPRODUKT_VERTRAG.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub @@ -23563,14 +23778,14 @@ Partial Public Class MyDataset Private tableTBGERAETE_NOTINLIST As TBGERAETE_NOTINLISTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBGERAETE_NOTINLIST = CType(Me.Table,TBGERAETE_NOTINLISTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBGERAETE_NOTINLIST.GUIDColumn),Integer) @@ -23581,7 +23796,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAG_ID() As Integer Get Return CType(Me(Me.tableTBGERAETE_NOTINLIST.VERTRAG_IDColumn),Integer) @@ -23592,7 +23807,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODELL_NAME() As String Get Try @@ -23607,7 +23822,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Try @@ -23622,7 +23837,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBGERAETE_NOTINLIST.ERFASSTWERColumn),String) @@ -23633,7 +23848,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBGERAETE_NOTINLIST.ERFASSTWANNColumn),Date) @@ -23644,7 +23859,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -23659,7 +23874,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWANNColumn),Date) @@ -23670,7 +23885,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TIMESTAMP1() As Byte() Get Try @@ -23685,7 +23900,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBVERTRAEGERow() As TBVERTRAEGERow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGERAETE_NOTINLIST_VERTRAG")),TBVERTRAEGERow) @@ -23696,49 +23911,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODELL_NAMENull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.MODELL_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODELL_NAMENull() Me(Me.tableTBGERAETE_NOTINLIST.MODELL_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKTNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.MARKTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKTNull() Me(Me.tableTBGERAETE_NOTINLIST.MARKTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBGERAETE_NOTINLIST.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTIMESTAMP1Null() As Boolean Return Me.IsNull(Me.tableTBGERAETE_NOTINLIST.TIMESTAMP1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTIMESTAMP1Null() Me(Me.tableTBGERAETE_NOTINLIST.TIMESTAMP1Column) = Global.System.Convert.DBNull End Sub @@ -23753,14 +23968,14 @@ Partial Public Class MyDataset Private tableTBWH_MODELL As TBWH_MODELLDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_MODELL = CType(Me.Table,TBWH_MODELLDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRODUKT_NR() As String Get Try @@ -23775,7 +23990,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property _String() As String Get Try @@ -23790,25 +24005,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRODUKT_NRNull() As Boolean Return Me.IsNull(Me.tableTBWH_MODELL.PRODUKT_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRODUKT_NRNull() Me(Me.tableTBWH_MODELL.PRODUKT_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Is_StringNull() As Boolean Return Me.IsNull(Me.tableTBWH_MODELL.StringColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub Set_StringNull() Me(Me.tableTBWH_MODELL.StringColumn) = Global.System.Convert.DBNull End Sub @@ -23823,14 +24038,14 @@ Partial Public Class MyDataset Private tableTBSUPPLY_DEFINITION As TBSUPPLY_DEFINITIONDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBSUPPLY_DEFINITION = CType(Me.Table,TBSUPPLY_DEFINITIONDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBSUPPLY_DEFINITION.GUIDColumn),Integer) @@ -23841,7 +24056,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZ() As String Get Return CType(Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_BEZColumn),String) @@ -23852,7 +24067,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWERColumn),String) @@ -23863,7 +24078,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -23878,7 +24093,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -23893,7 +24108,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -23908,7 +24123,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TIMESTAMP1() As Byte() Get Try @@ -23923,7 +24138,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_NAME_DATEI() As String Get Try @@ -23938,67 +24153,67 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBSUPPLY_DEFINITION.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBSUPPLY_DEFINITION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTIMESTAMP1Null() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.TIMESTAMP1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTIMESTAMP1Null() Me(Me.tableTBSUPPLY_DEFINITION.TIMESTAMP1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_NAME_DATEINull() As Boolean Return Me.IsNull(Me.tableTBSUPPLY_DEFINITION.SUPPLY_NAME_DATEIColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_NAME_DATEINull() Me(Me.tableTBSUPPLY_DEFINITION.SUPPLY_NAME_DATEIColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBGERAET_SUPPLY_ZUORDNUNGRows() As TBGERAET_SUPPLY_ZUORDNUNGRow() If (Me.Table.ChildRelations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID") Is Nothing) Then Return New TBGERAET_SUPPLY_ZUORDNUNGRow(-1) {} @@ -24008,7 +24223,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBSUPPLIESRows() As TBSUPPLIESRow() If (Me.Table.ChildRelations("FK_TBSUPPLYDEFINITION") Is Nothing) Then Return New TBSUPPLIESRow(-1) {} @@ -24027,14 +24242,14 @@ Partial Public Class MyDataset Private tableTBGERAET_SUPPLY_ZUORDNUNG As TBGERAET_SUPPLY_ZUORDNUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBGERAET_SUPPLY_ZUORDNUNG = CType(Me.Table,TBGERAET_SUPPLY_ZUORDNUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.GUIDColumn),Integer) @@ -24045,7 +24260,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_BEZ() As String Get Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.GERAET_BEZColumn),String) @@ -24056,7 +24271,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SUPPLY_IDColumn),Integer) @@ -24067,7 +24282,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.ERFASSTWERColumn),String) @@ -24078,7 +24293,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.PARTNUMBERColumn),String) @@ -24089,7 +24304,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableTBGERAET_SUPPLY_ZUORDNUNG.SCHWELLENWERTColumn),Integer) @@ -24100,7 +24315,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBSUPPLY_DEFINITIONRow() As TBSUPPLY_DEFINITIONRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBGERAET_SUPPLY_ZUORDNUNG_SUPPLY_ID")),TBSUPPLY_DEFINITIONRow) @@ -24120,14 +24335,14 @@ Partial Public Class MyDataset Private tableVWGeraet_Supply_Zuordnung As VWGeraet_Supply_ZuordnungDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWGeraet_Supply_Zuordnung = CType(Me.Table,VWGeraet_Supply_ZuordnungDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.GUIDColumn),Integer) @@ -24138,7 +24353,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_BEZ() As String Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.GERAET_BEZColumn),String) @@ -24149,7 +24364,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZ() As String Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.SUPPLY_BEZColumn),String) @@ -24160,7 +24375,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.PARTNUMBERColumn),String) @@ -24171,7 +24386,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER_ORDER() As String Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.PARTNUMBER_ORDERColumn),String) @@ -24182,7 +24397,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.SCHWELLENWERTColumn),Integer) @@ -24193,7 +24408,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.ERFASSTWERColumn),String) @@ -24204,7 +24419,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableVWGeraet_Supply_Zuordnung.ERFASSTWANNColumn),Date) @@ -24224,14 +24439,14 @@ Partial Public Class MyDataset Private tableTBUSER_RECHTE As TBUSER_RECHTEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBUSER_RECHTE = CType(Me.Table,TBUSER_RECHTEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBUSER_RECHTE.GUIDColumn),Integer) @@ -24242,7 +24457,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USR_NAME() As String Get Return CType(Me(Me.tableTBUSER_RECHTE.USR_NAMEColumn),String) @@ -24253,7 +24468,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EINLESEN() As Boolean Get Return CType(Me(Me.tableTBUSER_RECHTE.EINLESENColumn),Boolean) @@ -24264,7 +24479,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KONGIGURATION() As Boolean Get Return CType(Me(Me.tableTBUSER_RECHTE.KONGIGURATIONColumn),Boolean) @@ -24275,7 +24490,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBUSER_RECHTE.ERFASSTWERColumn),String) @@ -24286,7 +24501,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -24301,7 +24516,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -24316,25 +24531,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBUSER_RECHTE.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBUSER_RECHTE.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBUSER_RECHTE.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBUSER_RECHTE.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -24349,14 +24564,14 @@ Partial Public Class MyDataset Private tableTBMELDEDATUM As TBMELDEDATUMDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBMELDEDATUM = CType(Me.Table,TBMELDEDATUMDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBMELDEDATUM.GUIDColumn),Integer) @@ -24367,7 +24582,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As String Get Return CType(Me(Me.tableTBMELDEDATUM.MELDEDATUMColumn),String) @@ -24378,7 +24593,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableTBMELDEDATUM.MARKTColumn),String) @@ -24389,7 +24604,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBMELDEDATUM.ERFASSTWERColumn),String) @@ -24400,7 +24615,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -24415,7 +24630,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -24430,7 +24645,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -24445,7 +24660,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TIMESTAMP1() As Byte() Get Try @@ -24460,49 +24675,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMELDEDATUM.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBMELDEDATUM.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBMELDEDATUM.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBMELDEDATUM.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMELDEDATUM.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBMELDEDATUM.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTIMESTAMP1Null() As Boolean Return Me.IsNull(Me.tableTBMELDEDATUM.TIMESTAMP1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTIMESTAMP1Null() Me(Me.tableTBMELDEDATUM.TIMESTAMP1Column) = Global.System.Convert.DBNull End Sub @@ -24517,14 +24732,14 @@ Partial Public Class MyDataset Private tableTBGERAETE_VERFOLGUNG As TBGERAETE_VERFOLGUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBGERAETE_VERFOLGUNG = CType(Me.Table,TBGERAETE_VERFOLGUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.GUIDColumn),Integer) @@ -24535,7 +24750,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAETE_ID() As Integer Get Try @@ -24550,7 +24765,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -24565,7 +24780,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IP_ADRESSE() As String Get Try @@ -24580,7 +24795,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.SERIENNRColumn),String) @@ -24591,7 +24806,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_COUNT() As Integer Get Try @@ -24606,7 +24821,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.MARKTColumn),String) @@ -24617,7 +24832,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.ERFASSTWANNColumn),Date) @@ -24628,7 +24843,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -24643,7 +24858,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWANNColumn),Date) @@ -24654,7 +24869,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATEINAME() As String Get Try @@ -24669,7 +24884,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As String Get Try @@ -24684,7 +24899,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAG() As String Get Try @@ -24699,7 +24914,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NOTINLIST() As Boolean Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.NOTINLISTColumn),Boolean) @@ -24710,7 +24925,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODEL_NR() As String Get Try @@ -24725,7 +24940,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DOPPELT_GEMELDET() As Boolean Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.DOPPELT_GEMELDETColumn),Boolean) @@ -24736,7 +24951,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NO_SERIENNR() As Boolean Get Return CType(Me(Me.tableTBGERAETE_VERFOLGUNG.NO_SERIENNRColumn),Boolean) @@ -24747,7 +24962,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A3DuplexSheets() As Integer Get Try @@ -24762,7 +24977,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A3SimplexSheets() As Integer Get Try @@ -24777,7 +24992,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A4DuplexSheets() As Integer Get Try @@ -24792,7 +25007,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A4SimplexSheets() As Integer Get Try @@ -24807,7 +25022,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A3ColorTotalImpressions() As Integer Get Try @@ -24823,7 +25038,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A3MonoTotalImpressions() As Integer Get Try @@ -24839,7 +25054,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A4MonoTotalImpressions() As Integer Get Try @@ -24855,7 +25070,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property A4ColorTotalImpressions() As Integer Get Try @@ -24871,7 +25086,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AverageBlackCoverage() As Decimal Get Try @@ -24887,7 +25102,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AverageCyanCoverage() As Decimal Get Try @@ -24903,7 +25118,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AverageMagentaCoverage() As Decimal Get Try @@ -24919,7 +25134,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AverageYellowCoverage() As Decimal Get Try @@ -24935,7 +25150,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ScanA3Total() As Integer Get Try @@ -24950,7 +25165,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ScanA4Total() As Integer Get Try @@ -24965,277 +25180,277 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETE_IDNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.GERAETE_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETE_IDNull() Me(Me.tableTBGERAETE_VERFOLGUNG.GERAETE_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBGERAETE_VERFOLGUNG.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIP_ADRESSENull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.IP_ADRESSEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIP_ADRESSENull() Me(Me.tableTBGERAETE_VERFOLGUNG.IP_ADRESSEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_COUNTNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.PAGE_COUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_COUNTNull() Me(Me.tableTBGERAETE_VERFOLGUNG.PAGE_COUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBGERAETE_VERFOLGUNG.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDATEINAMENull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.DATEINAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATEINAMENull() Me(Me.tableTBGERAETE_VERFOLGUNG.DATEINAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMELDEDATUMNull() Me(Me.tableTBGERAETE_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVERTRAGNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.VERTRAGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVERTRAGNull() Me(Me.tableTBGERAETE_VERFOLGUNG.VERTRAGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODEL_NRNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.MODEL_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODEL_NRNull() Me(Me.tableTBGERAETE_VERFOLGUNG.MODEL_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA3DuplexSheetsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3DuplexSheetsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA3DuplexSheetsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A3DuplexSheetsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA3SimplexSheetsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3SimplexSheetsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA3SimplexSheetsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A3SimplexSheetsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA4DuplexSheetsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4DuplexSheetsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA4DuplexSheetsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A4DuplexSheetsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA4SimplexSheetsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4SimplexSheetsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA4SimplexSheetsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A4SimplexSheetsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA3ColorTotalImpressionsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3ColorTotalImpressionsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA3ColorTotalImpressionsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A3ColorTotalImpressionsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA3MonoTotalImpressionsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A3MonoTotalImpressionsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA3MonoTotalImpressionsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A3MonoTotalImpressionsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA4MonoTotalImpressionsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4MonoTotalImpressionsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA4MonoTotalImpressionsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A4MonoTotalImpressionsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsA4ColorTotalImpressionsNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.A4ColorTotalImpressionsColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetA4ColorTotalImpressionsNull() Me(Me.tableTBGERAETE_VERFOLGUNG.A4ColorTotalImpressionsColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAverageBlackCoverageNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageBlackCoverageColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAverageBlackCoverageNull() Me(Me.tableTBGERAETE_VERFOLGUNG.AverageBlackCoverageColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAverageCyanCoverageNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageCyanCoverageColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAverageCyanCoverageNull() Me(Me.tableTBGERAETE_VERFOLGUNG.AverageCyanCoverageColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAverageMagentaCoverageNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageMagentaCoverageColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAverageMagentaCoverageNull() Me(Me.tableTBGERAETE_VERFOLGUNG.AverageMagentaCoverageColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAverageYellowCoverageNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.AverageYellowCoverageColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAverageYellowCoverageNull() Me(Me.tableTBGERAETE_VERFOLGUNG.AverageYellowCoverageColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsScanA3TotalNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.ScanA3TotalColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetScanA3TotalNull() Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA3TotalColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsScanA4TotalNull() As Boolean Return Me.IsNull(Me.tableTBGERAETE_VERFOLGUNG.ScanA4TotalColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetScanA4TotalNull() Me(Me.tableTBGERAETE_VERFOLGUNG.ScanA4TotalColumn) = Global.System.Convert.DBNull End Sub @@ -25250,14 +25465,14 @@ Partial Public Class MyDataset Private tableVWMarkt_Verfolgung As VWMarkt_VerfolgungDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWMarkt_Verfolgung = CType(Me.Table,VWMarkt_VerfolgungDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAETE_ID() As Integer Get Try @@ -25272,7 +25487,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEVICE() As String Get Try @@ -25287,7 +25502,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableVWMarkt_Verfolgung.SERIENNRColumn),String) @@ -25298,7 +25513,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_MIN() As Integer Get Try @@ -25313,7 +25528,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_MAX() As Integer Get Try @@ -25328,7 +25543,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DRUCKSEITEN() As Integer Get Try @@ -25343,7 +25558,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LETZTES_MELDEDATUM() As Date Get Try @@ -25358,7 +25573,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Try @@ -25373,85 +25588,85 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETE_IDNull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.GERAETE_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETE_IDNull() Me(Me.tableVWMarkt_Verfolgung.GERAETE_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDEVICENull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.DEVICEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDEVICENull() Me(Me.tableVWMarkt_Verfolgung.DEVICEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_MINNull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.PAGE_MINColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_MINNull() Me(Me.tableVWMarkt_Verfolgung.PAGE_MINColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_MAXNull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.PAGE_MAXColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_MAXNull() Me(Me.tableVWMarkt_Verfolgung.PAGE_MAXColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDRUCKSEITENNull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.DRUCKSEITENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDRUCKSEITENNull() Me(Me.tableVWMarkt_Verfolgung.DRUCKSEITENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLETZTES_MELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.LETZTES_MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLETZTES_MELDEDATUMNull() Me(Me.tableVWMarkt_Verfolgung.LETZTES_MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKTNull() As Boolean Return Me.IsNull(Me.tableVWMarkt_Verfolgung.MARKTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKTNull() Me(Me.tableVWMarkt_Verfolgung.MARKTColumn) = Global.System.Convert.DBNull End Sub @@ -25466,14 +25681,14 @@ Partial Public Class MyDataset Private tableVWGERAETE_VERFOLGUNG As VWGERAETE_VERFOLGUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWGERAETE_VERFOLGUNG = CType(Me.Table,VWGERAETE_VERFOLGUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODELL() As String Get Try @@ -25488,7 +25703,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.MARKTColumn),String) @@ -25499,7 +25714,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.SERIENNRColumn),String) @@ -25510,7 +25725,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PC_INITIAL() As Integer Get Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.PC_INITIALColumn),Integer) @@ -25521,7 +25736,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_COUNT() As Integer Get Try @@ -25536,7 +25751,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PPM() As Double Get Try @@ -25551,7 +25766,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As Date Get Try @@ -25566,7 +25781,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableVWGERAETE_VERFOLGUNG.ERFASSTWANNColumn),Date) @@ -25577,7 +25792,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATEINAME() As String Get Try @@ -25592,7 +25807,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IP_ADRESSE() As String Get Try @@ -25607,7 +25822,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATE_INITIAL() As Date Get Try @@ -25622,7 +25837,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAETE_ID() As Integer Get Try @@ -25637,97 +25852,97 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODELLNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.MODELLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODELLNull() Me(Me.tableVWGERAETE_VERFOLGUNG.MODELLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_COUNTNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.PAGE_COUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_COUNTNull() Me(Me.tableVWGERAETE_VERFOLGUNG.PAGE_COUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPPMNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.PPMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPPMNull() Me(Me.tableVWGERAETE_VERFOLGUNG.PPMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMELDEDATUMNull() Me(Me.tableVWGERAETE_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDATEINAMENull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.DATEINAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATEINAMENull() Me(Me.tableVWGERAETE_VERFOLGUNG.DATEINAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIP_ADRESSENull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.IP_ADRESSEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIP_ADRESSENull() Me(Me.tableVWGERAETE_VERFOLGUNG.IP_ADRESSEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDATE_INITIALNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.DATE_INITIALColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDATE_INITIALNull() Me(Me.tableVWGERAETE_VERFOLGUNG.DATE_INITIALColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETE_IDNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_VERFOLGUNG.GERAETE_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETE_IDNull() Me(Me.tableVWGERAETE_VERFOLGUNG.GERAETE_IDColumn) = Global.System.Convert.DBNull End Sub @@ -25742,14 +25957,14 @@ Partial Public Class MyDataset Private tableTBREFLISTE_HISTORY As TBREFLISTE_HISTORYDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBREFLISTE_HISTORY = CType(Me.Table,TBREFLISTE_HISTORYDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBREFLISTE_HISTORY.ERFASSTWERColumn),String) @@ -25760,7 +25975,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Datum() As Date Get Try @@ -25775,13 +25990,13 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDatumNull() As Boolean Return Me.IsNull(Me.tableTBREFLISTE_HISTORY.DatumColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDatumNull() Me(Me.tableTBREFLISTE_HISTORY.DatumColumn) = Global.System.Convert.DBNull End Sub @@ -25796,14 +26011,14 @@ Partial Public Class MyDataset Private tableTBMANDANTEN As TBMANDANTENDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBMANDANTEN = CType(Me.Table,TBMANDANTENDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBMANDANTEN.GUIDColumn),Integer) @@ -25814,7 +26029,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBMANDANTEN.NAMEColumn),String) @@ -25825,7 +26040,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME_LANG() As String Get Return CType(Me(Me.tableTBMANDANTEN.NAME_LANGColumn),String) @@ -25836,7 +26051,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KENNZEICHEN() As String Get Return CType(Me(Me.tableTBMANDANTEN.KENNZEICHENColumn),String) @@ -25847,7 +26062,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FLEETWATCH() As Boolean Get Return CType(Me(Me.tableTBMANDANTEN.FLEETWATCHColumn),Boolean) @@ -25858,7 +26073,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLYWATCH() As Boolean Get Return CType(Me(Me.tableTBMANDANTEN.SUPPLYWATCHColumn),Boolean) @@ -25869,7 +26084,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLLTWER() As String Get Return CType(Me(Me.tableTBMANDANTEN.ERSTELLLTWERColumn),String) @@ -25880,7 +26095,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERSTELLTWANN() As Date Get Try @@ -25895,7 +26110,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -25910,7 +26125,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -25925,7 +26140,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FILTER() As String Get Try @@ -25940,49 +26155,49 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMANDANTEN.ERSTELLTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBMANDANTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBMANDANTEN.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBMANDANTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBMANDANTEN.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableTBMANDANTEN.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFILTERNull() As Boolean Return Me.IsNull(Me.tableTBMANDANTEN.FILTERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFILTERNull() Me(Me.tableTBMANDANTEN.FILTERColumn) = Global.System.Convert.DBNull End Sub @@ -25997,14 +26212,14 @@ Partial Public Class MyDataset Private tableVWSUPPLY_VERFOLGUNG As VWSUPPLY_VERFOLGUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLY_VERFOLGUNG = CType(Me.Table,VWSUPPLY_VERFOLGUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MODELL() As String Get Try @@ -26019,7 +26234,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Try @@ -26034,7 +26249,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -26049,7 +26264,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY() As String Get Try @@ -26064,7 +26279,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_LEVEL() As Integer Get Return CType(Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_LEVELColumn),Integer) @@ -26075,7 +26290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As Date Get Try @@ -26090,7 +26305,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -26105,7 +26320,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS() As String Get Try @@ -26120,7 +26335,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_SERIENNR() As String Get Try @@ -26135,7 +26350,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -26150,109 +26365,109 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMODELLNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.MODELLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMODELLNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.MODELLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKTNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.MARKTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKTNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.MARKTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLYNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLYNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMELDEDATUMNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUSNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.STATUSColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUSNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.STATUSColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_SERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_SERIENNRNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.SUPPLY_SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLY_VERFOLGUNG.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableVWSUPPLY_VERFOLGUNG.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub @@ -26267,14 +26482,14 @@ Partial Public Class MyDataset Private tableTBIMPORT_PRODUKTE_DUPLIKATE As TBIMPORT_PRODUKTE_DUPLIKATEDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBIMPORT_PRODUKTE_DUPLIKATE = CType(Me.Table,TBIMPORT_PRODUKTE_DUPLIKATEDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIAL() As String Get Try @@ -26289,7 +26504,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DUPLIKATE() As Integer Get Try @@ -26304,25 +26519,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIALNull() As Boolean Return Me.IsNull(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.SERIALColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIALNull() Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.SERIALColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDUPLIKATENull() As Boolean Return Me.IsNull(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.DUPLIKATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDUPLIKATENull() Me(Me.tableTBIMPORT_PRODUKTE_DUPLIKATE.DUPLIKATEColumn) = Global.System.Convert.DBNull End Sub @@ -26337,14 +26552,14 @@ Partial Public Class MyDataset Private tableTBCHANGE_LOG_GERAET As TBCHANGE_LOG_GERAETDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCHANGE_LOG_GERAET = CType(Me.Table,TBCHANGE_LOG_GERAETDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.GUIDColumn),Integer) @@ -26355,7 +26570,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDUNG() As String Get Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.MELDUNGColumn),String) @@ -26366,7 +26581,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.ERFASSTWERColumn),String) @@ -26377,7 +26592,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBCHANGE_LOG_GERAET.ERFASSTWANNColumn),Date) @@ -26397,14 +26612,14 @@ Partial Public Class MyDataset Private tableTBSERVICE_IMP_LOG As TBSERVICE_IMP_LOGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBSERVICE_IMP_LOG = CType(Me.Table,TBSERVICE_IMP_LOGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBSERVICE_IMP_LOG.NAMEColumn),String) @@ -26415,7 +26630,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAG() As String Get Try @@ -26430,7 +26645,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As Date Get Return CType(Me(Me.tableTBSERVICE_IMP_LOG.MELDEDATUMColumn),Date) @@ -26441,7 +26656,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IMPORT_DATUM() As Date Get Return CType(Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_DATUMColumn),Date) @@ -26452,7 +26667,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBSERVICE_IMP_LOG.ERFASSTWANNColumn),Date) @@ -26463,7 +26678,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property IMPORT_STATE() As String Get Try @@ -26478,7 +26693,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DATEI() As String Get Return CType(Me(Me.tableTBSERVICE_IMP_LOG.DATEIColumn),String) @@ -26489,25 +26704,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVERTRAGNull() As Boolean Return Me.IsNull(Me.tableTBSERVICE_IMP_LOG.VERTRAGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVERTRAGNull() Me(Me.tableTBSERVICE_IMP_LOG.VERTRAGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsIMPORT_STATENull() As Boolean Return Me.IsNull(Me.tableTBSERVICE_IMP_LOG.IMPORT_STATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetIMPORT_STATENull() Me(Me.tableTBSERVICE_IMP_LOG.IMPORT_STATEColumn) = Global.System.Convert.DBNull End Sub @@ -26522,14 +26737,14 @@ Partial Public Class MyDataset Private tableVWGERAETE_MELDUNG_STATUS As VWGERAETE_MELDUNG_STATUSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWGERAETE_MELDUNG_STATUS = CType(Me.Table,VWGERAETE_MELDUNG_STATUSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT_ID() As Integer Get Try @@ -26544,7 +26759,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAETE_ID() As Integer Get Try @@ -26559,7 +26774,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Try @@ -26574,7 +26789,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.SERIENNRColumn),String) @@ -26585,7 +26800,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKTColumn),String) @@ -26596,7 +26811,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MELDEDATUM() As String Get Try @@ -26611,7 +26826,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAG() As String Get Try @@ -26626,7 +26841,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATE() As String Get Try @@ -26641,7 +26856,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKER() As String Get Try @@ -26656,85 +26871,85 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMANDANT_IDNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.MANDANT_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMANDANT_IDNull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.MANDANT_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETE_IDNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.GERAETE_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETE_IDNull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.GERAETE_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMELDEDATUMNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.MELDEDATUMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMELDEDATUMNull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.MELDEDATUMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVERTRAGNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.VERTRAGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVERTRAGNull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.VERTRAGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATENull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.STATEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATENull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.STATEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMARKERNull() As Boolean Return Me.IsNull(Me.tableVWGERAETE_MELDUNG_STATUS.MARKERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMARKERNull() Me(Me.tableVWGERAETE_MELDUNG_STATUS.MARKERColumn) = Global.System.Convert.DBNull End Sub @@ -26749,14 +26964,14 @@ Partial Public Class MyDataset Private tableViewSUPPLY_STATUS_VERFOLGUNG As ViewSUPPLY_STATUS_VERFOLGUNGDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableViewSUPPLY_STATUS_VERFOLGUNG = CType(Me.Table,ViewSUPPLY_STATUS_VERFOLGUNGDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Meldedatum() As Date Get Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MeldedatumColumn),Date) @@ -26767,7 +26982,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Status() As String Get Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.StatusColumn),String) @@ -26778,7 +26993,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Marker() As String Get Try @@ -26793,7 +27008,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Erfasst_wann() As Date Get Return CType(Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.Erfasst_wannColumn),Date) @@ -26804,13 +27019,13 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMarkerNull() As Boolean Return Me.IsNull(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MarkerColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMarkerNull() Me(Me.tableViewSUPPLY_STATUS_VERFOLGUNG.MarkerColumn) = Global.System.Convert.DBNull End Sub @@ -26825,14 +27040,14 @@ Partial Public Class MyDataset Private tableVWSUPPLIES_BESTELLUNG_GESENDET As VWSUPPLIES_BESTELLUNG_GESENDETDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLIES_BESTELLUNG_GESENDET = CType(Me.Table,VWSUPPLIES_BESTELLUNG_GESENDETDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELL_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELL_IDColumn),Integer) @@ -26843,7 +27058,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLT_WANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELLT_WANNColumn),Date) @@ -26854,7 +27069,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLT_WER() As String Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.BESTELLT_WERColumn),String) @@ -26865,7 +27080,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET() As String Get Try @@ -26880,7 +27095,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUELL() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MANUELLColumn),Boolean) @@ -26891,7 +27106,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MARKTColumn),String) @@ -26902,7 +27117,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MENGE() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MENGEColumn),Integer) @@ -26913,7 +27128,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIEN_NR() As String Get Try @@ -26929,7 +27144,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZEICHNUNG() As String Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_BEZEICHNUNGColumn),String) @@ -26940,7 +27155,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT() As String Get Return CType(Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.MANDANTColumn),String) @@ -26951,7 +27166,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Try @@ -26967,37 +27182,37 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.GERAETColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETNull() Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.GERAETColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIEN_NRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SERIEN_NRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIEN_NRNull() Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SERIEN_NRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_IDNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_IDNull() Me(Me.tableVWSUPPLIES_BESTELLUNG_GESENDET.SUPPLY_IDColumn) = Global.System.Convert.DBNull End Sub @@ -27012,14 +27227,14 @@ Partial Public Class MyDataset Private tableVWRPT_SUPPLIES_TOORDER As VWRPT_SUPPLIES_TOORDERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWRPT_SUPPLIES_TOORDER = CType(Me.Table,VWRPT_SUPPLIES_TOORDERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -27034,7 +27249,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET() As String Get Try @@ -27049,7 +27264,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_IP() As String Get Try @@ -27064,7 +27279,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_SERIENNR() As String Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_SERIENNRColumn),String) @@ -27075,7 +27290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_PAGECOUNT() As Integer Get Try @@ -27091,7 +27306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_PPM() As Integer Get Try @@ -27106,7 +27321,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.MARKTColumn),String) @@ -27117,7 +27332,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZ() As String Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_BEZColumn),String) @@ -27128,7 +27343,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.LEVELColumn),Integer) @@ -27139,7 +27354,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.SCHWELLENWERTColumn),Integer) @@ -27150,7 +27365,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -27165,7 +27380,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -27180,7 +27395,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS() As String Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.STATUSColumn),String) @@ -27191,7 +27406,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VERTRAG() As String Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.VERTRAGColumn),String) @@ -27202,7 +27417,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER_ORDER() As String Get Return CType(Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBER_ORDERColumn),String) @@ -27213,7 +27428,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUELL() As Boolean Get Try @@ -27228,7 +27443,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ANZAHL() As Integer Get Try @@ -27243,7 +27458,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As String Get Try @@ -27258,121 +27473,121 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAETNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAETColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAETNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAETColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_IPNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_IPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_IPNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_IPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_PAGECOUNTNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PAGECOUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_PAGECOUNTNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PAGECOUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGERAET_PPMNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PPMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGERAET_PPMNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.GERAET_PPMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMANUELLNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.MANUELLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMANUELLNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.MANUELLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsANZAHLNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.ANZAHLColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetANZAHLNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.ANZAHLColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_IDNull() As Boolean Return Me.IsNull(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_IDNull() Me(Me.tableVWRPT_SUPPLIES_TOORDER.SUPPLY_IDColumn) = Global.System.Convert.DBNull End Sub @@ -27387,14 +27602,14 @@ Partial Public Class MyDataset Private tableVWSUPPLIES_2_ORDER As VWSUPPLIES_2_ORDERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWSUPPLIES_2_ORDER = CType(Me.Table,VWSUPPLIES_2_ORDERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT() As String Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MANDANTColumn),String) @@ -27405,7 +27620,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MANDANT_IDColumn),Integer) @@ -27416,7 +27631,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_IDColumn),Integer) @@ -27427,7 +27642,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GERAET_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GERAET_IDColumn),Integer) @@ -27438,7 +27653,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEVICE() As String Get Try @@ -27453,7 +27668,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property DEVICE_SERIAL() As String Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.DEVICE_SERIALColumn),String) @@ -27464,7 +27679,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MARKT() As String Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MARKTColumn),String) @@ -27475,7 +27690,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAGE_COUNT() As Integer Get Try @@ -27490,7 +27705,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PPM() As Integer Get Try @@ -27505,7 +27720,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELLUNG() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.BESTELLUNGColumn),Boolean) @@ -27516,7 +27731,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SUPPLY_BEZEICHNUNG() As String Get Try @@ -27531,7 +27746,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LEVEL() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.LEVELColumn),Integer) @@ -27542,7 +27757,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SCHWELLENWERT() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.SCHWELLENWERTColumn),Integer) @@ -27553,7 +27768,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PARTNUMBER() As String Get Try @@ -27568,7 +27783,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SERIENNR() As String Get Try @@ -27583,7 +27798,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_ID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_IDColumn),Integer) @@ -27594,7 +27809,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS() As String Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.STATUSColumn),String) @@ -27605,7 +27820,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.ERFASSTWANNColumn),Date) @@ -27616,7 +27831,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWER() As String Get Try @@ -27631,7 +27846,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WANN() As Date Get Try @@ -27646,7 +27861,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property STATUS_WER() As String Get Try @@ -27661,7 +27876,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANUELL() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.MANUELLColumn),Boolean) @@ -27672,7 +27887,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FW() As Boolean Get Try @@ -27687,7 +27902,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GUIDColumn),Integer) @@ -27698,7 +27913,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUI_SELECTED() As Boolean Get Return CType(Me(Me.tableVWSUPPLIES_2_ORDER.GUI_SELECTEDColumn),Boolean) @@ -27709,7 +27924,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MENGE() As Integer Get Try @@ -27724,7 +27939,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BESTELL_ID() As Integer Get Try @@ -27739,145 +27954,145 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsDEVICENull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.DEVICEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetDEVICENull() Me(Me.tableVWSUPPLIES_2_ORDER.DEVICEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAGE_COUNTNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.PAGE_COUNTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAGE_COUNTNull() Me(Me.tableVWSUPPLIES_2_ORDER.PAGE_COUNTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPPMNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.PPMColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPPMNull() Me(Me.tableVWSUPPLIES_2_ORDER.PPMColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSUPPLY_BEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_BEZEICHNUNGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSUPPLY_BEZEICHNUNGNull() Me(Me.tableVWSUPPLIES_2_ORDER.SUPPLY_BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPARTNUMBERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.PARTNUMBERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPARTNUMBERNull() Me(Me.tableVWSUPPLIES_2_ORDER.PARTNUMBERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSERIENNRNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.SERIENNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSERIENNRNull() Me(Me.tableVWSUPPLIES_2_ORDER.SERIENNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.GEAENDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWERNull() Me(Me.tableVWSUPPLIES_2_ORDER.GEAENDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WANNNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.STATUS_WANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WANNNull() Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSTATUS_WERNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.STATUS_WERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSTATUS_WERNull() Me(Me.tableVWSUPPLIES_2_ORDER.STATUS_WERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFWNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.FWColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFWNull() Me(Me.tableVWSUPPLIES_2_ORDER.FWColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsMENGENull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.MENGEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetMENGENull() Me(Me.tableVWSUPPLIES_2_ORDER.MENGEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsBESTELL_IDNull() As Boolean Return Me.IsNull(Me.tableVWSUPPLIES_2_ORDER.BESTELL_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetBESTELL_IDNull() Me(Me.tableVWSUPPLIES_2_ORDER.BESTELL_IDColumn) = Global.System.Convert.DBNull End Sub @@ -27886,7 +28101,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGERAETRowChangeEvent Inherits Global.System.EventArgs @@ -27895,7 +28110,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBGERAETRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -27903,7 +28118,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGERAETRow Get Return Me.eventRow @@ -27911,7 +28126,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -27922,7 +28137,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLIESRowChangeEvent Inherits Global.System.EventArgs @@ -27931,7 +28146,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLIESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -27939,7 +28154,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLIESRow Get Return Me.eventRow @@ -27947,7 +28162,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -27958,7 +28173,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_STATUS1RowChangeEvent Inherits Global.System.EventArgs @@ -27967,7 +28182,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_STATUS1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -27975,7 +28190,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_STATUS1Row Get Return Me.eventRow @@ -27983,7 +28198,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -27994,7 +28209,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_STATUS2RowChangeEvent Inherits Global.System.EventArgs @@ -28003,7 +28218,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_STATUS2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28011,7 +28226,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_STATUS2Row Get Return Me.eventRow @@ -28019,7 +28234,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28030,7 +28245,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_STATUS3RowChangeEvent Inherits Global.System.EventArgs @@ -28039,7 +28254,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_STATUS3Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28047,7 +28262,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_STATUS3Row Get Return Me.eventRow @@ -28055,7 +28270,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28066,7 +28281,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_STATUSFILTERRowChangeEvent Inherits Global.System.EventArgs @@ -28075,7 +28290,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_STATUSFILTERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28083,7 +28298,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_STATUSFILTERRow Get Return Me.eventRow @@ -28091,7 +28306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28102,7 +28317,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBSUPPLY_VERFOLGUNGRowChangeEvent Inherits Global.System.EventArgs @@ -28111,7 +28326,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBSUPPLY_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28119,7 +28334,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBSUPPLY_VERFOLGUNGRow Get Return Me.eventRow @@ -28127,7 +28342,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28138,7 +28353,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs @@ -28147,7 +28362,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28155,7 +28370,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKONFIGURATIONRow Get Return Me.eventRow @@ -28163,7 +28378,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28174,7 +28389,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBSTATUSRowChangeEvent Inherits Global.System.EventArgs @@ -28183,7 +28398,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBSTATUSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28191,7 +28406,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBSTATUSRow Get Return Me.eventRow @@ -28199,7 +28414,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28210,7 +28425,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_MARKTRowChangeEvent Inherits Global.System.EventArgs @@ -28219,7 +28434,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_MARKTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28227,7 +28442,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_MARKTRow Get Return Me.eventRow @@ -28235,7 +28450,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28246,7 +28461,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLIES_AKTUELLRowChangeEvent Inherits Global.System.EventArgs @@ -28255,7 +28470,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLIES_AKTUELLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28263,7 +28478,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLIES_AKTUELLRow Get Return Me.eventRow @@ -28271,7 +28486,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28282,7 +28497,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWGERAET_ORDERRowChangeEvent Inherits Global.System.EventArgs @@ -28291,7 +28506,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWGERAET_ORDERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28299,7 +28514,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWGERAET_ORDERRow Get Return Me.eventRow @@ -28307,7 +28522,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28318,7 +28533,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLIES_TO_ORDERRowChangeEvent Inherits Global.System.EventArgs @@ -28327,7 +28542,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLIES_TO_ORDERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28335,7 +28550,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLIES_TO_ORDERRow Get Return Me.eventRow @@ -28343,7 +28558,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28354,7 +28569,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBSUPPLIESRowChangeEvent Inherits Global.System.EventArgs @@ -28363,7 +28578,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBSUPPLIESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28371,7 +28586,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBSUPPLIESRow Get Return Me.eventRow @@ -28379,7 +28594,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28390,7 +28605,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_STATUS4RowChangeEvent Inherits Global.System.EventArgs @@ -28399,7 +28614,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_STATUS4Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28407,7 +28622,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_STATUS4Row Get Return Me.eventRow @@ -28415,7 +28630,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28426,7 +28641,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_STATUS5RowChangeEvent Inherits Global.System.EventArgs @@ -28435,7 +28650,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_STATUS5Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28443,7 +28658,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_STATUS5Row Get Return Me.eventRow @@ -28451,7 +28666,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28462,7 +28677,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBSUPPLY_BESTELLUNGRowChangeEvent Inherits Global.System.EventArgs @@ -28471,7 +28686,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBSUPPLY_BESTELLUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28479,7 +28694,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBSUPPLY_BESTELLUNGRow Get Return Me.eventRow @@ -28487,7 +28702,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28498,7 +28713,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_SUPPLIES_MARKTRowChangeEvent Inherits Global.System.EventArgs @@ -28507,7 +28722,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_SUPPLIES_MARKTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28515,7 +28730,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_SUPPLIES_MARKTRow Get Return Me.eventRow @@ -28523,7 +28738,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28534,7 +28749,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLY_BESTELLUNG_FRONTENDRowChangeEvent Inherits Global.System.EventArgs @@ -28543,7 +28758,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLY_BESTELLUNG_FRONTENDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28551,7 +28766,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLY_BESTELLUNG_FRONTENDRow Get Return Me.eventRow @@ -28559,7 +28774,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28570,7 +28785,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGERAETByMarktRowChangeEvent Inherits Global.System.EventArgs @@ -28579,7 +28794,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBGERAETByMarktRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28587,7 +28802,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGERAETByMarktRow Get Return Me.eventRow @@ -28595,7 +28810,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28606,7 +28821,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBIMPORT_PRODUKTRowChangeEvent Inherits Global.System.EventArgs @@ -28615,7 +28830,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBIMPORT_PRODUKTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28623,7 +28838,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBIMPORT_PRODUKTRow Get Return Me.eventRow @@ -28631,7 +28846,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28642,7 +28857,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBVERTRAEGERowChangeEvent Inherits Global.System.EventArgs @@ -28651,7 +28866,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBVERTRAEGERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28659,7 +28874,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBVERTRAEGERow Get Return Me.eventRow @@ -28667,7 +28882,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28678,7 +28893,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBPRODUKT_VERTRAGRowChangeEvent Inherits Global.System.EventArgs @@ -28687,7 +28902,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBPRODUKT_VERTRAGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28695,7 +28910,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBPRODUKT_VERTRAGRow Get Return Me.eventRow @@ -28703,7 +28918,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28714,7 +28929,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGERAETE_NOTINLISTRowChangeEvent Inherits Global.System.EventArgs @@ -28723,7 +28938,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBGERAETE_NOTINLISTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28731,7 +28946,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGERAETE_NOTINLISTRow Get Return Me.eventRow @@ -28739,7 +28954,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28750,7 +28965,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_MODELLRowChangeEvent Inherits Global.System.EventArgs @@ -28759,7 +28974,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_MODELLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28767,7 +28982,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_MODELLRow Get Return Me.eventRow @@ -28775,7 +28990,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28786,7 +29001,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBSUPPLY_DEFINITIONRowChangeEvent Inherits Global.System.EventArgs @@ -28795,7 +29010,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBSUPPLY_DEFINITIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28803,7 +29018,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBSUPPLY_DEFINITIONRow Get Return Me.eventRow @@ -28811,7 +29026,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28822,7 +29037,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGERAET_SUPPLY_ZUORDNUNGRowChangeEvent Inherits Global.System.EventArgs @@ -28831,7 +29046,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBGERAET_SUPPLY_ZUORDNUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28839,7 +29054,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGERAET_SUPPLY_ZUORDNUNGRow Get Return Me.eventRow @@ -28847,7 +29062,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28858,7 +29073,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWGeraet_Supply_ZuordnungRowChangeEvent Inherits Global.System.EventArgs @@ -28867,7 +29082,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWGeraet_Supply_ZuordnungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28875,7 +29090,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWGeraet_Supply_ZuordnungRow Get Return Me.eventRow @@ -28883,7 +29098,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28894,7 +29109,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBUSER_RECHTERowChangeEvent Inherits Global.System.EventArgs @@ -28903,7 +29118,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBUSER_RECHTERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28911,7 +29126,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBUSER_RECHTERow Get Return Me.eventRow @@ -28919,7 +29134,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28930,7 +29145,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBMELDEDATUMRowChangeEvent Inherits Global.System.EventArgs @@ -28939,7 +29154,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBMELDEDATUMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28947,7 +29162,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBMELDEDATUMRow Get Return Me.eventRow @@ -28955,7 +29170,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28966,7 +29181,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBGERAETE_VERFOLGUNGRowChangeEvent Inherits Global.System.EventArgs @@ -28975,7 +29190,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBGERAETE_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -28983,7 +29198,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBGERAETE_VERFOLGUNGRow Get Return Me.eventRow @@ -28991,7 +29206,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29002,7 +29217,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWMarkt_VerfolgungRowChangeEvent Inherits Global.System.EventArgs @@ -29011,7 +29226,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWMarkt_VerfolgungRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29019,7 +29234,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWMarkt_VerfolgungRow Get Return Me.eventRow @@ -29027,7 +29242,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29038,7 +29253,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWGERAETE_VERFOLGUNGRowChangeEvent Inherits Global.System.EventArgs @@ -29047,7 +29262,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWGERAETE_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29055,7 +29270,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWGERAETE_VERFOLGUNGRow Get Return Me.eventRow @@ -29063,7 +29278,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29074,7 +29289,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBREFLISTE_HISTORYRowChangeEvent Inherits Global.System.EventArgs @@ -29083,7 +29298,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBREFLISTE_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29091,7 +29306,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBREFLISTE_HISTORYRow Get Return Me.eventRow @@ -29099,7 +29314,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29110,7 +29325,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBMANDANTENRowChangeEvent Inherits Global.System.EventArgs @@ -29119,7 +29334,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBMANDANTENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29127,7 +29342,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBMANDANTENRow Get Return Me.eventRow @@ -29135,7 +29350,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29146,7 +29361,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLY_VERFOLGUNGRowChangeEvent Inherits Global.System.EventArgs @@ -29155,7 +29370,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLY_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29163,7 +29378,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLY_VERFOLGUNGRow Get Return Me.eventRow @@ -29171,7 +29386,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29182,7 +29397,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBIMPORT_PRODUKTE_DUPLIKATERowChangeEvent Inherits Global.System.EventArgs @@ -29191,7 +29406,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBIMPORT_PRODUKTE_DUPLIKATERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29199,7 +29414,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBIMPORT_PRODUKTE_DUPLIKATERow Get Return Me.eventRow @@ -29207,7 +29422,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29218,7 +29433,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBCHANGE_LOG_GERAETRowChangeEvent Inherits Global.System.EventArgs @@ -29227,7 +29442,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBCHANGE_LOG_GERAETRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29235,7 +29450,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBCHANGE_LOG_GERAETRow Get Return Me.eventRow @@ -29243,7 +29458,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29254,7 +29469,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBSERVICE_IMP_LOGRowChangeEvent Inherits Global.System.EventArgs @@ -29263,7 +29478,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBSERVICE_IMP_LOGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29271,7 +29486,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBSERVICE_IMP_LOGRow Get Return Me.eventRow @@ -29279,7 +29494,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29290,7 +29505,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWGERAETE_MELDUNG_STATUSRowChangeEvent Inherits Global.System.EventArgs @@ -29299,7 +29514,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWGERAETE_MELDUNG_STATUSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29307,7 +29522,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWGERAETE_MELDUNG_STATUSRow Get Return Me.eventRow @@ -29315,7 +29530,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29326,7 +29541,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class ViewSUPPLY_STATUS_VERFOLGUNGRowChangeEvent Inherits Global.System.EventArgs @@ -29335,7 +29550,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As ViewSUPPLY_STATUS_VERFOLGUNGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29343,7 +29558,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As ViewSUPPLY_STATUS_VERFOLGUNGRow Get Return Me.eventRow @@ -29351,7 +29566,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29362,7 +29577,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLIES_BESTELLUNG_GESENDETRowChangeEvent Inherits Global.System.EventArgs @@ -29371,7 +29586,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLIES_BESTELLUNG_GESENDETRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29379,7 +29594,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLIES_BESTELLUNG_GESENDETRow Get Return Me.eventRow @@ -29387,7 +29602,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29398,7 +29613,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWRPT_SUPPLIES_TOORDERRowChangeEvent Inherits Global.System.EventArgs @@ -29407,7 +29622,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWRPT_SUPPLIES_TOORDERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29415,7 +29630,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWRPT_SUPPLIES_TOORDERRow Get Return Me.eventRow @@ -29423,7 +29638,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29434,7 +29649,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWSUPPLIES_2_ORDERRowChangeEvent Inherits Global.System.EventArgs @@ -29443,7 +29658,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWSUPPLIES_2_ORDERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -29451,7 +29666,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWSUPPLIES_2_ORDERRow Get Return Me.eventRow @@ -29459,7 +29674,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -29493,14 +29708,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -29511,7 +29726,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -29541,7 +29756,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -29569,7 +29784,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -29580,7 +29795,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -29591,7 +29806,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -29626,16 +29841,16 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(9) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ @@ -29682,6 +29897,38 @@ Namespace MyDatasetTableAdapters Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(5).Connection = Me.Connection Me._commandCollection(5).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, TBGERAET.BESTELLUNG"& _ + ", TBGERAET.BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ERFASSTWANN, TBGERAET."& _ + "GEAENDERTWER, TBGERAET.GEAENDERTWANN, TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGE"& _ + "RAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBVERTRAEGE.VERTRAGSNR, TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARC"& _ + "HAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, TBGERAET"& _ + ".ABGEBAUT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.K"& _ + "ENNZEICHEN AS Mandant_KZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + "HERE (TBGERAET.ABGEBAUT = 1) AND (TBMANDANTEN.GUID = @MANDANT_ID)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, TBGERAET.BESTELLUNG"& _ + ", TBGERAET.BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ERFASSTWANN, TBGERAET."& _ + "GEAENDERTWER, TBGERAET.GEAENDERTWANN, TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGE"& _ + "RAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBVERTRAEGE.VERTRAGSNR, TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARC"& _ + "HAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, TBGERAET"& _ + ".ABGEBAUT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.K"& _ + "ENNZEICHEN AS Mandant_KZ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGERAET INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + "HERE (TBMANDANTEN.GUID = @MANDANT_ID) AND (TBGERAET.ABGEBAUT = 1)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ @@ -29691,11 +29938,11 @@ Namespace MyDatasetTableAdapters "ERAET.NICHT_AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.ABGEBAUT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBGERAET LEFT OUTER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBVERTRAEGE ON TBGERAET.VERT"& _ "RAG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBGERAET.GUID = @GUID)" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(8).Connection = Me.Connection + Me._commandCollection(8).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ @@ -29709,11 +29956,11 @@ Namespace MyDatasetTableAdapters "AG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (REPLACE(TBGERAET.MARKT, ' ', '') = REPLA"& _ "CE(@MARKT, ' ', '')) AND (TBGERAET.AKTIV_REFLISTE = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBGERAET.BEZEIC"& _ "HNUNG" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(7).Connection = Me.Connection - Me._commandCollection(7).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ + Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(9).Connection = Me.Connection + Me._commandCollection(9).CommandText = "SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET."& _ "SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, TBGERAET.ERFASSTWANN, TBGERAET."& _ "GEAENDERTWER, TBGERAET.GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBGERAET.MARKER"& _ @@ -29727,12 +29974,12 @@ Namespace MyDatasetTableAdapters "AG_ID = TBVERTRAEGE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (REPLACE(TBGERAET.MARKT, ' ', '') = REPLA"& _ "CE(@MARKT, ' ', '')) AND (TBGERAET.AKTIV_REFLISTE = 1) AND (TBGERAET.ONHOLD = 0)"& _ "" - Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MARKT", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal Aktiv As Boolean, ByVal MANDANT_ID As Integer) As Integer @@ -29747,7 +29994,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal Aktiv As Boolean, ByVal MANDANT_ID As Integer) As MyDataset.TBGERAETDataTable @@ -29760,11 +30007,63 @@ Namespace MyDatasetTableAdapters End Function _ + Public Overloads Overridable Function FillByAbgebaut(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal MANDANT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByAbgebaut(ByVal MANDANT_ID As Integer) As MyDataset.TBGERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT_ID,Integer) + Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByAbgebaut1(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal MANDANT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByAbgebaut1(ByVal MANDANT_ID As Integer) As MyDataset.TBGERAETDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT_ID,Integer) + Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ Public Overloads Overridable Function FillByGUID(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal GUID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand = Me.CommandCollection(7) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -29774,11 +30073,11 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGUID(ByVal GUID As Integer) As MyDataset.TBGERAETDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(5) + Me.Adapter.SelectCommand = Me.CommandCollection(7) Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) Dim dataTable As MyDataset.TBGERAETDataTable = New MyDataset.TBGERAETDataTable() Me.Adapter.Fill(dataTable) @@ -29786,11 +30085,11 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMarkt(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal MARKT As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand = Me.CommandCollection(8) If (MARKT Is Nothing) Then Throw New Global.System.ArgumentNullException("MARKT") Else @@ -29804,11 +30103,11 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMarkt(ByVal MARKT As String) As MyDataset.TBGERAETDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(6) + Me.Adapter.SelectCommand = Me.CommandCollection(8) If (MARKT Is Nothing) Then Throw New Global.System.ArgumentNullException("MARKT") Else @@ -29820,11 +30119,11 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMarktexonhold(ByVal dataTable As MyDataset.TBGERAETDataTable, ByVal MARKT As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(7) + Me.Adapter.SelectCommand = Me.CommandCollection(9) If (MARKT Is Nothing) Then Throw New Global.System.ArgumentNullException("MARKT") Else @@ -29838,11 +30137,11 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMarktexonhold(ByVal MARKT As String) As MyDataset.TBGERAETDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(7) + Me.Adapter.SelectCommand = Me.CommandCollection(9) If (MARKT Is Nothing) Then Throw New Global.System.ArgumentNullException("MARKT") Else @@ -29854,7 +30153,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdBestellungJa(ByVal Original_GUID As Integer) As Integer @@ -29877,7 +30176,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdGetGERAET_ID(ByVal SERIAL As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -29908,7 +30207,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateBestellungnein(ByVal Original_GUID As Integer) As Integer @@ -29931,7 +30230,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdupdateStateOnHold(ByVal STATE As Boolean, ByVal GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -29977,14 +30276,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -29995,7 +30294,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30025,7 +30324,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30053,7 +30352,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30064,7 +30363,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30075,7 +30374,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30107,14 +30406,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(4) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -30159,7 +30458,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIESDataTable) As Integer @@ -30172,7 +30471,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.VWSUPPLIESDataTable @@ -30183,7 +30482,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.VWSUPPLIESDataTable) As Integer @@ -30196,7 +30495,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByAll() As MyDataset.VWSUPPLIESDataTable @@ -30207,7 +30506,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMARKT(ByVal dataTable As MyDataset.VWSUPPLIESDataTable, ByVal MARKT As String) As Integer @@ -30225,7 +30524,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMARKT(ByVal MARKT As String) As MyDataset.VWSUPPLIESDataTable @@ -30241,7 +30540,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillBySTATUS(ByVal dataTable As MyDataset.VWSUPPLIESDataTable, ByVal STATUS_ID As Integer) As Integer @@ -30255,7 +30554,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataBySTATUS(ByVal STATUS_ID As Integer) As MyDataset.VWSUPPLIESDataTable @@ -30267,7 +30566,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByStatusname(ByVal dataTable As MyDataset.VWSUPPLIESDataTable, ByVal STATUS As String) As Integer @@ -30285,7 +30584,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByStatusname(ByVal STATUS As String) As MyDataset.VWSUPPLIESDataTable @@ -30324,14 +30623,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -30342,7 +30641,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30372,7 +30671,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30400,7 +30699,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30411,7 +30710,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30422,7 +30721,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30434,14 +30733,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -30451,7 +30750,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS1DataTable) As Integer @@ -30464,7 +30763,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS1DataTable @@ -30498,14 +30797,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -30516,7 +30815,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30546,7 +30845,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30574,7 +30873,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30585,7 +30884,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30596,7 +30895,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30608,14 +30907,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -30625,7 +30924,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS2DataTable) As Integer @@ -30638,7 +30937,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS2DataTable @@ -30672,14 +30971,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -30690,7 +30989,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30720,7 +31019,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30748,7 +31047,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30759,7 +31058,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30770,7 +31069,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30782,14 +31081,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -30799,7 +31098,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS3DataTable) As Integer @@ -30812,7 +31111,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS3DataTable @@ -30846,14 +31145,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -30864,7 +31163,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30894,7 +31193,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30922,7 +31221,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30933,7 +31232,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30944,7 +31243,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30956,14 +31255,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -30973,7 +31272,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUSFILTERDataTable) As Integer @@ -30986,7 +31285,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUSFILTERDataTable @@ -31020,14 +31319,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -31038,7 +31337,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -31068,7 +31367,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -31096,7 +31395,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -31107,7 +31406,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -31118,7 +31417,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -31226,14 +31525,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -31258,7 +31557,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLY_VERFOLGUNGDataTable) As Integer @@ -31271,7 +31570,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLY_VERFOLGUNGDataTable @@ -31282,35 +31581,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLY_VERFOLGUNGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBSUPPLY_VERFOLGUNG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_SERIENNR As String, ByVal Original_GERAET_ID As Global.System.Nullable(Of Integer), ByVal Original_LEVEL As Global.System.Nullable(Of Integer), ByVal Original_PARTNUMBER As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_MARKER As String, ByVal Original_MELDEDATUM As String) As Integer @@ -31400,7 +31699,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -31570,7 +31869,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -31601,7 +31900,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdInsertmanuell(ByVal BEZEICHNUNG As String, ByVal SERIENNR As String, ByVal LEVEL As Integer, ByVal PARTNUMBER As String, ByVal ERFASSTWER As String, ByVal GERAET_ID As Integer, ByVal MELDEDATUM As String) As Integer @@ -31673,14 +31972,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -31691,7 +31990,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -31721,7 +32020,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -31749,7 +32048,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -31760,7 +32059,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -31771,7 +32070,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -31839,14 +32138,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -31859,7 +32158,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKONFIGURATIONDataTable) As Integer @@ -31872,7 +32171,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBKONFIGURATIONDataTable @@ -31883,35 +32182,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBKONFIGURATION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_STATUS_OK As Integer, ByVal Original_STATUS_BEST As Integer, ByVal Original_STATUS_SD As Integer, ByVal Original_BEMERKUNG As String, ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer) As Integer @@ -31954,7 +32253,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal STATUS_OK As Integer, ByVal STATUS_BEST As Integer, ByVal STATUS_SD As Integer, ByVal BEMERKUNG As String, ByVal GEAENDERTWER As String, ByVal DEF_SW As Integer, ByVal STATUS_BESTELLT As Integer, ByVal STATUS_UNKLAR As Integer, ByVal STATUS_ERSETZT As Integer, ByVal IMPORT_XML As String, ByVal IMPORT_XMLARCHIV As String, ByVal IMPORT_BESTELLUNGEN As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -32031,14 +32330,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -32049,7 +32348,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -32079,7 +32378,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -32107,7 +32406,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -32118,7 +32417,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -32129,7 +32428,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -32179,14 +32478,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -32196,7 +32495,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSTATUSDataTable) As Integer @@ -32209,7 +32508,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBSTATUSDataTable @@ -32220,35 +32519,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSTATUSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBSTATUS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -32269,7 +32568,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal BEMERKUNG As String, ByVal ERFASSTWER As String) As Integer @@ -32309,7 +32608,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal BEMERKUNG As String, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -32374,14 +32673,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -32392,7 +32691,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -32422,7 +32721,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -32450,7 +32749,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -32461,7 +32760,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -32472,7 +32771,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -32483,14 +32782,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -32501,7 +32800,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_MARKTDataTable) As Integer @@ -32514,7 +32813,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_MARKTDataTable @@ -32548,14 +32847,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -32566,7 +32865,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -32596,7 +32895,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -32624,7 +32923,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -32635,7 +32934,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -32646,7 +32945,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -32674,14 +32973,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(5) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -32739,7 +33038,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable) As Integer @@ -32752,7 +33051,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.VWSUPPLIES_AKTUELLDataTable @@ -32763,7 +33062,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByGeraet(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal GERAET As Integer) As Integer @@ -32777,7 +33076,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGeraet(ByVal GERAET As Integer) As MyDataset.VWSUPPLIES_AKTUELLDataTable @@ -32789,7 +33088,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMARKT(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal MARKT As String) As Integer @@ -32807,7 +33106,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMARKT(ByVal MARKT As String) As MyDataset.VWSUPPLIES_AKTUELLDataTable @@ -32823,7 +33122,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByNurBestellungen(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal GERAET As Integer) As Integer @@ -32837,7 +33136,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByNurBestellungen(ByVal GERAET As Integer) As MyDataset.VWSUPPLIES_AKTUELLDataTable @@ -32849,7 +33148,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillBySTATUS(ByVal dataTable As MyDataset.VWSUPPLIES_AKTUELLDataTable, ByVal STATUS_ID As Integer) As Integer @@ -32863,7 +33162,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataBySTATUS(ByVal STATUS_ID As Integer) As MyDataset.VWSUPPLIES_AKTUELLDataTable @@ -32875,7 +33174,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateOnHold(ByVal GEAENDERTWER As String, ByVal ONHOLD As Boolean, ByVal Original_GUID As Integer) As Integer @@ -32927,14 +33226,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -32945,7 +33244,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -32975,7 +33274,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -33003,7 +33302,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -33014,7 +33313,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -33025,7 +33324,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -33045,14 +33344,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -33065,7 +33364,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGERAET_ORDERDataTable, ByVal MANDANT As String) As Integer @@ -33083,7 +33382,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWGERAET_ORDERDataTable @@ -33122,14 +33421,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -33140,7 +33439,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -33170,7 +33469,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -33198,7 +33497,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -33209,7 +33508,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -33220,7 +33519,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -33246,14 +33545,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -33267,7 +33566,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_TO_ORDERDataTable, ByVal MANDANT As String) As Integer @@ -33285,7 +33584,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWSUPPLIES_TO_ORDERDataTable @@ -33324,14 +33623,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -33342,7 +33641,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -33372,7 +33671,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -33400,7 +33699,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -33411,7 +33710,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -33422,7 +33721,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -33600,14 +33899,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(4) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -33648,7 +33947,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLIESDataTable) As Integer @@ -33661,7 +33960,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLIESDataTable @@ -33672,35 +33971,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLIESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBSUPPLIES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ @@ -33816,7 +34115,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -33912,7 +34211,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -34104,7 +34403,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CMDGetMarker(ByVal SUPPLYID As Integer) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -34131,7 +34430,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateBestelltManuell(ByVal WER As String, ByVal Marker As String, ByVal SUPPLY_ID As Integer) As Integer @@ -34164,7 +34463,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateOnHold(ByVal GEAENDERTWER As String, ByVal ONHOLD As Boolean, ByVal Original_GUID As Integer) As Integer @@ -34193,7 +34492,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateSchwellenwert(ByVal SCHWELLENWERT As Integer, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer) As Integer @@ -34245,14 +34544,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -34263,7 +34562,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -34293,7 +34592,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -34321,7 +34620,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -34332,7 +34631,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -34343,7 +34642,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -34355,14 +34654,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -34372,7 +34671,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS4DataTable) As Integer @@ -34385,7 +34684,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS4DataTable @@ -34419,14 +34718,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -34437,7 +34736,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -34467,7 +34766,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -34495,7 +34794,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -34506,7 +34805,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -34517,7 +34816,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -34529,14 +34828,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -34546,7 +34845,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_STATUS5DataTable) As Integer @@ -34559,7 +34858,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_STATUS5DataTable @@ -34593,14 +34892,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -34611,7 +34910,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -34641,7 +34940,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -34669,7 +34968,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -34680,7 +34979,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -34691,7 +34990,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -34753,14 +35052,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -34856,7 +35155,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable) As Integer @@ -34869,7 +35168,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLY_BESTELLUNGDataTable @@ -34880,7 +35179,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMARKT(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable, ByVal MARKT As String) As Integer @@ -34898,7 +35197,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMARKT(ByVal MARKT As String) As MyDataset.TBSUPPLY_BESTELLUNGDataTable @@ -34914,7 +35213,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMarktManuell(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable, ByVal MARKT As String, ByVal _date As String) As Integer @@ -34937,7 +35236,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMarktManuell(ByVal MARKT As String, ByVal _date As String) As MyDataset.TBSUPPLY_BESTELLUNGDataTable @@ -34958,35 +35257,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLY_BESTELLUNGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBSUPPLY_BESTELLUNG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -35007,7 +35306,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer), ByVal BESTELLT_WANN As Date) As Integer @@ -35070,7 +35369,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal BESTELLNR As String, ByVal SERIEN_NR As String, ByVal GERAET As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer), ByVal Original_GUID As Integer) As Integer @@ -35127,7 +35426,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdGetOrderID(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MARKT As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -35163,7 +35462,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert_Manuell_Serial(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As Integer @@ -35221,7 +35520,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdInsertManuell_MBestellnr(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal BESTELLT_WER As String, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal GERAET_ID As Global.System.Nullable(Of Integer), ByVal SUPPLY_ID As Global.System.Nullable(Of Integer), ByVal DATUM As Date, ByVal MARKER As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -35289,7 +35588,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdSET_MANUELL_ALS_BESTELLT(ByVal Geraete_ID As Global.System.Nullable(Of Integer)) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -35320,7 +35619,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdate_Bestellnr(ByVal BESTELLNR As String, ByVal BESTELLT_WER As String, ByVal file As String, ByVal Menge As Integer, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -35358,7 +35657,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateVAS(ByVal BESTELLNR As String, ByVal File As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) @@ -35413,14 +35712,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -35431,7 +35730,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -35461,7 +35760,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -35489,7 +35788,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -35500,7 +35799,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -35511,7 +35810,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -35524,14 +35823,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -35557,7 +35856,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_SUPPLIES_MARKTDataTable, ByVal MARKT As String) As Integer @@ -35575,7 +35874,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MARKT As String) As MyDataset.TBWH_SUPPLIES_MARKTDataTable @@ -35591,7 +35890,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByGeraet(ByVal dataTable As MyDataset.TBWH_SUPPLIES_MARKTDataTable, ByVal GeraeteID As Integer) As Integer @@ -35605,7 +35904,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGeraet(ByVal GeraeteID As Integer) As MyDataset.TBWH_SUPPLIES_MARKTDataTable @@ -35640,14 +35939,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -35658,7 +35957,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -35688,7 +35987,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -35716,7 +36015,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -35727,7 +36026,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -35738,7 +36037,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -35756,6 +36055,10 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("BESTELLNR", "BESTELLNR") tableMapping.ColumnMappings.Add("FILE_ORDER_CONFIRM", "FILE_ORDER_CONFIRM") tableMapping.ColumnMappings.Add("MENGE_ORIGIN", "MENGE_ORIGIN") + tableMapping.ColumnMappings.Add("TRACKING_NO", "TRACKING_NO") + tableMapping.ColumnMappings.Add("SHIPTO_POSTCODE", "SHIPTO_POSTCODE") + tableMapping.ColumnMappings.Add("CUSTOM_LABEL_1", "CUSTOM_LABEL_1") + tableMapping.ColumnMappings.Add("CUSTOM_LABEL_2", "CUSTOM_LABEL_2") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -35805,23 +36108,24 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BEST"& _ - "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " VWSUPPLY_BESTELLUNG_FRONTEND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANUELL = 0) AND (REPLACE"& _ - "(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MANUE"& _ - "LL = 1) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', ''))" + "ELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN, TRACK"& _ + "ING_NO, SHIPTO_POSTCODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CUSTOM_LABEL_1, CUSTOM_LABEL"& _ + "_2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_BESTELLUNG_FRONTEND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MANUELL = 0) AND"& _ + " (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) OR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (MANUELL = 1) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', ''))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Markt", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() @@ -35872,16 +36176,18 @@ Namespace MyDatasetTableAdapters Me._commandCollection(6).Connection = Me.Connection Me._commandCollection(6).CommandText = "SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARK"& _ "T, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, ME"& _ - "NGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (YEA"& _ - "R(BESTELLT_WANN) = YEAR(GETDATE())) AND (NAME = @MANDANT)" + "NGE_ORIGIN,TRACKING_NO,SHIPTO_POSTCODE,CUSTOM_LABEL_1,CUSTOM_LABEL_2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " VWSUPPLY_BESTELLUNG_FRONTEND AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (YEAR(BESTELLT_WANN) = YEA"& _ + "R(GETDATE())) AND (NAME = @MANDANT)" Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(7).Connection = Me.Connection Me._commandCollection(7).CommandText = "SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARK"& _ "T, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, ME"& _ - "NGE_ORIGIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (NAM"& _ - "E = @MANDANT) AND (BESTELLT_WANN BETWEEN @D_von AND @D_bis)" + "NGE_ORIGIN, TRACKING_NO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHIPTO_POSTCODE, CUSTOM_LABE"& _ + "L_1, CUSTOM_LABEL_2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (NAME = @MANDANT) AND (BESTELLT_WANN BETWEEN @D_von AND @D_bis)" Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MANDANT", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "MANDANT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@D_von", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "BESTELLT_WANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -35897,7 +36203,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill_ByMarkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal Markt As String) As Integer @@ -35915,7 +36221,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData_ByMarkt(ByVal Markt As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable @@ -35931,13 +36237,21 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function FillBy_DatumMArkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal D_von As Date, ByVal D_bis As Date, ByVal MARKT As String) As Integer + Public Overloads Overridable Function FillBy_DatumMArkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal D_von As Global.System.Nullable(Of Date), ByVal D_bis As Global.System.Nullable(Of Date), ByVal MARKT As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(5) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(D_von,Date) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_bis,Date) + If (D_von.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(D_von.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (D_bis.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_bis.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If If (MARKT Is Nothing) Then Throw New Global.System.ArgumentNullException("MARKT") Else @@ -35951,13 +36265,21 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function GetDataBy_DatumMarkt(ByVal D_von As Date, ByVal D_bis As Date, ByVal MARKT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Public Overloads Overridable Function GetDataBy_DatumMarkt(ByVal D_von As Global.System.Nullable(Of Date), ByVal D_bis As Global.System.Nullable(Of Date), ByVal MARKT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(5) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(D_von,Date) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_bis,Date) + If (D_von.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(D_von.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (D_bis.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_bis.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If If (MARKT Is Nothing) Then Throw New Global.System.ArgumentNullException("MARKT") Else @@ -35969,7 +36291,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByall(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MANDANT As String) As Integer @@ -35987,7 +36309,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByall(ByVal MANDANT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable @@ -36003,18 +36325,26 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function FillByDatum(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MANDANT As String, ByVal D_von As Date, ByVal D_bis As Date) As Integer + Public Overloads Overridable Function FillByDatum(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MANDANT As String, ByVal D_von As Global.System.Nullable(Of Date), ByVal D_bis As Global.System.Nullable(Of Date)) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(7) If (MANDANT Is Nothing) Then Throw New Global.System.ArgumentNullException("MANDANT") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_von,Date) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(D_bis,Date) + If (D_von.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_von.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (D_bis.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(2).Value = CType(D_bis.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -36023,25 +36353,33 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function GetDataByDatum(ByVal MANDANT As String, ByVal D_von As Date, ByVal D_bis As Date) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable + Public Overloads Overridable Function GetDataByDatum(ByVal MANDANT As String, ByVal D_von As Global.System.Nullable(Of Date), ByVal D_bis As Global.System.Nullable(Of Date)) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(7) If (MANDANT Is Nothing) Then Throw New Global.System.ArgumentNullException("MANDANT") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(MANDANT,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_von,Date) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(D_bis,Date) + If (D_von.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(1).Value = CType(D_von.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (D_bis.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(2).Value = CType(D_bis.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(2).Value = Global.System.DBNull.Value + End If Dim dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable = New MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function FillByManuellMArkt(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable, ByVal MARKT As String) As Integer @@ -36059,7 +36397,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByManuellMArkt(ByVal MARKT As String) As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable @@ -36075,35 +36413,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.VWSUPPLY_BESTELLUNG_FRONTENDDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "VWSUPPLY_BESTELLUNG_FRONTEND") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -36124,10 +36462,10 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String) As Integer + Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Global.System.Nullable(Of Date), ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String) As Integer If (SUPPLY_BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") Else @@ -36135,17 +36473,21 @@ Namespace MyDatasetTableAdapters End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(MENGE,Integer) If (MARKT Is Nothing) Then - Throw New Global.System.ArgumentNullException("MARKT") + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(MARKT,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(MANUELL,Boolean) If (BESTELLT_WER Is Nothing) Then - Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESTELLT_WER,String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(BESTELLT_WANN,Date) + If (BESTELLT_WANN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(BESTELLT_WANN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If If (GERAET Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else @@ -36177,10 +36519,10 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Global.System.Nullable(Of Date), ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte, ByVal GUID As Integer) As Integer If (SUPPLY_BEZEICHNUNG Is Nothing) Then Throw New Global.System.ArgumentNullException("SUPPLY_BEZEICHNUNG") Else @@ -36188,17 +36530,21 @@ Namespace MyDatasetTableAdapters End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MENGE,Integer) If (MARKT Is Nothing) Then - Throw New Global.System.ArgumentNullException("MARKT") + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(MARKT,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MANUELL,Boolean) If (BESTELLT_WER Is Nothing) Then - Throw New Global.System.ArgumentNullException("BESTELLT_WER") + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESTELLT_WER,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BESTELLT_WANN,Date) + If (BESTELLT_WANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(BESTELLT_WANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If If (GERAET Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else @@ -36237,15 +36583,15 @@ Namespace MyDatasetTableAdapters End Function _ - Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Date, ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer + Public Overloads Overridable Function Update(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MENGE As Integer, ByVal MARKT As String, ByVal MANUELL As Boolean, ByVal BESTELLT_WER As String, ByVal BESTELLT_WANN As Global.System.Nullable(Of Date), ByVal GERAET As String, ByVal SERIEN_NR As String, ByVal BESTELLNR As String, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer Return Me.Update(SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, Original_GUID, Original_TIMESTAMP1, Original_GUID) End Function _ Public Overloads Overridable Function cmdGetID_ORDER(ByVal SUPPLY_BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -36286,7 +36632,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdgetID_ORDER_SUPPLYID(ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -36317,7 +36663,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdate_BestNr(ByVal BESTELLNR As String, ByVal BESTELLT_WER As String, ByVal Menge As Integer, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -36327,7 +36673,7 @@ Namespace MyDatasetTableAdapters command.Parameters(0).Value = CType(BESTELLNR,String) End If If (BESTELLT_WER Is Nothing) Then - Throw New Global.System.ArgumentNullException("BESTELLT_WER") + command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(BESTELLT_WER,String) End If @@ -36350,7 +36696,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdateVAS(ByVal BESTELLNR As String, ByVal file As String, ByVal Original_GUID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -36405,14 +36751,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -36423,7 +36769,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -36453,7 +36799,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -36481,7 +36827,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -36492,7 +36838,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -36503,7 +36849,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -36551,14 +36897,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -36605,7 +36951,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function FillByMarkt(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal MARKT As String) As Integer @@ -36623,7 +36969,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMarkt(ByVal MARKT As String) As MyDataset.TBGERAETByMarktDataTable @@ -36639,7 +36985,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByDate(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal datevon As Date, ByVal datebis As Date) As Integer @@ -36654,7 +37000,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByDate(ByVal datevon As Date, ByVal datebis As Date) As MyDataset.TBGERAETByMarktDataTable @@ -36667,7 +37013,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByG_ID(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal G_ID As Integer) As Integer @@ -36681,7 +37027,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByG_ID(ByVal G_ID As Integer) As MyDataset.TBGERAETByMarktDataTable @@ -36693,7 +37039,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByMarktDate(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable, ByVal datevon As Date, ByVal datebis As Date, ByVal Markt As String) As Integer @@ -36713,7 +37059,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByMarktDate(ByVal datevon As Date, ByVal datebis As Date, ByVal Markt As String) As MyDataset.TBGERAETByMarktDataTable @@ -36731,35 +37077,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAETByMarktDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGERAETByMarkt") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_MARKT As String, ByVal Original_SERIENNR As String, ByVal Original_DATE_INITIAL As Date) As Integer @@ -36798,7 +37144,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal DATE_INITIAL As Date, ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_MARKT As String, ByVal Original_SERIENNR As String, ByVal Original_DATE_INITIAL As Date, ByVal GUID As Integer) As Integer @@ -36854,7 +37200,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal MARKT As String, ByVal SERIENNR As String, ByVal DATE_INITIAL As Date, ByVal Original_GUID As Integer, ByVal Original_BEZEICHNUNG As String, ByVal Original_MARKT As String, ByVal Original_SERIENNR As String, ByVal Original_DATE_INITIAL As Date) As Integer @@ -36885,14 +37231,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -36903,7 +37249,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -36933,7 +37279,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -36961,7 +37307,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -36972,7 +37318,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -36983,7 +37329,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -37002,14 +37348,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -37054,7 +37400,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBIMPORT_PRODUKTDataTable) As Integer @@ -37067,7 +37413,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBIMPORT_PRODUKTDataTable @@ -37078,7 +37424,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmddelete(ByVal mandant_id As Integer) As Integer @@ -37101,7 +37447,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdInsert( _ @@ -37203,7 +37549,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function PRINSERT_PRODUKT_VERTRAG() As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -37247,14 +37593,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -37265,7 +37611,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -37295,7 +37641,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -37323,7 +37669,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -37334,7 +37680,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -37345,7 +37691,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -37433,14 +37779,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -37463,7 +37809,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBVERTRAEGEDataTable) As Integer @@ -37476,7 +37822,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBVERTRAEGEDataTable @@ -37487,7 +37833,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillBykleinerGUID(ByVal dataTable As MyDataset.TBVERTRAEGEDataTable, ByVal GUID As Integer) As Integer @@ -37501,7 +37847,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataBykleinerGUID(ByVal GUID As Integer) As MyDataset.TBVERTRAEGEDataTable @@ -37513,35 +37859,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBVERTRAEGEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBVERTRAEGE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_VERTRAGSNR As String, ByVal Original_BEZEICHNUNG1 As String, ByVal Original_BEZEICHNUNG2 As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Date) As Integer @@ -37595,7 +37941,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal VERTRAGSNR As String, ByVal BEZEICHNUNG1 As String, ByVal BEZEICHNUNG2 As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As Integer @@ -37642,7 +37988,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -37740,7 +38086,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal VERTRAGSNR As String, ByVal BEZEICHNUNG1 As String, ByVal BEZEICHNUNG2 As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_VERTRAGSNR As String, ByVal Original_BEZEICHNUNG1 As String, ByVal Original_BEZEICHNUNG2 As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWER As String, ByVal Original_GEAENDERTWANN As Date) As Integer @@ -37748,7 +38094,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdMaxGuid() As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -37797,14 +38143,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -37815,7 +38161,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -37845,7 +38191,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -37873,7 +38219,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -37884,7 +38230,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -37895,7 +38241,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -38000,14 +38346,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -38019,7 +38365,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBPRODUKT_VERTRAGDataTable) As Integer @@ -38032,7 +38378,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBPRODUKT_VERTRAGDataTable @@ -38043,35 +38389,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBPRODUKT_VERTRAGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBPRODUKT_VERTRAG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_VERTRAG_ID As Integer, ByVal Original_SERIEN_NR As String, ByVal Original_PRODUKT_NR As String, ByVal Original_MODELL_NAME As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Date, ByVal Original_AKTIV As Boolean) As Integer @@ -38129,7 +38475,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal VERTRAG_ID As Integer, ByVal SERIEN_NR As String, ByVal PRODUKT_NR As String, ByVal MODELL_NAME As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal AKTIV As Boolean) As Integer @@ -38178,7 +38524,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -38286,7 +38632,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -38336,14 +38682,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -38354,7 +38700,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -38384,7 +38730,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -38412,7 +38758,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -38423,7 +38769,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -38434,7 +38780,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -38495,14 +38841,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -38524,7 +38870,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAETE_NOTINLISTDataTable) As Integer @@ -38537,7 +38883,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBGERAETE_NOTINLISTDataTable @@ -38548,35 +38894,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAETE_NOTINLISTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGERAETE_NOTINLIST") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer @@ -38602,7 +38948,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal VERTRAG_ID As Integer, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date) As Integer @@ -38645,7 +38991,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal VERTRAG_ID As Integer, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte, ByVal GUID As Integer) As Integer @@ -38695,7 +39041,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal VERTRAG_ID As Integer, ByVal MODELL_NAME As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer @@ -38703,7 +39049,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteGeraete(ByVal VERTRAGSNR As String) As Integer @@ -38730,7 +39076,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function DeleteAll() As Integer @@ -38775,14 +39121,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -38793,7 +39139,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -38823,7 +39169,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -38851,7 +39197,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -38862,7 +39208,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -38873,7 +39219,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -38885,14 +39231,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -38904,7 +39250,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_MODELLDataTable) As Integer @@ -38917,7 +39263,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_MODELLDataTable @@ -38951,14 +39297,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -38969,7 +39315,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -38999,7 +39345,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -39027,7 +39373,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -39038,7 +39384,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -39049,7 +39395,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -39095,14 +39441,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -39125,7 +39471,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSUPPLY_DEFINITIONDataTable) As Integer @@ -39138,7 +39484,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBSUPPLY_DEFINITIONDataTable @@ -39149,35 +39495,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBSUPPLY_DEFINITIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBSUPPLY_DEFINITION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -39198,7 +39544,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal SUPPLY_BEZ As String, ByVal ERFASSTWER As String, ByVal SUPPLY_NAME_DATEI As String) As Integer @@ -39233,7 +39579,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal SUPPLY_BEZ As String, ByVal GEAENDERTWER As String, ByVal SUPPLY_NAME_DATEI As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -39270,7 +39616,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Check_StringDatei(ByVal String_Datei As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -39301,7 +39647,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdgetSupplyName(ByVal String_Datei As String) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -39355,14 +39701,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -39373,7 +39719,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -39403,7 +39749,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -39431,7 +39777,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -39442,7 +39788,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -39453,7 +39799,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -39503,14 +39849,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -39520,7 +39866,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable) As Integer @@ -39533,7 +39879,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable @@ -39544,35 +39890,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAET_SUPPLY_ZUORDNUNGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGERAET_SUPPLY_ZUORDNUNG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -39593,7 +39939,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal GERAET_BEZ As String, ByVal SUPPLY_ID As Integer, ByVal ERFASSTWER As String, ByVal PARTNUMBER As String, ByVal SCHWELLENWERT As Integer, ByVal PARTNUMBER_ORDER As String) As Integer @@ -39635,7 +39981,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal GERAET_BEZ As String, ByVal SUPPLY_ID As Integer, ByVal ERFASSTWER As String, ByVal Original_GUID As Integer, ByVal Original_GERAET_BEZ As String, ByVal Original_SUPPLY_ID As Integer, ByVal Original_ERFASSTWER As String, ByVal GUID As Integer) As Integer @@ -39679,7 +40025,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal GERAET_BEZ As String, ByVal SUPPLY_ID As Integer, ByVal ERFASSTWER As String, ByVal Original_GUID As Integer, ByVal Original_GERAET_BEZ As String, ByVal Original_SUPPLY_ID As Integer, ByVal Original_ERFASSTWER As String) As Integer @@ -39710,14 +40056,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -39728,7 +40074,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -39758,7 +40104,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -39786,7 +40132,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -39797,7 +40143,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -39808,7 +40154,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -39826,14 +40172,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -39870,7 +40216,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGeraet_Supply_ZuordnungDataTable) As Integer @@ -39883,7 +40229,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.VWGeraet_Supply_ZuordnungDataTable @@ -39894,7 +40240,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByGeraet(ByVal dataTable As MyDataset.VWGeraet_Supply_ZuordnungDataTable, ByVal GERAET_BEZ As String) As Integer @@ -39912,7 +40258,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGeraet(ByVal GERAET_BEZ As String) As MyDataset.VWGeraet_Supply_ZuordnungDataTable @@ -39928,7 +40274,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdUpdateSW(ByVal SCHWELLENWERT As Integer, ByVal GUID As Integer) As Integer @@ -39975,14 +40321,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -39993,7 +40339,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -40023,7 +40369,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -40051,7 +40397,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -40062,7 +40408,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -40073,7 +40419,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -40118,14 +40464,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -40136,7 +40482,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBUSER_RECHTEDataTable) As Integer @@ -40149,7 +40495,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBUSER_RECHTEDataTable @@ -40160,35 +40506,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBUSER_RECHTEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBUSER_RECHTE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -40209,7 +40555,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal USR_NAME As String, ByVal EINLESEN As Boolean, ByVal KONGIGURATION As Boolean, ByVal ERFASSTWER As String) As Integer @@ -40241,7 +40587,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USR_NAME As String, ByVal EINLESEN As Boolean, ByVal KONGIGURATION As Boolean, ByVal GEAENDERTWER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -40298,14 +40644,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -40316,7 +40662,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -40346,7 +40692,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -40374,7 +40720,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -40385,7 +40731,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -40396,7 +40742,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -40451,14 +40797,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -40475,7 +40821,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMELDEDATUMDataTable) As Integer @@ -40488,7 +40834,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBMELDEDATUMDataTable @@ -40499,35 +40845,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBMELDEDATUMDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBMELDEDATUM") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_MELDEDATUM As String, ByVal Original_MARKT As String, ByVal Original_TIMESTAMP1() As Byte) As Integer @@ -40562,7 +40908,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal MELDEDATUM As String, ByVal MARKT As String, ByVal ERFASSTWER As String) As Integer @@ -40597,7 +40943,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal MELDEDATUM As String, ByVal MARKT As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_MELDEDATUM As String, ByVal Original_MARKT As String, ByVal Original_TIMESTAMP1() As Byte) As Integer @@ -40662,7 +41008,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_MELDEDATUM As String, ByVal Original_MARKT As String, ByVal Original_TIMESTAMP1() As Byte) As Integer @@ -40670,7 +41016,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDateexists(ByVal _DATE As String, ByVal markt As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -40729,14 +41075,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -40747,7 +41093,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -40777,7 +41123,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -40805,7 +41151,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -40816,7 +41162,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -40827,7 +41173,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -40984,14 +41330,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -41065,7 +41411,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGERAETE_VERFOLGUNGDataTable) As Integer @@ -41078,7 +41424,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBGERAETE_VERFOLGUNGDataTable @@ -41089,35 +41435,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGERAETE_VERFOLGUNGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBGERAETE_VERFOLGUNG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_TIMESTAMP1() As Byte) As Integer @@ -41143,7 +41489,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -41311,7 +41657,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -41501,7 +41847,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -41541,7 +41887,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdinsert( _ @@ -41711,7 +42057,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdMaxGUID(ByVal SERIENNR As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -41742,7 +42088,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdNotInList() As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -41791,14 +42137,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -41809,7 +42155,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -41839,7 +42185,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -41867,7 +42213,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -41878,7 +42224,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -41889,7 +42235,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -41907,14 +42253,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -41934,7 +42280,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWMarkt_VerfolgungDataTable, ByVal MARKT As String, ByVal DATEVON As String, ByVal DATE_BIS As String) As Integer @@ -41962,7 +42308,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MARKT As String, ByVal DATEVON As String, ByVal DATE_BIS As String) As MyDataset.VWMarkt_VerfolgungDataTable @@ -42011,14 +42357,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -42029,7 +42375,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -42059,7 +42405,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -42087,7 +42433,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -42098,7 +42444,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -42109,7 +42455,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -42131,14 +42477,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -42161,7 +42507,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGERAETE_VERFOLGUNGDataTable, ByVal GERAETE_ID As Global.System.Nullable(Of Integer)) As Integer @@ -42179,7 +42525,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal GERAETE_ID As Global.System.Nullable(Of Integer)) As MyDataset.VWGERAETE_VERFOLGUNGDataTable @@ -42195,7 +42541,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByDate(ByVal dataTable As MyDataset.VWGERAETE_VERFOLGUNGDataTable, ByVal GERAETE_ID As Global.System.Nullable(Of Integer), ByVal DATUMVON As String, ByVal DATUMBIS As String) As Integer @@ -42223,7 +42569,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByDate(ByVal GERAETE_ID As Global.System.Nullable(Of Integer), ByVal DATUMVON As String, ByVal DATUMBIS As String) As MyDataset.VWGERAETE_VERFOLGUNGDataTable @@ -42272,14 +42618,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -42290,7 +42636,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -42320,7 +42666,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -42348,7 +42694,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -42359,7 +42705,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -42370,7 +42716,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -42382,14 +42728,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -42401,7 +42747,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBREFLISTE_HISTORYDataTable) As Integer @@ -42414,7 +42760,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBREFLISTE_HISTORYDataTable @@ -42448,14 +42794,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -42466,7 +42812,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -42496,7 +42842,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -42524,7 +42870,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -42535,7 +42881,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -42546,7 +42892,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -42600,14 +42946,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -42631,7 +42977,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMANDANTENDataTable) As Integer @@ -42644,7 +42990,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBMANDANTENDataTable @@ -42655,35 +43001,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBMANDANTENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBMANDANTEN") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal NAME_LANG As String, ByVal KENNZEICHEN As String, ByVal FLEETWATCH As Boolean, ByVal SUPPLYWATCH As Boolean, ByVal ERSTELLLTWER As String, ByVal FILTER As String) As Integer @@ -42730,7 +43076,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal NAME_LANG As String, ByVal KENNZEICHEN As String, ByVal FLEETWATCH As Boolean, ByVal SUPPLYWATCH As Boolean, ByVal GEAENDERTWER As String, ByVal FILTER As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -42779,7 +43125,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdCheckSW_aktiv(ByVal kz As String) As Global.System.Nullable(Of Boolean) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -42810,7 +43156,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdGetMandID(ByVal name As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -42864,14 +43210,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -42882,7 +43228,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -42912,7 +43258,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -42940,7 +43286,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -42951,7 +43297,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -42962,7 +43308,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -42982,14 +43328,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -43019,7 +43365,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable, ByVal GERAET_ID As Integer) As Integer @@ -43033,7 +43379,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal GERAET_ID As Integer) As MyDataset.VWSUPPLY_VERFOLGUNGDataTable @@ -43045,7 +43391,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillByDate(ByVal dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable, ByVal GERAET_ID As Integer, ByVal datevon As String, ByVal datebis As String) As Integer @@ -43069,7 +43415,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataByDate(ByVal GERAET_ID As Integer, ByVal datevon As String, ByVal datebis As String) As MyDataset.VWSUPPLY_VERFOLGUNGDataTable @@ -43091,7 +43437,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function FillBySUPPLYID(ByVal dataTable As MyDataset.VWSUPPLY_VERFOLGUNGDataTable, ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As Integer @@ -43109,7 +43455,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetDataBySUPPLYID(ByVal SUPPLY_ID As Global.System.Nullable(Of Integer)) As MyDataset.VWSUPPLY_VERFOLGUNGDataTable @@ -43148,14 +43494,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -43166,7 +43512,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -43196,7 +43542,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -43224,7 +43570,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -43235,7 +43581,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -43246,7 +43592,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -43258,14 +43604,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -43277,7 +43623,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBIMPORT_PRODUKTE_DUPLIKATEDataTable) As Integer @@ -43290,7 +43636,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBIMPORT_PRODUKTE_DUPLIKATEDataTable @@ -43324,14 +43670,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -43342,7 +43688,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -43372,7 +43718,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -43400,7 +43746,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -43411,7 +43757,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -43422,7 +43768,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -43436,14 +43782,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -43455,7 +43801,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCHANGE_LOG_GERAETDataTable, ByVal GERAET_ID As Integer) As Integer @@ -43469,7 +43815,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal GERAET_ID As Integer) As MyDataset.TBCHANGE_LOG_GERAETDataTable @@ -43504,14 +43850,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -43522,7 +43868,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -43552,7 +43898,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -43580,7 +43926,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -43591,7 +43937,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -43602,7 +43948,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -43619,14 +43965,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -43641,7 +43987,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBSERVICE_IMP_LOGDataTable) As Integer @@ -43654,7 +44000,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBSERVICE_IMP_LOGDataTable @@ -43688,14 +44034,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -43706,7 +44052,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -43736,7 +44082,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -43764,7 +44110,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -43775,7 +44121,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -43786,7 +44132,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -43805,14 +44151,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -43823,7 +44169,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGERAETE_MELDUNG_STATUSDataTable) As Integer @@ -43836,7 +44182,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.VWGERAETE_MELDUNG_STATUSDataTable @@ -43870,14 +44216,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -43888,7 +44234,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -43918,7 +44264,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -43946,7 +44292,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -43957,7 +44303,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -43968,7 +44314,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -43982,14 +44328,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -44003,7 +44349,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.ViewSUPPLY_STATUS_VERFOLGUNGDataTable, ByVal SUPPLY_ID As Integer) As Integer @@ -44017,7 +44363,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal SUPPLY_ID As Integer) As MyDataset.ViewSUPPLY_STATUS_VERFOLGUNGDataTable @@ -44052,14 +44398,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -44070,7 +44416,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -44100,7 +44446,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -44128,7 +44474,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -44139,7 +44485,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -44150,7 +44496,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -44171,14 +44517,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -44196,7 +44542,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_BESTELLUNG_GESENDETDataTable, ByVal MANDANT As String) As Integer @@ -44214,7 +44560,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWSUPPLIES_BESTELLUNG_GESENDETDataTable @@ -44230,7 +44576,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteBestellung(ByVal GUID As Integer) As Integer @@ -44276,14 +44622,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -44294,7 +44640,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -44324,7 +44670,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -44352,7 +44698,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -44363,7 +44709,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -44374,7 +44720,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -44402,14 +44748,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -44424,7 +44770,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWRPT_SUPPLIES_TOORDERDataTable, ByVal MANDANT As String) As Integer @@ -44442,7 +44788,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWRPT_SUPPLIES_TOORDERDataTable @@ -44481,14 +44827,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -44499,7 +44845,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -44529,7 +44875,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -44557,7 +44903,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -44568,7 +44914,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -44579,7 +44925,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -44616,14 +44962,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.SUPPLYWATCH.My.MySettings.Default.MC_SUPPLYWATCHConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -44638,7 +44984,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWSUPPLIES_2_ORDERDataTable, ByVal MANDANT As String) As Integer @@ -44656,7 +45002,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal MANDANT As String) As MyDataset.VWSUPPLIES_2_ORDERDataTable @@ -44722,7 +45068,7 @@ Namespace MyDatasetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -44733,7 +45079,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44747,7 +45093,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44761,7 +45107,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44775,7 +45121,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44789,7 +45135,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44803,7 +45149,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44817,7 +45163,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44831,7 +45177,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44845,7 +45191,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44859,7 +45205,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44873,7 +45219,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44887,7 +45233,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44901,7 +45247,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44915,7 +45261,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44929,7 +45275,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44943,7 +45289,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -44957,7 +45303,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -44968,7 +45314,7 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -45047,7 +45393,7 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -45108,7 +45454,7 @@ Namespace MyDatasetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBVERTRAEGETableAdapter) Is Nothing) Then @@ -45262,7 +45608,7 @@ Namespace MyDatasetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBVERTRAEGETableAdapter) Is Nothing) Then @@ -45400,7 +45746,7 @@ Namespace MyDatasetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBGERAET_SUPPLY_ZUORDNUNGTableAdapter) Is Nothing) Then @@ -45538,7 +45884,7 @@ Namespace MyDatasetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -45564,7 +45910,7 @@ Namespace MyDatasetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -45969,13 +46315,13 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -45993,7 +46339,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -46004,7 +46350,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -46014,7 +46360,7 @@ Namespace MyDatasetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -46026,7 +46372,7 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -46065,7 +46411,7 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/Supplywatch/MyDataset.xsd b/Supplywatch/MyDataset.xsd index 7857298..239507b 100644 --- a/Supplywatch/MyDataset.xsd +++ b/Supplywatch/MyDataset.xsd @@ -119,6 +119,40 @@ WHERE (GUID = @GUID) + + + + SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET.SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, + TBGERAET.ERFASSTWANN, TBGERAET.GEAENDERTWER, TBGERAET.GEAENDERTWANN, TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, + TBVERTRAEGE.VERTRAGSNR, TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, TBGERAET.ABGEBAUT, + TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ +FROM TBGERAET INNER JOIN + TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN + TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID +WHERE (TBGERAET.ABGEBAUT = 1) AND (TBMANDANTEN.GUID = @MANDANT_ID) + + + + + + + + + + SELECT TBGERAET.GUID, TBGERAET.BEZEICHNUNG, TBGERAET.IP_ADRESSE, TBGERAET.SERIENNR, TBGERAET.MARKT, TBGERAET.PAGE_COUNT, TBGERAET.PPM, TBGERAET.BESTELLUNG, TBGERAET.BEMERKUNG, + TBGERAET.ERFASSTWANN, TBGERAET.GEAENDERTWER, TBGERAET.GEAENDERTWANN, TBGERAET.MARKER, TBGERAET.PC_INITIAL, TBGERAET.DATE_INITIAL, TBGERAET.MODEL_NR, TBGERAET.UMGEZOGEN, + TBVERTRAEGE.VERTRAGSNR, TBGERAET.ONHOLD, TBGERAET.ONHOLD_DATE, CONVERT(VARCHAR(10), TBGERAET.MELDEDATUM, 104) AS MELDEDATUM, TBGERAET.NICHT_AKTIV, TBGERAET.ABGEBAUT, + TBMANDANTEN.NAME AS Mandant, TBMANDANTEN.KENNZEICHEN AS Mandant_KZ +FROM TBGERAET INNER JOIN + TBMANDANTEN ON TBGERAET.MANDANT_ID = TBMANDANTEN.GUID LEFT OUTER JOIN + TBVERTRAEGE ON TBGERAET.VERTRAG_ID = TBVERTRAEGE.GUID +WHERE (TBMANDANTEN.GUID = @MANDANT_ID) AND (TBGERAET.ABGEBAUT = 1) + + + + + + @@ -1314,10 +1348,10 @@ SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_W - + - - + + @@ -1326,7 +1360,8 @@ SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_W - SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN + SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_WANN, GERAET, SERIEN_NR, BESTELLNR, FILE_ORDER_CONFIRM, MENGE_ORIGIN, TRACKING_NO, SHIPTO_POSTCODE, + CUSTOM_LABEL_1, CUSTOM_LABEL_2 FROM VWSUPPLY_BESTELLUNG_FRONTEND WHERE (MANUELL = 0) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) OR (MANUELL = 1) AND (REPLACE(MARKT, ' ', '') = REPLACE(@Markt, ' ', '')) @@ -1342,10 +1377,10 @@ SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_W - + - - + + @@ -1370,6 +1405,10 @@ SELECT GUID, SUPPLY_BEZEICHNUNG, MENGE, MARKT, MANUELL, BESTELLT_WER, BESTELLT_W + + + + @@ -1407,7 +1446,7 @@ WHERE (GUID = @Original_GUID); - + @@ -1421,7 +1460,7 @@ WHERE (GUID = @Original_GUID); - + @@ -1460,8 +1499,8 @@ FROM VWSUPPLY_BESTELLUNG_FRONTEND WHERE (BESTELLT_WANN BETWEEN @D_von AND @D_bis) AND (REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) OR (BESTELLT_WANN BETWEEN @D_von AND @D_bis) AND (REPLACE(MARKT, ' ', '') = REPLACE(@MARKT, ' ', '')) - - + + @@ -1470,7 +1509,7 @@ WHERE (BESTELLT_WANN BETWEEN @D_von AND @D_bis) AND (REPLACE(MARKT, ' ', - SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, MENGE_ORIGIN + SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, MENGE_ORIGIN,TRACKING_NO,SHIPTO_POSTCODE,CUSTOM_LABEL_1,CUSTOM_LABEL_2 FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T WHERE (YEAR(BESTELLT_WANN) = YEAR(GETDATE())) AND (NAME = @MANDANT) @@ -1482,13 +1521,14 @@ WHERE (YEAR(BESTELLT_WANN) = YEAR(GETDATE())) AND (NAME = @MANDANT) - SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, MENGE_ORIGIN + SELECT BESTELLNR, BESTELLT_WANN, BESTELLT_WER, GERAET, GUID, MANUELL, MARKT, MENGE, SERIEN_NR, SUPPLY_BEZEICHNUNG, FILE_ORDER_CONFIRM, NAME AS MANDANT, MENGE_ORIGIN, TRACKING_NO, + SHIPTO_POSTCODE, CUSTOM_LABEL_1, CUSTOM_LABEL_2 FROM VWSUPPLY_BESTELLUNG_FRONTEND AS T WHERE (NAME = @MANDANT) AND (BESTELLT_WANN BETWEEN @D_von AND @D_bis) - - + + @@ -2547,7 +2587,7 @@ WHERE (SERIENNR = @SERIENNR) - + SELECT @@ -3846,7 +3886,7 @@ WHERE (MANDANT = @MANDANT) - + @@ -3854,14 +3894,14 @@ WHERE (MANDANT = @MANDANT) - + - + @@ -3891,6 +3931,34 @@ WHERE (MANDANT = @MANDANT) + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Supplywatch/MyDataset.xss b/Supplywatch/MyDataset.xss index 4ebd487..4abd945 100644 --- a/Supplywatch/MyDataset.xss +++ b/Supplywatch/MyDataset.xss @@ -4,55 +4,55 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 1100 @@ -64,7 +64,7 @@ - + 1137 @@ -76,7 +76,7 @@ - + 528 @@ -96,7 +96,7 @@ - + 1129 @@ -108,7 +108,7 @@ - + 1130 @@ -120,7 +120,7 @@ - + 1131 @@ -132,7 +132,7 @@ - + 1137 @@ -144,39 +144,35 @@ - + - 862 - 553 + 863 + 464 - 146 - 553 - - - 146 - 545 + 350 + 464 - + 1154 542 - 403 + 404 542 - 403 - 454 + 404 + 453 - + 1171 @@ -184,15 +180,15 @@ 1171 - 734 + 736 654 - 734 + 736 - + 1615 @@ -204,7 +200,7 @@ - + 62 @@ -224,7 +220,7 @@ - + 158 @@ -236,7 +232,7 @@ - + 1134 @@ -252,7 +248,7 @@ - + 50 @@ -272,7 +268,7 @@ - + 42 diff --git a/Supplywatch/Resources/ImportCatalogPart_6777.png b/Supplywatch/Resources/ImportCatalogPart_6777.png new file mode 100644 index 0000000..196b367 Binary files /dev/null and b/Supplywatch/Resources/ImportCatalogPart_6777.png differ diff --git a/Supplywatch/Resources/XSDSchema_ImportIcon.png b/Supplywatch/Resources/XSDSchema_ImportIcon.png new file mode 100644 index 0000000..ef58516 Binary files /dev/null and b/Supplywatch/Resources/XSDSchema_ImportIcon.png differ diff --git a/Supplywatch/RptOrder_Supplies.rdlc b/Supplywatch/RptOrder_Supplies.rdlc index d99f363..a6fc0c3 100644 --- a/Supplywatch/RptOrder_Supplies.rdlc +++ b/Supplywatch/RptOrder_Supplies.rdlc @@ -169,7 +169,7 @@ - Supply ID + OrderID