'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class SuperbowlDataSet Inherits Global.System.Data.DataSet Private tabledwdCustomer As dwdCustomerDataTable Private tablefsrItem As fsrItemDataTable Private tablefsrRequisition As fsrRequisitionDataTable Private tablemstBrand As mstBrandDataTable Private tablemstProduct As mstProductDataTable Private tablemstUser As mstUserDataTable Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ 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 Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("dwdCustomer")) Is Nothing) Then MyBase.Tables.Add(New dwdCustomerDataTable(ds.Tables("dwdCustomer"))) End If If (Not (ds.Tables("fsrItem")) Is Nothing) Then MyBase.Tables.Add(New fsrItemDataTable(ds.Tables("fsrItem"))) End If If (Not (ds.Tables("fsrRequisition")) Is Nothing) Then MyBase.Tables.Add(New fsrRequisitionDataTable(ds.Tables("fsrRequisition"))) End If If (Not (ds.Tables("mstBrand")) Is Nothing) Then MyBase.Tables.Add(New mstBrandDataTable(ds.Tables("mstBrand"))) End If If (Not (ds.Tables("mstProduct")) Is Nothing) Then MyBase.Tables.Add(New mstProductDataTable(ds.Tables("mstProduct"))) End If If (Not (ds.Tables("mstUser")) Is Nothing) Then MyBase.Tables.Add(New mstUserDataTable(ds.Tables("mstUser"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If Me.GetSerializationData(info, context) Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub _ Public ReadOnly Property dwdCustomer() As dwdCustomerDataTable Get Return Me.tabledwdCustomer End Get End Property _ Public ReadOnly Property fsrItem() As fsrItemDataTable Get Return Me.tablefsrItem End Get End Property _ Public ReadOnly Property fsrRequisition() As fsrRequisitionDataTable Get Return Me.tablefsrRequisition End Get End Property _ Public ReadOnly Property mstBrand() As mstBrandDataTable Get Return Me.tablemstBrand End Get End Property _ Public ReadOnly Property mstProduct() As mstProductDataTable Get Return Me.tablemstProduct End Get End Property _ Public ReadOnly Property mstUser() As mstUserDataTable Get Return Me.tablemstUser End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As SuperbowlDataSet = CType(MyBase.Clone,SuperbowlDataSet) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("dwdCustomer")) Is Nothing) Then MyBase.Tables.Add(New dwdCustomerDataTable(ds.Tables("dwdCustomer"))) End If If (Not (ds.Tables("fsrItem")) Is Nothing) Then MyBase.Tables.Add(New fsrItemDataTable(ds.Tables("fsrItem"))) End If If (Not (ds.Tables("fsrRequisition")) Is Nothing) Then MyBase.Tables.Add(New fsrRequisitionDataTable(ds.Tables("fsrRequisition"))) End If If (Not (ds.Tables("mstBrand")) Is Nothing) Then MyBase.Tables.Add(New mstBrandDataTable(ds.Tables("mstBrand"))) End If If (Not (ds.Tables("mstProduct")) Is Nothing) Then MyBase.Tables.Add(New mstProductDataTable(ds.Tables("mstProduct"))) End If If (Not (ds.Tables("mstUser")) Is Nothing) Then MyBase.Tables.Add(New mstUserDataTable(ds.Tables("mstUser"))) End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) Me.InitVars Else Me.ReadXml(reader) Me.InitVars End If End Sub _ 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)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tabledwdCustomer = CType(MyBase.Tables("dwdCustomer"),dwdCustomerDataTable) If (initTable = true) Then If (Not (Me.tabledwdCustomer) Is Nothing) Then Me.tabledwdCustomer.InitVars End If End If Me.tablefsrItem = CType(MyBase.Tables("fsrItem"),fsrItemDataTable) If (initTable = true) Then If (Not (Me.tablefsrItem) Is Nothing) Then Me.tablefsrItem.InitVars End If End If Me.tablefsrRequisition = CType(MyBase.Tables("fsrRequisition"),fsrRequisitionDataTable) If (initTable = true) Then If (Not (Me.tablefsrRequisition) Is Nothing) Then Me.tablefsrRequisition.InitVars End If End If Me.tablemstBrand = CType(MyBase.Tables("mstBrand"),mstBrandDataTable) If (initTable = true) Then If (Not (Me.tablemstBrand) Is Nothing) Then Me.tablemstBrand.InitVars End If End If Me.tablemstProduct = CType(MyBase.Tables("mstProduct"),mstProductDataTable) If (initTable = true) Then If (Not (Me.tablemstProduct) Is Nothing) Then Me.tablemstProduct.InitVars End If End If Me.tablemstUser = CType(MyBase.Tables("mstUser"),mstUserDataTable) If (initTable = true) Then If (Not (Me.tablemstUser) Is Nothing) Then Me.tablemstUser.InitVars End If End If End Sub _ Private Sub InitClass() Me.DataSetName = "SuperbowlDataSet" Me.Prefix = "" Me.Namespace = "http://tempuri.org/SuperbowlDataSet.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tabledwdCustomer = New dwdCustomerDataTable() MyBase.Tables.Add(Me.tabledwdCustomer) Me.tablefsrItem = New fsrItemDataTable() MyBase.Tables.Add(Me.tablefsrItem) Me.tablefsrRequisition = New fsrRequisitionDataTable() MyBase.Tables.Add(Me.tablefsrRequisition) Me.tablemstBrand = New mstBrandDataTable() MyBase.Tables.Add(Me.tablemstBrand) Me.tablemstProduct = New mstProductDataTable() MyBase.Tables.Add(Me.tablemstProduct) Me.tablemstUser = New mstUserDataTable() MyBase.Tables.Add(Me.tablemstUser) End Sub _ Private Function ShouldSerializedwdCustomer() As Boolean Return false End Function _ Private Function ShouldSerializefsrItem() As Boolean Return false End Function _ Private Function ShouldSerializefsrRequisition() As Boolean Return false End Function _ Private Function ShouldSerializemstBrand() As Boolean Return false End Function _ Private Function ShouldSerializemstProduct() As Boolean Return false End Function _ Private Function ShouldSerializemstUser() As Boolean Return false End Function _ 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 End If End Sub _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As SuperbowlDataSet = New SuperbowlDataSet() 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() Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any.Namespace = ds.Namespace sequence.Items.Add(any) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function _ Public Delegate Sub dwdCustomerRowChangeEventHandler(ByVal sender As Object, ByVal e As dwdCustomerRowChangeEvent) _ Public Delegate Sub fsrItemRowChangeEventHandler(ByVal sender As Object, ByVal e As fsrItemRowChangeEvent) _ Public Delegate Sub fsrRequisitionRowChangeEventHandler(ByVal sender As Object, ByVal e As fsrRequisitionRowChangeEvent) _ Public Delegate Sub mstBrandRowChangeEventHandler(ByVal sender As Object, ByVal e As mstBrandRowChangeEvent) _ Public Delegate Sub mstProductRowChangeEventHandler(ByVal sender As Object, ByVal e As mstProductRowChangeEvent) _ Public Delegate Sub mstUserRowChangeEventHandler(ByVal sender As Object, ByVal e As mstUserRowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class dwdCustomerDataTable Inherits Global.System.Data.TypedTableBase(Of dwdCustomerRow) Private columnstrCustomerNo As Global.System.Data.DataColumn Private columnstrCustomerName As Global.System.Data.DataColumn Private columnstrSnellChannel As Global.System.Data.DataColumn Private columnstrSnellArea As Global.System.Data.DataColumn Private columnstrSnellcwsireg As Global.System.Data.DataColumn Private columnstrSnellrepno As Global.System.Data.DataColumn Private columnstrSnellsupergroup As Global.System.Data.DataColumn Private columnstrSnellsupergroupName As Global.System.Data.DataColumn Private columnstrSnellgrading As Global.System.Data.DataColumn Private columnrefRepID As Global.System.Data.DataColumn Private columnrefRepBBID As Global.System.Data.DataColumn Private columnrefRepDlxID As Global.System.Data.DataColumn Private columnrefRepLuxID As Global.System.Data.DataColumn Private columnstrRepName As Global.System.Data.DataColumn Private columnstrRepNameBB As Global.System.Data.DataColumn Private columnstrRepNameDlx As Global.System.Data.DataColumn Private columnstrRepNameLux As Global.System.Data.DataColumn Private columnstrChannelPrimary As Global.System.Data.DataColumn Private columnstrChannelSecondary As Global.System.Data.DataColumn Private columnstrSegmentPrimary As Global.System.Data.DataColumn Private columnstrSegmentSecondary As Global.System.Data.DataColumn Private columnstrType1 As Global.System.Data.DataColumn Private columnstrType2 As Global.System.Data.DataColumn Private columnstrGroupName As Global.System.Data.DataColumn Private columnstrKeyAccount As Global.System.Data.DataColumn Private columnstrPriceGroupCode As Global.System.Data.DataColumn Private columnblnPromotionalAccounts As Global.System.Data.DataColumn Private columnblnActive As Global.System.Data.DataColumn Private columnstrCode As Global.System.Data.DataColumn Private columnstrBranch As Global.System.Data.DataColumn Private columnstrSalesOffice As Global.System.Data.DataColumn Private columnstrRegion As Global.System.Data.DataColumn Private columnstrSAPCode As Global.System.Data.DataColumn Private columnstrRegionCode As Global.System.Data.DataColumn Private columnstrRegionDesc As Global.System.Data.DataColumn Private columnstrRegionAccpacCode As Global.System.Data.DataColumn Private columnstrRegionDesc2 As Global.System.Data.DataColumn Private columnstrChannel As Global.System.Data.DataColumn Private columnstrSegment As Global.System.Data.DataColumn Private columnstrCountry As Global.System.Data.DataColumn Private columnstrRegionOrder As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "dwdCustomer" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property strCustomerNoColumn() As Global.System.Data.DataColumn Get Return Me.columnstrCustomerNo End Get End Property _ Public ReadOnly Property strCustomerNameColumn() As Global.System.Data.DataColumn Get Return Me.columnstrCustomerName End Get End Property _ Public ReadOnly Property strSnellChannelColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellChannel End Get End Property _ Public ReadOnly Property strSnellAreaColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellArea End Get End Property _ Public ReadOnly Property strSnellcwsiregColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellcwsireg End Get End Property _ Public ReadOnly Property strSnellrepnoColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellrepno End Get End Property _ Public ReadOnly Property strSnellsupergroupColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellsupergroup End Get End Property _ Public ReadOnly Property strSnellsupergroupNameColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellsupergroupName End Get End Property _ Public ReadOnly Property strSnellgradingColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSnellgrading End Get End Property _ Public ReadOnly Property refRepIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefRepID End Get End Property _ Public ReadOnly Property refRepBBIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefRepBBID End Get End Property _ Public ReadOnly Property refRepDlxIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefRepDlxID End Get End Property _ Public ReadOnly Property refRepLuxIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefRepLuxID End Get End Property _ Public ReadOnly Property strRepNameColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRepName End Get End Property _ Public ReadOnly Property strRepNameBBColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRepNameBB End Get End Property _ Public ReadOnly Property strRepNameDlxColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRepNameDlx End Get End Property _ Public ReadOnly Property strRepNameLuxColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRepNameLux End Get End Property _ Public ReadOnly Property strChannelPrimaryColumn() As Global.System.Data.DataColumn Get Return Me.columnstrChannelPrimary End Get End Property _ Public ReadOnly Property strChannelSecondaryColumn() As Global.System.Data.DataColumn Get Return Me.columnstrChannelSecondary End Get End Property _ Public ReadOnly Property strSegmentPrimaryColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSegmentPrimary End Get End Property _ Public ReadOnly Property strSegmentSecondaryColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSegmentSecondary End Get End Property _ Public ReadOnly Property strType1Column() As Global.System.Data.DataColumn Get Return Me.columnstrType1 End Get End Property _ Public ReadOnly Property strType2Column() As Global.System.Data.DataColumn Get Return Me.columnstrType2 End Get End Property _ Public ReadOnly Property strGroupNameColumn() As Global.System.Data.DataColumn Get Return Me.columnstrGroupName End Get End Property _ Public ReadOnly Property strKeyAccountColumn() As Global.System.Data.DataColumn Get Return Me.columnstrKeyAccount End Get End Property _ Public ReadOnly Property strPriceGroupCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrPriceGroupCode End Get End Property _ Public ReadOnly Property blnPromotionalAccountsColumn() As Global.System.Data.DataColumn Get Return Me.columnblnPromotionalAccounts End Get End Property _ Public ReadOnly Property blnActiveColumn() As Global.System.Data.DataColumn Get Return Me.columnblnActive End Get End Property _ Public ReadOnly Property strCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrCode End Get End Property _ Public ReadOnly Property strBranchColumn() As Global.System.Data.DataColumn Get Return Me.columnstrBranch End Get End Property _ Public ReadOnly Property strSalesOfficeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSalesOffice End Get End Property _ Public ReadOnly Property strRegionColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegion End Get End Property _ Public ReadOnly Property strSAPCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSAPCode End Get End Property _ Public ReadOnly Property strRegionCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegionCode End Get End Property _ Public ReadOnly Property strRegionDescColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegionDesc End Get End Property _ Public ReadOnly Property strRegionAccpacCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegionAccpacCode End Get End Property _ Public ReadOnly Property strRegionDesc2Column() As Global.System.Data.DataColumn Get Return Me.columnstrRegionDesc2 End Get End Property _ Public ReadOnly Property strChannelColumn() As Global.System.Data.DataColumn Get Return Me.columnstrChannel End Get End Property _ Public ReadOnly Property strSegmentColumn() As Global.System.Data.DataColumn Get Return Me.columnstrSegment End Get End Property _ Public ReadOnly Property strCountryColumn() As Global.System.Data.DataColumn Get Return Me.columnstrCountry End Get End Property _ Public ReadOnly Property strRegionOrderColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegionOrder End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As dwdCustomerRow Get Return CType(Me.Rows(index),dwdCustomerRow) End Get End Property _ Public Event dwdCustomerRowChanging As dwdCustomerRowChangeEventHandler _ Public Event dwdCustomerRowChanged As dwdCustomerRowChangeEventHandler _ Public Event dwdCustomerRowDeleting As dwdCustomerRowChangeEventHandler _ Public Event dwdCustomerRowDeleted As dwdCustomerRowChangeEventHandler _ Public Overloads Sub AdddwdCustomerRow(ByVal row As dwdCustomerRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AdddwdCustomerRow( _ ByVal strCustomerNo As String, _ ByVal strCustomerName As String, _ ByVal strSnellChannel As String, _ ByVal strSnellArea As String, _ ByVal strSnellcwsireg As String, _ ByVal strSnellrepno As String, _ ByVal strSnellsupergroup As String, _ ByVal strSnellsupergroupName As String, _ ByVal strSnellgrading As String, _ ByVal refRepID As String, _ ByVal refRepBBID As String, _ ByVal refRepDlxID As String, _ ByVal refRepLuxID As String, _ ByVal strRepName As String, _ ByVal strRepNameBB As String, _ ByVal strRepNameDlx As String, _ ByVal strRepNameLux As String, _ ByVal strChannelPrimary As String, _ ByVal strChannelSecondary As String, _ ByVal strSegmentPrimary As String, _ ByVal strSegmentSecondary As String, _ ByVal strType1 As String, _ ByVal strType2 As String, _ ByVal strGroupName As String, _ ByVal strKeyAccount As String, _ ByVal strPriceGroupCode As String, _ ByVal blnPromotionalAccounts As Boolean, _ ByVal blnActive As Boolean, _ ByVal strCode As String, _ ByVal strBranch As String, _ ByVal strSalesOffice As String, _ ByVal strRegion As String, _ ByVal strSAPCode As String, _ ByVal strRegionCode As String, _ ByVal strRegionDesc As String, _ ByVal strRegionAccpacCode As String, _ ByVal strRegionDesc2 As String, _ ByVal strChannel As String, _ ByVal strSegment As String, _ ByVal strCountry As String, _ ByVal strRegionOrder As String) As dwdCustomerRow Dim rowdwdCustomerRow As dwdCustomerRow = CType(Me.NewRow,dwdCustomerRow) Dim columnValuesArray() As Object = New Object() {strCustomerNo, strCustomerName, strSnellChannel, strSnellArea, strSnellcwsireg, strSnellrepno, strSnellsupergroup, strSnellsupergroupName, strSnellgrading, refRepID, refRepBBID, refRepDlxID, refRepLuxID, strRepName, strRepNameBB, strRepNameDlx, strRepNameLux, strChannelPrimary, strChannelSecondary, strSegmentPrimary, strSegmentSecondary, strType1, strType2, strGroupName, strKeyAccount, strPriceGroupCode, blnPromotionalAccounts, blnActive, strCode, strBranch, strSalesOffice, strRegion, strSAPCode, strRegionCode, strRegionDesc, strRegionAccpacCode, strRegionDesc2, strChannel, strSegment, strCountry, strRegionOrder} rowdwdCustomerRow.ItemArray = columnValuesArray Me.Rows.Add(rowdwdCustomerRow) Return rowdwdCustomerRow End Function _ Public Function FindBystrCustomerNo(ByVal strCustomerNo As String) As dwdCustomerRow Return CType(Me.Rows.Find(New Object() {strCustomerNo}),dwdCustomerRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As dwdCustomerDataTable = CType(MyBase.Clone,dwdCustomerDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New dwdCustomerDataTable() End Function _ Friend Sub InitVars() Me.columnstrCustomerNo = MyBase.Columns("strCustomerNo") Me.columnstrCustomerName = MyBase.Columns("strCustomerName") Me.columnstrSnellChannel = MyBase.Columns("strSnellChannel") Me.columnstrSnellArea = MyBase.Columns("strSnellArea") Me.columnstrSnellcwsireg = MyBase.Columns("strSnellcwsireg") Me.columnstrSnellrepno = MyBase.Columns("strSnellrepno") Me.columnstrSnellsupergroup = MyBase.Columns("strSnellsupergroup") Me.columnstrSnellsupergroupName = MyBase.Columns("strSnellsupergroupName") Me.columnstrSnellgrading = MyBase.Columns("strSnellgrading") Me.columnrefRepID = MyBase.Columns("refRepID") Me.columnrefRepBBID = MyBase.Columns("refRepBBID") Me.columnrefRepDlxID = MyBase.Columns("refRepDlxID") Me.columnrefRepLuxID = MyBase.Columns("refRepLuxID") Me.columnstrRepName = MyBase.Columns("strRepName") Me.columnstrRepNameBB = MyBase.Columns("strRepNameBB") Me.columnstrRepNameDlx = MyBase.Columns("strRepNameDlx") Me.columnstrRepNameLux = MyBase.Columns("strRepNameLux") Me.columnstrChannelPrimary = MyBase.Columns("strChannelPrimary") Me.columnstrChannelSecondary = MyBase.Columns("strChannelSecondary") Me.columnstrSegmentPrimary = MyBase.Columns("strSegmentPrimary") Me.columnstrSegmentSecondary = MyBase.Columns("strSegmentSecondary") Me.columnstrType1 = MyBase.Columns("strType1") Me.columnstrType2 = MyBase.Columns("strType2") Me.columnstrGroupName = MyBase.Columns("strGroupName") Me.columnstrKeyAccount = MyBase.Columns("strKeyAccount") Me.columnstrPriceGroupCode = MyBase.Columns("strPriceGroupCode") Me.columnblnPromotionalAccounts = MyBase.Columns("blnPromotionalAccounts") Me.columnblnActive = MyBase.Columns("blnActive") Me.columnstrCode = MyBase.Columns("strCode") Me.columnstrBranch = MyBase.Columns("strBranch") Me.columnstrSalesOffice = MyBase.Columns("strSalesOffice") Me.columnstrRegion = MyBase.Columns("strRegion") Me.columnstrSAPCode = MyBase.Columns("strSAPCode") Me.columnstrRegionCode = MyBase.Columns("strRegionCode") Me.columnstrRegionDesc = MyBase.Columns("strRegionDesc") Me.columnstrRegionAccpacCode = MyBase.Columns("strRegionAccpacCode") Me.columnstrRegionDesc2 = MyBase.Columns("strRegionDesc2") Me.columnstrChannel = MyBase.Columns("strChannel") Me.columnstrSegment = MyBase.Columns("strSegment") Me.columnstrCountry = MyBase.Columns("strCountry") Me.columnstrRegionOrder = MyBase.Columns("strRegionOrder") End Sub _ Private Sub InitClass() Me.columnstrCustomerNo = New Global.System.Data.DataColumn("strCustomerNo", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCustomerNo) Me.columnstrCustomerName = New Global.System.Data.DataColumn("strCustomerName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCustomerName) Me.columnstrSnellChannel = New Global.System.Data.DataColumn("strSnellChannel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellChannel) Me.columnstrSnellArea = New Global.System.Data.DataColumn("strSnellArea", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellArea) Me.columnstrSnellcwsireg = New Global.System.Data.DataColumn("strSnellcwsireg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellcwsireg) Me.columnstrSnellrepno = New Global.System.Data.DataColumn("strSnellrepno", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellrepno) Me.columnstrSnellsupergroup = New Global.System.Data.DataColumn("strSnellsupergroup", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellsupergroup) Me.columnstrSnellsupergroupName = New Global.System.Data.DataColumn("strSnellsupergroupName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellsupergroupName) Me.columnstrSnellgrading = New Global.System.Data.DataColumn("strSnellgrading", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSnellgrading) Me.columnrefRepID = New Global.System.Data.DataColumn("refRepID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefRepID) Me.columnrefRepBBID = New Global.System.Data.DataColumn("refRepBBID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefRepBBID) Me.columnrefRepDlxID = New Global.System.Data.DataColumn("refRepDlxID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefRepDlxID) Me.columnrefRepLuxID = New Global.System.Data.DataColumn("refRepLuxID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefRepLuxID) Me.columnstrRepName = New Global.System.Data.DataColumn("strRepName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRepName) Me.columnstrRepNameBB = New Global.System.Data.DataColumn("strRepNameBB", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRepNameBB) Me.columnstrRepNameDlx = New Global.System.Data.DataColumn("strRepNameDlx", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRepNameDlx) Me.columnstrRepNameLux = New Global.System.Data.DataColumn("strRepNameLux", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRepNameLux) Me.columnstrChannelPrimary = New Global.System.Data.DataColumn("strChannelPrimary", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrChannelPrimary) Me.columnstrChannelSecondary = New Global.System.Data.DataColumn("strChannelSecondary", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrChannelSecondary) Me.columnstrSegmentPrimary = New Global.System.Data.DataColumn("strSegmentPrimary", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSegmentPrimary) Me.columnstrSegmentSecondary = New Global.System.Data.DataColumn("strSegmentSecondary", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSegmentSecondary) Me.columnstrType1 = New Global.System.Data.DataColumn("strType1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrType1) Me.columnstrType2 = New Global.System.Data.DataColumn("strType2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrType2) Me.columnstrGroupName = New Global.System.Data.DataColumn("strGroupName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrGroupName) Me.columnstrKeyAccount = New Global.System.Data.DataColumn("strKeyAccount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrKeyAccount) Me.columnstrPriceGroupCode = New Global.System.Data.DataColumn("strPriceGroupCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrPriceGroupCode) Me.columnblnPromotionalAccounts = New Global.System.Data.DataColumn("blnPromotionalAccounts", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnPromotionalAccounts) Me.columnblnActive = New Global.System.Data.DataColumn("blnActive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnActive) Me.columnstrCode = New Global.System.Data.DataColumn("strCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCode) Me.columnstrBranch = New Global.System.Data.DataColumn("strBranch", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrBranch) Me.columnstrSalesOffice = New Global.System.Data.DataColumn("strSalesOffice", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSalesOffice) Me.columnstrRegion = New Global.System.Data.DataColumn("strRegion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegion) Me.columnstrSAPCode = New Global.System.Data.DataColumn("strSAPCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSAPCode) Me.columnstrRegionCode = New Global.System.Data.DataColumn("strRegionCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegionCode) Me.columnstrRegionDesc = New Global.System.Data.DataColumn("strRegionDesc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegionDesc) Me.columnstrRegionAccpacCode = New Global.System.Data.DataColumn("strRegionAccpacCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegionAccpacCode) Me.columnstrRegionDesc2 = New Global.System.Data.DataColumn("strRegionDesc2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegionDesc2) Me.columnstrChannel = New Global.System.Data.DataColumn("strChannel", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrChannel) Me.columnstrSegment = New Global.System.Data.DataColumn("strSegment", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrSegment) Me.columnstrCountry = New Global.System.Data.DataColumn("strCountry", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCountry) Me.columnstrRegionOrder = New Global.System.Data.DataColumn("strRegionOrder", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegionOrder) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnstrCustomerNo}, true)) Me.columnstrCustomerNo.AllowDBNull = false Me.columnstrCustomerNo.Unique = true Me.columnstrCustomerNo.MaxLength = 7 Me.columnstrCustomerName.MaxLength = 80 Me.columnstrSnellChannel.MaxLength = 2 Me.columnstrSnellArea.MaxLength = 6 Me.columnstrSnellcwsireg.MaxLength = 4 Me.columnstrSnellrepno.MaxLength = 4 Me.columnstrSnellsupergroup.MaxLength = 3 Me.columnstrSnellsupergroupName.MaxLength = 100 Me.columnstrSnellgrading.MaxLength = 25 Me.columnrefRepID.MaxLength = 6 Me.columnrefRepBBID.MaxLength = 6 Me.columnrefRepDlxID.MaxLength = 6 Me.columnrefRepLuxID.MaxLength = 6 Me.columnstrRepName.MaxLength = 30 Me.columnstrRepNameBB.MaxLength = 30 Me.columnstrRepNameDlx.MaxLength = 30 Me.columnstrRepNameLux.MaxLength = 30 Me.columnstrChannelPrimary.MaxLength = 30 Me.columnstrChannelSecondary.MaxLength = 30 Me.columnstrSegmentPrimary.MaxLength = 30 Me.columnstrSegmentSecondary.MaxLength = 30 Me.columnstrType1.MaxLength = 30 Me.columnstrType2.MaxLength = 30 Me.columnstrGroupName.MaxLength = 50 Me.columnstrKeyAccount.MaxLength = 50 Me.columnstrPriceGroupCode.MaxLength = 10 Me.columnstrCode.MaxLength = 3 Me.columnstrBranch.MaxLength = 50 Me.columnstrSalesOffice.MaxLength = 255 Me.columnstrRegion.MaxLength = 10 Me.columnstrSAPCode.MaxLength = 50 Me.columnstrRegionCode.MaxLength = 1 Me.columnstrRegionDesc.MaxLength = 15 Me.columnstrRegionAccpacCode.MaxLength = 2 Me.columnstrRegionDesc2.MaxLength = 20 Me.columnstrChannel.MaxLength = 30 Me.columnstrSegment.MaxLength = 30 Me.columnstrCountry.MaxLength = 50 Me.columnstrRegionOrder.MaxLength = 50 End Sub _ Public Function NewdwdCustomerRow() As dwdCustomerRow Return CType(Me.NewRow,dwdCustomerRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New dwdCustomerRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(dwdCustomerRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.dwdCustomerRowChangedEvent) Is Nothing) Then RaiseEvent dwdCustomerRowChanged(Me, New dwdCustomerRowChangeEvent(CType(e.Row,dwdCustomerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.dwdCustomerRowChangingEvent) Is Nothing) Then RaiseEvent dwdCustomerRowChanging(Me, New dwdCustomerRowChangeEvent(CType(e.Row,dwdCustomerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.dwdCustomerRowDeletedEvent) Is Nothing) Then RaiseEvent dwdCustomerRowDeleted(Me, New dwdCustomerRowChangeEvent(CType(e.Row,dwdCustomerRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.dwdCustomerRowDeletingEvent) Is Nothing) Then RaiseEvent dwdCustomerRowDeleting(Me, New dwdCustomerRowChangeEvent(CType(e.Row,dwdCustomerRow), e.Action)) End If End Sub _ Public Sub RemovedwdCustomerRow(ByVal row As dwdCustomerRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As SuperbowlDataSet = New SuperbowlDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "dwdCustomerDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class fsrItemDataTable Inherits Global.System.Data.TypedTableBase(Of fsrItemRow) Private columnItemID As Global.System.Data.DataColumn Private columnrefRequisitionID As Global.System.Data.DataColumn Private columnrefBrandID As Global.System.Data.DataColumn Private columnstrProdCode As Global.System.Data.DataColumn Private columnintQuantity As Global.System.Data.DataColumn Private columndblCost As Global.System.Data.DataColumn Private columndblTotal As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "fsrItem" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property ItemIDColumn() As Global.System.Data.DataColumn Get Return Me.columnItemID End Get End Property _ Public ReadOnly Property refRequisitionIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefRequisitionID End Get End Property _ Public ReadOnly Property refBrandIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefBrandID End Get End Property _ Public ReadOnly Property strProdCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrProdCode End Get End Property _ Public ReadOnly Property intQuantityColumn() As Global.System.Data.DataColumn Get Return Me.columnintQuantity End Get End Property _ Public ReadOnly Property dblCostColumn() As Global.System.Data.DataColumn Get Return Me.columndblCost End Get End Property _ Public ReadOnly Property dblTotalColumn() As Global.System.Data.DataColumn Get Return Me.columndblTotal End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As fsrItemRow Get Return CType(Me.Rows(index),fsrItemRow) End Get End Property _ Public Event fsrItemRowChanging As fsrItemRowChangeEventHandler _ Public Event fsrItemRowChanged As fsrItemRowChangeEventHandler _ Public Event fsrItemRowDeleting As fsrItemRowChangeEventHandler _ Public Event fsrItemRowDeleted As fsrItemRowChangeEventHandler _ Public Overloads Sub AddfsrItemRow(ByVal row As fsrItemRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddfsrItemRow(ByVal refRequisitionID As Integer, ByVal refBrandID As Integer, ByVal strProdCode As String, ByVal intQuantity As Integer, ByVal dblCost As Double, ByVal dblTotal As Double) As fsrItemRow Dim rowfsrItemRow As fsrItemRow = CType(Me.NewRow,fsrItemRow) Dim columnValuesArray() As Object = New Object() {Nothing, refRequisitionID, refBrandID, strProdCode, intQuantity, dblCost, dblTotal} rowfsrItemRow.ItemArray = columnValuesArray Me.Rows.Add(rowfsrItemRow) Return rowfsrItemRow End Function _ Public Function FindByItemID(ByVal ItemID As Integer) As fsrItemRow Return CType(Me.Rows.Find(New Object() {ItemID}),fsrItemRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As fsrItemDataTable = CType(MyBase.Clone,fsrItemDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New fsrItemDataTable() End Function _ Friend Sub InitVars() Me.columnItemID = MyBase.Columns("ItemID") Me.columnrefRequisitionID = MyBase.Columns("refRequisitionID") Me.columnrefBrandID = MyBase.Columns("refBrandID") Me.columnstrProdCode = MyBase.Columns("strProdCode") Me.columnintQuantity = MyBase.Columns("intQuantity") Me.columndblCost = MyBase.Columns("dblCost") Me.columndblTotal = MyBase.Columns("dblTotal") End Sub _ Private Sub InitClass() Me.columnItemID = New Global.System.Data.DataColumn("ItemID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnItemID) Me.columnrefRequisitionID = New Global.System.Data.DataColumn("refRequisitionID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefRequisitionID) Me.columnrefBrandID = New Global.System.Data.DataColumn("refBrandID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefBrandID) Me.columnstrProdCode = New Global.System.Data.DataColumn("strProdCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrProdCode) Me.columnintQuantity = New Global.System.Data.DataColumn("intQuantity", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintQuantity) Me.columndblCost = New Global.System.Data.DataColumn("dblCost", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndblCost) Me.columndblTotal = New Global.System.Data.DataColumn("dblTotal", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndblTotal) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnItemID}, true)) Me.columnItemID.AutoIncrement = true Me.columnItemID.AutoIncrementSeed = -1 Me.columnItemID.AutoIncrementStep = -1 Me.columnItemID.AllowDBNull = false Me.columnItemID.ReadOnly = true Me.columnItemID.Unique = true Me.columnrefRequisitionID.AllowDBNull = false Me.columnrefBrandID.AllowDBNull = false Me.columnstrProdCode.AllowDBNull = false Me.columnstrProdCode.MaxLength = 6 Me.columnintQuantity.AllowDBNull = false Me.columndblCost.AllowDBNull = false Me.columndblTotal.AllowDBNull = false End Sub _ Public Function NewfsrItemRow() As fsrItemRow Return CType(Me.NewRow,fsrItemRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New fsrItemRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(fsrItemRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.fsrItemRowChangedEvent) Is Nothing) Then RaiseEvent fsrItemRowChanged(Me, New fsrItemRowChangeEvent(CType(e.Row,fsrItemRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.fsrItemRowChangingEvent) Is Nothing) Then RaiseEvent fsrItemRowChanging(Me, New fsrItemRowChangeEvent(CType(e.Row,fsrItemRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.fsrItemRowDeletedEvent) Is Nothing) Then RaiseEvent fsrItemRowDeleted(Me, New fsrItemRowChangeEvent(CType(e.Row,fsrItemRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.fsrItemRowDeletingEvent) Is Nothing) Then RaiseEvent fsrItemRowDeleting(Me, New fsrItemRowChangeEvent(CType(e.Row,fsrItemRow), e.Action)) End If End Sub _ Public Sub RemovefsrItemRow(ByVal row As fsrItemRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As SuperbowlDataSet = New SuperbowlDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "fsrItemDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class fsrRequisitionDataTable Inherits Global.System.Data.TypedTableBase(Of fsrRequisitionRow) Private columnRequisitionID As Global.System.Data.DataColumn Private columnrefUserID As Global.System.Data.DataColumn Private columnrefRequestTypeID As Global.System.Data.DataColumn Private columnrefManagerID As Global.System.Data.DataColumn Private columnrefAlternateManagerID As Global.System.Data.DataColumn Private columnrefExecutiveManagerID As Global.System.Data.DataColumn Private columndtDate As Global.System.Data.DataColumn Private columnstrRegion As Global.System.Data.DataColumn Private columnstrExpense As Global.System.Data.DataColumn Private columnstrBillToAccount As Global.System.Data.DataColumn Private columnstrShipToAccount As Global.System.Data.DataColumn Private columntxtRequestDetail As Global.System.Data.DataColumn Private columnstrContactPerson As Global.System.Data.DataColumn Private columnstrContactNumber As Global.System.Data.DataColumn Private columnblnDelivery As Global.System.Data.DataColumn Private columndtDelivereyDate As Global.System.Data.DataColumn Private columntxtPhysicalAddress As Global.System.Data.DataColumn Private columnstrStatus As Global.System.Data.DataColumn Private columnstrInvoiceNumber As Global.System.Data.DataColumn Private columnstrAuthorizedBy As Global.System.Data.DataColumn Private columndtLastEdit As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "fsrRequisition" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property RequisitionIDColumn() As Global.System.Data.DataColumn Get Return Me.columnRequisitionID End Get End Property _ Public ReadOnly Property refUserIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserID End Get End Property _ Public ReadOnly Property refRequestTypeIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefRequestTypeID End Get End Property _ Public ReadOnly Property refManagerIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefManagerID End Get End Property _ Public ReadOnly Property refAlternateManagerIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefAlternateManagerID End Get End Property _ Public ReadOnly Property refExecutiveManagerIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefExecutiveManagerID End Get End Property _ Public ReadOnly Property dtDateColumn() As Global.System.Data.DataColumn Get Return Me.columndtDate End Get End Property _ Public ReadOnly Property strRegionColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegion End Get End Property _ Public ReadOnly Property strExpenseColumn() As Global.System.Data.DataColumn Get Return Me.columnstrExpense End Get End Property _ Public ReadOnly Property strBillToAccountColumn() As Global.System.Data.DataColumn Get Return Me.columnstrBillToAccount End Get End Property _ Public ReadOnly Property strShipToAccountColumn() As Global.System.Data.DataColumn Get Return Me.columnstrShipToAccount End Get End Property _ Public ReadOnly Property txtRequestDetailColumn() As Global.System.Data.DataColumn Get Return Me.columntxtRequestDetail End Get End Property _ Public ReadOnly Property strContactPersonColumn() As Global.System.Data.DataColumn Get Return Me.columnstrContactPerson End Get End Property _ Public ReadOnly Property strContactNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnstrContactNumber End Get End Property _ Public ReadOnly Property blnDeliveryColumn() As Global.System.Data.DataColumn Get Return Me.columnblnDelivery End Get End Property _ Public ReadOnly Property dtDelivereyDateColumn() As Global.System.Data.DataColumn Get Return Me.columndtDelivereyDate End Get End Property _ Public ReadOnly Property txtPhysicalAddressColumn() As Global.System.Data.DataColumn Get Return Me.columntxtPhysicalAddress End Get End Property _ Public ReadOnly Property strStatusColumn() As Global.System.Data.DataColumn Get Return Me.columnstrStatus End Get End Property _ Public ReadOnly Property strInvoiceNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnstrInvoiceNumber End Get End Property _ Public ReadOnly Property strAuthorizedByColumn() As Global.System.Data.DataColumn Get Return Me.columnstrAuthorizedBy End Get End Property _ Public ReadOnly Property dtLastEditColumn() As Global.System.Data.DataColumn Get Return Me.columndtLastEdit End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As fsrRequisitionRow Get Return CType(Me.Rows(index),fsrRequisitionRow) End Get End Property _ Public Event fsrRequisitionRowChanging As fsrRequisitionRowChangeEventHandler _ Public Event fsrRequisitionRowChanged As fsrRequisitionRowChangeEventHandler _ Public Event fsrRequisitionRowDeleting As fsrRequisitionRowChangeEventHandler _ Public Event fsrRequisitionRowDeleted As fsrRequisitionRowChangeEventHandler _ Public Overloads Sub AddfsrRequisitionRow(ByVal row As fsrRequisitionRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddfsrRequisitionRow( _ ByVal refUserID As Integer, _ ByVal refRequestTypeID As Integer, _ ByVal refManagerID As Integer, _ ByVal refAlternateManagerID As Integer, _ ByVal refExecutiveManagerID As Integer, _ ByVal dtDate As Date, _ ByVal strRegion As String, _ ByVal strExpense As String, _ ByVal strBillToAccount As String, _ ByVal strShipToAccount As String, _ ByVal txtRequestDetail As String, _ ByVal strContactPerson As String, _ ByVal strContactNumber As String, _ ByVal blnDelivery As Boolean, _ ByVal dtDelivereyDate As Date, _ ByVal txtPhysicalAddress As String, _ ByVal strStatus As String, _ ByVal strInvoiceNumber As String, _ ByVal strAuthorizedBy As String, _ ByVal dtLastEdit As Date) As fsrRequisitionRow Dim rowfsrRequisitionRow As fsrRequisitionRow = CType(Me.NewRow,fsrRequisitionRow) Dim columnValuesArray() As Object = New Object() {Nothing, refUserID, refRequestTypeID, refManagerID, refAlternateManagerID, refExecutiveManagerID, dtDate, strRegion, strExpense, strBillToAccount, strShipToAccount, txtRequestDetail, strContactPerson, strContactNumber, blnDelivery, dtDelivereyDate, txtPhysicalAddress, strStatus, strInvoiceNumber, strAuthorizedBy, dtLastEdit} rowfsrRequisitionRow.ItemArray = columnValuesArray Me.Rows.Add(rowfsrRequisitionRow) Return rowfsrRequisitionRow End Function _ Public Function FindByRequisitionID(ByVal RequisitionID As Integer) As fsrRequisitionRow Return CType(Me.Rows.Find(New Object() {RequisitionID}),fsrRequisitionRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As fsrRequisitionDataTable = CType(MyBase.Clone,fsrRequisitionDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New fsrRequisitionDataTable() End Function _ Friend Sub InitVars() Me.columnRequisitionID = MyBase.Columns("RequisitionID") Me.columnrefUserID = MyBase.Columns("refUserID") Me.columnrefRequestTypeID = MyBase.Columns("refRequestTypeID") Me.columnrefManagerID = MyBase.Columns("refManagerID") Me.columnrefAlternateManagerID = MyBase.Columns("refAlternateManagerID") Me.columnrefExecutiveManagerID = MyBase.Columns("refExecutiveManagerID") Me.columndtDate = MyBase.Columns("dtDate") Me.columnstrRegion = MyBase.Columns("strRegion") Me.columnstrExpense = MyBase.Columns("strExpense") Me.columnstrBillToAccount = MyBase.Columns("strBillToAccount") Me.columnstrShipToAccount = MyBase.Columns("strShipToAccount") Me.columntxtRequestDetail = MyBase.Columns("txtRequestDetail") Me.columnstrContactPerson = MyBase.Columns("strContactPerson") Me.columnstrContactNumber = MyBase.Columns("strContactNumber") Me.columnblnDelivery = MyBase.Columns("blnDelivery") Me.columndtDelivereyDate = MyBase.Columns("dtDelivereyDate") Me.columntxtPhysicalAddress = MyBase.Columns("txtPhysicalAddress") Me.columnstrStatus = MyBase.Columns("strStatus") Me.columnstrInvoiceNumber = MyBase.Columns("strInvoiceNumber") Me.columnstrAuthorizedBy = MyBase.Columns("strAuthorizedBy") Me.columndtLastEdit = MyBase.Columns("dtLastEdit") End Sub _ Private Sub InitClass() Me.columnRequisitionID = New Global.System.Data.DataColumn("RequisitionID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnRequisitionID) Me.columnrefUserID = New Global.System.Data.DataColumn("refUserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserID) Me.columnrefRequestTypeID = New Global.System.Data.DataColumn("refRequestTypeID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefRequestTypeID) Me.columnrefManagerID = New Global.System.Data.DataColumn("refManagerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefManagerID) Me.columnrefAlternateManagerID = New Global.System.Data.DataColumn("refAlternateManagerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefAlternateManagerID) Me.columnrefExecutiveManagerID = New Global.System.Data.DataColumn("refExecutiveManagerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefExecutiveManagerID) Me.columndtDate = New Global.System.Data.DataColumn("dtDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndtDate) Me.columnstrRegion = New Global.System.Data.DataColumn("strRegion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegion) Me.columnstrExpense = New Global.System.Data.DataColumn("strExpense", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrExpense) Me.columnstrBillToAccount = New Global.System.Data.DataColumn("strBillToAccount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrBillToAccount) Me.columnstrShipToAccount = New Global.System.Data.DataColumn("strShipToAccount", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrShipToAccount) Me.columntxtRequestDetail = New Global.System.Data.DataColumn("txtRequestDetail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxtRequestDetail) Me.columnstrContactPerson = New Global.System.Data.DataColumn("strContactPerson", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrContactPerson) Me.columnstrContactNumber = New Global.System.Data.DataColumn("strContactNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrContactNumber) Me.columnblnDelivery = New Global.System.Data.DataColumn("blnDelivery", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnDelivery) Me.columndtDelivereyDate = New Global.System.Data.DataColumn("dtDelivereyDate", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndtDelivereyDate) Me.columntxtPhysicalAddress = New Global.System.Data.DataColumn("txtPhysicalAddress", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columntxtPhysicalAddress) Me.columnstrStatus = New Global.System.Data.DataColumn("strStatus", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrStatus) Me.columnstrInvoiceNumber = New Global.System.Data.DataColumn("strInvoiceNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrInvoiceNumber) Me.columnstrAuthorizedBy = New Global.System.Data.DataColumn("strAuthorizedBy", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrAuthorizedBy) Me.columndtLastEdit = New Global.System.Data.DataColumn("dtLastEdit", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndtLastEdit) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnRequisitionID}, true)) Me.columnRequisitionID.AutoIncrement = true Me.columnRequisitionID.AutoIncrementSeed = -1 Me.columnRequisitionID.AutoIncrementStep = -1 Me.columnRequisitionID.AllowDBNull = false Me.columnRequisitionID.ReadOnly = true Me.columnRequisitionID.Unique = true Me.columnrefUserID.AllowDBNull = false Me.columnrefRequestTypeID.AllowDBNull = false Me.columnrefManagerID.AllowDBNull = false Me.columnrefAlternateManagerID.AllowDBNull = false Me.columnrefExecutiveManagerID.AllowDBNull = false Me.columndtDate.AllowDBNull = false Me.columnstrRegion.MaxLength = 20 Me.columnstrExpense.MaxLength = 20 Me.columnstrBillToAccount.AllowDBNull = false Me.columnstrBillToAccount.MaxLength = 7 Me.columnstrShipToAccount.AllowDBNull = false Me.columnstrShipToAccount.MaxLength = 7 Me.columntxtRequestDetail.MaxLength = 2147483647 Me.columnstrContactPerson.MaxLength = 50 Me.columnstrContactNumber.AllowDBNull = false Me.columnstrContactNumber.MaxLength = 100 Me.columnblnDelivery.AllowDBNull = false Me.columndtDelivereyDate.AllowDBNull = false Me.columntxtPhysicalAddress.MaxLength = 2147483647 Me.columnstrStatus.AllowDBNull = false Me.columnstrStatus.MaxLength = 20 Me.columnstrInvoiceNumber.AllowDBNull = false Me.columnstrInvoiceNumber.MaxLength = 30 Me.columnstrAuthorizedBy.AllowDBNull = false Me.columnstrAuthorizedBy.MaxLength = 50 Me.columndtLastEdit.AllowDBNull = false End Sub _ Public Function NewfsrRequisitionRow() As fsrRequisitionRow Return CType(Me.NewRow,fsrRequisitionRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New fsrRequisitionRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(fsrRequisitionRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.fsrRequisitionRowChangedEvent) Is Nothing) Then RaiseEvent fsrRequisitionRowChanged(Me, New fsrRequisitionRowChangeEvent(CType(e.Row,fsrRequisitionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.fsrRequisitionRowChangingEvent) Is Nothing) Then RaiseEvent fsrRequisitionRowChanging(Me, New fsrRequisitionRowChangeEvent(CType(e.Row,fsrRequisitionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.fsrRequisitionRowDeletedEvent) Is Nothing) Then RaiseEvent fsrRequisitionRowDeleted(Me, New fsrRequisitionRowChangeEvent(CType(e.Row,fsrRequisitionRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.fsrRequisitionRowDeletingEvent) Is Nothing) Then RaiseEvent fsrRequisitionRowDeleting(Me, New fsrRequisitionRowChangeEvent(CType(e.Row,fsrRequisitionRow), e.Action)) End If End Sub _ Public Sub RemovefsrRequisitionRow(ByVal row As fsrRequisitionRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As SuperbowlDataSet = New SuperbowlDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "fsrRequisitionDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class mstBrandDataTable Inherits Global.System.Data.TypedTableBase(Of mstBrandRow) Private columnBrandID As Global.System.Data.DataColumn Private columnrefPrincipalID As Global.System.Data.DataColumn Private columnrefCompanyID As Global.System.Data.DataColumn Private columnrefBrandManagerID As Global.System.Data.DataColumn Private columnrefBrandManager2ID As Global.System.Data.DataColumn Private columnrefGroupingDailyID As Global.System.Data.DataColumn Private columnrefGroupingPrimaryID As Global.System.Data.DataColumn Private columnrefGroupingSecondaryID As Global.System.Data.DataColumn Private columnstrAccpacCode As Global.System.Data.DataColumn Private columnstrBrand As Global.System.Data.DataColumn Private columnstrGroupCode As Global.System.Data.DataColumn Private columnstrGroupAccounts As Global.System.Data.DataColumn Private columnbrand2 As Global.System.Data.DataColumn Private columnbrandrebate As Global.System.Data.DataColumn Private columnbrandToolkit As Global.System.Data.DataColumn Private columnintLeadMonths As Global.System.Data.DataColumn Private columnintMonthsCover As Global.System.Data.DataColumn Private columndblVariance As Global.System.Data.DataColumn Private columnblnActive As Global.System.Data.DataColumn Private columnstrLastUser As Global.System.Data.DataColumn Private columndtStamp As Global.System.Data.DataColumn Private columnpercBrandGrowth As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "mstBrand" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property BrandIDColumn() As Global.System.Data.DataColumn Get Return Me.columnBrandID End Get End Property _ Public ReadOnly Property refPrincipalIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefPrincipalID End Get End Property _ Public ReadOnly Property refCompanyIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefCompanyID End Get End Property _ Public ReadOnly Property refBrandManagerIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefBrandManagerID End Get End Property _ Public ReadOnly Property refBrandManager2IDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefBrandManager2ID End Get End Property _ Public ReadOnly Property refGroupingDailyIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefGroupingDailyID End Get End Property _ Public ReadOnly Property refGroupingPrimaryIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefGroupingPrimaryID End Get End Property _ Public ReadOnly Property refGroupingSecondaryIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefGroupingSecondaryID End Get End Property _ Public ReadOnly Property strAccpacCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrAccpacCode End Get End Property _ Public ReadOnly Property strBrandColumn() As Global.System.Data.DataColumn Get Return Me.columnstrBrand End Get End Property _ Public ReadOnly Property strGroupCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrGroupCode End Get End Property _ Public ReadOnly Property strGroupAccountsColumn() As Global.System.Data.DataColumn Get Return Me.columnstrGroupAccounts End Get End Property _ Public ReadOnly Property brand2Column() As Global.System.Data.DataColumn Get Return Me.columnbrand2 End Get End Property _ Public ReadOnly Property brandrebateColumn() As Global.System.Data.DataColumn Get Return Me.columnbrandrebate End Get End Property _ Public ReadOnly Property brandToolkitColumn() As Global.System.Data.DataColumn Get Return Me.columnbrandToolkit End Get End Property _ Public ReadOnly Property intLeadMonthsColumn() As Global.System.Data.DataColumn Get Return Me.columnintLeadMonths End Get End Property _ Public ReadOnly Property intMonthsCoverColumn() As Global.System.Data.DataColumn Get Return Me.columnintMonthsCover End Get End Property _ Public ReadOnly Property dblVarianceColumn() As Global.System.Data.DataColumn Get Return Me.columndblVariance End Get End Property _ Public ReadOnly Property blnActiveColumn() As Global.System.Data.DataColumn Get Return Me.columnblnActive End Get End Property _ Public ReadOnly Property strLastUserColumn() As Global.System.Data.DataColumn Get Return Me.columnstrLastUser End Get End Property _ Public ReadOnly Property dtStampColumn() As Global.System.Data.DataColumn Get Return Me.columndtStamp End Get End Property _ Public ReadOnly Property percBrandGrowthColumn() As Global.System.Data.DataColumn Get Return Me.columnpercBrandGrowth End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As mstBrandRow Get Return CType(Me.Rows(index),mstBrandRow) End Get End Property _ Public Event mstBrandRowChanging As mstBrandRowChangeEventHandler _ Public Event mstBrandRowChanged As mstBrandRowChangeEventHandler _ Public Event mstBrandRowDeleting As mstBrandRowChangeEventHandler _ Public Event mstBrandRowDeleted As mstBrandRowChangeEventHandler _ Public Overloads Sub AddmstBrandRow(ByVal row As mstBrandRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddmstBrandRow( _ ByVal refPrincipalID As Integer, _ ByVal refCompanyID As Integer, _ ByVal refBrandManagerID As Integer, _ ByVal refBrandManager2ID As Integer, _ ByVal refGroupingDailyID As Integer, _ ByVal refGroupingPrimaryID As Integer, _ ByVal refGroupingSecondaryID As Integer, _ ByVal strAccpacCode As String, _ ByVal strBrand As String, _ ByVal strGroupCode As String, _ ByVal strGroupAccounts As String, _ ByVal brand2 As String, _ ByVal brandrebate As String, _ ByVal brandToolkit As String, _ ByVal intLeadMonths As Integer, _ ByVal intMonthsCover As Integer, _ ByVal dblVariance As Double, _ ByVal blnActive As Boolean, _ ByVal strLastUser As String, _ ByVal dtStamp As String, _ ByVal percBrandGrowth As Double) As mstBrandRow Dim rowmstBrandRow As mstBrandRow = CType(Me.NewRow,mstBrandRow) Dim columnValuesArray() As Object = New Object() {Nothing, refPrincipalID, refCompanyID, refBrandManagerID, refBrandManager2ID, refGroupingDailyID, refGroupingPrimaryID, refGroupingSecondaryID, strAccpacCode, strBrand, strGroupCode, strGroupAccounts, brand2, brandrebate, brandToolkit, intLeadMonths, intMonthsCover, dblVariance, blnActive, strLastUser, dtStamp, percBrandGrowth} rowmstBrandRow.ItemArray = columnValuesArray Me.Rows.Add(rowmstBrandRow) Return rowmstBrandRow End Function _ Public Function FindByBrandID(ByVal BrandID As Integer) As mstBrandRow Return CType(Me.Rows.Find(New Object() {BrandID}),mstBrandRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As mstBrandDataTable = CType(MyBase.Clone,mstBrandDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New mstBrandDataTable() End Function _ Friend Sub InitVars() Me.columnBrandID = MyBase.Columns("BrandID") Me.columnrefPrincipalID = MyBase.Columns("refPrincipalID") Me.columnrefCompanyID = MyBase.Columns("refCompanyID") Me.columnrefBrandManagerID = MyBase.Columns("refBrandManagerID") Me.columnrefBrandManager2ID = MyBase.Columns("refBrandManager2ID") Me.columnrefGroupingDailyID = MyBase.Columns("refGroupingDailyID") Me.columnrefGroupingPrimaryID = MyBase.Columns("refGroupingPrimaryID") Me.columnrefGroupingSecondaryID = MyBase.Columns("refGroupingSecondaryID") Me.columnstrAccpacCode = MyBase.Columns("strAccpacCode") Me.columnstrBrand = MyBase.Columns("strBrand") Me.columnstrGroupCode = MyBase.Columns("strGroupCode") Me.columnstrGroupAccounts = MyBase.Columns("strGroupAccounts") Me.columnbrand2 = MyBase.Columns("brand2") Me.columnbrandrebate = MyBase.Columns("brandrebate") Me.columnbrandToolkit = MyBase.Columns("brandToolkit") Me.columnintLeadMonths = MyBase.Columns("intLeadMonths") Me.columnintMonthsCover = MyBase.Columns("intMonthsCover") Me.columndblVariance = MyBase.Columns("dblVariance") Me.columnblnActive = MyBase.Columns("blnActive") Me.columnstrLastUser = MyBase.Columns("strLastUser") Me.columndtStamp = MyBase.Columns("dtStamp") Me.columnpercBrandGrowth = MyBase.Columns("percBrandGrowth") End Sub _ Private Sub InitClass() Me.columnBrandID = New Global.System.Data.DataColumn("BrandID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBrandID) Me.columnrefPrincipalID = New Global.System.Data.DataColumn("refPrincipalID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefPrincipalID) Me.columnrefCompanyID = New Global.System.Data.DataColumn("refCompanyID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefCompanyID) Me.columnrefBrandManagerID = New Global.System.Data.DataColumn("refBrandManagerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefBrandManagerID) Me.columnrefBrandManager2ID = New Global.System.Data.DataColumn("refBrandManager2ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefBrandManager2ID) Me.columnrefGroupingDailyID = New Global.System.Data.DataColumn("refGroupingDailyID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefGroupingDailyID) Me.columnrefGroupingPrimaryID = New Global.System.Data.DataColumn("refGroupingPrimaryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefGroupingPrimaryID) Me.columnrefGroupingSecondaryID = New Global.System.Data.DataColumn("refGroupingSecondaryID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefGroupingSecondaryID) Me.columnstrAccpacCode = New Global.System.Data.DataColumn("strAccpacCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrAccpacCode) Me.columnstrBrand = New Global.System.Data.DataColumn("strBrand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrBrand) Me.columnstrGroupCode = New Global.System.Data.DataColumn("strGroupCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrGroupCode) Me.columnstrGroupAccounts = New Global.System.Data.DataColumn("strGroupAccounts", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrGroupAccounts) Me.columnbrand2 = New Global.System.Data.DataColumn("brand2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbrand2) Me.columnbrandrebate = New Global.System.Data.DataColumn("brandrebate", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbrandrebate) Me.columnbrandToolkit = New Global.System.Data.DataColumn("brandToolkit", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnbrandToolkit) Me.columnintLeadMonths = New Global.System.Data.DataColumn("intLeadMonths", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintLeadMonths) Me.columnintMonthsCover = New Global.System.Data.DataColumn("intMonthsCover", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintMonthsCover) Me.columndblVariance = New Global.System.Data.DataColumn("dblVariance", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndblVariance) Me.columnblnActive = New Global.System.Data.DataColumn("blnActive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnActive) Me.columnstrLastUser = New Global.System.Data.DataColumn("strLastUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrLastUser) Me.columndtStamp = New Global.System.Data.DataColumn("dtStamp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndtStamp) Me.columnpercBrandGrowth = New Global.System.Data.DataColumn("percBrandGrowth", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnpercBrandGrowth) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnBrandID}, true)) Me.columnBrandID.AutoIncrement = true Me.columnBrandID.AutoIncrementSeed = -1 Me.columnBrandID.AutoIncrementStep = -1 Me.columnBrandID.AllowDBNull = false Me.columnBrandID.ReadOnly = true Me.columnBrandID.Unique = true Me.columnstrAccpacCode.MaxLength = 4 Me.columnstrBrand.MaxLength = 30 Me.columnstrGroupCode.MaxLength = 50 Me.columnstrGroupAccounts.MaxLength = 50 Me.columnbrand2.MaxLength = 50 Me.columnbrandrebate.MaxLength = 50 Me.columnbrandToolkit.MaxLength = 50 Me.columnstrLastUser.MaxLength = 20 Me.columndtStamp.MaxLength = 12 Me.columnpercBrandGrowth.AllowDBNull = false End Sub _ Public Function NewmstBrandRow() As mstBrandRow Return CType(Me.NewRow,mstBrandRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New mstBrandRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(mstBrandRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.mstBrandRowChangedEvent) Is Nothing) Then RaiseEvent mstBrandRowChanged(Me, New mstBrandRowChangeEvent(CType(e.Row,mstBrandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.mstBrandRowChangingEvent) Is Nothing) Then RaiseEvent mstBrandRowChanging(Me, New mstBrandRowChangeEvent(CType(e.Row,mstBrandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.mstBrandRowDeletedEvent) Is Nothing) Then RaiseEvent mstBrandRowDeleted(Me, New mstBrandRowChangeEvent(CType(e.Row,mstBrandRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.mstBrandRowDeletingEvent) Is Nothing) Then RaiseEvent mstBrandRowDeleting(Me, New mstBrandRowChangeEvent(CType(e.Row,mstBrandRow), e.Action)) End If End Sub _ Public Sub RemovemstBrandRow(ByVal row As mstBrandRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As SuperbowlDataSet = New SuperbowlDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "mstBrandDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class mstProductDataTable Inherits Global.System.Data.TypedTableBase(Of mstProductRow) Private columnstrProdCode As Global.System.Data.DataColumn Private columnrefBrandID As Global.System.Data.DataColumn Private columnstrProductDesc As Global.System.Data.DataColumn Private columnintPack As Global.System.Data.DataColumn Private columnintSize As Global.System.Data.DataColumn Private columndblPrice As Global.System.Data.DataColumn Private columnstrLongProdDesc As Global.System.Data.DataColumn Private columnstrType As Global.System.Data.DataColumn Private columnstrType2 As Global.System.Data.DataColumn Private columnintShortCode As Global.System.Data.DataColumn Private columnstrPriceSeg As Global.System.Data.DataColumn Private columnstrCategory As Global.System.Data.DataColumn Private columnstrCategory2 As Global.System.Data.DataColumn Private columnblnActive As Global.System.Data.DataColumn Private columndblFlat As Global.System.Data.DataColumn Private columncwsicat As Global.System.Data.DataColumn Private columnstrPrincipalMaterialRefNum As Global.System.Data.DataColumn Private columnstrPrincipalProdDesc As Global.System.Data.DataColumn Private columnstrBottleBarcode As Global.System.Data.DataColumn Private columnstrCaseBarcode As Global.System.Data.DataColumn Private columnstrGiftboxBarcode As Global.System.Data.DataColumn Private columnintDisplayOrder As Global.System.Data.DataColumn Private columnstrBrandVarietal As Global.System.Data.DataColumn Private columndtStamp As Global.System.Data.DataColumn Private columnstrLastUser As Global.System.Data.DataColumn Private columnstrProdCodeArchive As Global.System.Data.DataColumn Private columnblnQF As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "mstProduct" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property strProdCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrProdCode End Get End Property _ Public ReadOnly Property refBrandIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefBrandID End Get End Property _ Public ReadOnly Property strProductDescColumn() As Global.System.Data.DataColumn Get Return Me.columnstrProductDesc End Get End Property _ Public ReadOnly Property intPackColumn() As Global.System.Data.DataColumn Get Return Me.columnintPack End Get End Property _ Public ReadOnly Property intSizeColumn() As Global.System.Data.DataColumn Get Return Me.columnintSize End Get End Property _ Public ReadOnly Property dblPriceColumn() As Global.System.Data.DataColumn Get Return Me.columndblPrice End Get End Property _ Public ReadOnly Property strLongProdDescColumn() As Global.System.Data.DataColumn Get Return Me.columnstrLongProdDesc End Get End Property _ Public ReadOnly Property strTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrType End Get End Property _ Public ReadOnly Property strType2Column() As Global.System.Data.DataColumn Get Return Me.columnstrType2 End Get End Property _ Public ReadOnly Property intShortCodeColumn() As Global.System.Data.DataColumn Get Return Me.columnintShortCode End Get End Property _ Public ReadOnly Property strPriceSegColumn() As Global.System.Data.DataColumn Get Return Me.columnstrPriceSeg End Get End Property _ Public ReadOnly Property strCategoryColumn() As Global.System.Data.DataColumn Get Return Me.columnstrCategory End Get End Property _ Public ReadOnly Property strCategory2Column() As Global.System.Data.DataColumn Get Return Me.columnstrCategory2 End Get End Property _ Public ReadOnly Property blnActiveColumn() As Global.System.Data.DataColumn Get Return Me.columnblnActive End Get End Property _ Public ReadOnly Property dblFlatColumn() As Global.System.Data.DataColumn Get Return Me.columndblFlat End Get End Property _ Public ReadOnly Property cwsicatColumn() As Global.System.Data.DataColumn Get Return Me.columncwsicat End Get End Property _ Public ReadOnly Property strPrincipalMaterialRefNumColumn() As Global.System.Data.DataColumn Get Return Me.columnstrPrincipalMaterialRefNum End Get End Property _ Public ReadOnly Property strPrincipalProdDescColumn() As Global.System.Data.DataColumn Get Return Me.columnstrPrincipalProdDesc End Get End Property _ Public ReadOnly Property strBottleBarcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrBottleBarcode End Get End Property _ Public ReadOnly Property strCaseBarcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrCaseBarcode End Get End Property _ Public ReadOnly Property strGiftboxBarcodeColumn() As Global.System.Data.DataColumn Get Return Me.columnstrGiftboxBarcode End Get End Property _ Public ReadOnly Property intDisplayOrderColumn() As Global.System.Data.DataColumn Get Return Me.columnintDisplayOrder End Get End Property _ Public ReadOnly Property strBrandVarietalColumn() As Global.System.Data.DataColumn Get Return Me.columnstrBrandVarietal End Get End Property _ Public ReadOnly Property dtStampColumn() As Global.System.Data.DataColumn Get Return Me.columndtStamp End Get End Property _ Public ReadOnly Property strLastUserColumn() As Global.System.Data.DataColumn Get Return Me.columnstrLastUser End Get End Property _ Public ReadOnly Property strProdCodeArchiveColumn() As Global.System.Data.DataColumn Get Return Me.columnstrProdCodeArchive End Get End Property _ Public ReadOnly Property blnQFColumn() As Global.System.Data.DataColumn Get Return Me.columnblnQF End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As mstProductRow Get Return CType(Me.Rows(index),mstProductRow) End Get End Property _ Public Event mstProductRowChanging As mstProductRowChangeEventHandler _ Public Event mstProductRowChanged As mstProductRowChangeEventHandler _ Public Event mstProductRowDeleting As mstProductRowChangeEventHandler _ Public Event mstProductRowDeleted As mstProductRowChangeEventHandler _ Public Overloads Sub AddmstProductRow(ByVal row As mstProductRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddmstProductRow( _ ByVal strProdCode As String, _ ByVal refBrandID As Integer, _ ByVal strProductDesc As String, _ ByVal intPack As Integer, _ ByVal intSize As Integer, _ ByVal dblPrice As Double, _ ByVal strLongProdDesc As String, _ ByVal strType As String, _ ByVal strType2 As String, _ ByVal intShortCode As String, _ ByVal strPriceSeg As String, _ ByVal strCategory As String, _ ByVal strCategory2 As String, _ ByVal blnActive As Boolean, _ ByVal dblFlat As Double, _ ByVal cwsicat As String, _ ByVal strPrincipalMaterialRefNum As String, _ ByVal strPrincipalProdDesc As String, _ ByVal strBottleBarcode As String, _ ByVal strCaseBarcode As String, _ ByVal strGiftboxBarcode As String, _ ByVal intDisplayOrder As Integer, _ ByVal strBrandVarietal As String, _ ByVal dtStamp As String, _ ByVal strLastUser As String, _ ByVal strProdCodeArchive As String, _ ByVal blnQF As Boolean) As mstProductRow Dim rowmstProductRow As mstProductRow = CType(Me.NewRow,mstProductRow) Dim columnValuesArray() As Object = New Object() {strProdCode, refBrandID, strProductDesc, intPack, intSize, dblPrice, strLongProdDesc, strType, strType2, intShortCode, strPriceSeg, strCategory, strCategory2, blnActive, dblFlat, cwsicat, strPrincipalMaterialRefNum, strPrincipalProdDesc, strBottleBarcode, strCaseBarcode, strGiftboxBarcode, intDisplayOrder, strBrandVarietal, dtStamp, strLastUser, strProdCodeArchive, blnQF} rowmstProductRow.ItemArray = columnValuesArray Me.Rows.Add(rowmstProductRow) Return rowmstProductRow End Function _ Public Function FindBystrProdCode(ByVal strProdCode As String) As mstProductRow Return CType(Me.Rows.Find(New Object() {strProdCode}),mstProductRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As mstProductDataTable = CType(MyBase.Clone,mstProductDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New mstProductDataTable() End Function _ Friend Sub InitVars() Me.columnstrProdCode = MyBase.Columns("strProdCode") Me.columnrefBrandID = MyBase.Columns("refBrandID") Me.columnstrProductDesc = MyBase.Columns("strProductDesc") Me.columnintPack = MyBase.Columns("intPack") Me.columnintSize = MyBase.Columns("intSize") Me.columndblPrice = MyBase.Columns("dblPrice") Me.columnstrLongProdDesc = MyBase.Columns("strLongProdDesc") Me.columnstrType = MyBase.Columns("strType") Me.columnstrType2 = MyBase.Columns("strType2") Me.columnintShortCode = MyBase.Columns("intShortCode") Me.columnstrPriceSeg = MyBase.Columns("strPriceSeg") Me.columnstrCategory = MyBase.Columns("strCategory") Me.columnstrCategory2 = MyBase.Columns("strCategory2") Me.columnblnActive = MyBase.Columns("blnActive") Me.columndblFlat = MyBase.Columns("dblFlat") Me.columncwsicat = MyBase.Columns("cwsicat") Me.columnstrPrincipalMaterialRefNum = MyBase.Columns("strPrincipalMaterialRefNum") Me.columnstrPrincipalProdDesc = MyBase.Columns("strPrincipalProdDesc") Me.columnstrBottleBarcode = MyBase.Columns("strBottleBarcode") Me.columnstrCaseBarcode = MyBase.Columns("strCaseBarcode") Me.columnstrGiftboxBarcode = MyBase.Columns("strGiftboxBarcode") Me.columnintDisplayOrder = MyBase.Columns("intDisplayOrder") Me.columnstrBrandVarietal = MyBase.Columns("strBrandVarietal") Me.columndtStamp = MyBase.Columns("dtStamp") Me.columnstrLastUser = MyBase.Columns("strLastUser") Me.columnstrProdCodeArchive = MyBase.Columns("strProdCodeArchive") Me.columnblnQF = MyBase.Columns("blnQF") End Sub _ Private Sub InitClass() Me.columnstrProdCode = New Global.System.Data.DataColumn("strProdCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrProdCode) Me.columnrefBrandID = New Global.System.Data.DataColumn("refBrandID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefBrandID) Me.columnstrProductDesc = New Global.System.Data.DataColumn("strProductDesc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrProductDesc) Me.columnintPack = New Global.System.Data.DataColumn("intPack", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintPack) Me.columnintSize = New Global.System.Data.DataColumn("intSize", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintSize) Me.columndblPrice = New Global.System.Data.DataColumn("dblPrice", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndblPrice) Me.columnstrLongProdDesc = New Global.System.Data.DataColumn("strLongProdDesc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrLongProdDesc) Me.columnstrType = New Global.System.Data.DataColumn("strType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrType) Me.columnstrType2 = New Global.System.Data.DataColumn("strType2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrType2) Me.columnintShortCode = New Global.System.Data.DataColumn("intShortCode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintShortCode) Me.columnstrPriceSeg = New Global.System.Data.DataColumn("strPriceSeg", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrPriceSeg) Me.columnstrCategory = New Global.System.Data.DataColumn("strCategory", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCategory) Me.columnstrCategory2 = New Global.System.Data.DataColumn("strCategory2", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCategory2) Me.columnblnActive = New Global.System.Data.DataColumn("blnActive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnActive) Me.columndblFlat = New Global.System.Data.DataColumn("dblFlat", GetType(Double), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndblFlat) Me.columncwsicat = New Global.System.Data.DataColumn("cwsicat", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columncwsicat) Me.columnstrPrincipalMaterialRefNum = New Global.System.Data.DataColumn("strPrincipalMaterialRefNum", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrPrincipalMaterialRefNum) Me.columnstrPrincipalProdDesc = New Global.System.Data.DataColumn("strPrincipalProdDesc", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrPrincipalProdDesc) Me.columnstrBottleBarcode = New Global.System.Data.DataColumn("strBottleBarcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrBottleBarcode) Me.columnstrCaseBarcode = New Global.System.Data.DataColumn("strCaseBarcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrCaseBarcode) Me.columnstrGiftboxBarcode = New Global.System.Data.DataColumn("strGiftboxBarcode", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrGiftboxBarcode) Me.columnintDisplayOrder = New Global.System.Data.DataColumn("intDisplayOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnintDisplayOrder) Me.columnstrBrandVarietal = New Global.System.Data.DataColumn("strBrandVarietal", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrBrandVarietal) Me.columndtStamp = New Global.System.Data.DataColumn("dtStamp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndtStamp) Me.columnstrLastUser = New Global.System.Data.DataColumn("strLastUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrLastUser) Me.columnstrProdCodeArchive = New Global.System.Data.DataColumn("strProdCodeArchive", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrProdCodeArchive) Me.columnblnQF = New Global.System.Data.DataColumn("blnQF", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnQF) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnstrProdCode}, true)) Me.columnstrProdCode.AllowDBNull = false Me.columnstrProdCode.Unique = true Me.columnstrProdCode.MaxLength = 6 Me.columnstrProductDesc.MaxLength = 80 Me.columnstrLongProdDesc.MaxLength = 80 Me.columnstrType.MaxLength = 1 Me.columnstrType2.MaxLength = 12 Me.columnintShortCode.MaxLength = 5 Me.columnstrPriceSeg.MaxLength = 50 Me.columnstrCategory.MaxLength = 50 Me.columnstrCategory2.MaxLength = 50 Me.columncwsicat.MaxLength = 20 Me.columnstrPrincipalMaterialRefNum.MaxLength = 10 Me.columnstrPrincipalProdDesc.MaxLength = 80 Me.columnstrBottleBarcode.MaxLength = 15 Me.columnstrCaseBarcode.MaxLength = 15 Me.columnstrGiftboxBarcode.MaxLength = 15 Me.columnstrBrandVarietal.MaxLength = 50 Me.columndtStamp.MaxLength = 12 Me.columnstrLastUser.MaxLength = 20 Me.columnstrProdCodeArchive.MaxLength = 6 Me.columnblnQF.AllowDBNull = false End Sub _ Public Function NewmstProductRow() As mstProductRow Return CType(Me.NewRow,mstProductRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New mstProductRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(mstProductRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.mstProductRowChangedEvent) Is Nothing) Then RaiseEvent mstProductRowChanged(Me, New mstProductRowChangeEvent(CType(e.Row,mstProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.mstProductRowChangingEvent) Is Nothing) Then RaiseEvent mstProductRowChanging(Me, New mstProductRowChangeEvent(CType(e.Row,mstProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.mstProductRowDeletedEvent) Is Nothing) Then RaiseEvent mstProductRowDeleted(Me, New mstProductRowChangeEvent(CType(e.Row,mstProductRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.mstProductRowDeletingEvent) Is Nothing) Then RaiseEvent mstProductRowDeleting(Me, New mstProductRowChangeEvent(CType(e.Row,mstProductRow), e.Action)) End If End Sub _ Public Sub RemovemstProductRow(ByVal row As mstProductRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As SuperbowlDataSet = New SuperbowlDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "mstProductDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class mstUserDataTable Inherits Global.System.Data.TypedTableBase(Of mstUserRow) Private columnUserID As Global.System.Data.DataColumn Private columnrefUserGroupID As Global.System.Data.DataColumn Private columnrefUserGroupSuperbowlID As Global.System.Data.DataColumn Private columnrefUserGroupForecastID As Global.System.Data.DataColumn Private columnrefUserGroupPromotionID As Global.System.Data.DataColumn Private columnrefUserGroupScoreCardID As Global.System.Data.DataColumn Private columnrefUserGroupFreeStockID As Global.System.Data.DataColumn Private columnrefManagerID As Global.System.Data.DataColumn Private columnrefManagerAlternativeID As Global.System.Data.DataColumn Private columnrefManagerExecutiveID As Global.System.Data.DataColumn Private columnstrUserName As Global.System.Data.DataColumn Private columnstrPassword As Global.System.Data.DataColumn Private columnstrDomainLogin As Global.System.Data.DataColumn Private columnstrEmail As Global.System.Data.DataColumn Private columnstrRegion As Global.System.Data.DataColumn Private columnblnManager As Global.System.Data.DataColumn Private columnblnManagerExecutive As Global.System.Data.DataColumn Private columnstrLastUser As Global.System.Data.DataColumn Private columndtStamp As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "mstUser" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ 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 _ Public ReadOnly Property UserIDColumn() As Global.System.Data.DataColumn Get Return Me.columnUserID End Get End Property _ Public ReadOnly Property refUserGroupIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserGroupID End Get End Property _ Public ReadOnly Property refUserGroupSuperbowlIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserGroupSuperbowlID End Get End Property _ Public ReadOnly Property refUserGroupForecastIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserGroupForecastID End Get End Property _ Public ReadOnly Property refUserGroupPromotionIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserGroupPromotionID End Get End Property _ Public ReadOnly Property refUserGroupScoreCardIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserGroupScoreCardID End Get End Property _ Public ReadOnly Property refUserGroupFreeStockIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefUserGroupFreeStockID End Get End Property _ Public ReadOnly Property refManagerIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefManagerID End Get End Property _ Public ReadOnly Property refManagerAlternativeIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefManagerAlternativeID End Get End Property _ Public ReadOnly Property refManagerExecutiveIDColumn() As Global.System.Data.DataColumn Get Return Me.columnrefManagerExecutiveID End Get End Property _ Public ReadOnly Property strUserNameColumn() As Global.System.Data.DataColumn Get Return Me.columnstrUserName End Get End Property _ Public ReadOnly Property strPasswordColumn() As Global.System.Data.DataColumn Get Return Me.columnstrPassword End Get End Property _ Public ReadOnly Property strDomainLoginColumn() As Global.System.Data.DataColumn Get Return Me.columnstrDomainLogin End Get End Property _ Public ReadOnly Property strEmailColumn() As Global.System.Data.DataColumn Get Return Me.columnstrEmail End Get End Property _ Public ReadOnly Property strRegionColumn() As Global.System.Data.DataColumn Get Return Me.columnstrRegion End Get End Property _ Public ReadOnly Property blnManagerColumn() As Global.System.Data.DataColumn Get Return Me.columnblnManager End Get End Property _ Public ReadOnly Property blnManagerExecutiveColumn() As Global.System.Data.DataColumn Get Return Me.columnblnManagerExecutive End Get End Property _ Public ReadOnly Property strLastUserColumn() As Global.System.Data.DataColumn Get Return Me.columnstrLastUser End Get End Property _ Public ReadOnly Property dtStampColumn() As Global.System.Data.DataColumn Get Return Me.columndtStamp End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As mstUserRow Get Return CType(Me.Rows(index),mstUserRow) End Get End Property _ Public Event mstUserRowChanging As mstUserRowChangeEventHandler _ Public Event mstUserRowChanged As mstUserRowChangeEventHandler _ Public Event mstUserRowDeleting As mstUserRowChangeEventHandler _ Public Event mstUserRowDeleted As mstUserRowChangeEventHandler _ Public Overloads Sub AddmstUserRow(ByVal row As mstUserRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddmstUserRow( _ ByVal refUserGroupID As Integer, _ ByVal refUserGroupSuperbowlID As Integer, _ ByVal refUserGroupForecastID As Integer, _ ByVal refUserGroupPromotionID As Integer, _ ByVal refUserGroupScoreCardID As Integer, _ ByVal refUserGroupFreeStockID As Integer, _ ByVal refManagerID As Integer, _ ByVal refManagerAlternativeID As Integer, _ ByVal refManagerExecutiveID As Integer, _ ByVal strUserName As String, _ ByVal strPassword As String, _ ByVal strDomainLogin As String, _ ByVal strEmail As String, _ ByVal strRegion As String, _ ByVal blnManager As Boolean, _ ByVal blnManagerExecutive As Boolean, _ ByVal strLastUser As String, _ ByVal dtStamp As String) As mstUserRow Dim rowmstUserRow As mstUserRow = CType(Me.NewRow,mstUserRow) Dim columnValuesArray() As Object = New Object() {Nothing, refUserGroupID, refUserGroupSuperbowlID, refUserGroupForecastID, refUserGroupPromotionID, refUserGroupScoreCardID, refUserGroupFreeStockID, refManagerID, refManagerAlternativeID, refManagerExecutiveID, strUserName, strPassword, strDomainLogin, strEmail, strRegion, blnManager, blnManagerExecutive, strLastUser, dtStamp} rowmstUserRow.ItemArray = columnValuesArray Me.Rows.Add(rowmstUserRow) Return rowmstUserRow End Function _ Public Function FindByUserID(ByVal UserID As Integer) As mstUserRow Return CType(Me.Rows.Find(New Object() {UserID}),mstUserRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As mstUserDataTable = CType(MyBase.Clone,mstUserDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New mstUserDataTable() End Function _ Friend Sub InitVars() Me.columnUserID = MyBase.Columns("UserID") Me.columnrefUserGroupID = MyBase.Columns("refUserGroupID") Me.columnrefUserGroupSuperbowlID = MyBase.Columns("refUserGroupSuperbowlID") Me.columnrefUserGroupForecastID = MyBase.Columns("refUserGroupForecastID") Me.columnrefUserGroupPromotionID = MyBase.Columns("refUserGroupPromotionID") Me.columnrefUserGroupScoreCardID = MyBase.Columns("refUserGroupScoreCardID") Me.columnrefUserGroupFreeStockID = MyBase.Columns("refUserGroupFreeStockID") Me.columnrefManagerID = MyBase.Columns("refManagerID") Me.columnrefManagerAlternativeID = MyBase.Columns("refManagerAlternativeID") Me.columnrefManagerExecutiveID = MyBase.Columns("refManagerExecutiveID") Me.columnstrUserName = MyBase.Columns("strUserName") Me.columnstrPassword = MyBase.Columns("strPassword") Me.columnstrDomainLogin = MyBase.Columns("strDomainLogin") Me.columnstrEmail = MyBase.Columns("strEmail") Me.columnstrRegion = MyBase.Columns("strRegion") Me.columnblnManager = MyBase.Columns("blnManager") Me.columnblnManagerExecutive = MyBase.Columns("blnManagerExecutive") Me.columnstrLastUser = MyBase.Columns("strLastUser") Me.columndtStamp = MyBase.Columns("dtStamp") End Sub _ Private Sub InitClass() Me.columnUserID = New Global.System.Data.DataColumn("UserID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUserID) Me.columnrefUserGroupID = New Global.System.Data.DataColumn("refUserGroupID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserGroupID) Me.columnrefUserGroupSuperbowlID = New Global.System.Data.DataColumn("refUserGroupSuperbowlID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserGroupSuperbowlID) Me.columnrefUserGroupForecastID = New Global.System.Data.DataColumn("refUserGroupForecastID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserGroupForecastID) Me.columnrefUserGroupPromotionID = New Global.System.Data.DataColumn("refUserGroupPromotionID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserGroupPromotionID) Me.columnrefUserGroupScoreCardID = New Global.System.Data.DataColumn("refUserGroupScoreCardID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserGroupScoreCardID) Me.columnrefUserGroupFreeStockID = New Global.System.Data.DataColumn("refUserGroupFreeStockID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefUserGroupFreeStockID) Me.columnrefManagerID = New Global.System.Data.DataColumn("refManagerID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefManagerID) Me.columnrefManagerAlternativeID = New Global.System.Data.DataColumn("refManagerAlternativeID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefManagerAlternativeID) Me.columnrefManagerExecutiveID = New Global.System.Data.DataColumn("refManagerExecutiveID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnrefManagerExecutiveID) Me.columnstrUserName = New Global.System.Data.DataColumn("strUserName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrUserName) Me.columnstrPassword = New Global.System.Data.DataColumn("strPassword", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrPassword) Me.columnstrDomainLogin = New Global.System.Data.DataColumn("strDomainLogin", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrDomainLogin) Me.columnstrEmail = New Global.System.Data.DataColumn("strEmail", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrEmail) Me.columnstrRegion = New Global.System.Data.DataColumn("strRegion", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrRegion) Me.columnblnManager = New Global.System.Data.DataColumn("blnManager", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnManager) Me.columnblnManagerExecutive = New Global.System.Data.DataColumn("blnManagerExecutive", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnblnManagerExecutive) Me.columnstrLastUser = New Global.System.Data.DataColumn("strLastUser", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnstrLastUser) Me.columndtStamp = New Global.System.Data.DataColumn("dtStamp", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columndtStamp) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUserID}, true)) Me.columnUserID.AutoIncrement = true Me.columnUserID.AutoIncrementSeed = -1 Me.columnUserID.AutoIncrementStep = -1 Me.columnUserID.AllowDBNull = false Me.columnUserID.ReadOnly = true Me.columnUserID.Unique = true Me.columnrefManagerID.AllowDBNull = false Me.columnrefManagerAlternativeID.AllowDBNull = false Me.columnrefManagerExecutiveID.AllowDBNull = false Me.columnstrUserName.MaxLength = 50 Me.columnstrPassword.MaxLength = 32 Me.columnstrDomainLogin.MaxLength = 100 Me.columnstrEmail.MaxLength = 100 Me.columnstrRegion.AllowDBNull = false Me.columnstrRegion.MaxLength = 50 Me.columnblnManager.AllowDBNull = false Me.columnblnManagerExecutive.AllowDBNull = false Me.columnstrLastUser.MaxLength = 20 Me.columndtStamp.MaxLength = 12 End Sub _ Public Function NewmstUserRow() As mstUserRow Return CType(Me.NewRow,mstUserRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New mstUserRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(mstUserRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.mstUserRowChangedEvent) Is Nothing) Then RaiseEvent mstUserRowChanged(Me, New mstUserRowChangeEvent(CType(e.Row,mstUserRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.mstUserRowChangingEvent) Is Nothing) Then RaiseEvent mstUserRowChanging(Me, New mstUserRowChangeEvent(CType(e.Row,mstUserRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.mstUserRowDeletedEvent) Is Nothing) Then RaiseEvent mstUserRowDeleted(Me, New mstUserRowChangeEvent(CType(e.Row,mstUserRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.mstUserRowDeletingEvent) Is Nothing) Then RaiseEvent mstUserRowDeleting(Me, New mstUserRowChangeEvent(CType(e.Row,mstUserRow), e.Action)) End If End Sub _ Public Sub RemovemstUserRow(ByVal row As mstUserRow) Me.Rows.Remove(row) End Sub _ 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() Dim ds As SuperbowlDataSet = New SuperbowlDataSet() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "mstUserDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class dwdCustomerRow Inherits Global.System.Data.DataRow Private tabledwdCustomer As dwdCustomerDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tabledwdCustomer = CType(Me.Table,dwdCustomerDataTable) End Sub _ Public Property strCustomerNo() As String Get Return CType(Me(Me.tabledwdCustomer.strCustomerNoColumn),String) End Get Set Me(Me.tabledwdCustomer.strCustomerNoColumn) = value End Set End Property _ Public Property strCustomerName() As String Get Try Return CType(Me(Me.tabledwdCustomer.strCustomerNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strCustomerName' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strCustomerNameColumn) = value End Set End Property _ Public Property strSnellChannel() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellChannelColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellChannel' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellChannelColumn) = value End Set End Property _ Public Property strSnellArea() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellAreaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellArea' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellAreaColumn) = value End Set End Property _ Public Property strSnellcwsireg() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellcwsiregColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellcwsireg' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellcwsiregColumn) = value End Set End Property _ Public Property strSnellrepno() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellrepnoColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellrepno' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellrepnoColumn) = value End Set End Property _ Public Property strSnellsupergroup() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellsupergroupColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellsupergroup' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellsupergroupColumn) = value End Set End Property _ Public Property strSnellsupergroupName() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellsupergroupNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellsupergroupName' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellsupergroupNameColumn) = value End Set End Property _ Public Property strSnellgrading() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSnellgradingColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSnellgrading' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSnellgradingColumn) = value End Set End Property _ Public Property refRepID() As String Get Try Return CType(Me(Me.tabledwdCustomer.refRepIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refRepID' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.refRepIDColumn) = value End Set End Property _ Public Property refRepBBID() As String Get Try Return CType(Me(Me.tabledwdCustomer.refRepBBIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refRepBBID' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.refRepBBIDColumn) = value End Set End Property _ Public Property refRepDlxID() As String Get Try Return CType(Me(Me.tabledwdCustomer.refRepDlxIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refRepDlxID' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.refRepDlxIDColumn) = value End Set End Property _ Public Property refRepLuxID() As String Get Try Return CType(Me(Me.tabledwdCustomer.refRepLuxIDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refRepLuxID' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.refRepLuxIDColumn) = value End Set End Property _ Public Property strRepName() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRepNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRepName' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRepNameColumn) = value End Set End Property _ Public Property strRepNameBB() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRepNameBBColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRepNameBB' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRepNameBBColumn) = value End Set End Property _ Public Property strRepNameDlx() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRepNameDlxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRepNameDlx' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRepNameDlxColumn) = value End Set End Property _ Public Property strRepNameLux() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRepNameLuxColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRepNameLux' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRepNameLuxColumn) = value End Set End Property _ Public Property strChannelPrimary() As String Get Try Return CType(Me(Me.tabledwdCustomer.strChannelPrimaryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strChannelPrimary' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strChannelPrimaryColumn) = value End Set End Property _ Public Property strChannelSecondary() As String Get Try Return CType(Me(Me.tabledwdCustomer.strChannelSecondaryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strChannelSecondary' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strChannelSecondaryColumn) = value End Set End Property _ Public Property strSegmentPrimary() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSegmentPrimaryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSegmentPrimary' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSegmentPrimaryColumn) = value End Set End Property _ Public Property strSegmentSecondary() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSegmentSecondaryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSegmentSecondary' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSegmentSecondaryColumn) = value End Set End Property _ Public Property strType1() As String Get Try Return CType(Me(Me.tabledwdCustomer.strType1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strType1' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strType1Column) = value End Set End Property _ Public Property strType2() As String Get Try Return CType(Me(Me.tabledwdCustomer.strType2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strType2' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strType2Column) = value End Set End Property _ Public Property strGroupName() As String Get Try Return CType(Me(Me.tabledwdCustomer.strGroupNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strGroupName' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strGroupNameColumn) = value End Set End Property _ Public Property strKeyAccount() As String Get Try Return CType(Me(Me.tabledwdCustomer.strKeyAccountColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strKeyAccount' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strKeyAccountColumn) = value End Set End Property _ Public Property strPriceGroupCode() As String Get Try Return CType(Me(Me.tabledwdCustomer.strPriceGroupCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strPriceGroupCode' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strPriceGroupCodeColumn) = value End Set End Property _ Public Property blnPromotionalAccounts() As Boolean Get Try Return CType(Me(Me.tabledwdCustomer.blnPromotionalAccountsColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'blnPromotionalAccounts' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.blnPromotionalAccountsColumn) = value End Set End Property _ Public Property blnActive() As Boolean Get Try Return CType(Me(Me.tabledwdCustomer.blnActiveColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'blnActive' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.blnActiveColumn) = value End Set End Property _ Public Property strCode() As String Get Try Return CType(Me(Me.tabledwdCustomer.strCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strCode' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strCodeColumn) = value End Set End Property _ Public Property strBranch() As String Get Try Return CType(Me(Me.tabledwdCustomer.strBranchColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strBranch' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strBranchColumn) = value End Set End Property _ Public Property strSalesOffice() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSalesOfficeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSalesOffice' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSalesOfficeColumn) = value End Set End Property _ Public Property strRegion() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRegionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegion' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRegionColumn) = value End Set End Property _ Public Property strSAPCode() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSAPCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSAPCode' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSAPCodeColumn) = value End Set End Property _ Public Property strRegionCode() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRegionCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegionCode' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRegionCodeColumn) = value End Set End Property _ Public Property strRegionDesc() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRegionDescColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegionDesc' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRegionDescColumn) = value End Set End Property _ Public Property strRegionAccpacCode() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRegionAccpacCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegionAccpacCode' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRegionAccpacCodeColumn) = value End Set End Property _ Public Property strRegionDesc2() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRegionDesc2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegionDesc2' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRegionDesc2Column) = value End Set End Property _ Public Property strChannel() As String Get Try Return CType(Me(Me.tabledwdCustomer.strChannelColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strChannel' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strChannelColumn) = value End Set End Property _ Public Property strSegment() As String Get Try Return CType(Me(Me.tabledwdCustomer.strSegmentColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strSegment' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strSegmentColumn) = value End Set End Property _ Public Property strCountry() As String Get Try Return CType(Me(Me.tabledwdCustomer.strCountryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strCountry' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strCountryColumn) = value End Set End Property _ Public Property strRegionOrder() As String Get Try Return CType(Me(Me.tabledwdCustomer.strRegionOrderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegionOrder' in table 'dwdCustomer' is DBNull.", e) End Try End Get Set Me(Me.tabledwdCustomer.strRegionOrderColumn) = value End Set End Property _ Public Function IsstrCustomerNameNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strCustomerNameColumn) End Function _ Public Sub SetstrCustomerNameNull() Me(Me.tabledwdCustomer.strCustomerNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellChannelNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellChannelColumn) End Function _ Public Sub SetstrSnellChannelNull() Me(Me.tabledwdCustomer.strSnellChannelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellAreaNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellAreaColumn) End Function _ Public Sub SetstrSnellAreaNull() Me(Me.tabledwdCustomer.strSnellAreaColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellcwsiregNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellcwsiregColumn) End Function _ Public Sub SetstrSnellcwsiregNull() Me(Me.tabledwdCustomer.strSnellcwsiregColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellrepnoNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellrepnoColumn) End Function _ Public Sub SetstrSnellrepnoNull() Me(Me.tabledwdCustomer.strSnellrepnoColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellsupergroupNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellsupergroupColumn) End Function _ Public Sub SetstrSnellsupergroupNull() Me(Me.tabledwdCustomer.strSnellsupergroupColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellsupergroupNameNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellsupergroupNameColumn) End Function _ Public Sub SetstrSnellsupergroupNameNull() Me(Me.tabledwdCustomer.strSnellsupergroupNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSnellgradingNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSnellgradingColumn) End Function _ Public Sub SetstrSnellgradingNull() Me(Me.tabledwdCustomer.strSnellgradingColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefRepIDNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.refRepIDColumn) End Function _ Public Sub SetrefRepIDNull() Me(Me.tabledwdCustomer.refRepIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefRepBBIDNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.refRepBBIDColumn) End Function _ Public Sub SetrefRepBBIDNull() Me(Me.tabledwdCustomer.refRepBBIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefRepDlxIDNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.refRepDlxIDColumn) End Function _ Public Sub SetrefRepDlxIDNull() Me(Me.tabledwdCustomer.refRepDlxIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefRepLuxIDNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.refRepLuxIDColumn) End Function _ Public Sub SetrefRepLuxIDNull() Me(Me.tabledwdCustomer.refRepLuxIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRepNameNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRepNameColumn) End Function _ Public Sub SetstrRepNameNull() Me(Me.tabledwdCustomer.strRepNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRepNameBBNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRepNameBBColumn) End Function _ Public Sub SetstrRepNameBBNull() Me(Me.tabledwdCustomer.strRepNameBBColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRepNameDlxNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRepNameDlxColumn) End Function _ Public Sub SetstrRepNameDlxNull() Me(Me.tabledwdCustomer.strRepNameDlxColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRepNameLuxNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRepNameLuxColumn) End Function _ Public Sub SetstrRepNameLuxNull() Me(Me.tabledwdCustomer.strRepNameLuxColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrChannelPrimaryNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strChannelPrimaryColumn) End Function _ Public Sub SetstrChannelPrimaryNull() Me(Me.tabledwdCustomer.strChannelPrimaryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrChannelSecondaryNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strChannelSecondaryColumn) End Function _ Public Sub SetstrChannelSecondaryNull() Me(Me.tabledwdCustomer.strChannelSecondaryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSegmentPrimaryNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSegmentPrimaryColumn) End Function _ Public Sub SetstrSegmentPrimaryNull() Me(Me.tabledwdCustomer.strSegmentPrimaryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSegmentSecondaryNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSegmentSecondaryColumn) End Function _ Public Sub SetstrSegmentSecondaryNull() Me(Me.tabledwdCustomer.strSegmentSecondaryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrType1Null() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strType1Column) End Function _ Public Sub SetstrType1Null() Me(Me.tabledwdCustomer.strType1Column) = Global.System.Convert.DBNull End Sub _ Public Function IsstrType2Null() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strType2Column) End Function _ Public Sub SetstrType2Null() Me(Me.tabledwdCustomer.strType2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsstrGroupNameNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strGroupNameColumn) End Function _ Public Sub SetstrGroupNameNull() Me(Me.tabledwdCustomer.strGroupNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrKeyAccountNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strKeyAccountColumn) End Function _ Public Sub SetstrKeyAccountNull() Me(Me.tabledwdCustomer.strKeyAccountColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrPriceGroupCodeNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strPriceGroupCodeColumn) End Function _ Public Sub SetstrPriceGroupCodeNull() Me(Me.tabledwdCustomer.strPriceGroupCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsblnPromotionalAccountsNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.blnPromotionalAccountsColumn) End Function _ Public Sub SetblnPromotionalAccountsNull() Me(Me.tabledwdCustomer.blnPromotionalAccountsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsblnActiveNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.blnActiveColumn) End Function _ Public Sub SetblnActiveNull() Me(Me.tabledwdCustomer.blnActiveColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrCodeNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strCodeColumn) End Function _ Public Sub SetstrCodeNull() Me(Me.tabledwdCustomer.strCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrBranchNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strBranchColumn) End Function _ Public Sub SetstrBranchNull() Me(Me.tabledwdCustomer.strBranchColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSalesOfficeNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSalesOfficeColumn) End Function _ Public Sub SetstrSalesOfficeNull() Me(Me.tabledwdCustomer.strSalesOfficeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRegionNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRegionColumn) End Function _ Public Sub SetstrRegionNull() Me(Me.tabledwdCustomer.strRegionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSAPCodeNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSAPCodeColumn) End Function _ Public Sub SetstrSAPCodeNull() Me(Me.tabledwdCustomer.strSAPCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRegionCodeNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRegionCodeColumn) End Function _ Public Sub SetstrRegionCodeNull() Me(Me.tabledwdCustomer.strRegionCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRegionDescNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRegionDescColumn) End Function _ Public Sub SetstrRegionDescNull() Me(Me.tabledwdCustomer.strRegionDescColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRegionAccpacCodeNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRegionAccpacCodeColumn) End Function _ Public Sub SetstrRegionAccpacCodeNull() Me(Me.tabledwdCustomer.strRegionAccpacCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRegionDesc2Null() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRegionDesc2Column) End Function _ Public Sub SetstrRegionDesc2Null() Me(Me.tabledwdCustomer.strRegionDesc2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsstrChannelNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strChannelColumn) End Function _ Public Sub SetstrChannelNull() Me(Me.tabledwdCustomer.strChannelColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrSegmentNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strSegmentColumn) End Function _ Public Sub SetstrSegmentNull() Me(Me.tabledwdCustomer.strSegmentColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrCountryNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strCountryColumn) End Function _ Public Sub SetstrCountryNull() Me(Me.tabledwdCustomer.strCountryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrRegionOrderNull() As Boolean Return Me.IsNull(Me.tabledwdCustomer.strRegionOrderColumn) End Function _ Public Sub SetstrRegionOrderNull() Me(Me.tabledwdCustomer.strRegionOrderColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class fsrItemRow Inherits Global.System.Data.DataRow Private tablefsrItem As fsrItemDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablefsrItem = CType(Me.Table,fsrItemDataTable) End Sub _ Public Property ItemID() As Integer Get Return CType(Me(Me.tablefsrItem.ItemIDColumn),Integer) End Get Set Me(Me.tablefsrItem.ItemIDColumn) = value End Set End Property _ Public Property refRequisitionID() As Integer Get Return CType(Me(Me.tablefsrItem.refRequisitionIDColumn),Integer) End Get Set Me(Me.tablefsrItem.refRequisitionIDColumn) = value End Set End Property _ Public Property refBrandID() As Integer Get Return CType(Me(Me.tablefsrItem.refBrandIDColumn),Integer) End Get Set Me(Me.tablefsrItem.refBrandIDColumn) = value End Set End Property _ Public Property strProdCode() As String Get Return CType(Me(Me.tablefsrItem.strProdCodeColumn),String) End Get Set Me(Me.tablefsrItem.strProdCodeColumn) = value End Set End Property _ Public Property intQuantity() As Integer Get Return CType(Me(Me.tablefsrItem.intQuantityColumn),Integer) End Get Set Me(Me.tablefsrItem.intQuantityColumn) = value End Set End Property _ Public Property dblCost() As Double Get Return CType(Me(Me.tablefsrItem.dblCostColumn),Double) End Get Set Me(Me.tablefsrItem.dblCostColumn) = value End Set End Property _ Public Property dblTotal() As Double Get Return CType(Me(Me.tablefsrItem.dblTotalColumn),Double) End Get Set Me(Me.tablefsrItem.dblTotalColumn) = value End Set End Property End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class fsrRequisitionRow Inherits Global.System.Data.DataRow Private tablefsrRequisition As fsrRequisitionDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablefsrRequisition = CType(Me.Table,fsrRequisitionDataTable) End Sub _ Public Property RequisitionID() As Integer Get Return CType(Me(Me.tablefsrRequisition.RequisitionIDColumn),Integer) End Get Set Me(Me.tablefsrRequisition.RequisitionIDColumn) = value End Set End Property _ Public Property refUserID() As Integer Get Return CType(Me(Me.tablefsrRequisition.refUserIDColumn),Integer) End Get Set Me(Me.tablefsrRequisition.refUserIDColumn) = value End Set End Property _ Public Property refRequestTypeID() As Integer Get Return CType(Me(Me.tablefsrRequisition.refRequestTypeIDColumn),Integer) End Get Set Me(Me.tablefsrRequisition.refRequestTypeIDColumn) = value End Set End Property _ Public Property refManagerID() As Integer Get Return CType(Me(Me.tablefsrRequisition.refManagerIDColumn),Integer) End Get Set Me(Me.tablefsrRequisition.refManagerIDColumn) = value End Set End Property _ Public Property refAlternateManagerID() As Integer Get Return CType(Me(Me.tablefsrRequisition.refAlternateManagerIDColumn),Integer) End Get Set Me(Me.tablefsrRequisition.refAlternateManagerIDColumn) = value End Set End Property _ Public Property refExecutiveManagerID() As Integer Get Return CType(Me(Me.tablefsrRequisition.refExecutiveManagerIDColumn),Integer) End Get Set Me(Me.tablefsrRequisition.refExecutiveManagerIDColumn) = value End Set End Property _ Public Property dtDate() As Date Get Return CType(Me(Me.tablefsrRequisition.dtDateColumn),Date) End Get Set Me(Me.tablefsrRequisition.dtDateColumn) = value End Set End Property _ Public Property strRegion() As String Get Try Return CType(Me(Me.tablefsrRequisition.strRegionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strRegion' in table 'fsrRequisition' is DBNull.", e) End Try End Get Set Me(Me.tablefsrRequisition.strRegionColumn) = value End Set End Property _ Public Property strExpense() As String Get Try Return CType(Me(Me.tablefsrRequisition.strExpenseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strExpense' in table 'fsrRequisition' is DBNull.", e) End Try End Get Set Me(Me.tablefsrRequisition.strExpenseColumn) = value End Set End Property _ Public Property strBillToAccount() As String Get Return CType(Me(Me.tablefsrRequisition.strBillToAccountColumn),String) End Get Set Me(Me.tablefsrRequisition.strBillToAccountColumn) = value End Set End Property _ Public Property strShipToAccount() As String Get Return CType(Me(Me.tablefsrRequisition.strShipToAccountColumn),String) End Get Set Me(Me.tablefsrRequisition.strShipToAccountColumn) = value End Set End Property _ Public Property txtRequestDetail() As String Get Try Return CType(Me(Me.tablefsrRequisition.txtRequestDetailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'txtRequestDetail' in table 'fsrRequisition' is DBNull.", e) End Try End Get Set Me(Me.tablefsrRequisition.txtRequestDetailColumn) = value End Set End Property _ Public Property strContactPerson() As String Get Try Return CType(Me(Me.tablefsrRequisition.strContactPersonColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strContactPerson' in table 'fsrRequisition' is DBNull.", e) End Try End Get Set Me(Me.tablefsrRequisition.strContactPersonColumn) = value End Set End Property _ Public Property strContactNumber() As String Get Return CType(Me(Me.tablefsrRequisition.strContactNumberColumn),String) End Get Set Me(Me.tablefsrRequisition.strContactNumberColumn) = value End Set End Property _ Public Property blnDelivery() As Boolean Get Return CType(Me(Me.tablefsrRequisition.blnDeliveryColumn),Boolean) End Get Set Me(Me.tablefsrRequisition.blnDeliveryColumn) = value End Set End Property _ Public Property dtDelivereyDate() As Date Get Return CType(Me(Me.tablefsrRequisition.dtDelivereyDateColumn),Date) End Get Set Me(Me.tablefsrRequisition.dtDelivereyDateColumn) = value End Set End Property _ Public Property txtPhysicalAddress() As String Get Try Return CType(Me(Me.tablefsrRequisition.txtPhysicalAddressColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'txtPhysicalAddress' in table 'fsrRequisition' is DBNull.", e) End Try End Get Set Me(Me.tablefsrRequisition.txtPhysicalAddressColumn) = value End Set End Property _ Public Property strStatus() As String Get Return CType(Me(Me.tablefsrRequisition.strStatusColumn),String) End Get Set Me(Me.tablefsrRequisition.strStatusColumn) = value End Set End Property _ Public Property strInvoiceNumber() As String Get Return CType(Me(Me.tablefsrRequisition.strInvoiceNumberColumn),String) End Get Set Me(Me.tablefsrRequisition.strInvoiceNumberColumn) = value End Set End Property _ Public Property strAuthorizedBy() As String Get Return CType(Me(Me.tablefsrRequisition.strAuthorizedByColumn),String) End Get Set Me(Me.tablefsrRequisition.strAuthorizedByColumn) = value End Set End Property _ Public Property dtLastEdit() As Date Get Return CType(Me(Me.tablefsrRequisition.dtLastEditColumn),Date) End Get Set Me(Me.tablefsrRequisition.dtLastEditColumn) = value End Set End Property _ Public Function IsstrRegionNull() As Boolean Return Me.IsNull(Me.tablefsrRequisition.strRegionColumn) End Function _ Public Sub SetstrRegionNull() Me(Me.tablefsrRequisition.strRegionColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrExpenseNull() As Boolean Return Me.IsNull(Me.tablefsrRequisition.strExpenseColumn) End Function _ Public Sub SetstrExpenseNull() Me(Me.tablefsrRequisition.strExpenseColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstxtRequestDetailNull() As Boolean Return Me.IsNull(Me.tablefsrRequisition.txtRequestDetailColumn) End Function _ Public Sub SettxtRequestDetailNull() Me(Me.tablefsrRequisition.txtRequestDetailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrContactPersonNull() As Boolean Return Me.IsNull(Me.tablefsrRequisition.strContactPersonColumn) End Function _ Public Sub SetstrContactPersonNull() Me(Me.tablefsrRequisition.strContactPersonColumn) = Global.System.Convert.DBNull End Sub _ Public Function IstxtPhysicalAddressNull() As Boolean Return Me.IsNull(Me.tablefsrRequisition.txtPhysicalAddressColumn) End Function _ Public Sub SettxtPhysicalAddressNull() Me(Me.tablefsrRequisition.txtPhysicalAddressColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class mstBrandRow Inherits Global.System.Data.DataRow Private tablemstBrand As mstBrandDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablemstBrand = CType(Me.Table,mstBrandDataTable) End Sub _ Public Property BrandID() As Integer Get Return CType(Me(Me.tablemstBrand.BrandIDColumn),Integer) End Get Set Me(Me.tablemstBrand.BrandIDColumn) = value End Set End Property _ Public Property refPrincipalID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refPrincipalIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refPrincipalID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refPrincipalIDColumn) = value End Set End Property _ Public Property refCompanyID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refCompanyIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refCompanyID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refCompanyIDColumn) = value End Set End Property _ Public Property refBrandManagerID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refBrandManagerIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refBrandManagerID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refBrandManagerIDColumn) = value End Set End Property _ Public Property refBrandManager2ID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refBrandManager2IDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refBrandManager2ID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refBrandManager2IDColumn) = value End Set End Property _ Public Property refGroupingDailyID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refGroupingDailyIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refGroupingDailyID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refGroupingDailyIDColumn) = value End Set End Property _ Public Property refGroupingPrimaryID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refGroupingPrimaryIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refGroupingPrimaryID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refGroupingPrimaryIDColumn) = value End Set End Property _ Public Property refGroupingSecondaryID() As Integer Get Try Return CType(Me(Me.tablemstBrand.refGroupingSecondaryIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refGroupingSecondaryID' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.refGroupingSecondaryIDColumn) = value End Set End Property _ Public Property strAccpacCode() As String Get Try Return CType(Me(Me.tablemstBrand.strAccpacCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strAccpacCode' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.strAccpacCodeColumn) = value End Set End Property _ Public Property strBrand() As String Get Try Return CType(Me(Me.tablemstBrand.strBrandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strBrand' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.strBrandColumn) = value End Set End Property _ Public Property strGroupCode() As String Get Try Return CType(Me(Me.tablemstBrand.strGroupCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strGroupCode' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.strGroupCodeColumn) = value End Set End Property _ Public Property strGroupAccounts() As String Get Try Return CType(Me(Me.tablemstBrand.strGroupAccountsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strGroupAccounts' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.strGroupAccountsColumn) = value End Set End Property _ Public Property brand2() As String Get Try Return CType(Me(Me.tablemstBrand.brand2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'brand2' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.brand2Column) = value End Set End Property _ Public Property brandrebate() As String Get Try Return CType(Me(Me.tablemstBrand.brandrebateColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'brandrebate' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.brandrebateColumn) = value End Set End Property _ Public Property brandToolkit() As String Get Try Return CType(Me(Me.tablemstBrand.brandToolkitColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'brandToolkit' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.brandToolkitColumn) = value End Set End Property _ Public Property intLeadMonths() As Integer Get Try Return CType(Me(Me.tablemstBrand.intLeadMonthsColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'intLeadMonths' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.intLeadMonthsColumn) = value End Set End Property _ Public Property intMonthsCover() As Integer Get Try Return CType(Me(Me.tablemstBrand.intMonthsCoverColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'intMonthsCover' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.intMonthsCoverColumn) = value End Set End Property _ Public Property dblVariance() As Double Get Try Return CType(Me(Me.tablemstBrand.dblVarianceColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'dblVariance' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.dblVarianceColumn) = value End Set End Property _ Public Property blnActive() As Boolean Get Try Return CType(Me(Me.tablemstBrand.blnActiveColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'blnActive' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.blnActiveColumn) = value End Set End Property _ Public Property strLastUser() As String Get Try Return CType(Me(Me.tablemstBrand.strLastUserColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strLastUser' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.strLastUserColumn) = value End Set End Property _ Public Property dtStamp() As String Get Try Return CType(Me(Me.tablemstBrand.dtStampColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'dtStamp' in table 'mstBrand' is DBNull.", e) End Try End Get Set Me(Me.tablemstBrand.dtStampColumn) = value End Set End Property _ Public Property percBrandGrowth() As Double Get Return CType(Me(Me.tablemstBrand.percBrandGrowthColumn),Double) End Get Set Me(Me.tablemstBrand.percBrandGrowthColumn) = value End Set End Property _ Public Function IsrefPrincipalIDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refPrincipalIDColumn) End Function _ Public Sub SetrefPrincipalIDNull() Me(Me.tablemstBrand.refPrincipalIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefCompanyIDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refCompanyIDColumn) End Function _ Public Sub SetrefCompanyIDNull() Me(Me.tablemstBrand.refCompanyIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefBrandManagerIDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refBrandManagerIDColumn) End Function _ Public Sub SetrefBrandManagerIDNull() Me(Me.tablemstBrand.refBrandManagerIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefBrandManager2IDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refBrandManager2IDColumn) End Function _ Public Sub SetrefBrandManager2IDNull() Me(Me.tablemstBrand.refBrandManager2IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefGroupingDailyIDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refGroupingDailyIDColumn) End Function _ Public Sub SetrefGroupingDailyIDNull() Me(Me.tablemstBrand.refGroupingDailyIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefGroupingPrimaryIDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refGroupingPrimaryIDColumn) End Function _ Public Sub SetrefGroupingPrimaryIDNull() Me(Me.tablemstBrand.refGroupingPrimaryIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefGroupingSecondaryIDNull() As Boolean Return Me.IsNull(Me.tablemstBrand.refGroupingSecondaryIDColumn) End Function _ Public Sub SetrefGroupingSecondaryIDNull() Me(Me.tablemstBrand.refGroupingSecondaryIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrAccpacCodeNull() As Boolean Return Me.IsNull(Me.tablemstBrand.strAccpacCodeColumn) End Function _ Public Sub SetstrAccpacCodeNull() Me(Me.tablemstBrand.strAccpacCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrBrandNull() As Boolean Return Me.IsNull(Me.tablemstBrand.strBrandColumn) End Function _ Public Sub SetstrBrandNull() Me(Me.tablemstBrand.strBrandColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrGroupCodeNull() As Boolean Return Me.IsNull(Me.tablemstBrand.strGroupCodeColumn) End Function _ Public Sub SetstrGroupCodeNull() Me(Me.tablemstBrand.strGroupCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrGroupAccountsNull() As Boolean Return Me.IsNull(Me.tablemstBrand.strGroupAccountsColumn) End Function _ Public Sub SetstrGroupAccountsNull() Me(Me.tablemstBrand.strGroupAccountsColumn) = Global.System.Convert.DBNull End Sub _ Public Function Isbrand2Null() As Boolean Return Me.IsNull(Me.tablemstBrand.brand2Column) End Function _ Public Sub Setbrand2Null() Me(Me.tablemstBrand.brand2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsbrandrebateNull() As Boolean Return Me.IsNull(Me.tablemstBrand.brandrebateColumn) End Function _ Public Sub SetbrandrebateNull() Me(Me.tablemstBrand.brandrebateColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsbrandToolkitNull() As Boolean Return Me.IsNull(Me.tablemstBrand.brandToolkitColumn) End Function _ Public Sub SetbrandToolkitNull() Me(Me.tablemstBrand.brandToolkitColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsintLeadMonthsNull() As Boolean Return Me.IsNull(Me.tablemstBrand.intLeadMonthsColumn) End Function _ Public Sub SetintLeadMonthsNull() Me(Me.tablemstBrand.intLeadMonthsColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsintMonthsCoverNull() As Boolean Return Me.IsNull(Me.tablemstBrand.intMonthsCoverColumn) End Function _ Public Sub SetintMonthsCoverNull() Me(Me.tablemstBrand.intMonthsCoverColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdblVarianceNull() As Boolean Return Me.IsNull(Me.tablemstBrand.dblVarianceColumn) End Function _ Public Sub SetdblVarianceNull() Me(Me.tablemstBrand.dblVarianceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsblnActiveNull() As Boolean Return Me.IsNull(Me.tablemstBrand.blnActiveColumn) End Function _ Public Sub SetblnActiveNull() Me(Me.tablemstBrand.blnActiveColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrLastUserNull() As Boolean Return Me.IsNull(Me.tablemstBrand.strLastUserColumn) End Function _ Public Sub SetstrLastUserNull() Me(Me.tablemstBrand.strLastUserColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdtStampNull() As Boolean Return Me.IsNull(Me.tablemstBrand.dtStampColumn) End Function _ Public Sub SetdtStampNull() Me(Me.tablemstBrand.dtStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class mstProductRow Inherits Global.System.Data.DataRow Private tablemstProduct As mstProductDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablemstProduct = CType(Me.Table,mstProductDataTable) End Sub _ Public Property strProdCode() As String Get Return CType(Me(Me.tablemstProduct.strProdCodeColumn),String) End Get Set Me(Me.tablemstProduct.strProdCodeColumn) = value End Set End Property _ Public Property refBrandID() As Integer Get Try Return CType(Me(Me.tablemstProduct.refBrandIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refBrandID' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.refBrandIDColumn) = value End Set End Property _ Public Property strProductDesc() As String Get Try Return CType(Me(Me.tablemstProduct.strProductDescColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strProductDesc' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strProductDescColumn) = value End Set End Property _ Public Property intPack() As Integer Get Try Return CType(Me(Me.tablemstProduct.intPackColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'intPack' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.intPackColumn) = value End Set End Property _ Public Property intSize() As Integer Get Try Return CType(Me(Me.tablemstProduct.intSizeColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'intSize' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.intSizeColumn) = value End Set End Property _ Public Property dblPrice() As Double Get Try Return CType(Me(Me.tablemstProduct.dblPriceColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'dblPrice' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.dblPriceColumn) = value End Set End Property _ Public Property strLongProdDesc() As String Get Try Return CType(Me(Me.tablemstProduct.strLongProdDescColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strLongProdDesc' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strLongProdDescColumn) = value End Set End Property _ Public Property strType() As String Get Try Return CType(Me(Me.tablemstProduct.strTypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strType' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strTypeColumn) = value End Set End Property _ Public Property strType2() As String Get Try Return CType(Me(Me.tablemstProduct.strType2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strType2' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strType2Column) = value End Set End Property _ Public Property intShortCode() As String Get Try Return CType(Me(Me.tablemstProduct.intShortCodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'intShortCode' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.intShortCodeColumn) = value End Set End Property _ Public Property strPriceSeg() As String Get Try Return CType(Me(Me.tablemstProduct.strPriceSegColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strPriceSeg' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strPriceSegColumn) = value End Set End Property _ Public Property strCategory() As String Get Try Return CType(Me(Me.tablemstProduct.strCategoryColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strCategory' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strCategoryColumn) = value End Set End Property _ Public Property strCategory2() As String Get Try Return CType(Me(Me.tablemstProduct.strCategory2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strCategory2' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strCategory2Column) = value End Set End Property _ Public Property blnActive() As Boolean Get Try Return CType(Me(Me.tablemstProduct.blnActiveColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'blnActive' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.blnActiveColumn) = value End Set End Property _ Public Property dblFlat() As Double Get Try Return CType(Me(Me.tablemstProduct.dblFlatColumn),Double) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'dblFlat' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.dblFlatColumn) = value End Set End Property _ Public Property cwsicat() As String Get Try Return CType(Me(Me.tablemstProduct.cwsicatColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'cwsicat' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.cwsicatColumn) = value End Set End Property _ Public Property strPrincipalMaterialRefNum() As String Get Try Return CType(Me(Me.tablemstProduct.strPrincipalMaterialRefNumColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strPrincipalMaterialRefNum' in table 'mstProduct' is DBNull"& _ ".", e) End Try End Get Set Me(Me.tablemstProduct.strPrincipalMaterialRefNumColumn) = value End Set End Property _ Public Property strPrincipalProdDesc() As String Get Try Return CType(Me(Me.tablemstProduct.strPrincipalProdDescColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strPrincipalProdDesc' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strPrincipalProdDescColumn) = value End Set End Property _ Public Property strBottleBarcode() As String Get Try Return CType(Me(Me.tablemstProduct.strBottleBarcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strBottleBarcode' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strBottleBarcodeColumn) = value End Set End Property _ Public Property strCaseBarcode() As String Get Try Return CType(Me(Me.tablemstProduct.strCaseBarcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strCaseBarcode' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strCaseBarcodeColumn) = value End Set End Property _ Public Property strGiftboxBarcode() As String Get Try Return CType(Me(Me.tablemstProduct.strGiftboxBarcodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strGiftboxBarcode' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strGiftboxBarcodeColumn) = value End Set End Property _ Public Property intDisplayOrder() As Integer Get Try Return CType(Me(Me.tablemstProduct.intDisplayOrderColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'intDisplayOrder' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.intDisplayOrderColumn) = value End Set End Property _ Public Property strBrandVarietal() As String Get Try Return CType(Me(Me.tablemstProduct.strBrandVarietalColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strBrandVarietal' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strBrandVarietalColumn) = value End Set End Property _ Public Property dtStamp() As String Get Try Return CType(Me(Me.tablemstProduct.dtStampColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'dtStamp' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.dtStampColumn) = value End Set End Property _ Public Property strLastUser() As String Get Try Return CType(Me(Me.tablemstProduct.strLastUserColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strLastUser' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strLastUserColumn) = value End Set End Property _ Public Property strProdCodeArchive() As String Get Try Return CType(Me(Me.tablemstProduct.strProdCodeArchiveColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strProdCodeArchive' in table 'mstProduct' is DBNull.", e) End Try End Get Set Me(Me.tablemstProduct.strProdCodeArchiveColumn) = value End Set End Property _ Public Property blnQF() As Boolean Get Return CType(Me(Me.tablemstProduct.blnQFColumn),Boolean) End Get Set Me(Me.tablemstProduct.blnQFColumn) = value End Set End Property _ Public Function IsrefBrandIDNull() As Boolean Return Me.IsNull(Me.tablemstProduct.refBrandIDColumn) End Function _ Public Sub SetrefBrandIDNull() Me(Me.tablemstProduct.refBrandIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrProductDescNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strProductDescColumn) End Function _ Public Sub SetstrProductDescNull() Me(Me.tablemstProduct.strProductDescColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsintPackNull() As Boolean Return Me.IsNull(Me.tablemstProduct.intPackColumn) End Function _ Public Sub SetintPackNull() Me(Me.tablemstProduct.intPackColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsintSizeNull() As Boolean Return Me.IsNull(Me.tablemstProduct.intSizeColumn) End Function _ Public Sub SetintSizeNull() Me(Me.tablemstProduct.intSizeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdblPriceNull() As Boolean Return Me.IsNull(Me.tablemstProduct.dblPriceColumn) End Function _ Public Sub SetdblPriceNull() Me(Me.tablemstProduct.dblPriceColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrLongProdDescNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strLongProdDescColumn) End Function _ Public Sub SetstrLongProdDescNull() Me(Me.tablemstProduct.strLongProdDescColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrTypeNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strTypeColumn) End Function _ Public Sub SetstrTypeNull() Me(Me.tablemstProduct.strTypeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrType2Null() As Boolean Return Me.IsNull(Me.tablemstProduct.strType2Column) End Function _ Public Sub SetstrType2Null() Me(Me.tablemstProduct.strType2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsintShortCodeNull() As Boolean Return Me.IsNull(Me.tablemstProduct.intShortCodeColumn) End Function _ Public Sub SetintShortCodeNull() Me(Me.tablemstProduct.intShortCodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrPriceSegNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strPriceSegColumn) End Function _ Public Sub SetstrPriceSegNull() Me(Me.tablemstProduct.strPriceSegColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrCategoryNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strCategoryColumn) End Function _ Public Sub SetstrCategoryNull() Me(Me.tablemstProduct.strCategoryColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrCategory2Null() As Boolean Return Me.IsNull(Me.tablemstProduct.strCategory2Column) End Function _ Public Sub SetstrCategory2Null() Me(Me.tablemstProduct.strCategory2Column) = Global.System.Convert.DBNull End Sub _ Public Function IsblnActiveNull() As Boolean Return Me.IsNull(Me.tablemstProduct.blnActiveColumn) End Function _ Public Sub SetblnActiveNull() Me(Me.tablemstProduct.blnActiveColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdblFlatNull() As Boolean Return Me.IsNull(Me.tablemstProduct.dblFlatColumn) End Function _ Public Sub SetdblFlatNull() Me(Me.tablemstProduct.dblFlatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IscwsicatNull() As Boolean Return Me.IsNull(Me.tablemstProduct.cwsicatColumn) End Function _ Public Sub SetcwsicatNull() Me(Me.tablemstProduct.cwsicatColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrPrincipalMaterialRefNumNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strPrincipalMaterialRefNumColumn) End Function _ Public Sub SetstrPrincipalMaterialRefNumNull() Me(Me.tablemstProduct.strPrincipalMaterialRefNumColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrPrincipalProdDescNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strPrincipalProdDescColumn) End Function _ Public Sub SetstrPrincipalProdDescNull() Me(Me.tablemstProduct.strPrincipalProdDescColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrBottleBarcodeNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strBottleBarcodeColumn) End Function _ Public Sub SetstrBottleBarcodeNull() Me(Me.tablemstProduct.strBottleBarcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrCaseBarcodeNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strCaseBarcodeColumn) End Function _ Public Sub SetstrCaseBarcodeNull() Me(Me.tablemstProduct.strCaseBarcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrGiftboxBarcodeNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strGiftboxBarcodeColumn) End Function _ Public Sub SetstrGiftboxBarcodeNull() Me(Me.tablemstProduct.strGiftboxBarcodeColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsintDisplayOrderNull() As Boolean Return Me.IsNull(Me.tablemstProduct.intDisplayOrderColumn) End Function _ Public Sub SetintDisplayOrderNull() Me(Me.tablemstProduct.intDisplayOrderColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrBrandVarietalNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strBrandVarietalColumn) End Function _ Public Sub SetstrBrandVarietalNull() Me(Me.tablemstProduct.strBrandVarietalColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdtStampNull() As Boolean Return Me.IsNull(Me.tablemstProduct.dtStampColumn) End Function _ Public Sub SetdtStampNull() Me(Me.tablemstProduct.dtStampColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrLastUserNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strLastUserColumn) End Function _ Public Sub SetstrLastUserNull() Me(Me.tablemstProduct.strLastUserColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrProdCodeArchiveNull() As Boolean Return Me.IsNull(Me.tablemstProduct.strProdCodeArchiveColumn) End Function _ Public Sub SetstrProdCodeArchiveNull() Me(Me.tablemstProduct.strProdCodeArchiveColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class mstUserRow Inherits Global.System.Data.DataRow Private tablemstUser As mstUserDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tablemstUser = CType(Me.Table,mstUserDataTable) End Sub _ Public Property UserID() As Integer Get Return CType(Me(Me.tablemstUser.UserIDColumn),Integer) End Get Set Me(Me.tablemstUser.UserIDColumn) = value End Set End Property _ Public Property refUserGroupID() As Integer Get Try Return CType(Me(Me.tablemstUser.refUserGroupIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refUserGroupID' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.refUserGroupIDColumn) = value End Set End Property _ Public Property refUserGroupSuperbowlID() As Integer Get Try Return CType(Me(Me.tablemstUser.refUserGroupSuperbowlIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refUserGroupSuperbowlID' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.refUserGroupSuperbowlIDColumn) = value End Set End Property _ Public Property refUserGroupForecastID() As Integer Get Try Return CType(Me(Me.tablemstUser.refUserGroupForecastIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refUserGroupForecastID' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.refUserGroupForecastIDColumn) = value End Set End Property _ Public Property refUserGroupPromotionID() As Integer Get Try Return CType(Me(Me.tablemstUser.refUserGroupPromotionIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refUserGroupPromotionID' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.refUserGroupPromotionIDColumn) = value End Set End Property _ Public Property refUserGroupScoreCardID() As Integer Get Try Return CType(Me(Me.tablemstUser.refUserGroupScoreCardIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refUserGroupScoreCardID' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.refUserGroupScoreCardIDColumn) = value End Set End Property _ Public Property refUserGroupFreeStockID() As Integer Get Try Return CType(Me(Me.tablemstUser.refUserGroupFreeStockIDColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'refUserGroupFreeStockID' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.refUserGroupFreeStockIDColumn) = value End Set End Property _ Public Property refManagerID() As Integer Get Return CType(Me(Me.tablemstUser.refManagerIDColumn),Integer) End Get Set Me(Me.tablemstUser.refManagerIDColumn) = value End Set End Property _ Public Property refManagerAlternativeID() As Integer Get Return CType(Me(Me.tablemstUser.refManagerAlternativeIDColumn),Integer) End Get Set Me(Me.tablemstUser.refManagerAlternativeIDColumn) = value End Set End Property _ Public Property refManagerExecutiveID() As Integer Get Return CType(Me(Me.tablemstUser.refManagerExecutiveIDColumn),Integer) End Get Set Me(Me.tablemstUser.refManagerExecutiveIDColumn) = value End Set End Property _ Public Property strUserName() As String Get Try Return CType(Me(Me.tablemstUser.strUserNameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strUserName' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.strUserNameColumn) = value End Set End Property _ Public Property strPassword() As String Get Try Return CType(Me(Me.tablemstUser.strPasswordColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strPassword' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.strPasswordColumn) = value End Set End Property _ Public Property strDomainLogin() As String Get Try Return CType(Me(Me.tablemstUser.strDomainLoginColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strDomainLogin' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.strDomainLoginColumn) = value End Set End Property _ Public Property strEmail() As String Get Try Return CType(Me(Me.tablemstUser.strEmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strEmail' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.strEmailColumn) = value End Set End Property _ Public Property strRegion() As String Get Return CType(Me(Me.tablemstUser.strRegionColumn),String) End Get Set Me(Me.tablemstUser.strRegionColumn) = value End Set End Property _ Public Property blnManager() As Boolean Get Return CType(Me(Me.tablemstUser.blnManagerColumn),Boolean) End Get Set Me(Me.tablemstUser.blnManagerColumn) = value End Set End Property _ Public Property blnManagerExecutive() As Boolean Get Return CType(Me(Me.tablemstUser.blnManagerExecutiveColumn),Boolean) End Get Set Me(Me.tablemstUser.blnManagerExecutiveColumn) = value End Set End Property _ Public Property strLastUser() As String Get Try Return CType(Me(Me.tablemstUser.strLastUserColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'strLastUser' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.strLastUserColumn) = value End Set End Property _ Public Property dtStamp() As String Get Try Return CType(Me(Me.tablemstUser.dtStampColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'dtStamp' in table 'mstUser' is DBNull.", e) End Try End Get Set Me(Me.tablemstUser.dtStampColumn) = value End Set End Property _ Public Function IsrefUserGroupIDNull() As Boolean Return Me.IsNull(Me.tablemstUser.refUserGroupIDColumn) End Function _ Public Sub SetrefUserGroupIDNull() Me(Me.tablemstUser.refUserGroupIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefUserGroupSuperbowlIDNull() As Boolean Return Me.IsNull(Me.tablemstUser.refUserGroupSuperbowlIDColumn) End Function _ Public Sub SetrefUserGroupSuperbowlIDNull() Me(Me.tablemstUser.refUserGroupSuperbowlIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefUserGroupForecastIDNull() As Boolean Return Me.IsNull(Me.tablemstUser.refUserGroupForecastIDColumn) End Function _ Public Sub SetrefUserGroupForecastIDNull() Me(Me.tablemstUser.refUserGroupForecastIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefUserGroupPromotionIDNull() As Boolean Return Me.IsNull(Me.tablemstUser.refUserGroupPromotionIDColumn) End Function _ Public Sub SetrefUserGroupPromotionIDNull() Me(Me.tablemstUser.refUserGroupPromotionIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefUserGroupScoreCardIDNull() As Boolean Return Me.IsNull(Me.tablemstUser.refUserGroupScoreCardIDColumn) End Function _ Public Sub SetrefUserGroupScoreCardIDNull() Me(Me.tablemstUser.refUserGroupScoreCardIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsrefUserGroupFreeStockIDNull() As Boolean Return Me.IsNull(Me.tablemstUser.refUserGroupFreeStockIDColumn) End Function _ Public Sub SetrefUserGroupFreeStockIDNull() Me(Me.tablemstUser.refUserGroupFreeStockIDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrUserNameNull() As Boolean Return Me.IsNull(Me.tablemstUser.strUserNameColumn) End Function _ Public Sub SetstrUserNameNull() Me(Me.tablemstUser.strUserNameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrPasswordNull() As Boolean Return Me.IsNull(Me.tablemstUser.strPasswordColumn) End Function _ Public Sub SetstrPasswordNull() Me(Me.tablemstUser.strPasswordColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrDomainLoginNull() As Boolean Return Me.IsNull(Me.tablemstUser.strDomainLoginColumn) End Function _ Public Sub SetstrDomainLoginNull() Me(Me.tablemstUser.strDomainLoginColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrEmailNull() As Boolean Return Me.IsNull(Me.tablemstUser.strEmailColumn) End Function _ Public Sub SetstrEmailNull() Me(Me.tablemstUser.strEmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsstrLastUserNull() As Boolean Return Me.IsNull(Me.tablemstUser.strLastUserColumn) End Function _ Public Sub SetstrLastUserNull() Me(Me.tablemstUser.strLastUserColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsdtStampNull() As Boolean Return Me.IsNull(Me.tablemstUser.dtStampColumn) End Function _ Public Sub SetdtStampNull() Me(Me.tablemstUser.dtStampColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class dwdCustomerRowChangeEvent Inherits Global.System.EventArgs Private eventRow As dwdCustomerRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As dwdCustomerRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As dwdCustomerRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class fsrItemRowChangeEvent Inherits Global.System.EventArgs Private eventRow As fsrItemRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As fsrItemRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As fsrItemRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class fsrRequisitionRowChangeEvent Inherits Global.System.EventArgs Private eventRow As fsrRequisitionRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As fsrRequisitionRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As fsrRequisitionRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class mstBrandRowChangeEvent Inherits Global.System.EventArgs Private eventRow As mstBrandRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As mstBrandRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As mstBrandRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class mstProductRowChangeEvent Inherits Global.System.EventArgs Private eventRow As mstProductRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As mstProductRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As mstProductRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class mstUserRowChangeEvent Inherits Global.System.EventArgs Private eventRow As mstUserRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As mstUserRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As mstUserRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace SuperbowlDataSetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class dwdCustomerTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "dwdCustomer" tableMapping.ColumnMappings.Add("strCustomerNo", "strCustomerNo") tableMapping.ColumnMappings.Add("strCustomerName", "strCustomerName") tableMapping.ColumnMappings.Add("strSnellChannel", "strSnellChannel") tableMapping.ColumnMappings.Add("strSnellArea", "strSnellArea") tableMapping.ColumnMappings.Add("strSnellcwsireg", "strSnellcwsireg") tableMapping.ColumnMappings.Add("strSnellrepno", "strSnellrepno") tableMapping.ColumnMappings.Add("strSnellsupergroup", "strSnellsupergroup") tableMapping.ColumnMappings.Add("strSnellsupergroupName", "strSnellsupergroupName") tableMapping.ColumnMappings.Add("strSnellgrading", "strSnellgrading") tableMapping.ColumnMappings.Add("refRepID", "refRepID") tableMapping.ColumnMappings.Add("refRepBBID", "refRepBBID") tableMapping.ColumnMappings.Add("refRepDlxID", "refRepDlxID") tableMapping.ColumnMappings.Add("refRepLuxID", "refRepLuxID") tableMapping.ColumnMappings.Add("strRepName", "strRepName") tableMapping.ColumnMappings.Add("strRepNameBB", "strRepNameBB") tableMapping.ColumnMappings.Add("strRepNameDlx", "strRepNameDlx") tableMapping.ColumnMappings.Add("strRepNameLux", "strRepNameLux") tableMapping.ColumnMappings.Add("strChannelPrimary", "strChannelPrimary") tableMapping.ColumnMappings.Add("strChannelSecondary", "strChannelSecondary") tableMapping.ColumnMappings.Add("strSegmentPrimary", "strSegmentPrimary") tableMapping.ColumnMappings.Add("strSegmentSecondary", "strSegmentSecondary") tableMapping.ColumnMappings.Add("strType1", "strType1") tableMapping.ColumnMappings.Add("strType2", "strType2") tableMapping.ColumnMappings.Add("strGroupName", "strGroupName") tableMapping.ColumnMappings.Add("strKeyAccount", "strKeyAccount") tableMapping.ColumnMappings.Add("strPriceGroupCode", "strPriceGroupCode") tableMapping.ColumnMappings.Add("blnPromotionalAccounts", "blnPromotionalAccounts") tableMapping.ColumnMappings.Add("blnActive", "blnActive") tableMapping.ColumnMappings.Add("strCode", "strCode") tableMapping.ColumnMappings.Add("strBranch", "strBranch") tableMapping.ColumnMappings.Add("strSalesOffice", "strSalesOffice") tableMapping.ColumnMappings.Add("strRegion", "strRegion") tableMapping.ColumnMappings.Add("strSAPCode", "strSAPCode") tableMapping.ColumnMappings.Add("strRegionCode", "strRegionCode") tableMapping.ColumnMappings.Add("strRegionDesc", "strRegionDesc") tableMapping.ColumnMappings.Add("strRegionAccpacCode", "strRegionAccpacCode") tableMapping.ColumnMappings.Add("strRegionDesc2", "strRegionDesc2") tableMapping.ColumnMappings.Add("strChannel", "strChannel") tableMapping.ColumnMappings.Add("strSegment", "strSegment") tableMapping.ColumnMappings.Add("strCountry", "strCountry") tableMapping.ColumnMappings.Add("strRegionOrder", "strRegionOrder") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[dwdCustomer] WHERE (([strCustomerNo] = @Original_strCustomerNo"& _ ") AND ((@IsNull_strCustomerName = 1 AND [strCustomerName] IS NULL) OR ([strCusto"& _ "merName] = @Original_strCustomerName)) AND ((@IsNull_strSnellChannel = 1 AND [st"& _ "rSnellChannel] IS NULL) OR ([strSnellChannel] = @Original_strSnellChannel)) AND "& _ "((@IsNull_strSnellArea = 1 AND [strSnellArea] IS NULL) OR ([strSnellArea] = @Ori"& _ "ginal_strSnellArea)) AND ((@IsNull_strSnellcwsireg = 1 AND [strSnellcwsireg] IS "& _ "NULL) OR ([strSnellcwsireg] = @Original_strSnellcwsireg)) AND ((@IsNull_strSnell"& _ "repno = 1 AND [strSnellrepno] IS NULL) OR ([strSnellrepno] = @Original_strSnellr"& _ "epno)) AND ((@IsNull_strSnellsupergroup = 1 AND [strSnellsupergroup] IS NULL) OR"& _ " ([strSnellsupergroup] = @Original_strSnellsupergroup)) AND ((@IsNull_strSnellsu"& _ "pergroupName = 1 AND [strSnellsupergroupName] IS NULL) OR ([strSnellsupergroupNa"& _ "me] = @Original_strSnellsupergroupName)) AND ((@IsNull_strSnellgrading = 1 AND ["& _ "strSnellgrading] IS NULL) OR ([strSnellgrading] = @Original_strSnellgrading)) AN"& _ "D ((@IsNull_refRepID = 1 AND [refRepID] IS NULL) OR ([refRepID] = @Original_refR"& _ "epID)) AND ((@IsNull_refRepBBID = 1 AND [refRepBBID] IS NULL) OR ([refRepBBID] ="& _ " @Original_refRepBBID)) AND ((@IsNull_refRepDlxID = 1 AND [refRepDlxID] IS NULL)"& _ " OR ([refRepDlxID] = @Original_refRepDlxID)) AND ((@IsNull_refRepLuxID = 1 AND ["& _ "refRepLuxID] IS NULL) OR ([refRepLuxID] = @Original_refRepLuxID)) AND ((@IsNull_"& _ "strRepName = 1 AND [strRepName] IS NULL) OR ([strRepName] = @Original_strRepName"& _ ")) AND ((@IsNull_strRepNameBB = 1 AND [strRepNameBB] IS NULL) OR ([strRepNameBB]"& _ " = @Original_strRepNameBB)) AND ((@IsNull_strRepNameDlx = 1 AND [strRepNameDlx] "& _ "IS NULL) OR ([strRepNameDlx] = @Original_strRepNameDlx)) AND ((@IsNull_strRepNam"& _ "eLux = 1 AND [strRepNameLux] IS NULL) OR ([strRepNameLux] = @Original_strRepName"& _ "Lux)) AND ((@IsNull_strChannelPrimary = 1 AND [strChannelPrimary] IS NULL) OR (["& _ "strChannelPrimary] = @Original_strChannelPrimary)) AND ((@IsNull_strChannelSecon"& _ "dary = 1 AND [strChannelSecondary] IS NULL) OR ([strChannelSecondary] = @Origina"& _ "l_strChannelSecondary)) AND ((@IsNull_strSegmentPrimary = 1 AND [strSegmentPrima"& _ "ry] IS NULL) OR ([strSegmentPrimary] = @Original_strSegmentPrimary)) AND ((@IsNu"& _ "ll_strSegmentSecondary = 1 AND [strSegmentSecondary] IS NULL) OR ([strSegmentSec"& _ "ondary] = @Original_strSegmentSecondary)) AND ((@IsNull_strType1 = 1 AND [strTyp"& _ "e1] IS NULL) OR ([strType1] = @Original_strType1)) AND ((@IsNull_strType2 = 1 AN"& _ "D [strType2] IS NULL) OR ([strType2] = @Original_strType2)) AND ((@IsNull_strGro"& _ "upName = 1 AND [strGroupName] IS NULL) OR ([strGroupName] = @Original_strGroupNa"& _ "me)) AND ((@IsNull_strKeyAccount = 1 AND [strKeyAccount] IS NULL) OR ([strKeyAcc"& _ "ount] = @Original_strKeyAccount)) AND ((@IsNull_strPriceGroupCode = 1 AND [strPr"& _ "iceGroupCode] IS NULL) OR ([strPriceGroupCode] = @Original_strPriceGroupCode)) A"& _ "ND ((@IsNull_blnPromotionalAccounts = 1 AND [blnPromotionalAccounts] IS NULL) OR"& _ " ([blnPromotionalAccounts] = @Original_blnPromotionalAccounts)) AND ((@IsNull_bl"& _ "nActive = 1 AND [blnActive] IS NULL) OR ([blnActive] = @Original_blnActive)) AND"& _ " ((@IsNull_strCode = 1 AND [strCode] IS NULL) OR ([strCode] = @Original_strCode)"& _ ") AND ((@IsNull_strBranch = 1 AND [strBranch] IS NULL) OR ([strBranch] = @Origin"& _ "al_strBranch)) AND ((@IsNull_strSalesOffice = 1 AND [strSalesOffice] IS NULL) OR"& _ " ([strSalesOffice] = @Original_strSalesOffice)) AND ((@IsNull_strRegion = 1 AND "& _ "[strRegion] IS NULL) OR ([strRegion] = @Original_strRegion)) AND ((@IsNull_strSA"& _ "PCode = 1 AND [strSAPCode] IS NULL) OR ([strSAPCode] = @Original_strSAPCode)) AN"& _ "D ((@IsNull_strRegionCode = 1 AND [strRegionCode] IS NULL) OR ([strRegionCode] ="& _ " @Original_strRegionCode)) AND ((@IsNull_strRegionDesc = 1 AND [strRegionDesc] I"& _ "S NULL) OR ([strRegionDesc] = @Original_strRegionDesc)) AND ((@IsNull_strRegionA"& _ "ccpacCode = 1 AND [strRegionAccpacCode] IS NULL) OR ([strRegionAccpacCode] = @Or"& _ "iginal_strRegionAccpacCode)) AND ((@IsNull_strRegionDesc2 = 1 AND [strRegionDesc"& _ "2] IS NULL) OR ([strRegionDesc2] = @Original_strRegionDesc2)) AND ((@IsNull_strC"& _ "hannel = 1 AND [strChannel] IS NULL) OR ([strChannel] = @Original_strChannel)) A"& _ "ND ((@IsNull_strSegment = 1 AND [strSegment] IS NULL) OR ([strSegment] = @Origin"& _ "al_strSegment)) AND ((@IsNull_strCountry = 1 AND [strCountry] IS NULL) OR ([strC"& _ "ountry] = @Original_strCountry)) AND ((@IsNull_strRegionOrder = 1 AND [strRegion"& _ "Order] IS NULL) OR ([strRegionOrder] = @Original_strRegionOrder)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCustomerNo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCustomerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCustomerName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellChannel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellChannel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellChannel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellArea", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellArea", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellArea", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellArea", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellcwsireg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellcwsireg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellcwsireg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellcwsireg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellrepno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellrepno", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellrepno", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellrepno", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellsupergroup", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroup", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellsupergroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroup", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellsupergroupName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroupName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellsupergroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroupName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellgrading", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellgrading", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellgrading", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellgrading", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepBBID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepBBID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepBBID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepBBID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepDlxID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepDlxID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepDlxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepDlxID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepLuxID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepLuxID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepLuxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepLuxID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepNameBB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameBB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepNameBB", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameBB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepNameDlx", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameDlx", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepNameDlx", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameDlx", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepNameLux", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameLux", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepNameLux", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameLux", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strChannelPrimary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelPrimary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strChannelPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelPrimary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strChannelSecondary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelSecondary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strChannelSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelSecondary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSegmentPrimary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentPrimary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSegmentPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentPrimary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSegmentSecondary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentSecondary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSegmentSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentSecondary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGroupName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strKeyAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strKeyAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strKeyAccount", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strKeyAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPriceGroupCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceGroupCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPriceGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceGroupCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnPromotionalAccounts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnPromotionalAccounts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnPromotionalAccounts", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnPromotionalAccounts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnActive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBranch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBranch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBranch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBranch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSalesOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSalesOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSalesOffice", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSalesOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSAPCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSAPCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSAPCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSAPCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionAccpacCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionAccpacCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionAccpacCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionDesc2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionDesc2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strChannel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSegment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSegment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionOrder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionOrder", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionOrder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[dwdCustomer] ([strCustomerNo], [strCustomerName], [strSnellCha"& _ "nnel], [strSnellArea], [strSnellcwsireg], [strSnellrepno], [strSnellsupergroup],"& _ " [strSnellsupergroupName], [strSnellgrading], [refRepID], [refRepBBID], [refRepD"& _ "lxID], [refRepLuxID], [strRepName], [strRepNameBB], [strRepNameDlx], [strRepName"& _ "Lux], [strChannelPrimary], [strChannelSecondary], [strSegmentPrimary], [strSegme"& _ "ntSecondary], [strType1], [strType2], [strGroupName], [strKeyAccount], [strPrice"& _ "GroupCode], [blnPromotionalAccounts], [blnActive], [strCode], [strBranch], [strS"& _ "alesOffice], [strRegion], [strSAPCode], [strRegionCode], [strRegionDesc], [strRe"& _ "gionAccpacCode], [strRegionDesc2], [strChannel], [strSegment], [strCountry], [st"& _ "rRegionOrder]) VALUES (@strCustomerNo, @strCustomerName, @strSnellChannel, @strS"& _ "nellArea, @strSnellcwsireg, @strSnellrepno, @strSnellsupergroup, @strSnellsuperg"& _ "roupName, @strSnellgrading, @refRepID, @refRepBBID, @refRepDlxID, @refRepLuxID, "& _ "@strRepName, @strRepNameBB, @strRepNameDlx, @strRepNameLux, @strChannelPrimary, "& _ "@strChannelSecondary, @strSegmentPrimary, @strSegmentSecondary, @strType1, @strT"& _ "ype2, @strGroupName, @strKeyAccount, @strPriceGroupCode, @blnPromotionalAccounts"& _ ", @blnActive, @strCode, @strBranch, @strSalesOffice, @strRegion, @strSAPCode, @s"& _ "trRegionCode, @strRegionDesc, @strRegionAccpacCode, @strRegionDesc2, @strChannel"& _ ", @strSegment, @strCountry, @strRegionOrder);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT strCustomerNo, strCustomer"& _ "Name, strSnellChannel, strSnellArea, strSnellcwsireg, strSnellrepno, strSnellsup"& _ "ergroup, strSnellsupergroupName, strSnellgrading, refRepID, refRepBBID, refRepDl"& _ "xID, refRepLuxID, strRepName, strRepNameBB, strRepNameDlx, strRepNameLux, strCha"& _ "nnelPrimary, strChannelSecondary, strSegmentPrimary, strSegmentSecondary, strTyp"& _ "e1, strType2, strGroupName, strKeyAccount, strPriceGroupCode, blnPromotionalAcco"& _ "unts, blnActive, strCode, strBranch, strSalesOffice, strRegion, strSAPCode, strR"& _ "egionCode, strRegionDesc, strRegionAccpacCode, strRegionDesc2, strChannel, strSe"& _ "gment, strCountry, strRegionOrder FROM dwdCustomer WHERE (strCustomerNo = @strCu"& _ "stomerNo)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCustomerNo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCustomerName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellChannel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellArea", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellArea", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellcwsireg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellcwsireg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellrepno", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellrepno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellsupergroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroup", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellsupergroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroupName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellgrading", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellgrading", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepBBID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepBBID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepDlxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepDlxID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepLuxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepLuxID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepNameBB", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameBB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepNameDlx", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameDlx", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepNameLux", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameLux", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strChannelPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelPrimary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strChannelSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelSecondary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSegmentPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentPrimary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSegmentSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentSecondary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strKeyAccount", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strKeyAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPriceGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceGroupCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnPromotionalAccounts", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnPromotionalAccounts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBranch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBranch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSalesOffice", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSalesOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSAPCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSAPCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionAccpacCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionDesc2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSegment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionOrder", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionOrder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[dwdCustomer] SET [strCustomerNo] = @strCustomerNo, [strCustomerName"& _ "] = @strCustomerName, [strSnellChannel] = @strSnellChannel, [strSnellArea] = @st"& _ "rSnellArea, [strSnellcwsireg] = @strSnellcwsireg, [strSnellrepno] = @strSnellrep"& _ "no, [strSnellsupergroup] = @strSnellsupergroup, [strSnellsupergroupName] = @strS"& _ "nellsupergroupName, [strSnellgrading] = @strSnellgrading, [refRepID] = @refRepID"& _ ", [refRepBBID] = @refRepBBID, [refRepDlxID] = @refRepDlxID, [refRepLuxID] = @ref"& _ "RepLuxID, [strRepName] = @strRepName, [strRepNameBB] = @strRepNameBB, [strRepNam"& _ "eDlx] = @strRepNameDlx, [strRepNameLux] = @strRepNameLux, [strChannelPrimary] = "& _ "@strChannelPrimary, [strChannelSecondary] = @strChannelSecondary, [strSegmentPri"& _ "mary] = @strSegmentPrimary, [strSegmentSecondary] = @strSegmentSecondary, [strTy"& _ "pe1] = @strType1, [strType2] = @strType2, [strGroupName] = @strGroupName, [strKe"& _ "yAccount] = @strKeyAccount, [strPriceGroupCode] = @strPriceGroupCode, [blnPromot"& _ "ionalAccounts] = @blnPromotionalAccounts, [blnActive] = @blnActive, [strCode] = "& _ "@strCode, [strBranch] = @strBranch, [strSalesOffice] = @strSalesOffice, [strRegi"& _ "on] = @strRegion, [strSAPCode] = @strSAPCode, [strRegionCode] = @strRegionCode, "& _ "[strRegionDesc] = @strRegionDesc, [strRegionAccpacCode] = @strRegionAccpacCode, "& _ "[strRegionDesc2] = @strRegionDesc2, [strChannel] = @strChannel, [strSegment] = @"& _ "strSegment, [strCountry] = @strCountry, [strRegionOrder] = @strRegionOrder WHERE"& _ " (([strCustomerNo] = @Original_strCustomerNo) AND ((@IsNull_strCustomerName = 1 "& _ "AND [strCustomerName] IS NULL) OR ([strCustomerName] = @Original_strCustomerName"& _ ")) AND ((@IsNull_strSnellChannel = 1 AND [strSnellChannel] IS NULL) OR ([strSnel"& _ "lChannel] = @Original_strSnellChannel)) AND ((@IsNull_strSnellArea = 1 AND [strS"& _ "nellArea] IS NULL) OR ([strSnellArea] = @Original_strSnellArea)) AND ((@IsNull_s"& _ "trSnellcwsireg = 1 AND [strSnellcwsireg] IS NULL) OR ([strSnellcwsireg] = @Origi"& _ "nal_strSnellcwsireg)) AND ((@IsNull_strSnellrepno = 1 AND [strSnellrepno] IS NUL"& _ "L) OR ([strSnellrepno] = @Original_strSnellrepno)) AND ((@IsNull_strSnellsupergr"& _ "oup = 1 AND [strSnellsupergroup] IS NULL) OR ([strSnellsupergroup] = @Original_s"& _ "trSnellsupergroup)) AND ((@IsNull_strSnellsupergroupName = 1 AND [strSnellsuperg"& _ "roupName] IS NULL) OR ([strSnellsupergroupName] = @Original_strSnellsupergroupNa"& _ "me)) AND ((@IsNull_strSnellgrading = 1 AND [strSnellgrading] IS NULL) OR ([strSn"& _ "ellgrading] = @Original_strSnellgrading)) AND ((@IsNull_refRepID = 1 AND [refRep"& _ "ID] IS NULL) OR ([refRepID] = @Original_refRepID)) AND ((@IsNull_refRepBBID = 1 "& _ "AND [refRepBBID] IS NULL) OR ([refRepBBID] = @Original_refRepBBID)) AND ((@IsNul"& _ "l_refRepDlxID = 1 AND [refRepDlxID] IS NULL) OR ([refRepDlxID] = @Original_refRe"& _ "pDlxID)) AND ((@IsNull_refRepLuxID = 1 AND [refRepLuxID] IS NULL) OR ([refRepLux"& _ "ID] = @Original_refRepLuxID)) AND ((@IsNull_strRepName = 1 AND [strRepName] IS N"& _ "ULL) OR ([strRepName] = @Original_strRepName)) AND ((@IsNull_strRepNameBB = 1 AN"& _ "D [strRepNameBB] IS NULL) OR ([strRepNameBB] = @Original_strRepNameBB)) AND ((@I"& _ "sNull_strRepNameDlx = 1 AND [strRepNameDlx] IS NULL) OR ([strRepNameDlx] = @Orig"& _ "inal_strRepNameDlx)) AND ((@IsNull_strRepNameLux = 1 AND [strRepNameLux] IS NULL"& _ ") OR ([strRepNameLux] = @Original_strRepNameLux)) AND ((@IsNull_strChannelPrimar"& _ "y = 1 AND [strChannelPrimary] IS NULL) OR ([strChannelPrimary] = @Original_strCh"& _ "annelPrimary)) AND ((@IsNull_strChannelSecondary = 1 AND [strChannelSecondary] I"& _ "S NULL) OR ([strChannelSecondary] = @Original_strChannelSecondary)) AND ((@IsNul"& _ "l_strSegmentPrimary = 1 AND [strSegmentPrimary] IS NULL) OR ([strSegmentPrimary]"& _ " = @Original_strSegmentPrimary)) AND ((@IsNull_strSegmentSecondary = 1 AND [strS"& _ "egmentSecondary] IS NULL) OR ([strSegmentSecondary] = @Original_strSegmentSecond"& _ "ary)) AND ((@IsNull_strType1 = 1 AND [strType1] IS NULL) OR ([strType1] = @Origi"& _ "nal_strType1)) AND ((@IsNull_strType2 = 1 AND [strType2] IS NULL) OR ([strType2]"& _ " = @Original_strType2)) AND ((@IsNull_strGroupName = 1 AND [strGroupName] IS NUL"& _ "L) OR ([strGroupName] = @Original_strGroupName)) AND ((@IsNull_strKeyAccount = 1"& _ " AND [strKeyAccount] IS NULL) OR ([strKeyAccount] = @Original_strKeyAccount)) AN"& _ "D ((@IsNull_strPriceGroupCode = 1 AND [strPriceGroupCode] IS NULL) OR ([strPrice"& _ "GroupCode] = @Original_strPriceGroupCode)) AND ((@IsNull_blnPromotionalAccounts "& _ "= 1 AND [blnPromotionalAccounts] IS NULL) OR ([blnPromotionalAccounts] = @Origin"& _ "al_blnPromotionalAccounts)) AND ((@IsNull_blnActive = 1 AND [blnActive] IS NULL)"& _ " OR ([blnActive] = @Original_blnActive)) AND ((@IsNull_strCode = 1 AND [strCode]"& _ " IS NULL) OR ([strCode] = @Original_strCode)) AND ((@IsNull_strBranch = 1 AND [s"& _ "trBranch] IS NULL) OR ([strBranch] = @Original_strBranch)) AND ((@IsNull_strSale"& _ "sOffice = 1 AND [strSalesOffice] IS NULL) OR ([strSalesOffice] = @Original_strSa"& _ "lesOffice)) AND ((@IsNull_strRegion = 1 AND [strRegion] IS NULL) OR ([strRegion]"& _ " = @Original_strRegion)) AND ((@IsNull_strSAPCode = 1 AND [strSAPCode] IS NULL) "& _ "OR ([strSAPCode] = @Original_strSAPCode)) AND ((@IsNull_strRegionCode = 1 AND [s"& _ "trRegionCode] IS NULL) OR ([strRegionCode] = @Original_strRegionCode)) AND ((@Is"& _ "Null_strRegionDesc = 1 AND [strRegionDesc] IS NULL) OR ([strRegionDesc] = @Origi"& _ "nal_strRegionDesc)) AND ((@IsNull_strRegionAccpacCode = 1 AND [strRegionAccpacCo"& _ "de] IS NULL) OR ([strRegionAccpacCode] = @Original_strRegionAccpacCode)) AND ((@"& _ "IsNull_strRegionDesc2 = 1 AND [strRegionDesc2] IS NULL) OR ([strRegionDesc2] = @"& _ "Original_strRegionDesc2)) AND ((@IsNull_strChannel = 1 AND [strChannel] IS NULL)"& _ " OR ([strChannel] = @Original_strChannel)) AND ((@IsNull_strSegment = 1 AND [str"& _ "Segment] IS NULL) OR ([strSegment] = @Original_strSegment)) AND ((@IsNull_strCou"& _ "ntry = 1 AND [strCountry] IS NULL) OR ([strCountry] = @Original_strCountry)) AND"& _ " ((@IsNull_strRegionOrder = 1 AND [strRegionOrder] IS NULL) OR ([strRegionOrder]"& _ " = @Original_strRegionOrder)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT strCustomerNo, strCustomerName, strSnell"& _ "Channel, strSnellArea, strSnellcwsireg, strSnellrepno, strSnellsupergroup, strSn"& _ "ellsupergroupName, strSnellgrading, refRepID, refRepBBID, refRepDlxID, refRepLux"& _ "ID, strRepName, strRepNameBB, strRepNameDlx, strRepNameLux, strChannelPrimary, s"& _ "trChannelSecondary, strSegmentPrimary, strSegmentSecondary, strType1, strType2, "& _ "strGroupName, strKeyAccount, strPriceGroupCode, blnPromotionalAccounts, blnActiv"& _ "e, strCode, strBranch, strSalesOffice, strRegion, strSAPCode, strRegionCode, str"& _ "RegionDesc, strRegionAccpacCode, strRegionDesc2, strChannel, strSegment, strCoun"& _ "try, strRegionOrder FROM dwdCustomer WHERE (strCustomerNo = @strCustomerNo)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCustomerNo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerNo", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCustomerName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellChannel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellArea", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellArea", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellcwsireg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellcwsireg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellrepno", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellrepno", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellsupergroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroup", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellsupergroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroupName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSnellgrading", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellgrading", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepBBID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepBBID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepDlxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepDlxID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRepLuxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepLuxID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepNameBB", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameBB", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepNameDlx", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameDlx", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRepNameLux", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameLux", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strChannelPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelPrimary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strChannelSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelSecondary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSegmentPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentPrimary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSegmentSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentSecondary", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strKeyAccount", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strKeyAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPriceGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceGroupCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnPromotionalAccounts", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnPromotionalAccounts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBranch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBranch", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSalesOffice", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSalesOffice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSAPCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSAPCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionAccpacCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionDesc2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannel", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strSegment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegment", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCountry", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegionOrder", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionOrder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCustomerNo", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerNo", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCustomerName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCustomerName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCustomerName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellChannel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellChannel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellChannel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellArea", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellArea", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellArea", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellArea", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellcwsireg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellcwsireg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellcwsireg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellcwsireg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellrepno", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellrepno", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellrepno", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellrepno", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellsupergroup", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroup", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellsupergroup", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroup", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellsupergroupName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroupName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellsupergroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellsupergroupName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSnellgrading", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellgrading", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSnellgrading", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSnellgrading", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepBBID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepBBID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepBBID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepBBID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepDlxID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepDlxID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepDlxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepDlxID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refRepLuxID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepLuxID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRepLuxID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRepLuxID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepNameBB", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameBB", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepNameBB", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameBB", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepNameDlx", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameDlx", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepNameDlx", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameDlx", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRepNameLux", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameLux", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRepNameLux", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRepNameLux", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strChannelPrimary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelPrimary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strChannelPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelPrimary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strChannelSecondary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelSecondary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strChannelSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannelSecondary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSegmentPrimary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentPrimary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSegmentPrimary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentPrimary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSegmentSecondary", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentSecondary", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSegmentSecondary", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegmentSecondary", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGroupName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGroupName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strKeyAccount", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strKeyAccount", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strKeyAccount", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strKeyAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPriceGroupCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceGroupCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPriceGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceGroupCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnPromotionalAccounts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnPromotionalAccounts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnPromotionalAccounts", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnPromotionalAccounts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnActive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBranch", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBranch", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBranch", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBranch", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSalesOffice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSalesOffice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSalesOffice", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSalesOffice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegion", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSAPCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSAPCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSAPCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSAPCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionAccpacCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionAccpacCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionAccpacCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionDesc2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionDesc2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionDesc2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strChannel", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannel", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strChannel", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strChannel", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strSegment", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegment", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strSegment", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strSegment", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCountry", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCountry", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCountry", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCountry", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegionOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionOrder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegionOrder", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegionOrder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Snell_Cronjob.My.MySettings.Default.SQLConnectionRPT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT strCustomerNo, strCustomerName, strSnellChannel, strSnellArea, strSnellcws"& _ "ireg, strSnellrepno, strSnellsupergroup, strSnellsupergroupName, strSnellgrading"& _ ", refRepID, refRepBBID, refRepDlxID, refRepLuxID, strRepName, strRepNameBB, strR"& _ "epNameDlx, strRepNameLux, strChannelPrimary, strChannelSecondary, strSegmentPrim"& _ "ary, strSegmentSecondary, strType1, strType2, strGroupName, strKeyAccount, strPr"& _ "iceGroupCode, blnPromotionalAccounts, blnActive, strCode, strBranch, strSalesOff"& _ "ice, strRegion, strSAPCode, strRegionCode, strRegionDesc, strRegionAccpacCode, s"& _ "trRegionDesc2, strChannel, strSegment, strCountry, strRegionOrder FROM dbo.dwdCu"& _ "stomer" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As SuperbowlDataSet.dwdCustomerDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) 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 GetData() As SuperbowlDataSet.dwdCustomerDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As SuperbowlDataSet.dwdCustomerDataTable = New SuperbowlDataSet.dwdCustomerDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As SuperbowlDataSet.dwdCustomerDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As SuperbowlDataSet) As Integer Return Me.Adapter.Update(dataSet, "dwdCustomer") 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_strCustomerNo As String, _ ByVal Original_strCustomerName As String, _ ByVal Original_strSnellChannel As String, _ ByVal Original_strSnellArea As String, _ ByVal Original_strSnellcwsireg As String, _ ByVal Original_strSnellrepno As String, _ ByVal Original_strSnellsupergroup As String, _ ByVal Original_strSnellsupergroupName As String, _ ByVal Original_strSnellgrading As String, _ ByVal Original_refRepID As String, _ ByVal Original_refRepBBID As String, _ ByVal Original_refRepDlxID As String, _ ByVal Original_refRepLuxID As String, _ ByVal Original_strRepName As String, _ ByVal Original_strRepNameBB As String, _ ByVal Original_strRepNameDlx As String, _ ByVal Original_strRepNameLux As String, _ ByVal Original_strChannelPrimary As String, _ ByVal Original_strChannelSecondary As String, _ ByVal Original_strSegmentPrimary As String, _ ByVal Original_strSegmentSecondary As String, _ ByVal Original_strType1 As String, _ ByVal Original_strType2 As String, _ ByVal Original_strGroupName As String, _ ByVal Original_strKeyAccount As String, _ ByVal Original_strPriceGroupCode As String, _ ByVal Original_blnPromotionalAccounts As Global.System.Nullable(Of Boolean), _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_strCode As String, _ ByVal Original_strBranch As String, _ ByVal Original_strSalesOffice As String, _ ByVal Original_strRegion As String, _ ByVal Original_strSAPCode As String, _ ByVal Original_strRegionCode As String, _ ByVal Original_strRegionDesc As String, _ ByVal Original_strRegionAccpacCode As String, _ ByVal Original_strRegionDesc2 As String, _ ByVal Original_strChannel As String, _ ByVal Original_strSegment As String, _ ByVal Original_strCountry As String, _ ByVal Original_strRegionOrder As String) As Integer If (Original_strCustomerNo Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strCustomerNo") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_strCustomerNo,String) End If If (Original_strCustomerName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_strCustomerName,String) End If If (Original_strSnellChannel Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_strSnellChannel,String) End If If (Original_strSnellArea Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_strSnellArea,String) End If If (Original_strSnellcwsireg Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_strSnellcwsireg,String) End If If (Original_strSnellrepno Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_strSnellrepno,String) End If If (Original_strSnellsupergroup Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_strSnellsupergroup,String) End If If (Original_strSnellsupergroupName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_strSnellsupergroupName,String) End If If (Original_strSnellgrading Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_strSnellgrading,String) End If If (Original_refRepID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_refRepID,String) End If If (Original_refRepBBID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_refRepBBID,String) End If If (Original_refRepDlxID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_refRepDlxID,String) End If If (Original_refRepLuxID Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_refRepLuxID,String) End If If (Original_strRepName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_strRepName,String) End If If (Original_strRepNameBB Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_strRepNameBB,String) End If If (Original_strRepNameDlx Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_strRepNameDlx,String) End If If (Original_strRepNameLux Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_strRepNameLux,String) End If If (Original_strChannelPrimary Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_strChannelPrimary,String) End If If (Original_strChannelSecondary Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_strChannelSecondary,String) End If If (Original_strSegmentPrimary Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_strSegmentPrimary,String) End If If (Original_strSegmentSecondary Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_strSegmentSecondary,String) End If If (Original_strType1 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_strType1,String) End If If (Original_strType2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_strType2,String) End If If (Original_strGroupName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_strGroupName,String) End If If (Original_strKeyAccount Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_strKeyAccount,String) End If If (Original_strPriceGroupCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_strPriceGroupCode,String) End If If (Original_blnPromotionalAccounts.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(51).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = CType(Original_blnPromotionalAccounts.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(51).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(52).Value = Global.System.DBNull.Value End If If (Original_blnActive.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(53).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = CType(Original_blnActive.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(53).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(54).Value = Global.System.DBNull.Value End If If (Original_strCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(55).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(55).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(56).Value = CType(Original_strCode,String) End If If (Original_strBranch Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(57).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(57).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(58).Value = CType(Original_strBranch,String) End If If (Original_strSalesOffice Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(59).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(59).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(60).Value = CType(Original_strSalesOffice,String) End If If (Original_strRegion Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(61).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(61).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(62).Value = CType(Original_strRegion,String) End If If (Original_strSAPCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(63).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(63).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(64).Value = CType(Original_strSAPCode,String) End If If (Original_strRegionCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(65).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(65).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(66).Value = CType(Original_strRegionCode,String) End If If (Original_strRegionDesc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(67).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(67).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(68).Value = CType(Original_strRegionDesc,String) End If If (Original_strRegionAccpacCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(69).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(69).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(70).Value = CType(Original_strRegionAccpacCode,String) End If If (Original_strRegionDesc2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(71).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(71).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(72).Value = CType(Original_strRegionDesc2,String) End If If (Original_strChannel Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(73).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(73).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(74).Value = CType(Original_strChannel,String) End If If (Original_strSegment Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(75).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(75).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(76).Value = CType(Original_strSegment,String) End If If (Original_strCountry Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(77).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(77).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(78).Value = CType(Original_strCountry,String) End If If (Original_strRegionOrder Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(79).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(79).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(80).Value = CType(Original_strRegionOrder,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal strCustomerNo As String, _ ByVal strCustomerName As String, _ ByVal strSnellChannel As String, _ ByVal strSnellArea As String, _ ByVal strSnellcwsireg As String, _ ByVal strSnellrepno As String, _ ByVal strSnellsupergroup As String, _ ByVal strSnellsupergroupName As String, _ ByVal strSnellgrading As String, _ ByVal refRepID As String, _ ByVal refRepBBID As String, _ ByVal refRepDlxID As String, _ ByVal refRepLuxID As String, _ ByVal strRepName As String, _ ByVal strRepNameBB As String, _ ByVal strRepNameDlx As String, _ ByVal strRepNameLux As String, _ ByVal strChannelPrimary As String, _ ByVal strChannelSecondary As String, _ ByVal strSegmentPrimary As String, _ ByVal strSegmentSecondary As String, _ ByVal strType1 As String, _ ByVal strType2 As String, _ ByVal strGroupName As String, _ ByVal strKeyAccount As String, _ ByVal strPriceGroupCode As String, _ ByVal blnPromotionalAccounts As Global.System.Nullable(Of Boolean), _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal strCode As String, _ ByVal strBranch As String, _ ByVal strSalesOffice As String, _ ByVal strRegion As String, _ ByVal strSAPCode As String, _ ByVal strRegionCode As String, _ ByVal strRegionDesc As String, _ ByVal strRegionAccpacCode As String, _ ByVal strRegionDesc2 As String, _ ByVal strChannel As String, _ ByVal strSegment As String, _ ByVal strCountry As String, _ ByVal strRegionOrder As String) As Integer If (strCustomerNo Is Nothing) Then Throw New Global.System.ArgumentNullException("strCustomerNo") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(strCustomerNo,String) End If If (strCustomerName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(strCustomerName,String) End If If (strSnellChannel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(strSnellChannel,String) End If If (strSnellArea Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(strSnellArea,String) End If If (strSnellcwsireg Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(strSnellcwsireg,String) End If If (strSnellrepno Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(strSnellrepno,String) End If If (strSnellsupergroup Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(strSnellsupergroup,String) End If If (strSnellsupergroupName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(strSnellsupergroupName,String) End If If (strSnellgrading Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(strSnellgrading,String) End If If (refRepID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(refRepID,String) End If If (refRepBBID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(refRepBBID,String) End If If (refRepDlxID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(refRepDlxID,String) End If If (refRepLuxID Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(refRepLuxID,String) End If If (strRepName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(strRepName,String) End If If (strRepNameBB Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(strRepNameBB,String) End If If (strRepNameDlx Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(strRepNameDlx,String) End If If (strRepNameLux Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(strRepNameLux,String) End If If (strChannelPrimary Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(strChannelPrimary,String) End If If (strChannelSecondary Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(strChannelSecondary,String) End If If (strSegmentPrimary Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(strSegmentPrimary,String) End If If (strSegmentSecondary Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(strSegmentSecondary,String) End If If (strType1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(21).Value = CType(strType1,String) End If If (strType2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(strType2,String) End If If (strGroupName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(strGroupName,String) End If If (strKeyAccount Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(strKeyAccount,String) End If If (strPriceGroupCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(strPriceGroupCode,String) End If If (blnPromotionalAccounts.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(26).Value = CType(blnPromotionalAccounts.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (blnActive.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(27).Value = CType(blnActive.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (strCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(28).Value = CType(strCode,String) End If If (strBranch Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(29).Value = CType(strBranch,String) End If If (strSalesOffice Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(30).Value = CType(strSalesOffice,String) End If If (strRegion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(31).Value = CType(strRegion,String) End If If (strSAPCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(32).Value = CType(strSAPCode,String) End If If (strRegionCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(33).Value = CType(strRegionCode,String) End If If (strRegionDesc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(34).Value = CType(strRegionDesc,String) End If If (strRegionAccpacCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(35).Value = CType(strRegionAccpacCode,String) End If If (strRegionDesc2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(36).Value = CType(strRegionDesc2,String) End If If (strChannel Is Nothing) Then Me.Adapter.InsertCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(37).Value = CType(strChannel,String) End If If (strSegment Is Nothing) Then Me.Adapter.InsertCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(38).Value = CType(strSegment,String) End If If (strCountry Is Nothing) Then Me.Adapter.InsertCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(39).Value = CType(strCountry,String) End If If (strRegionOrder Is Nothing) Then Me.Adapter.InsertCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(40).Value = CType(strRegionOrder,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal strCustomerNo As String, _ ByVal strCustomerName As String, _ ByVal strSnellChannel As String, _ ByVal strSnellArea As String, _ ByVal strSnellcwsireg As String, _ ByVal strSnellrepno As String, _ ByVal strSnellsupergroup As String, _ ByVal strSnellsupergroupName As String, _ ByVal strSnellgrading As String, _ ByVal refRepID As String, _ ByVal refRepBBID As String, _ ByVal refRepDlxID As String, _ ByVal refRepLuxID As String, _ ByVal strRepName As String, _ ByVal strRepNameBB As String, _ ByVal strRepNameDlx As String, _ ByVal strRepNameLux As String, _ ByVal strChannelPrimary As String, _ ByVal strChannelSecondary As String, _ ByVal strSegmentPrimary As String, _ ByVal strSegmentSecondary As String, _ ByVal strType1 As String, _ ByVal strType2 As String, _ ByVal strGroupName As String, _ ByVal strKeyAccount As String, _ ByVal strPriceGroupCode As String, _ ByVal blnPromotionalAccounts As Global.System.Nullable(Of Boolean), _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal strCode As String, _ ByVal strBranch As String, _ ByVal strSalesOffice As String, _ ByVal strRegion As String, _ ByVal strSAPCode As String, _ ByVal strRegionCode As String, _ ByVal strRegionDesc As String, _ ByVal strRegionAccpacCode As String, _ ByVal strRegionDesc2 As String, _ ByVal strChannel As String, _ ByVal strSegment As String, _ ByVal strCountry As String, _ ByVal strRegionOrder As String, _ ByVal Original_strCustomerNo As String, _ ByVal Original_strCustomerName As String, _ ByVal Original_strSnellChannel As String, _ ByVal Original_strSnellArea As String, _ ByVal Original_strSnellcwsireg As String, _ ByVal Original_strSnellrepno As String, _ ByVal Original_strSnellsupergroup As String, _ ByVal Original_strSnellsupergroupName As String, _ ByVal Original_strSnellgrading As String, _ ByVal Original_refRepID As String, _ ByVal Original_refRepBBID As String, _ ByVal Original_refRepDlxID As String, _ ByVal Original_refRepLuxID As String, _ ByVal Original_strRepName As String, _ ByVal Original_strRepNameBB As String, _ ByVal Original_strRepNameDlx As String, _ ByVal Original_strRepNameLux As String, _ ByVal Original_strChannelPrimary As String, _ ByVal Original_strChannelSecondary As String, _ ByVal Original_strSegmentPrimary As String, _ ByVal Original_strSegmentSecondary As String, _ ByVal Original_strType1 As String, _ ByVal Original_strType2 As String, _ ByVal Original_strGroupName As String, _ ByVal Original_strKeyAccount As String, _ ByVal Original_strPriceGroupCode As String, _ ByVal Original_blnPromotionalAccounts As Global.System.Nullable(Of Boolean), _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_strCode As String, _ ByVal Original_strBranch As String, _ ByVal Original_strSalesOffice As String, _ ByVal Original_strRegion As String, _ ByVal Original_strSAPCode As String, _ ByVal Original_strRegionCode As String, _ ByVal Original_strRegionDesc As String, _ ByVal Original_strRegionAccpacCode As String, _ ByVal Original_strRegionDesc2 As String, _ ByVal Original_strChannel As String, _ ByVal Original_strSegment As String, _ ByVal Original_strCountry As String, _ ByVal Original_strRegionOrder As String) As Integer If (strCustomerNo Is Nothing) Then Throw New Global.System.ArgumentNullException("strCustomerNo") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(strCustomerNo,String) End If If (strCustomerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(strCustomerName,String) End If If (strSnellChannel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(strSnellChannel,String) End If If (strSnellArea Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(strSnellArea,String) End If If (strSnellcwsireg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(strSnellcwsireg,String) End If If (strSnellrepno Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(strSnellrepno,String) End If If (strSnellsupergroup Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(strSnellsupergroup,String) End If If (strSnellsupergroupName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(strSnellsupergroupName,String) End If If (strSnellgrading Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(strSnellgrading,String) End If If (refRepID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(refRepID,String) End If If (refRepBBID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(refRepBBID,String) End If If (refRepDlxID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(refRepDlxID,String) End If If (refRepLuxID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(refRepLuxID,String) End If If (strRepName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(strRepName,String) End If If (strRepNameBB Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(strRepNameBB,String) End If If (strRepNameDlx Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(strRepNameDlx,String) End If If (strRepNameLux Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(strRepNameLux,String) End If If (strChannelPrimary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(strChannelPrimary,String) End If If (strChannelSecondary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(strChannelSecondary,String) End If If (strSegmentPrimary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(strSegmentPrimary,String) End If If (strSegmentSecondary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(strSegmentSecondary,String) End If If (strType1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(strType1,String) End If If (strType2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(strType2,String) End If If (strGroupName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(strGroupName,String) End If If (strKeyAccount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(strKeyAccount,String) End If If (strPriceGroupCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(strPriceGroupCode,String) End If If (blnPromotionalAccounts.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(blnPromotionalAccounts.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (blnActive.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(blnActive.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (strCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(strCode,String) End If If (strBranch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(strBranch,String) End If If (strSalesOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(strSalesOffice,String) End If If (strRegion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(strRegion,String) End If If (strSAPCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(strSAPCode,String) End If If (strRegionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(strRegionCode,String) End If If (strRegionDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(strRegionDesc,String) End If If (strRegionAccpacCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(strRegionAccpacCode,String) End If If (strRegionDesc2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(strRegionDesc2,String) End If If (strChannel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(37).Value = CType(strChannel,String) End If If (strSegment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(strSegment,String) End If If (strCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(strCountry,String) End If If (strRegionOrder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(strRegionOrder,String) End If If (Original_strCustomerNo Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strCustomerNo") Else Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_strCustomerNo,String) End If If (Original_strCustomerName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_strCustomerName,String) End If If (Original_strSnellChannel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_strSnellChannel,String) End If If (Original_strSnellArea Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_strSnellArea,String) End If If (Original_strSnellcwsireg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_strSnellcwsireg,String) End If If (Original_strSnellrepno Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_strSnellrepno,String) End If If (Original_strSnellsupergroup Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_strSnellsupergroup,String) End If If (Original_strSnellsupergroupName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_strSnellsupergroupName,String) End If If (Original_strSnellgrading Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_strSnellgrading,String) End If If (Original_refRepID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_refRepID,String) End If If (Original_refRepBBID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_refRepBBID,String) End If If (Original_refRepDlxID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_refRepDlxID,String) End If If (Original_refRepLuxID Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_refRepLuxID,String) End If If (Original_strRepName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_strRepName,String) End If If (Original_strRepNameBB Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_strRepNameBB,String) End If If (Original_strRepNameDlx Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_strRepNameDlx,String) End If If (Original_strRepNameLux Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_strRepNameLux,String) End If If (Original_strChannelPrimary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_strChannelPrimary,String) End If If (Original_strChannelSecondary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_strChannelSecondary,String) End If If (Original_strSegmentPrimary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(78).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(78).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(79).Value = CType(Original_strSegmentPrimary,String) End If If (Original_strSegmentSecondary Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(80).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(80).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(81).Value = CType(Original_strSegmentSecondary,String) End If If (Original_strType1 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(82).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(82).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(83).Value = CType(Original_strType1,String) End If If (Original_strType2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(84).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(84).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(85).Value = CType(Original_strType2,String) End If If (Original_strGroupName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(86).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(86).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(87).Value = CType(Original_strGroupName,String) End If If (Original_strKeyAccount Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(88).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(88).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(89).Value = CType(Original_strKeyAccount,String) End If If (Original_strPriceGroupCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(90).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(90).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(91).Value = CType(Original_strPriceGroupCode,String) End If If (Original_blnPromotionalAccounts.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(92).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = CType(Original_blnPromotionalAccounts.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(92).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(93).Value = Global.System.DBNull.Value End If If (Original_blnActive.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(94).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = CType(Original_blnActive.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(94).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(95).Value = Global.System.DBNull.Value End If If (Original_strCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(96).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(96).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(97).Value = CType(Original_strCode,String) End If If (Original_strBranch Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(98).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(98).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(99).Value = CType(Original_strBranch,String) End If If (Original_strSalesOffice Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(100).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(100).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(101).Value = CType(Original_strSalesOffice,String) End If If (Original_strRegion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(102).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(102).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(103).Value = CType(Original_strRegion,String) End If If (Original_strSAPCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(104).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(104).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(105).Value = CType(Original_strSAPCode,String) End If If (Original_strRegionCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(106).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(106).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(107).Value = CType(Original_strRegionCode,String) End If If (Original_strRegionDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(108).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(108).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(109).Value = CType(Original_strRegionDesc,String) End If If (Original_strRegionAccpacCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(110).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(110).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(111).Value = CType(Original_strRegionAccpacCode,String) End If If (Original_strRegionDesc2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(112).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(112).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(113).Value = CType(Original_strRegionDesc2,String) End If If (Original_strChannel Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(114).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(114).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(115).Value = CType(Original_strChannel,String) End If If (Original_strSegment Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(116).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(116).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(117).Value = CType(Original_strSegment,String) End If If (Original_strCountry Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(118).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(118).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(119).Value = CType(Original_strCountry,String) End If If (Original_strRegionOrder Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(120).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(120).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(121).Value = CType(Original_strRegionOrder,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal strCustomerName As String, _ ByVal strSnellChannel As String, _ ByVal strSnellArea As String, _ ByVal strSnellcwsireg As String, _ ByVal strSnellrepno As String, _ ByVal strSnellsupergroup As String, _ ByVal strSnellsupergroupName As String, _ ByVal strSnellgrading As String, _ ByVal refRepID As String, _ ByVal refRepBBID As String, _ ByVal refRepDlxID As String, _ ByVal refRepLuxID As String, _ ByVal strRepName As String, _ ByVal strRepNameBB As String, _ ByVal strRepNameDlx As String, _ ByVal strRepNameLux As String, _ ByVal strChannelPrimary As String, _ ByVal strChannelSecondary As String, _ ByVal strSegmentPrimary As String, _ ByVal strSegmentSecondary As String, _ ByVal strType1 As String, _ ByVal strType2 As String, _ ByVal strGroupName As String, _ ByVal strKeyAccount As String, _ ByVal strPriceGroupCode As String, _ ByVal blnPromotionalAccounts As Global.System.Nullable(Of Boolean), _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal strCode As String, _ ByVal strBranch As String, _ ByVal strSalesOffice As String, _ ByVal strRegion As String, _ ByVal strSAPCode As String, _ ByVal strRegionCode As String, _ ByVal strRegionDesc As String, _ ByVal strRegionAccpacCode As String, _ ByVal strRegionDesc2 As String, _ ByVal strChannel As String, _ ByVal strSegment As String, _ ByVal strCountry As String, _ ByVal strRegionOrder As String, _ ByVal Original_strCustomerNo As String, _ ByVal Original_strCustomerName As String, _ ByVal Original_strSnellChannel As String, _ ByVal Original_strSnellArea As String, _ ByVal Original_strSnellcwsireg As String, _ ByVal Original_strSnellrepno As String, _ ByVal Original_strSnellsupergroup As String, _ ByVal Original_strSnellsupergroupName As String, _ ByVal Original_strSnellgrading As String, _ ByVal Original_refRepID As String, _ ByVal Original_refRepBBID As String, _ ByVal Original_refRepDlxID As String, _ ByVal Original_refRepLuxID As String, _ ByVal Original_strRepName As String, _ ByVal Original_strRepNameBB As String, _ ByVal Original_strRepNameDlx As String, _ ByVal Original_strRepNameLux As String, _ ByVal Original_strChannelPrimary As String, _ ByVal Original_strChannelSecondary As String, _ ByVal Original_strSegmentPrimary As String, _ ByVal Original_strSegmentSecondary As String, _ ByVal Original_strType1 As String, _ ByVal Original_strType2 As String, _ ByVal Original_strGroupName As String, _ ByVal Original_strKeyAccount As String, _ ByVal Original_strPriceGroupCode As String, _ ByVal Original_blnPromotionalAccounts As Global.System.Nullable(Of Boolean), _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_strCode As String, _ ByVal Original_strBranch As String, _ ByVal Original_strSalesOffice As String, _ ByVal Original_strRegion As String, _ ByVal Original_strSAPCode As String, _ ByVal Original_strRegionCode As String, _ ByVal Original_strRegionDesc As String, _ ByVal Original_strRegionAccpacCode As String, _ ByVal Original_strRegionDesc2 As String, _ ByVal Original_strChannel As String, _ ByVal Original_strSegment As String, _ ByVal Original_strCountry As String, _ ByVal Original_strRegionOrder As String) As Integer Return Me.Update(Original_strCustomerNo, strCustomerName, strSnellChannel, strSnellArea, strSnellcwsireg, strSnellrepno, strSnellsupergroup, strSnellsupergroupName, strSnellgrading, refRepID, refRepBBID, refRepDlxID, refRepLuxID, strRepName, strRepNameBB, strRepNameDlx, strRepNameLux, strChannelPrimary, strChannelSecondary, strSegmentPrimary, strSegmentSecondary, strType1, strType2, strGroupName, strKeyAccount, strPriceGroupCode, blnPromotionalAccounts, blnActive, strCode, strBranch, strSalesOffice, strRegion, strSAPCode, strRegionCode, strRegionDesc, strRegionAccpacCode, strRegionDesc2, strChannel, strSegment, strCountry, strRegionOrder, Original_strCustomerNo, Original_strCustomerName, Original_strSnellChannel, Original_strSnellArea, Original_strSnellcwsireg, Original_strSnellrepno, Original_strSnellsupergroup, Original_strSnellsupergroupName, Original_strSnellgrading, Original_refRepID, Original_refRepBBID, Original_refRepDlxID, Original_refRepLuxID, Original_strRepName, Original_strRepNameBB, Original_strRepNameDlx, Original_strRepNameLux, Original_strChannelPrimary, Original_strChannelSecondary, Original_strSegmentPrimary, Original_strSegmentSecondary, Original_strType1, Original_strType2, Original_strGroupName, Original_strKeyAccount, Original_strPriceGroupCode, Original_blnPromotionalAccounts, Original_blnActive, Original_strCode, Original_strBranch, Original_strSalesOffice, Original_strRegion, Original_strSAPCode, Original_strRegionCode, Original_strRegionDesc, Original_strRegionAccpacCode, Original_strRegionDesc2, Original_strChannel, Original_strSegment, Original_strCountry, Original_strRegionOrder) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class fsrItemTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "fsrItem" tableMapping.ColumnMappings.Add("ItemID", "ItemID") tableMapping.ColumnMappings.Add("refRequisitionID", "refRequisitionID") tableMapping.ColumnMappings.Add("refBrandID", "refBrandID") tableMapping.ColumnMappings.Add("strProdCode", "strProdCode") tableMapping.ColumnMappings.Add("intQuantity", "intQuantity") tableMapping.ColumnMappings.Add("dblCost", "dblCost") tableMapping.ColumnMappings.Add("dblTotal", "dblTotal") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[fsrItem] WHERE (([ItemID] = @Original_ItemID) AND ([refRequisi"& _ "tionID] = @Original_refRequisitionID) AND (['ES'] = @Original_refBrandID) AND (["& _ "strProdCode] = @Original_strProdCode) AND ([intQuantity] = @Original_intQuantity"& _ ") AND ([dblCost] = @Original_dblCost) AND ([dblTotal] = @Original_dblTotal))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRequisitionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequisitionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProdCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intQuantity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intQuantity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblCost", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblCost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblTotal", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[fsrItem] ([refRequisitionID], [refBrandID], [strProdCode], [in"& _ "tQuantity], [dblCost], [dblTotal]) VALUES (@refRequisitionID, @refBrandID, @strP"& _ "rodCode, @intQuantity, @dblCost, @dblTotal);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ItemID, refRequisitionID, r"& _ "efBrandID, strProdCode, intQuantity, dblCost, dblTotal FROM fsrItem WHERE (ItemI"& _ "D = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRequisitionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequisitionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProdCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intQuantity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intQuantity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblCost", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblCost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblTotal", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[fsrItem] SET [refRequisitionID] = @refRequisitionID, [refBrandID] ="& _ " @refBrandID, [strProdCode] = @strProdCode, [intQuantity] = @intQuantity, [dblCo"& _ "st] = @dblCost, [dblTotal] = @dblTotal WHERE (([ItemID] = @Original_ItemID) AND "& _ "([refRequisitionID] = @Original_refRequisitionID) AND ([refBrandID] = @Original_"& _ "refBrandID) AND ([strProdCode] = @Original_strProdCode) AND ([intQuantity] = @Or"& _ "iginal_intQuantity) AND ([dblCost] = @Original_dblCost) AND ([dblTotal] = @Origi"& _ "nal_dblTotal));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT ItemID, refRequisitionID, refBrandID, strProdCode, intQu"& _ "antity, dblCost, dblTotal FROM fsrItem WHERE (ItemID = @ItemID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRequisitionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequisitionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProdCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intQuantity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intQuantity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblCost", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblCost", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblTotal", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblTotal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ItemID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRequisitionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequisitionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProdCode", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intQuantity", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intQuantity", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblCost", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblCost", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblTotal", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblTotal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ItemID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ItemID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Snell_Cronjob.My.MySettings.Default.SQLConnectionRPT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT ItemID, refRequisitionID, refBrandID, strProdCode, intQuantity, dblCost, d"& _ "blTotal FROM dbo.fsrItem" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As SuperbowlDataSet.fsrItemDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) 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 GetData() As SuperbowlDataSet.fsrItemDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As SuperbowlDataSet.fsrItemDataTable = New SuperbowlDataSet.fsrItemDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As SuperbowlDataSet.fsrItemDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As SuperbowlDataSet) As Integer Return Me.Adapter.Update(dataSet, "fsrItem") 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_ItemID As Integer, ByVal Original_refRequisitionID As Integer, ByVal Original_refBrandID As Integer, ByVal Original_strProdCode As String, ByVal Original_intQuantity As Integer, ByVal Original_dblCost As Double, ByVal Original_dblTotal As Double) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_ItemID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_refRequisitionID,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_refBrandID,Integer) If (Original_strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strProdCode") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_strProdCode,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_intQuantity,Integer) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_dblCost,Double) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_dblTotal,Double) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal refRequisitionID As Integer, ByVal refBrandID As Integer, ByVal strProdCode As String, ByVal intQuantity As Integer, ByVal dblCost As Double, ByVal dblTotal As Double) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(refRequisitionID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(refBrandID,Integer) If (strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("strProdCode") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(strProdCode,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(intQuantity,Integer) Me.Adapter.InsertCommand.Parameters(4).Value = CType(dblCost,Double) Me.Adapter.InsertCommand.Parameters(5).Value = CType(dblTotal,Double) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal refRequisitionID As Integer, ByVal refBrandID As Integer, ByVal strProdCode As String, ByVal intQuantity As Integer, ByVal dblCost As Double, ByVal dblTotal As Double, ByVal Original_ItemID As Integer, ByVal Original_refRequisitionID As Integer, ByVal Original_refBrandID As Integer, ByVal Original_strProdCode As String, ByVal Original_intQuantity As Integer, ByVal Original_dblCost As Double, ByVal Original_dblTotal As Double, ByVal ItemID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(refRequisitionID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(refBrandID,Integer) If (strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("strProdCode") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(strProdCode,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(intQuantity,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(dblCost,Double) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(dblTotal,Double) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_ItemID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_refRequisitionID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_refBrandID,Integer) If (Original_strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strProdCode") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_strProdCode,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_intQuantity,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_dblCost,Double) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_dblTotal,Double) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ItemID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal refRequisitionID As Integer, ByVal refBrandID As Integer, ByVal strProdCode As String, ByVal intQuantity As Integer, ByVal dblCost As Double, ByVal dblTotal As Double, ByVal Original_ItemID As Integer, ByVal Original_refRequisitionID As Integer, ByVal Original_refBrandID As Integer, ByVal Original_strProdCode As String, ByVal Original_intQuantity As Integer, ByVal Original_dblCost As Double, ByVal Original_dblTotal As Double) As Integer Return Me.Update(refRequisitionID, refBrandID, strProdCode, intQuantity, dblCost, dblTotal, Original_ItemID, Original_refRequisitionID, Original_refBrandID, Original_strProdCode, Original_intQuantity, Original_dblCost, Original_dblTotal, Original_ItemID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class fsrRequisitionTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "fsrRequisition" tableMapping.ColumnMappings.Add("RequisitionID", "RequisitionID") tableMapping.ColumnMappings.Add("refUserID", "refUserID") tableMapping.ColumnMappings.Add("refRequestTypeID", "refRequestTypeID") tableMapping.ColumnMappings.Add("refManagerID", "refManagerID") tableMapping.ColumnMappings.Add("refAlternateManagerID", "refAlternateManagerID") tableMapping.ColumnMappings.Add("refExecutiveManagerID", "refExecutiveManagerID") tableMapping.ColumnMappings.Add("dtDate", "dtDate") tableMapping.ColumnMappings.Add("strRegion", "strRegion") tableMapping.ColumnMappings.Add("strExpense", "strExpense") tableMapping.ColumnMappings.Add("strBillToAccount", "strBillToAccount") tableMapping.ColumnMappings.Add("strShipToAccount", "strShipToAccount") tableMapping.ColumnMappings.Add("txtRequestDetail", "txtRequestDetail") tableMapping.ColumnMappings.Add("strContactPerson", "strContactPerson") tableMapping.ColumnMappings.Add("strContactNumber", "strContactNumber") tableMapping.ColumnMappings.Add("blnDelivery", "blnDelivery") tableMapping.ColumnMappings.Add("dtDelivereyDate", "dtDelivereyDate") tableMapping.ColumnMappings.Add("txtPhysicalAddress", "txtPhysicalAddress") tableMapping.ColumnMappings.Add("strStatus", "strStatus") tableMapping.ColumnMappings.Add("strInvoiceNumber", "strInvoiceNumber") tableMapping.ColumnMappings.Add("strAuthorizedBy", "strAuthorizedBy") tableMapping.ColumnMappings.Add("dtLastEdit", "dtLastEdit") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[fsrRequisition] WHERE (([RequisitionID] = @Original_Requisitio"& _ "nID) AND ([refUserID] = @Original_refUserID) AND ([refRequestTypeID] = @Original"& _ "_refRequestTypeID) AND ([refManagerID] = @Original_refManagerID) AND ([refAltern"& _ "ateManagerID] = @Original_refAlternateManagerID) AND ([refExecutiveManagerID] = "& _ "@Original_refExecutiveManagerID) AND ([dtDate] = @Original_dtDate) AND ((@IsNull"& _ "_strRegion = 1 AND [strRegion] IS NULL) OR ([strRegion] = @Original_strRegion)) "& _ "AND ((@IsNull_strExpense = 1 AND [strExpense] IS NULL) OR ([strExpense] = @Origi"& _ "nal_strExpense)) AND ([strBillToAccount] = @Original_strBillToAccount) AND ([str"& _ "ShipToAccount] = @Original_strShipToAccount) AND ((@IsNull_strContactPerson = 1 "& _ "AND [strContactPerson] IS NULL) OR ([strContactPerson] = @Original_strContactPer"& _ "son)) AND ([strContactNumber] = @Original_strContactNumber) AND ([blnDelivery] ="& _ " @Original_blnDelivery) AND ([dtDelivereyDate] = @Original_dtDelivereyDate) AND "& _ "([strStatus] = @Original_strStatus) AND ([strInvoiceNumber] = @Original_strInvoi"& _ "ceNumber) AND ([strAuthorizedBy] = @Original_strAuthorizedBy) AND ([dtLastEdit] "& _ "= @Original_dtLastEdit))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RequisitionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RequisitionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRequestTypeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequestTypeID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refAlternateManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refAlternateManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refExecutiveManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refExecutiveManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strExpense", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strExpense", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strExpense", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strExpense", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBillToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBillToAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strShipToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strShipToAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strContactPerson", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactPerson", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strContactPerson", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strContactNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnDelivery", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnDelivery", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtDelivereyDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDelivereyDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strInvoiceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strInvoiceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strAuthorizedBy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAuthorizedBy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtLastEdit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtLastEdit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[fsrRequisition] ([refUserID], [refRequestTypeID], [refManagerI"& _ "D], [refAlternateManagerID], [refExecutiveManagerID], [dtDate], [strRegion], [st"& _ "rExpense], [strBillToAccount], [strShipToAccount], [txtRequestDetail], [strConta"& _ "ctPerson], [strContactNumber], [blnDelivery], [dtDelivereyDate], [txtPhysicalAdd"& _ "ress], [strStatus], [strInvoiceNumber], [strAuthorizedBy], [dtLastEdit]) VALUES "& _ "(@refUserID, @refRequestTypeID, @refManagerID, @refAlternateManagerID, @refExecu"& _ "tiveManagerID, @dtDate, @strRegion, @strExpense, @strBillToAccount, @strShipToAc"& _ "count, @txtRequestDetail, @strContactPerson, @strContactNumber, @blnDelivery, @d"& _ "tDelivereyDate, @txtPhysicalAddress, @strStatus, @strInvoiceNumber, @strAuthoriz"& _ "edBy, @dtLastEdit);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RequisitionID, refUserID, refRequestTypeID, refManag"& _ "erID, refAlternateManagerID, refExecutiveManagerID, dtDate, strRegion, strExpens"& _ "e, strBillToAccount, strShipToAccount, txtRequestDetail, strContactPerson, strCo"& _ "ntactNumber, blnDelivery, dtDelivereyDate, txtPhysicalAddress, strStatus, strInv"& _ "oiceNumber, strAuthorizedBy, dtLastEdit FROM fsrRequisition WHERE (RequisitionID"& _ " = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRequestTypeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequestTypeID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refAlternateManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refAlternateManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refExecutiveManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refExecutiveManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strExpense", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strExpense", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBillToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBillToAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strShipToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strShipToAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txtRequestDetail", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txtRequestDetail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strContactPerson", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strContactNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnDelivery", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnDelivery", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtDelivereyDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDelivereyDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txtPhysicalAddress", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txtPhysicalAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strInvoiceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strInvoiceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strAuthorizedBy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAuthorizedBy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtLastEdit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtLastEdit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[fsrRequisition] SET [refUserID] = @refUserID, [refRequestTypeID] = "& _ "@refRequestTypeID, [refManagerID] = @refManagerID, [refAlternateManagerID] = @re"& _ "fAlternateManagerID, [refExecutiveManagerID] = @refExecutiveManagerID, [dtDate] "& _ "= @dtDate, [strRegion] = @strRegion, [strExpense] = @strExpense, [strBillToAccou"& _ "nt] = @strBillToAccount, [strShipToAccount] = @strShipToAccount, [txtRequestDeta"& _ "il] = @txtRequestDetail, [strContactPerson] = @strContactPerson, [strContactNumb"& _ "er] = @strContactNumber, [blnDelivery] = @blnDelivery, [dtDelivereyDate] = @dtDe"& _ "livereyDate, [txtPhysicalAddress] = @txtPhysicalAddress, [strStatus] = @strStatu"& _ "s, [strInvoiceNumber] = @strInvoiceNumber, [strAuthorizedBy] = @strAuthorizedBy,"& _ " [dtLastEdit] = @dtLastEdit WHERE (([RequisitionID] = @Original_RequisitionID) A"& _ "ND ([refUserID] = @Original_refUserID) AND ([refRequestTypeID] = @Original_refRe"& _ "questTypeID) AND ([refManagerID] = @Original_refManagerID) AND ([refAlternateMan"& _ "agerID] = @Original_refAlternateManagerID) AND ([refExecutiveManagerID] = @Origi"& _ "nal_refExecutiveManagerID) AND ([dtDate] = @Original_dtDate) AND ((@IsNull_strRe"& _ "gion = 1 AND [strRegion] IS NULL) OR ([strRegion] = @Original_strRegion)) AND (("& _ "@IsNull_strExpense = 1 AND [strExpense] IS NULL) OR ([strExpense] = @Original_st"& _ "rExpense)) AND ([strBillToAccount] = @Original_strBillToAccount) AND ([strShipTo"& _ "Account] = @Original_strShipToAccount) AND ((@IsNull_strContactPerson = 1 AND [s"& _ "trContactPerson] IS NULL) OR ([strContactPerson] = @Original_strContactPerson)) "& _ "AND ([strContactNumber] = @Original_strContactNumber) AND ([blnDelivery] = @Orig"& _ "inal_blnDelivery) AND ([dtDelivereyDate] = @Original_dtDelivereyDate) AND ([strS"& _ "tatus] = @Original_strStatus) AND ([strInvoiceNumber] = @Original_strInvoiceNumb"& _ "er) AND ([strAuthorizedBy] = @Original_strAuthorizedBy) AND ([dtLastEdit] = @Ori"& _ "ginal_dtLastEdit));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT RequisitionID, refUserID, refRequestTypeID, refManag"& _ "erID, refAlternateManagerID, refExecutiveManagerID, dtDate, strRegion, strExpens"& _ "e, strBillToAccount, strShipToAccount, txtRequestDetail, strContactPerson, strCo"& _ "ntactNumber, blnDelivery, dtDelivereyDate, txtPhysicalAddress, strStatus, strInv"& _ "oiceNumber, strAuthorizedBy, dtLastEdit FROM fsrRequisition WHERE (RequisitionID"& _ " = @RequisitionID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refRequestTypeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequestTypeID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refAlternateManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refAlternateManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refExecutiveManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refExecutiveManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strExpense", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strExpense", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBillToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBillToAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strShipToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strShipToAccount", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txtRequestDetail", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txtRequestDetail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strContactPerson", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactPerson", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strContactNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnDelivery", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnDelivery", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtDelivereyDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDelivereyDate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@txtPhysicalAddress", Global.System.Data.SqlDbType.Text, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "txtPhysicalAddress", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strStatus", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strInvoiceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strInvoiceNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strAuthorizedBy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAuthorizedBy", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtLastEdit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtLastEdit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RequisitionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RequisitionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refRequestTypeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refRequestTypeID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refAlternateManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refAlternateManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refExecutiveManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refExecutiveManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strRegion", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strExpense", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strExpense", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strExpense", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strExpense", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBillToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBillToAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strShipToAccount", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strShipToAccount", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strContactPerson", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactPerson", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strContactPerson", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactPerson", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strContactNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strContactNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnDelivery", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnDelivery", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtDelivereyDate", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtDelivereyDate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strStatus", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strStatus", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strInvoiceNumber", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strInvoiceNumber", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strAuthorizedBy", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAuthorizedBy", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtLastEdit", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtLastEdit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RequisitionID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RequisitionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Snell_Cronjob.My.MySettings.Default.SQLConnectionRPT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT RequisitionID, refUserID, refRequestTypeID, refManagerID, refAlternateMana"& _ "gerID, refExecutiveManagerID, dtDate, strRegion, strExpense, strBillToAccount, s"& _ "trShipToAccount, txtRequestDetail, strContactPerson, strContactNumber, blnDelive"& _ "ry, dtDelivereyDate, txtPhysicalAddress, strStatus, strInvoiceNumber, strAuthori"& _ "zedBy, dtLastEdit FROM dbo.fsrRequisition" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As SuperbowlDataSet.fsrRequisitionDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) 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 GetData() As SuperbowlDataSet.fsrRequisitionDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As SuperbowlDataSet.fsrRequisitionDataTable = New SuperbowlDataSet.fsrRequisitionDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As SuperbowlDataSet.fsrRequisitionDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As SuperbowlDataSet) As Integer Return Me.Adapter.Update(dataSet, "fsrRequisition") 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_RequisitionID As Integer, _ ByVal Original_refUserID As Integer, _ ByVal Original_refRequestTypeID As Integer, _ ByVal Original_refManagerID As Integer, _ ByVal Original_refAlternateManagerID As Integer, _ ByVal Original_refExecutiveManagerID As Integer, _ ByVal Original_dtDate As Date, _ ByVal Original_strRegion As String, _ ByVal Original_strExpense As String, _ ByVal Original_strBillToAccount As String, _ ByVal Original_strShipToAccount As String, _ ByVal Original_strContactPerson As String, _ ByVal Original_strContactNumber As String, _ ByVal Original_blnDelivery As Boolean, _ ByVal Original_dtDelivereyDate As Date, _ ByVal Original_strStatus As String, _ ByVal Original_strInvoiceNumber As String, _ ByVal Original_strAuthorizedBy As String, _ ByVal Original_dtLastEdit As Date) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_RequisitionID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_refUserID,Integer) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_refRequestTypeID,Integer) Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_refManagerID,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_refAlternateManagerID,Integer) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_refExecutiveManagerID,Integer) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_dtDate,Date) If (Original_strRegion Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_strRegion,String) End If If (Original_strExpense Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_strExpense,String) End If If (Original_strBillToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strBillToAccount") Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_strBillToAccount,String) End If If (Original_strShipToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strShipToAccount") Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_strShipToAccount,String) End If If (Original_strContactPerson Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_strContactPerson,String) End If If (Original_strContactNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strContactNumber") Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_strContactNumber,String) End If Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_blnDelivery,Boolean) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_dtDelivereyDate,Date) If (Original_strStatus Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strStatus") Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_strStatus,String) End If If (Original_strInvoiceNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strInvoiceNumber") Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_strInvoiceNumber,String) End If If (Original_strAuthorizedBy Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strAuthorizedBy") Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_strAuthorizedBy,String) End If Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_dtLastEdit,Date) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal refUserID As Integer, _ ByVal refRequestTypeID As Integer, _ ByVal refManagerID As Integer, _ ByVal refAlternateManagerID As Integer, _ ByVal refExecutiveManagerID As Integer, _ ByVal dtDate As Date, _ ByVal strRegion As String, _ ByVal strExpense As String, _ ByVal strBillToAccount As String, _ ByVal strShipToAccount As String, _ ByVal txtRequestDetail As String, _ ByVal strContactPerson As String, _ ByVal strContactNumber As String, _ ByVal blnDelivery As Boolean, _ ByVal dtDelivereyDate As Date, _ ByVal txtPhysicalAddress As String, _ ByVal strStatus As String, _ ByVal strInvoiceNumber As String, _ ByVal strAuthorizedBy As String, _ ByVal dtLastEdit As Date) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(refUserID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(refRequestTypeID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(refManagerID,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(refAlternateManagerID,Integer) Me.Adapter.InsertCommand.Parameters(4).Value = CType(refExecutiveManagerID,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(dtDate,Date) If (strRegion Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(strRegion,String) End If If (strExpense Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(strExpense,String) End If If (strBillToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("strBillToAccount") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(strBillToAccount,String) End If If (strShipToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("strShipToAccount") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(strShipToAccount,String) End If If (txtRequestDetail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(txtRequestDetail,String) End If If (strContactPerson Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(strContactPerson,String) End If If (strContactNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("strContactNumber") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(strContactNumber,String) End If Me.Adapter.InsertCommand.Parameters(13).Value = CType(blnDelivery,Boolean) Me.Adapter.InsertCommand.Parameters(14).Value = CType(dtDelivereyDate,Date) If (txtPhysicalAddress Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(txtPhysicalAddress,String) End If If (strStatus Is Nothing) Then Throw New Global.System.ArgumentNullException("strStatus") Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(strStatus,String) End If If (strInvoiceNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("strInvoiceNumber") Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(strInvoiceNumber,String) End If If (strAuthorizedBy Is Nothing) Then Throw New Global.System.ArgumentNullException("strAuthorizedBy") Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(strAuthorizedBy,String) End If Me.Adapter.InsertCommand.Parameters(19).Value = CType(dtLastEdit,Date) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refUserID As Integer, _ ByVal refRequestTypeID As Integer, _ ByVal refManagerID As Integer, _ ByVal refAlternateManagerID As Integer, _ ByVal refExecutiveManagerID As Integer, _ ByVal dtDate As Date, _ ByVal strRegion As String, _ ByVal strExpense As String, _ ByVal strBillToAccount As String, _ ByVal strShipToAccount As String, _ ByVal txtRequestDetail As String, _ ByVal strContactPerson As String, _ ByVal strContactNumber As String, _ ByVal blnDelivery As Boolean, _ ByVal dtDelivereyDate As Date, _ ByVal txtPhysicalAddress As String, _ ByVal strStatus As String, _ ByVal strInvoiceNumber As String, _ ByVal strAuthorizedBy As String, _ ByVal dtLastEdit As Date, _ ByVal Original_RequisitionID As Integer, _ ByVal Original_refUserID As Integer, _ ByVal Original_refRequestTypeID As Integer, _ ByVal Original_refManagerID As Integer, _ ByVal Original_refAlternateManagerID As Integer, _ ByVal Original_refExecutiveManagerID As Integer, _ ByVal Original_dtDate As Date, _ ByVal Original_strRegion As String, _ ByVal Original_strExpense As String, _ ByVal Original_strBillToAccount As String, _ ByVal Original_strShipToAccount As String, _ ByVal Original_strContactPerson As String, _ ByVal Original_strContactNumber As String, _ ByVal Original_blnDelivery As Boolean, _ ByVal Original_dtDelivereyDate As Date, _ ByVal Original_strStatus As String, _ ByVal Original_strInvoiceNumber As String, _ ByVal Original_strAuthorizedBy As String, _ ByVal Original_dtLastEdit As Date, _ ByVal RequisitionID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(refUserID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(refRequestTypeID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(refManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(refAlternateManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(refExecutiveManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(dtDate,Date) If (strRegion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(strRegion,String) End If If (strExpense Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(strExpense,String) End If If (strBillToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("strBillToAccount") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(strBillToAccount,String) End If If (strShipToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("strShipToAccount") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(strShipToAccount,String) End If If (txtRequestDetail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(txtRequestDetail,String) End If If (strContactPerson Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(strContactPerson,String) End If If (strContactNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("strContactNumber") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(strContactNumber,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(blnDelivery,Boolean) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(dtDelivereyDate,Date) If (txtPhysicalAddress Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(txtPhysicalAddress,String) End If If (strStatus Is Nothing) Then Throw New Global.System.ArgumentNullException("strStatus") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(strStatus,String) End If If (strInvoiceNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("strInvoiceNumber") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(strInvoiceNumber,String) End If If (strAuthorizedBy Is Nothing) Then Throw New Global.System.ArgumentNullException("strAuthorizedBy") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(strAuthorizedBy,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(dtLastEdit,Date) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_RequisitionID,Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_refUserID,Integer) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_refRequestTypeID,Integer) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_refManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_refAlternateManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_refExecutiveManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_dtDate,Date) If (Original_strRegion Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_strRegion,String) End If If (Original_strExpense Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_strExpense,String) End If If (Original_strBillToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strBillToAccount") Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_strBillToAccount,String) End If If (Original_strShipToAccount Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strShipToAccount") Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_strShipToAccount,String) End If If (Original_strContactPerson Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_strContactPerson,String) End If If (Original_strContactNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strContactNumber") Else Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_strContactNumber,String) End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_blnDelivery,Boolean) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_dtDelivereyDate,Date) If (Original_strStatus Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strStatus") Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_strStatus,String) End If If (Original_strInvoiceNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strInvoiceNumber") Else Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_strInvoiceNumber,String) End If If (Original_strAuthorizedBy Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strAuthorizedBy") Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_strAuthorizedBy,String) End If Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_dtLastEdit,Date) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(RequisitionID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refUserID As Integer, _ ByVal refRequestTypeID As Integer, _ ByVal refManagerID As Integer, _ ByVal refAlternateManagerID As Integer, _ ByVal refExecutiveManagerID As Integer, _ ByVal dtDate As Date, _ ByVal strRegion As String, _ ByVal strExpense As String, _ ByVal strBillToAccount As String, _ ByVal strShipToAccount As String, _ ByVal txtRequestDetail As String, _ ByVal strContactPerson As String, _ ByVal strContactNumber As String, _ ByVal blnDelivery As Boolean, _ ByVal dtDelivereyDate As Date, _ ByVal txtPhysicalAddress As String, _ ByVal strStatus As String, _ ByVal strInvoiceNumber As String, _ ByVal strAuthorizedBy As String, _ ByVal dtLastEdit As Date, _ ByVal Original_RequisitionID As Integer, _ ByVal Original_refUserID As Integer, _ ByVal Original_refRequestTypeID As Integer, _ ByVal Original_refManagerID As Integer, _ ByVal Original_refAlternateManagerID As Integer, _ ByVal Original_refExecutiveManagerID As Integer, _ ByVal Original_dtDate As Date, _ ByVal Original_strRegion As String, _ ByVal Original_strExpense As String, _ ByVal Original_strBillToAccount As String, _ ByVal Original_strShipToAccount As String, _ ByVal Original_strContactPerson As String, _ ByVal Original_strContactNumber As String, _ ByVal Original_blnDelivery As Boolean, _ ByVal Original_dtDelivereyDate As Date, _ ByVal Original_strStatus As String, _ ByVal Original_strInvoiceNumber As String, _ ByVal Original_strAuthorizedBy As String, _ ByVal Original_dtLastEdit As Date) As Integer Return Me.Update(refUserID, refRequestTypeID, refManagerID, refAlternateManagerID, refExecutiveManagerID, dtDate, strRegion, strExpense, strBillToAccount, strShipToAccount, txtRequestDetail, strContactPerson, strContactNumber, blnDelivery, dtDelivereyDate, txtPhysicalAddress, strStatus, strInvoiceNumber, strAuthorizedBy, dtLastEdit, Original_RequisitionID, Original_refUserID, Original_refRequestTypeID, Original_refManagerID, Original_refAlternateManagerID, Original_refExecutiveManagerID, Original_dtDate, Original_strRegion, Original_strExpense, Original_strBillToAccount, Original_strShipToAccount, Original_strContactPerson, Original_strContactNumber, Original_blnDelivery, Original_dtDelivereyDate, Original_strStatus, Original_strInvoiceNumber, Original_strAuthorizedBy, Original_dtLastEdit, Original_RequisitionID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class mstBrandTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "mstBrand" tableMapping.ColumnMappings.Add("BrandID", "BrandID") tableMapping.ColumnMappings.Add("refPrincipalID", "refPrincipalID") tableMapping.ColumnMappings.Add("refCompanyID", "refCompanyID") tableMapping.ColumnMappings.Add("refBrandManagerID", "refBrandManagerID") tableMapping.ColumnMappings.Add("refBrandManager2ID", "refBrandManager2ID") tableMapping.ColumnMappings.Add("refGroupingDailyID", "refGroupingDailyID") tableMapping.ColumnMappings.Add("refGroupingPrimaryID", "refGroupingPrimaryID") tableMapping.ColumnMappings.Add("refGroupingSecondaryID", "refGroupingSecondaryID") tableMapping.ColumnMappings.Add("strAccpacCode", "strAccpacCode") tableMapping.ColumnMappings.Add("strBrand", "strBrand") tableMapping.ColumnMappings.Add("strGroupCode", "strGroupCode") tableMapping.ColumnMappings.Add("strGroupAccounts", "strGroupAccounts") tableMapping.ColumnMappings.Add("brand2", "brand2") tableMapping.ColumnMappings.Add("brandrebate", "brandrebate") tableMapping.ColumnMappings.Add("brandToolkit", "brandToolkit") tableMapping.ColumnMappings.Add("intLeadMonths", "intLeadMonths") tableMapping.ColumnMappings.Add("intMonthsCover", "intMonthsCover") tableMapping.ColumnMappings.Add("dblVariance", "dblVariance") tableMapping.ColumnMappings.Add("blnActive", "blnActive") tableMapping.ColumnMappings.Add("strLastUser", "strLastUser") tableMapping.ColumnMappings.Add("dtStamp", "dtStamp") tableMapping.ColumnMappings.Add("percBrandGrowth", "percBrandGrowth") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[mstBrand] WHERE (([BrandID] = @Original_BrandID) AND ((@IsNull"& _ "_refPrincipalID = 1 AND [refPrincipalID] IS NULL) OR ([refPrincipalID] = @Origin"& _ "al_refPrincipalID)) AND ((@IsNull_refCompanyID = 1 AND [refCompanyID] IS NULL) O"& _ "R ([refCompanyID] = @Original_refCompanyID)) AND ((@IsNull_refBrandManagerID = 1"& _ " AND [refBrandManagerID] IS NULL) OR ([refBrandManagerID] = @Original_refBrandMa"& _ "nagerID)) AND ((@IsNull_refBrandManager2ID = 1 AND [refBrandManager2ID] IS NULL)"& _ " OR ([refBrandManager2ID] = @Original_refBrandManager2ID)) AND ((@IsNull_refGrou"& _ "pingDailyID = 1 AND [refGroupingDailyID] IS NULL) OR ([refGroupingDailyID] = @Or"& _ "iginal_refGroupingDailyID)) AND ((@IsNull_refGroupingPrimaryID = 1 AND [refGroup"& _ "ingPrimaryID] IS NULL) OR ([refGroupingPrimaryID] = @Original_refGroupingPrimary"& _ "ID)) AND ((@IsNull_refGroupingSecondaryID = 1 AND [refGroupingSecondaryID] IS NU"& _ "LL) OR ([refGroupingSecondaryID] = @Original_refGroupingSecondaryID)) AND ((@IsN"& _ "ull_strAccpacCode = 1 AND [strAccpacCode] IS NULL) OR ([strAccpacCode] = @Origin"& _ "al_strAccpacCode)) AND ((@IsNull_strBrand = 1 AND [strBrand] IS NULL) OR ([strBr"& _ "and] = @Original_strBrand)) AND ((@IsNull_strGroupCode = 1 AND [strGroupCode] IS"& _ " NULL) OR ([strGroupCode] = @Original_strGroupCode)) AND ((@IsNull_strGroupAccou"& _ "nts = 1 AND [strGroupAccounts] IS NULL) OR ([strGroupAccounts] = @Original_strGr"& _ "oupAccounts)) AND ((@IsNull_brand2 = 1 AND [brand2] IS NULL) OR ([brand2] = @Ori"& _ "ginal_brand2)) AND ((@IsNull_brandrebate = 1 AND [brandrebate] IS NULL) OR ([bra"& _ "ndrebate] = @Original_brandrebate)) AND ((@IsNull_brandToolkit = 1 AND [brandToo"& _ "lkit] IS NULL) OR ([brandToolkit] = @Original_brandToolkit)) AND ((@IsNull_intLe"& _ "adMonths = 1 AND [intLeadMonths] IS NULL) OR ([intLeadMonths] = @Original_intLea"& _ "dMonths)) AND ((@IsNull_intMonthsCover = 1 AND [intMonthsCover] IS NULL) OR ([in"& _ "tMonthsCover] = @Original_intMonthsCover)) AND ((@IsNull_dblVariance = 1 AND [db"& _ "lVariance] IS NULL) OR ([dblVariance] = @Original_dblVariance)) AND ((@IsNull_bl"& _ "nActive = 1 AND [blnActive] IS NULL) OR ([blnActive] = @Original_blnActive)) AND"& _ " ((@IsNull_strLastUser = 1 AND [strLastUser] IS NULL) OR ([strLastUser] = @Origi"& _ "nal_strLastUser)) AND ((@IsNull_dtStamp = 1 AND [dtStamp] IS NULL) OR ([dtStamp]"& _ " = @Original_dtStamp)) AND ([percBrandGrowth] = @Original_percBrandGrowth))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BrandID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refPrincipalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refPrincipalID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refPrincipalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refPrincipalID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refCompanyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refCompanyID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refCompanyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refCompanyID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refBrandManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManagerID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refBrandManager2ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManager2ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandManager2ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManager2ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refGroupingDailyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingDailyID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refGroupingDailyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingDailyID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refGroupingPrimaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingPrimaryID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refGroupingPrimaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingPrimaryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refGroupingSecondaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingSecondaryID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refGroupingSecondaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingSecondaryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strAccpacCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAccpacCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAccpacCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBrand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBrand", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGroupCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGroupAccounts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupAccounts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGroupAccounts", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupAccounts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_brand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brand2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_brandrebate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandrebate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brandrebate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandrebate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_brandToolkit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandToolkit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brandToolkit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandToolkit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intLeadMonths", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intLeadMonths", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intLeadMonths", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intLeadMonths", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intMonthsCover", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intMonthsCover", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intMonthsCover", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intMonthsCover", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dblVariance", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblVariance", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblVariance", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblVariance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnActive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLastUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dtStamp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_percBrandGrowth", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "percBrandGrowth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[mstBrand] ([refPrincipalID], [refCompanyID], [refBrandManagerI"& _ "D], [refBrandManager2ID], [refGroupingDailyID], [refGroupingPrimaryID], [refGrou"& _ "pingSecondaryID], [strAccpacCode], [strBrand], [strGroupCode], [strGroupAccounts"& _ "], [brand2], [brandrebate], [brandToolkit], [intLeadMonths], [intMonthsCover], ["& _ "dblVariance], [blnActive], [strLastUser], [dtStamp], [percBrandGrowth]) VALUES ("& _ "@refPrincipalID, @refCompanyID, @refBrandManagerID, @refBrandManager2ID, @refGro"& _ "upingDailyID, @refGroupingPrimaryID, @refGroupingSecondaryID, @strAccpacCode, @s"& _ "trBrand, @strGroupCode, @strGroupAccounts, @brand2, @brandrebate, @brandToolkit,"& _ " @intLeadMonths, @intMonthsCover, @dblVariance, @blnActive, @strLastUser, @dtSta"& _ "mp, @percBrandGrowth);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BrandID, refPrincipalID, refCompanyID, refBrandMa"& _ "nagerID, refBrandManager2ID, refGroupingDailyID, refGroupingPrimaryID, refGroupi"& _ "ngSecondaryID, strAccpacCode, strBrand, strGroupCode, strGroupAccounts, brand2, "& _ "brandrebate, brandToolkit, intLeadMonths, intMonthsCover, dblVariance, blnActive"& _ ", strLastUser, dtStamp, percBrandGrowth FROM mstBrand WHERE (BrandID = SCOPE_IDE"& _ "NTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refPrincipalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refPrincipalID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refCompanyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refCompanyID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandManager2ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManager2ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refGroupingDailyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingDailyID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refGroupingPrimaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingPrimaryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refGroupingSecondaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingSecondaryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAccpacCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBrand", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGroupAccounts", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupAccounts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brand2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brandrebate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandrebate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brandToolkit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandToolkit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intLeadMonths", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intLeadMonths", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intMonthsCover", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intMonthsCover", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblVariance", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblVariance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@percBrandGrowth", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "percBrandGrowth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[mstBrand] SET [refPrincipalID] = @refPrincipalID, [refCompanyID] = "& _ "@refCompanyID, [refBrandManagerID] = @refBrandManagerID, [refBrandManager2ID] = "& _ "@refBrandManager2ID, [refGroupingDailyID] = @refGroupingDailyID, [refGroupingPri"& _ "maryID] = @refGroupingPrimaryID, [refGroupingSecondaryID] = @refGroupingSecondar"& _ "yID, [strAccpacCode] = @strAccpacCode, [strBrand] = @strBrand, [strGroupCode] = "& _ "@strGroupCode, [strGroupAccounts] = @strGroupAccounts, [brand2] = @brand2, [bran"& _ "drebate] = @brandrebate, [brandToolkit] = @brandToolkit, [intLeadMonths] = @intL"& _ "eadMonths, [intMonthsCover] = @intMonthsCover, [dblVariance] = @dblVariance, [bl"& _ "nActive] = @blnActive, [strLastUser] = @strLastUser, [dtStamp] = @dtStamp, [perc"& _ "BrandGrowth] = @percBrandGrowth WHERE (([BrandID] = @Original_BrandID) AND ((@Is"& _ "Null_refPrincipalID = 1 AND [refPrincipalID] IS NULL) OR ([refPrincipalID] = @Or"& _ "iginal_refPrincipalID)) AND ((@IsNull_refCompanyID = 1 AND [refCompanyID] IS NUL"& _ "L) OR ([refCompanyID] = @Original_refCompanyID)) AND ((@IsNull_refBrandManagerID"& _ " = 1 AND [refBrandManagerID] IS NULL) OR ([refBrandManagerID] = @Original_refBra"& _ "ndManagerID)) AND ((@IsNull_refBrandManager2ID = 1 AND [refBrandManager2ID] IS N"& _ "ULL) OR ([refBrandManager2ID] = @Original_refBrandManager2ID)) AND ((@IsNull_ref"& _ "GroupingDailyID = 1 AND [refGroupingDailyID] IS NULL) OR ([refGroupingDailyID] ="& _ " @Original_refGroupingDailyID)) AND ((@IsNull_refGroupingPrimaryID = 1 AND [refG"& _ "roupingPrimaryID] IS NULL) OR ([refGroupingPrimaryID] = @Original_refGroupingPri"& _ "maryID)) AND ((@IsNull_refGroupingSecondaryID = 1 AND [refGroupingSecondaryID] I"& _ "S NULL) OR ([refGroupingSecondaryID] = @Original_refGroupingSecondaryID)) AND (("& _ "@IsNull_strAccpacCode = 1 AND [strAccpacCode] IS NULL) OR ([strAccpacCode] = @Or"& _ "iginal_strAccpacCode)) AND ((@IsNull_strBrand = 1 AND [strBrand] IS NULL) OR ([s"& _ "trBrand] = @Original_strBrand)) AND ((@IsNull_strGroupCode = 1 AND [strGroupCode"& _ "] IS NULL) OR ([strGroupCode] = @Original_strGroupCode)) AND ((@IsNull_strGroupA"& _ "ccounts = 1 AND [strGroupAccounts] IS NULL) OR ([strGroupAccounts] = @Original_s"& _ "trGroupAccounts)) AND ((@IsNull_brand2 = 1 AND [brand2] IS NULL) OR ([brand2] = "& _ "@Original_brand2)) AND ((@IsNull_brandrebate = 1 AND [brandrebate] IS NULL) OR ("& _ "[brandrebate] = @Original_brandrebate)) AND ((@IsNull_brandToolkit = 1 AND [bran"& _ "dToolkit] IS NULL) OR ([brandToolkit] = @Original_brandToolkit)) AND ((@IsNull_i"& _ "ntLeadMonths = 1 AND [intLeadMonths] IS NULL) OR ([intLeadMonths] = @Original_in"& _ "tLeadMonths)) AND ((@IsNull_intMonthsCover = 1 AND [intMonthsCover] IS NULL) OR "& _ "([intMonthsCover] = @Original_intMonthsCover)) AND ((@IsNull_dblVariance = 1 AND"& _ " [dblVariance] IS NULL) OR ([dblVariance] = @Original_dblVariance)) AND ((@IsNul"& _ "l_blnActive = 1 AND [blnActive] IS NULL) OR ([blnActive] = @Original_blnActive))"& _ " AND ((@IsNull_strLastUser = 1 AND [strLastUser] IS NULL) OR ([strLastUser] = @O"& _ "riginal_strLastUser)) AND ((@IsNull_dtStamp = 1 AND [dtStamp] IS NULL) OR ([dtSt"& _ "amp] = @Original_dtStamp)) AND ([percBrandGrowth] = @Original_percBrandGrowth));"& _ ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT BrandID, refPrincipalID, refCompanyID, refBrandManagerID, refBrandManag"& _ "er2ID, refGroupingDailyID, refGroupingPrimaryID, refGroupingSecondaryID, strAccp"& _ "acCode, strBrand, strGroupCode, strGroupAccounts, brand2, brandrebate, brandTool"& _ "kit, intLeadMonths, intMonthsCover, dblVariance, blnActive, strLastUser, dtStamp"& _ ", percBrandGrowth FROM mstBrand WHERE (BrandID = @BrandID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refPrincipalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refPrincipalID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refCompanyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refCompanyID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandManager2ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManager2ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refGroupingDailyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingDailyID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refGroupingPrimaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingPrimaryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refGroupingSecondaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingSecondaryID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAccpacCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBrand", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrand", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGroupAccounts", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupAccounts", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brand2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brand2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brandrebate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandrebate", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@brandToolkit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandToolkit", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intLeadMonths", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intLeadMonths", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intMonthsCover", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intMonthsCover", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblVariance", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblVariance", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@percBrandGrowth", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "percBrandGrowth", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BrandID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refPrincipalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refPrincipalID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refPrincipalID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refPrincipalID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refCompanyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refCompanyID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refCompanyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refCompanyID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refBrandManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManagerID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refBrandManager2ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManager2ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandManager2ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandManager2ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refGroupingDailyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingDailyID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refGroupingDailyID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingDailyID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refGroupingPrimaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingPrimaryID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refGroupingPrimaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingPrimaryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refGroupingSecondaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingSecondaryID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refGroupingSecondaryID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refGroupingSecondaryID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strAccpacCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAccpacCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strAccpacCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strAccpacCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBrand", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrand", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBrand", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrand", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGroupCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGroupCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGroupAccounts", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupAccounts", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGroupAccounts", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGroupAccounts", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_brand2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brand2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brand2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brand2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_brandrebate", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandrebate", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brandrebate", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandrebate", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_brandToolkit", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandToolkit", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_brandToolkit", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "brandToolkit", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intLeadMonths", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intLeadMonths", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intLeadMonths", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intLeadMonths", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intMonthsCover", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intMonthsCover", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intMonthsCover", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intMonthsCover", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dblVariance", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblVariance", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblVariance", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblVariance", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnActive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLastUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dtStamp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_percBrandGrowth", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "percBrandGrowth", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BrandID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "BrandID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Snell_Cronjob.My.MySettings.Default.SQLConnectionRPT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT BrandID, refPrincipalID, refCompanyID, refBrandManagerID, refBrandManager2"& _ "ID, refGroupingDailyID, refGroupingPrimaryID, refGroupingSecondaryID, strAccpacC"& _ "ode, strBrand, strGroupCode, strGroupAccounts, brand2, brandrebate, brandToolkit"& _ ", intLeadMonths, intMonthsCover, dblVariance, blnActive, strLastUser, dtStamp, p"& _ "ercBrandGrowth FROM dbo.mstBrand" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As SuperbowlDataSet.mstBrandDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) 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 GetData() As SuperbowlDataSet.mstBrandDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As SuperbowlDataSet.mstBrandDataTable = New SuperbowlDataSet.mstBrandDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As SuperbowlDataSet.mstBrandDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As SuperbowlDataSet) As Integer Return Me.Adapter.Update(dataSet, "mstBrand") 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_BrandID As Integer, _ ByVal Original_refPrincipalID As Global.System.Nullable(Of Integer), _ ByVal Original_refCompanyID As Global.System.Nullable(Of Integer), _ ByVal Original_refBrandManagerID As Global.System.Nullable(Of Integer), _ ByVal Original_refBrandManager2ID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingDailyID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingPrimaryID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingSecondaryID As Global.System.Nullable(Of Integer), _ ByVal Original_strAccpacCode As String, _ ByVal Original_strBrand As String, _ ByVal Original_strGroupCode As String, _ ByVal Original_strGroupAccounts As String, _ ByVal Original_brand2 As String, _ ByVal Original_brandrebate As String, _ ByVal Original_brandToolkit As String, _ ByVal Original_intLeadMonths As Global.System.Nullable(Of Integer), _ ByVal Original_intMonthsCover As Global.System.Nullable(Of Integer), _ ByVal Original_dblVariance As Global.System.Nullable(Of Double), _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_strLastUser As String, _ ByVal Original_dtStamp As String, _ ByVal Original_percBrandGrowth As Double) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_BrandID,Integer) If (Original_refPrincipalID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_refPrincipalID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_refCompanyID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_refCompanyID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_refBrandManagerID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_refBrandManagerID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_refBrandManager2ID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_refBrandManager2ID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_refGroupingDailyID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_refGroupingDailyID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_refGroupingPrimaryID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_refGroupingPrimaryID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_refGroupingSecondaryID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_refGroupingSecondaryID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_strAccpacCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_strAccpacCode,String) End If If (Original_strBrand Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_strBrand,String) End If If (Original_strGroupCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_strGroupCode,String) End If If (Original_strGroupAccounts Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_strGroupAccounts,String) End If If (Original_brand2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_brand2,String) End If If (Original_brandrebate Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_brandrebate,String) End If If (Original_brandToolkit Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_brandToolkit,String) End If If (Original_intLeadMonths.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_intLeadMonths.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_intMonthsCover.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_intMonthsCover.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value End If If (Original_dblVariance.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_dblVariance.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value End If If (Original_blnActive.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_blnActive.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value End If If (Original_strLastUser Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_strLastUser,String) End If If (Original_dtStamp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_dtStamp,String) End If Me.Adapter.DeleteCommand.Parameters(41).Value = CType(Original_percBrandGrowth,Double) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal refPrincipalID As Global.System.Nullable(Of Integer), _ ByVal refCompanyID As Global.System.Nullable(Of Integer), _ ByVal refBrandManagerID As Global.System.Nullable(Of Integer), _ ByVal refBrandManager2ID As Global.System.Nullable(Of Integer), _ ByVal refGroupingDailyID As Global.System.Nullable(Of Integer), _ ByVal refGroupingPrimaryID As Global.System.Nullable(Of Integer), _ ByVal refGroupingSecondaryID As Global.System.Nullable(Of Integer), _ ByVal strAccpacCode As String, _ ByVal strBrand As String, _ ByVal strGroupCode As String, _ ByVal strGroupAccounts As String, _ ByVal brand2 As String, _ ByVal brandrebate As String, _ ByVal brandToolkit As String, _ ByVal intLeadMonths As Global.System.Nullable(Of Integer), _ ByVal intMonthsCover As Global.System.Nullable(Of Integer), _ ByVal dblVariance As Global.System.Nullable(Of Double), _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal strLastUser As String, _ ByVal dtStamp As String, _ ByVal percBrandGrowth As Double) As Integer If (refPrincipalID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(refPrincipalID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (refCompanyID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(refCompanyID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (refBrandManagerID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(refBrandManagerID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (refBrandManager2ID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(refBrandManager2ID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (refGroupingDailyID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(refGroupingDailyID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (refGroupingPrimaryID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(refGroupingPrimaryID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (refGroupingSecondaryID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(refGroupingSecondaryID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (strAccpacCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(strAccpacCode,String) End If If (strBrand Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(strBrand,String) End If If (strGroupCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(strGroupCode,String) End If If (strGroupAccounts Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(strGroupAccounts,String) End If If (brand2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(brand2,String) End If If (brandrebate Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(brandrebate,String) End If If (brandToolkit Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(brandToolkit,String) End If If (intLeadMonths.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(intLeadMonths.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (intMonthsCover.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(15).Value = CType(intMonthsCover.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (dblVariance.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(16).Value = CType(dblVariance.Value,Double) Else Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (blnActive.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(17).Value = CType(blnActive.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (strLastUser Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(strLastUser,String) End If If (dtStamp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(dtStamp,String) End If Me.Adapter.InsertCommand.Parameters(20).Value = CType(percBrandGrowth,Double) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refPrincipalID As Global.System.Nullable(Of Integer), _ ByVal refCompanyID As Global.System.Nullable(Of Integer), _ ByVal refBrandManagerID As Global.System.Nullable(Of Integer), _ ByVal refBrandManager2ID As Global.System.Nullable(Of Integer), _ ByVal refGroupingDailyID As Global.System.Nullable(Of Integer), _ ByVal refGroupingPrimaryID As Global.System.Nullable(Of Integer), _ ByVal refGroupingSecondaryID As Global.System.Nullable(Of Integer), _ ByVal strAccpacCode As String, _ ByVal strBrand As String, _ ByVal strGroupCode As String, _ ByVal strGroupAccounts As String, _ ByVal brand2 As String, _ ByVal brandrebate As String, _ ByVal brandToolkit As String, _ ByVal intLeadMonths As Global.System.Nullable(Of Integer), _ ByVal intMonthsCover As Global.System.Nullable(Of Integer), _ ByVal dblVariance As Global.System.Nullable(Of Double), _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal strLastUser As String, _ ByVal dtStamp As String, _ ByVal percBrandGrowth As Double, _ ByVal Original_BrandID As Integer, _ ByVal Original_refPrincipalID As Global.System.Nullable(Of Integer), _ ByVal Original_refCompanyID As Global.System.Nullable(Of Integer), _ ByVal Original_refBrandManagerID As Global.System.Nullable(Of Integer), _ ByVal Original_refBrandManager2ID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingDailyID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingPrimaryID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingSecondaryID As Global.System.Nullable(Of Integer), _ ByVal Original_strAccpacCode As String, _ ByVal Original_strBrand As String, _ ByVal Original_strGroupCode As String, _ ByVal Original_strGroupAccounts As String, _ ByVal Original_brand2 As String, _ ByVal Original_brandrebate As String, _ ByVal Original_brandToolkit As String, _ ByVal Original_intLeadMonths As Global.System.Nullable(Of Integer), _ ByVal Original_intMonthsCover As Global.System.Nullable(Of Integer), _ ByVal Original_dblVariance As Global.System.Nullable(Of Double), _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_strLastUser As String, _ ByVal Original_dtStamp As String, _ ByVal Original_percBrandGrowth As Double, _ ByVal BrandID As Integer) As Integer If (refPrincipalID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(refPrincipalID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (refCompanyID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(refCompanyID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (refBrandManagerID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(refBrandManagerID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (refBrandManager2ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(refBrandManager2ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (refGroupingDailyID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(refGroupingDailyID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (refGroupingPrimaryID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(refGroupingPrimaryID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (refGroupingSecondaryID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(refGroupingSecondaryID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (strAccpacCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(strAccpacCode,String) End If If (strBrand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(strBrand,String) End If If (strGroupCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(strGroupCode,String) End If If (strGroupAccounts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(strGroupAccounts,String) End If If (brand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(brand2,String) End If If (brandrebate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(brandrebate,String) End If If (brandToolkit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(brandToolkit,String) End If If (intLeadMonths.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(intLeadMonths.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (intMonthsCover.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(intMonthsCover.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If If (dblVariance.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(dblVariance.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (blnActive.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(blnActive.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (strLastUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(strLastUser,String) End If If (dtStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(dtStamp,String) End If Me.Adapter.UpdateCommand.Parameters(20).Value = CType(percBrandGrowth,Double) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_BrandID,Integer) If (Original_refPrincipalID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_refPrincipalID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_refCompanyID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_refCompanyID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value End If If (Original_refBrandManagerID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_refBrandManagerID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If If (Original_refBrandManager2ID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_refBrandManager2ID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_refGroupingDailyID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_refGroupingDailyID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_refGroupingPrimaryID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_refGroupingPrimaryID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_refGroupingSecondaryID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_refGroupingSecondaryID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_strAccpacCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_strAccpacCode,String) End If If (Original_strBrand Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_strBrand,String) End If If (Original_strGroupCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_strGroupCode,String) End If If (Original_strGroupAccounts Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_strGroupAccounts,String) End If If (Original_brand2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_brand2,String) End If If (Original_brandrebate Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_brandrebate,String) End If If (Original_brandToolkit Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_brandToolkit,String) End If If (Original_intLeadMonths.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_intLeadMonths.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value End If If (Original_intMonthsCover.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_intMonthsCover.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_dblVariance.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_dblVariance.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_blnActive.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_blnActive.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value End If If (Original_strLastUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_strLastUser,String) End If If (Original_dtStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_dtStamp,String) End If Me.Adapter.UpdateCommand.Parameters(62).Value = CType(Original_percBrandGrowth,Double) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(BrandID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refPrincipalID As Global.System.Nullable(Of Integer), _ ByVal refCompanyID As Global.System.Nullable(Of Integer), _ ByVal refBrandManagerID As Global.System.Nullable(Of Integer), _ ByVal refBrandManager2ID As Global.System.Nullable(Of Integer), _ ByVal refGroupingDailyID As Global.System.Nullable(Of Integer), _ ByVal refGroupingPrimaryID As Global.System.Nullable(Of Integer), _ ByVal refGroupingSecondaryID As Global.System.Nullable(Of Integer), _ ByVal strAccpacCode As String, _ ByVal strBrand As String, _ ByVal strGroupCode As String, _ ByVal strGroupAccounts As String, _ ByVal brand2 As String, _ ByVal brandrebate As String, _ ByVal brandToolkit As String, _ ByVal intLeadMonths As Global.System.Nullable(Of Integer), _ ByVal intMonthsCover As Global.System.Nullable(Of Integer), _ ByVal dblVariance As Global.System.Nullable(Of Double), _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal strLastUser As String, _ ByVal dtStamp As String, _ ByVal percBrandGrowth As Double, _ ByVal Original_BrandID As Integer, _ ByVal Original_refPrincipalID As Global.System.Nullable(Of Integer), _ ByVal Original_refCompanyID As Global.System.Nullable(Of Integer), _ ByVal Original_refBrandManagerID As Global.System.Nullable(Of Integer), _ ByVal Original_refBrandManager2ID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingDailyID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingPrimaryID As Global.System.Nullable(Of Integer), _ ByVal Original_refGroupingSecondaryID As Global.System.Nullable(Of Integer), _ ByVal Original_strAccpacCode As String, _ ByVal Original_strBrand As String, _ ByVal Original_strGroupCode As String, _ ByVal Original_strGroupAccounts As String, _ ByVal Original_brand2 As String, _ ByVal Original_brandrebate As String, _ ByVal Original_brandToolkit As String, _ ByVal Original_intLeadMonths As Global.System.Nullable(Of Integer), _ ByVal Original_intMonthsCover As Global.System.Nullable(Of Integer), _ ByVal Original_dblVariance As Global.System.Nullable(Of Double), _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_strLastUser As String, _ ByVal Original_dtStamp As String, _ ByVal Original_percBrandGrowth As Double) As Integer Return Me.Update(refPrincipalID, refCompanyID, refBrandManagerID, refBrandManager2ID, refGroupingDailyID, refGroupingPrimaryID, refGroupingSecondaryID, strAccpacCode, strBrand, strGroupCode, strGroupAccounts, brand2, brandrebate, brandToolkit, intLeadMonths, intMonthsCover, dblVariance, blnActive, strLastUser, dtStamp, percBrandGrowth, Original_BrandID, Original_refPrincipalID, Original_refCompanyID, Original_refBrandManagerID, Original_refBrandManager2ID, Original_refGroupingDailyID, Original_refGroupingPrimaryID, Original_refGroupingSecondaryID, Original_strAccpacCode, Original_strBrand, Original_strGroupCode, Original_strGroupAccounts, Original_brand2, Original_brandrebate, Original_brandToolkit, Original_intLeadMonths, Original_intMonthsCover, Original_dblVariance, Original_blnActive, Original_strLastUser, Original_dtStamp, Original_percBrandGrowth, Original_BrandID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class mstProductTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "mstProduct" tableMapping.ColumnMappings.Add("strProdCode", "strProdCode") tableMapping.ColumnMappings.Add("refBrandID", "refBrandID") tableMapping.ColumnMappings.Add("strProductDesc", "strProductDesc") tableMapping.ColumnMappings.Add("intPack", "intPack") tableMapping.ColumnMappings.Add("intSize", "intSize") tableMapping.ColumnMappings.Add("dblPrice", "dblPrice") tableMapping.ColumnMappings.Add("strLongProdDesc", "strLongProdDesc") tableMapping.ColumnMappings.Add("strType", "strType") tableMapping.ColumnMappings.Add("strType2", "strType2") tableMapping.ColumnMappings.Add("intShortCode", "intShortCode") tableMapping.ColumnMappings.Add("strPriceSeg", "strPriceSeg") tableMapping.ColumnMappings.Add("strCategory", "strCategory") tableMapping.ColumnMappings.Add("strCategory2", "strCategory2") tableMapping.ColumnMappings.Add("blnActive", "blnActive") tableMapping.ColumnMappings.Add("dblFlat", "dblFlat") tableMapping.ColumnMappings.Add("cwsicat", "cwsicat") tableMapping.ColumnMappings.Add("strPrincipalMaterialRefNum", "strPrincipalMaterialRefNum") tableMapping.ColumnMappings.Add("strPrincipalProdDesc", "strPrincipalProdDesc") tableMapping.ColumnMappings.Add("strBottleBarcode", "strBottleBarcode") tableMapping.ColumnMappings.Add("strCaseBarcode", "strCaseBarcode") tableMapping.ColumnMappings.Add("strGiftboxBarcode", "strGiftboxBarcode") tableMapping.ColumnMappings.Add("intDisplayOrder", "intDisplayOrder") tableMapping.ColumnMappings.Add("strBrandVarietal", "strBrandVarietal") tableMapping.ColumnMappings.Add("dtStamp", "dtStamp") tableMapping.ColumnMappings.Add("strLastUser", "strLastUser") tableMapping.ColumnMappings.Add("strProdCodeArchive", "strProdCodeArchive") tableMapping.ColumnMappings.Add("blnQF", "blnQF") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[mstProduct] WHERE (([strProdCode] = @Original_strProdCode) AND"& _ " ((@IsNull_refBrandID = 1 AND [refBrandID] IS NULL) OR ([refBrandID] = @Original"& _ "_refBrandID)) AND ((@IsNull_strProductDesc = 1 AND [strProductDesc] IS NULL) OR "& _ "([strProductDesc] = @Original_strProductDesc)) AND ((@IsNull_intPack = 1 AND [in"& _ "tPack] IS NULL) OR ([intPack] = @Original_intPack)) AND ((@IsNull_intSize = 1 AN"& _ "D [intSize] IS NULL) OR ([intSize] = @Original_intSize)) AND ((@IsNull_dblPrice "& _ "= 1 AND [dblPrice] IS NULL) OR ([dblPrice] = @Original_dblPrice)) AND ((@IsNull_"& _ "strLongProdDesc = 1 AND [strLongProdDesc] IS NULL) OR ([strLongProdDesc] = @Orig"& _ "inal_strLongProdDesc)) AND ((@IsNull_strType = 1 AND [strType] IS NULL) OR ([str"& _ "Type] = @Original_strType)) AND ((@IsNull_strType2 = 1 AND [strType2] IS NULL) O"& _ "R ([strType2] = @Original_strType2)) AND ((@IsNull_intShortCode = 1 AND [intShor"& _ "tCode] IS NULL) OR ([intShortCode] = @Original_intShortCode)) AND ((@IsNull_strP"& _ "riceSeg = 1 AND [strPriceSeg] IS NULL) OR ([strPriceSeg] = @Original_strPriceSeg"& _ ")) AND ((@IsNull_strCategory = 1 AND [strCategory] IS NULL) OR ([strCategory] = "& _ "@Original_strCategory)) AND ((@IsNull_strCategory2 = 1 AND [strCategory2] IS NUL"& _ "L) OR ([strCategory2] = @Original_strCategory2)) AND ((@IsNull_blnActive = 1 AND"& _ " [blnActive] IS NULL) OR ([blnActive] = @Original_blnActive)) AND ((@IsNull_dblF"& _ "lat = 1 AND [dblFlat] IS NULL) OR ([dblFlat] = @Original_dblFlat)) AND ((@IsNull"& _ "_cwsicat = 1 AND [cwsicat] IS NULL) OR ([cwsicat] = @Original_cwsicat)) AND ((@I"& _ "sNull_strPrincipalMaterialRefNum = 1 AND [strPrincipalMaterialRefNum] IS NULL) O"& _ "R ([strPrincipalMaterialRefNum] = @Original_strPrincipalMaterialRefNum)) AND ((@"& _ "IsNull_strPrincipalProdDesc = 1 AND [strPrincipalProdDesc] IS NULL) OR ([strPrin"& _ "cipalProdDesc] = @Original_strPrincipalProdDesc)) AND ((@IsNull_strBottleBarcode"& _ " = 1 AND [strBottleBarcode] IS NULL) OR ([strBottleBarcode] = @Original_strBottl"& _ "eBarcode)) AND ((@IsNull_strCaseBarcode = 1 AND [strCaseBarcode] IS NULL) OR ([s"& _ "trCaseBarcode] = @Original_strCaseBarcode)) AND ((@IsNull_strGiftboxBarcode = 1 "& _ "AND [strGiftboxBarcode] IS NULL) OR ([strGiftboxBarcode] = @Original_strGiftboxB"& _ "arcode)) AND ((@IsNull_intDisplayOrder = 1 AND [intDisplayOrder] IS NULL) OR ([i"& _ "ntDisplayOrder] = @Original_intDisplayOrder)) AND ((@IsNull_strBrandVarietal = 1"& _ " AND [strBrandVarietal] IS NULL) OR ([strBrandVarietal] = @Original_strBrandVari"& _ "etal)) AND ((@IsNull_dtStamp = 1 AND [dtStamp] IS NULL) OR ([dtStamp] = @Origina"& _ "l_dtStamp)) AND ((@IsNull_strLastUser = 1 AND [strLastUser] IS NULL) OR ([strLas"& _ "tUser] = @Original_strLastUser)) AND ((@IsNull_strProdCodeArchive = 1 AND [strPr"& _ "odCodeArchive] IS NULL) OR ([strProdCodeArchive] = @Original_strProdCodeArchive)"& _ ") AND ([blnQF] = @Original_blnQF))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProdCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strProductDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProductDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProductDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProductDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intPack", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intPack", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intSize", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intSize", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intSize", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intSize", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dblPrice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblPrice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblPrice", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLongProdDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLongProdDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLongProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLongProdDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intShortCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intShortCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intShortCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intShortCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPriceSeg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceSeg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPriceSeg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceSeg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCategory", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCategory", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCategory2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCategory2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnActive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dblFlat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblFlat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblFlat", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblFlat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cwsicat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cwsicat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cwsicat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cwsicat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPrincipalMaterialRefNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalMaterialRefNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPrincipalMaterialRefNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalMaterialRefNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPrincipalProdDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalProdDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPrincipalProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalProdDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBottleBarcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBottleBarcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBottleBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBottleBarcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCaseBarcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCaseBarcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCaseBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCaseBarcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGiftboxBarcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGiftboxBarcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGiftboxBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGiftboxBarcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intDisplayOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intDisplayOrder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intDisplayOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intDisplayOrder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBrandVarietal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrandVarietal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBrandVarietal", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrandVarietal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dtStamp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLastUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strProdCodeArchive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCodeArchive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProdCodeArchive", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCodeArchive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnQF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnQF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[mstProduct] ([strProdCode], [refBrandID], [strProductDesc], [i"& _ "ntPack], [intSize], [dblPrice], [strLongProdDesc], [strType], [strType2], [intSh"& _ "ortCode], [strPriceSeg], [strCategory], [strCategory2], [blnActive], [dblFlat], "& _ "[cwsicat], [strPrincipalMaterialRefNum], [strPrincipalProdDesc], [strBottleBarco"& _ "de], [strCaseBarcode], [strGiftboxBarcode], [intDisplayOrder], [strBrandVarietal"& _ "], [dtStamp], [strLastUser], [strProdCodeArchive], [blnQF]) VALUES (@strProdCode"& _ ", @refBrandID, @strProductDesc, @intPack, @intSize, @dblPrice, @strLongProdDesc,"& _ " @strType, @strType2, @intShortCode, @strPriceSeg, @strCategory, @strCategory2, "& _ "@blnActive, @dblFlat, @cwsicat, @strPrincipalMaterialRefNum, @strPrincipalProdDe"& _ "sc, @strBottleBarcode, @strCaseBarcode, @strGiftboxBarcode, @intDisplayOrder, @s"& _ "trBrandVarietal, @dtStamp, @strLastUser, @strProdCodeArchive, @blnQF);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT s"& _ "trProdCode, refBrandID, strProductDesc, intPack, intSize, dblPrice, strLongProdD"& _ "esc, strType, strType2, intShortCode, strPriceSeg, strCategory, strCategory2, bl"& _ "nActive, dblFlat, cwsicat, strPrincipalMaterialRefNum, strPrincipalProdDesc, str"& _ "BottleBarcode, strCaseBarcode, strGiftboxBarcode, intDisplayOrder, strBrandVarie"& _ "tal, dtStamp, strLastUser, strProdCodeArchive, blnQF FROM mstProduct WHERE (strP"& _ "rodCode = @strProdCode)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProdCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProductDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProductDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intPack", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intSize", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intSize", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblPrice", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLongProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLongProdDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intShortCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intShortCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPriceSeg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceSeg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCategory", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCategory2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblFlat", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblFlat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cwsicat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cwsicat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPrincipalMaterialRefNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalMaterialRefNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPrincipalProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalProdDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBottleBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBottleBarcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCaseBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCaseBarcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGiftboxBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGiftboxBarcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intDisplayOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intDisplayOrder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBrandVarietal", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrandVarietal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProdCodeArchive", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCodeArchive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnQF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnQF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[mstProduct] SET [strProdCode] = @strProdCode, [refBrandID] = @refBr"& _ "andID, [strProductDesc] = @strProductDesc, [intPack] = @intPack, [intSize] = @in"& _ "tSize, [dblPrice] = @dblPrice, [strLongProdDesc] = @strLongProdDesc, [strType] ="& _ " @strType, [strType2] = @strType2, [intShortCode] = @intShortCode, [strPriceSeg]"& _ " = @strPriceSeg, [strCategory] = @strCategory, [strCategory2] = @strCategory2, ["& _ "blnActive] = @blnActive, [dblFlat] = @dblFlat, [cwsicat] = @cwsicat, [strPrincip"& _ "alMaterialRefNum] = @strPrincipalMaterialRefNum, [strPrincipalProdDesc] = @strPr"& _ "incipalProdDesc, [strBottleBarcode] = @strBottleBarcode, [strCaseBarcode] = @str"& _ "CaseBarcode, [strGiftboxBarcode] = @strGiftboxBarcode, [intDisplayOrder] = @intD"& _ "isplayOrder, [strBrandVarietal] = @strBrandVarietal, [dtStamp] = @dtStamp, [strL"& _ "astUser] = @strLastUser, [strProdCodeArchive] = @strProdCodeArchive, [blnQF] = @"& _ "blnQF WHERE (([strProdCode] = @Original_strProdCode) AND ((@IsNull_refBrandID = "& _ "1 AND [refBrandID] IS NULL) OR ([refBrandID] = @Original_refBrandID)) AND ((@IsN"& _ "ull_strProductDesc = 1 AND [strProductDesc] IS NULL) OR ([strProductDesc] = @Ori"& _ "ginal_strProductDesc)) AND ((@IsNull_intPack = 1 AND [intPack] IS NULL) OR ([int"& _ "Pack] = @Original_intPack)) AND ((@IsNull_intSize = 1 AND [intSize] IS NULL) OR "& _ "([intSize] = @Original_intSize)) AND ((@IsNull_dblPrice = 1 AND [dblPrice] IS NU"& _ "LL) OR ([dblPrice] = @Original_dblPrice)) AND ((@IsNull_strLongProdDesc = 1 AND "& _ "[strLongProdDesc] IS NULL) OR ([strLongProdDesc] = @Original_strLongProdDesc)) A"& _ "ND ((@IsNull_strType = 1 AND [strType] IS NULL) OR ([strType] = @Original_strTyp"& _ "e)) AND ((@IsNull_strType2 = 1 AND [strType2] IS NULL) OR ([strType2] = @Origina"& _ "l_strType2)) AND ((@IsNull_intShortCode = 1 AND [intShortCode] IS NULL) OR ([int"& _ "ShortCode] = @Original_intShortCode)) AND ((@IsNull_strPriceSeg = 1 AND [strPric"& _ "eSeg] IS NULL) OR ([strPriceSeg] = @Original_strPriceSeg)) AND ((@IsNull_strCate"& _ "gory = 1 AND [strCategory] IS NULL) OR ([strCategory] = @Original_strCategory)) "& _ "AND ((@IsNull_strCategory2 = 1 AND [strCategory2] IS NULL) OR ([strCategory2] = "& _ "@Original_strCategory2)) AND ((@IsNull_blnActive = 1 AND [blnActive] IS NULL) OR"& _ " ([blnActive] = @Original_blnActive)) AND ((@IsNull_dblFlat = 1 AND [dblFlat] IS"& _ " NULL) OR ([dblFlat] = @Original_dblFlat)) AND ((@IsNull_cwsicat = 1 AND [cwsica"& _ "t] IS NULL) OR ([cwsicat] = @Original_cwsicat)) AND ((@IsNull_strPrincipalMateri"& _ "alRefNum = 1 AND [strPrincipalMaterialRefNum] IS NULL) OR ([strPrincipalMaterial"& _ "RefNum] = @Original_strPrincipalMaterialRefNum)) AND ((@IsNull_strPrincipalProdD"& _ "esc = 1 AND [strPrincipalProdDesc] IS NULL) OR ([strPrincipalProdDesc] = @Origin"& _ "al_strPrincipalProdDesc)) AND ((@IsNull_strBottleBarcode = 1 AND [strBottleBarco"& _ "de] IS NULL) OR ([strBottleBarcode] = @Original_strBottleBarcode)) AND ((@IsNull"& _ "_strCaseBarcode = 1 AND [strCaseBarcode] IS NULL) OR ([strCaseBarcode] = @Origin"& _ "al_strCaseBarcode)) AND ((@IsNull_strGiftboxBarcode = 1 AND [strGiftboxBarcode] "& _ "IS NULL) OR ([strGiftboxBarcode] = @Original_strGiftboxBarcode)) AND ((@IsNull_i"& _ "ntDisplayOrder = 1 AND [intDisplayOrder] IS NULL) OR ([intDisplayOrder] = @Origi"& _ "nal_intDisplayOrder)) AND ((@IsNull_strBrandVarietal = 1 AND [strBrandVarietal] "& _ "IS NULL) OR ([strBrandVarietal] = @Original_strBrandVarietal)) AND ((@IsNull_dtS"& _ "tamp = 1 AND [dtStamp] IS NULL) OR ([dtStamp] = @Original_dtStamp)) AND ((@IsNul"& _ "l_strLastUser = 1 AND [strLastUser] IS NULL) OR ([strLastUser] = @Original_strLa"& _ "stUser)) AND ((@IsNull_strProdCodeArchive = 1 AND [strProdCodeArchive] IS NULL) "& _ "OR ([strProdCodeArchive] = @Original_strProdCodeArchive)) AND ([blnQF] = @Origin"& _ "al_blnQF));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT strProdCode, refBrandID, strProductDesc, intPack, intSize, d"& _ "blPrice, strLongProdDesc, strType, strType2, intShortCode, strPriceSeg, strCateg"& _ "ory, strCategory2, blnActive, dblFlat, cwsicat, strPrincipalMaterialRefNum, strP"& _ "rincipalProdDesc, strBottleBarcode, strCaseBarcode, strGiftboxBarcode, intDispla"& _ "yOrder, strBrandVarietal, dtStamp, strLastUser, strProdCodeArchive, blnQF FROM m"& _ "stProduct WHERE (strProdCode = @strProdCode)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProdCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProductDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProductDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intPack", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intSize", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intSize", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblPrice", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblPrice", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLongProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLongProdDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intShortCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intShortCode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPriceSeg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceSeg", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCategory", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCategory2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dblFlat", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblFlat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@cwsicat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cwsicat", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPrincipalMaterialRefNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalMaterialRefNum", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPrincipalProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalProdDesc", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBottleBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBottleBarcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strCaseBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCaseBarcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strGiftboxBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGiftboxBarcode", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@intDisplayOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intDisplayOrder", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strBrandVarietal", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrandVarietal", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strProdCodeArchive", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCodeArchive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnQF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnQF", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProdCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refBrandID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refBrandID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strProductDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProductDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProductDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProductDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intPack", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intPack", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intPack", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intSize", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intSize", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intSize", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intSize", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dblPrice", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblPrice", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblPrice", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblPrice", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLongProdDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLongProdDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLongProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLongProdDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strType2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strType2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strType2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intShortCode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intShortCode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intShortCode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intShortCode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPriceSeg", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceSeg", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPriceSeg", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPriceSeg", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCategory", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCategory", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCategory2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCategory2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCategory2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_blnActive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnActive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnActive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dblFlat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblFlat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dblFlat", Global.System.Data.SqlDbType.Float, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dblFlat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_cwsicat", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cwsicat", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_cwsicat", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "cwsicat", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPrincipalMaterialRefNum", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalMaterialRefNum", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPrincipalMaterialRefNum", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalMaterialRefNum", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPrincipalProdDesc", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalProdDesc", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPrincipalProdDesc", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPrincipalProdDesc", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBottleBarcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBottleBarcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBottleBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBottleBarcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strCaseBarcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCaseBarcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strCaseBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strCaseBarcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strGiftboxBarcode", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGiftboxBarcode", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strGiftboxBarcode", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strGiftboxBarcode", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_intDisplayOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intDisplayOrder", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_intDisplayOrder", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "intDisplayOrder", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strBrandVarietal", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrandVarietal", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strBrandVarietal", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strBrandVarietal", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dtStamp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLastUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strProdCodeArchive", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCodeArchive", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strProdCodeArchive", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strProdCodeArchive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnQF", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnQF", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Snell_Cronjob.My.MySettings.Default.SQLConnectionRPT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT strProdCode, refBrandID, strProductDesc, intPack, intSize, dblPrice, strLo"& _ "ngProdDesc, strType, strType2, intShortCode, strPriceSeg, strCategory, strCatego"& _ "ry2, blnActive, dblFlat, cwsicat, strPrincipalMaterialRefNum, strPrincipalProdDe"& _ "sc, strBottleBarcode, strCaseBarcode, strGiftboxBarcode, intDisplayOrder, strBra"& _ "ndVarietal, dtStamp, strLastUser, strProdCodeArchive, blnQF FROM dbo.mstProduct" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As SuperbowlDataSet.mstProductDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) 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 GetData() As SuperbowlDataSet.mstProductDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As SuperbowlDataSet.mstProductDataTable = New SuperbowlDataSet.mstProductDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As SuperbowlDataSet.mstProductDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As SuperbowlDataSet) As Integer Return Me.Adapter.Update(dataSet, "mstProduct") 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_strProdCode As String, _ ByVal Original_refBrandID As Global.System.Nullable(Of Integer), _ ByVal Original_strProductDesc As String, _ ByVal Original_intPack As Global.System.Nullable(Of Integer), _ ByVal Original_intSize As Global.System.Nullable(Of Integer), _ ByVal Original_dblPrice As Global.System.Nullable(Of Double), _ ByVal Original_strLongProdDesc As String, _ ByVal Original_strType As String, _ ByVal Original_strType2 As String, _ ByVal Original_intShortCode As String, _ ByVal Original_strPriceSeg As String, _ ByVal Original_strCategory As String, _ ByVal Original_strCategory2 As String, _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_dblFlat As Global.System.Nullable(Of Double), _ ByVal Original_cwsicat As String, _ ByVal Original_strPrincipalMaterialRefNum As String, _ ByVal Original_strPrincipalProdDesc As String, _ ByVal Original_strBottleBarcode As String, _ ByVal Original_strCaseBarcode As String, _ ByVal Original_strGiftboxBarcode As String, _ ByVal Original_intDisplayOrder As Global.System.Nullable(Of Integer), _ ByVal Original_strBrandVarietal As String, _ ByVal Original_dtStamp As String, _ ByVal Original_strLastUser As String, _ ByVal Original_strProdCodeArchive As String, _ ByVal Original_blnQF As Boolean) As Integer If (Original_strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strProdCode") Else Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_strProdCode,String) End If If (Original_refBrandID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_refBrandID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_strProductDesc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_strProductDesc,String) End If If (Original_intPack.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_intPack.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_intSize.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_intSize.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_dblPrice.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_dblPrice.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_strLongProdDesc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_strLongProdDesc,String) End If If (Original_strType Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_strType,String) End If If (Original_strType2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_strType2,String) End If If (Original_intShortCode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_intShortCode,String) End If If (Original_strPriceSeg Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_strPriceSeg,String) End If If (Original_strCategory Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_strCategory,String) End If If (Original_strCategory2 Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_strCategory2,String) End If If (Original_blnActive.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_blnActive.Value,Boolean) Else Me.Adapter.DeleteCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_dblFlat.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_dblFlat.Value,Double) Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_cwsicat Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_cwsicat,String) End If If (Original_strPrincipalMaterialRefNum Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_strPrincipalMaterialRefNum,String) End If If (Original_strPrincipalProdDesc Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_strPrincipalProdDesc,String) End If If (Original_strBottleBarcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_strBottleBarcode,String) End If If (Original_strCaseBarcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(37).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(37).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(38).Value = CType(Original_strCaseBarcode,String) End If If (Original_strGiftboxBarcode Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(39).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(39).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(40).Value = CType(Original_strGiftboxBarcode,String) End If If (Original_intDisplayOrder.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(41).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = CType(Original_intDisplayOrder.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(41).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_strBrandVarietal Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(43).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(43).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(44).Value = CType(Original_strBrandVarietal,String) End If If (Original_dtStamp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(46).Value = CType(Original_dtStamp,String) End If If (Original_strLastUser Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(48).Value = CType(Original_strLastUser,String) End If If (Original_strProdCodeArchive Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(49).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(49).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(50).Value = CType(Original_strProdCodeArchive,String) End If Me.Adapter.DeleteCommand.Parameters(51).Value = CType(Original_blnQF,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal strProdCode As String, _ ByVal refBrandID As Global.System.Nullable(Of Integer), _ ByVal strProductDesc As String, _ ByVal intPack As Global.System.Nullable(Of Integer), _ ByVal intSize As Global.System.Nullable(Of Integer), _ ByVal dblPrice As Global.System.Nullable(Of Double), _ ByVal strLongProdDesc As String, _ ByVal strType As String, _ ByVal strType2 As String, _ ByVal intShortCode As String, _ ByVal strPriceSeg As String, _ ByVal strCategory As String, _ ByVal strCategory2 As String, _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal dblFlat As Global.System.Nullable(Of Double), _ ByVal cwsicat As String, _ ByVal strPrincipalMaterialRefNum As String, _ ByVal strPrincipalProdDesc As String, _ ByVal strBottleBarcode As String, _ ByVal strCaseBarcode As String, _ ByVal strGiftboxBarcode As String, _ ByVal intDisplayOrder As Global.System.Nullable(Of Integer), _ ByVal strBrandVarietal As String, _ ByVal dtStamp As String, _ ByVal strLastUser As String, _ ByVal strProdCodeArchive As String, _ ByVal blnQF As Boolean) As Integer If (strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("strProdCode") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(strProdCode,String) End If If (refBrandID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(refBrandID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (strProductDesc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(strProductDesc,String) End If If (intPack.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(intPack.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (intSize.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(intSize.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (dblPrice.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(dblPrice.Value,Double) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (strLongProdDesc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(strLongProdDesc,String) End If If (strType Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(strType,String) End If If (strType2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(strType2,String) End If If (intShortCode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(intShortCode,String) End If If (strPriceSeg Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(strPriceSeg,String) End If If (strCategory Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(strCategory,String) End If If (strCategory2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(strCategory2,String) End If If (blnActive.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(13).Value = CType(blnActive.Value,Boolean) Else Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (dblFlat.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(14).Value = CType(dblFlat.Value,Double) Else Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (cwsicat Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(cwsicat,String) End If If (strPrincipalMaterialRefNum Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(strPrincipalMaterialRefNum,String) End If If (strPrincipalProdDesc Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(strPrincipalProdDesc,String) End If If (strBottleBarcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(18).Value = CType(strBottleBarcode,String) End If If (strCaseBarcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(19).Value = CType(strCaseBarcode,String) End If If (strGiftboxBarcode Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(20).Value = CType(strGiftboxBarcode,String) End If If (intDisplayOrder.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(21).Value = CType(intDisplayOrder.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (strBrandVarietal Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(22).Value = CType(strBrandVarietal,String) End If If (dtStamp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(23).Value = CType(dtStamp,String) End If If (strLastUser Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(24).Value = CType(strLastUser,String) End If If (strProdCodeArchive Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(25).Value = CType(strProdCodeArchive,String) End If Me.Adapter.InsertCommand.Parameters(26).Value = CType(blnQF,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal strProdCode As String, _ ByVal refBrandID As Global.System.Nullable(Of Integer), _ ByVal strProductDesc As String, _ ByVal intPack As Global.System.Nullable(Of Integer), _ ByVal intSize As Global.System.Nullable(Of Integer), _ ByVal dblPrice As Global.System.Nullable(Of Double), _ ByVal strLongProdDesc As String, _ ByVal strType As String, _ ByVal strType2 As String, _ ByVal intShortCode As String, _ ByVal strPriceSeg As String, _ ByVal strCategory As String, _ ByVal strCategory2 As String, _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal dblFlat As Global.System.Nullable(Of Double), _ ByVal cwsicat As String, _ ByVal strPrincipalMaterialRefNum As String, _ ByVal strPrincipalProdDesc As String, _ ByVal strBottleBarcode As String, _ ByVal strCaseBarcode As String, _ ByVal strGiftboxBarcode As String, _ ByVal intDisplayOrder As Global.System.Nullable(Of Integer), _ ByVal strBrandVarietal As String, _ ByVal dtStamp As String, _ ByVal strLastUser As String, _ ByVal strProdCodeArchive As String, _ ByVal blnQF As Boolean, _ ByVal Original_strProdCode As String, _ ByVal Original_refBrandID As Global.System.Nullable(Of Integer), _ ByVal Original_strProductDesc As String, _ ByVal Original_intPack As Global.System.Nullable(Of Integer), _ ByVal Original_intSize As Global.System.Nullable(Of Integer), _ ByVal Original_dblPrice As Global.System.Nullable(Of Double), _ ByVal Original_strLongProdDesc As String, _ ByVal Original_strType As String, _ ByVal Original_strType2 As String, _ ByVal Original_intShortCode As String, _ ByVal Original_strPriceSeg As String, _ ByVal Original_strCategory As String, _ ByVal Original_strCategory2 As String, _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_dblFlat As Global.System.Nullable(Of Double), _ ByVal Original_cwsicat As String, _ ByVal Original_strPrincipalMaterialRefNum As String, _ ByVal Original_strPrincipalProdDesc As String, _ ByVal Original_strBottleBarcode As String, _ ByVal Original_strCaseBarcode As String, _ ByVal Original_strGiftboxBarcode As String, _ ByVal Original_intDisplayOrder As Global.System.Nullable(Of Integer), _ ByVal Original_strBrandVarietal As String, _ ByVal Original_dtStamp As String, _ ByVal Original_strLastUser As String, _ ByVal Original_strProdCodeArchive As String, _ ByVal Original_blnQF As Boolean) As Integer If (strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("strProdCode") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(strProdCode,String) End If If (refBrandID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(refBrandID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (strProductDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(strProductDesc,String) End If If (intPack.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(intPack.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (intSize.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(intSize.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (dblPrice.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(dblPrice.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (strLongProdDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(strLongProdDesc,String) End If If (strType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(strType,String) End If If (strType2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(strType2,String) End If If (intShortCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(intShortCode,String) End If If (strPriceSeg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(strPriceSeg,String) End If If (strCategory Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(strCategory,String) End If If (strCategory2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(strCategory2,String) End If If (blnActive.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(blnActive.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If If (dblFlat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(14).Value = CType(dblFlat.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (cwsicat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(cwsicat,String) End If If (strPrincipalMaterialRefNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(strPrincipalMaterialRefNum,String) End If If (strPrincipalProdDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(strPrincipalProdDesc,String) End If If (strBottleBarcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(strBottleBarcode,String) End If If (strCaseBarcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(strCaseBarcode,String) End If If (strGiftboxBarcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(strGiftboxBarcode,String) End If If (intDisplayOrder.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(intDisplayOrder.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If If (strBrandVarietal Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(strBrandVarietal,String) End If If (dtStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(dtStamp,String) End If If (strLastUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(strLastUser,String) End If If (strProdCodeArchive Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(strProdCodeArchive,String) End If Me.Adapter.UpdateCommand.Parameters(26).Value = CType(blnQF,Boolean) If (Original_strProdCode Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strProdCode") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_strProdCode,String) End If If (Original_refBrandID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_refBrandID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value End If If (Original_strProductDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_strProductDesc,String) End If If (Original_intPack.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_intPack.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value End If If (Original_intSize.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_intSize.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If If (Original_dblPrice.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_dblPrice.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value End If If (Original_strLongProdDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_strLongProdDesc,String) End If If (Original_strType Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_strType,String) End If If (Original_strType2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_strType2,String) End If If (Original_intShortCode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(44).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(44).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_intShortCode,String) End If If (Original_strPriceSeg Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_strPriceSeg,String) End If If (Original_strCategory Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_strCategory,String) End If If (Original_strCategory2 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_strCategory2,String) End If If (Original_blnActive.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_blnActive.Value,Boolean) Else Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value End If If (Original_dblFlat.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_dblFlat.Value,Double) Else Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value End If If (Original_cwsicat Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_cwsicat,String) End If If (Original_strPrincipalMaterialRefNum Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_strPrincipalMaterialRefNum,String) End If If (Original_strPrincipalProdDesc Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_strPrincipalProdDesc,String) End If If (Original_strBottleBarcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(62).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(62).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(63).Value = CType(Original_strBottleBarcode,String) End If If (Original_strCaseBarcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(64).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(64).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(65).Value = CType(Original_strCaseBarcode,String) End If If (Original_strGiftboxBarcode Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(66).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(66).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(67).Value = CType(Original_strGiftboxBarcode,String) End If If (Original_intDisplayOrder.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(68).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = CType(Original_intDisplayOrder.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(68).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(69).Value = Global.System.DBNull.Value End If If (Original_strBrandVarietal Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(70).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(70).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(71).Value = CType(Original_strBrandVarietal,String) End If If (Original_dtStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(72).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(72).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(73).Value = CType(Original_dtStamp,String) End If If (Original_strLastUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(74).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(74).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(75).Value = CType(Original_strLastUser,String) End If If (Original_strProdCodeArchive Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(76).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(76).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(77).Value = CType(Original_strProdCodeArchive,String) End If Me.Adapter.UpdateCommand.Parameters(78).Value = CType(Original_blnQF,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refBrandID As Global.System.Nullable(Of Integer), _ ByVal strProductDesc As String, _ ByVal intPack As Global.System.Nullable(Of Integer), _ ByVal intSize As Global.System.Nullable(Of Integer), _ ByVal dblPrice As Global.System.Nullable(Of Double), _ ByVal strLongProdDesc As String, _ ByVal strType As String, _ ByVal strType2 As String, _ ByVal intShortCode As String, _ ByVal strPriceSeg As String, _ ByVal strCategory As String, _ ByVal strCategory2 As String, _ ByVal blnActive As Global.System.Nullable(Of Boolean), _ ByVal dblFlat As Global.System.Nullable(Of Double), _ ByVal cwsicat As String, _ ByVal strPrincipalMaterialRefNum As String, _ ByVal strPrincipalProdDesc As String, _ ByVal strBottleBarcode As String, _ ByVal strCaseBarcode As String, _ ByVal strGiftboxBarcode As String, _ ByVal intDisplayOrder As Global.System.Nullable(Of Integer), _ ByVal strBrandVarietal As String, _ ByVal dtStamp As String, _ ByVal strLastUser As String, _ ByVal strProdCodeArchive As String, _ ByVal blnQF As Boolean, _ ByVal Original_strProdCode As String, _ ByVal Original_refBrandID As Global.System.Nullable(Of Integer), _ ByVal Original_strProductDesc As String, _ ByVal Original_intPack As Global.System.Nullable(Of Integer), _ ByVal Original_intSize As Global.System.Nullable(Of Integer), _ ByVal Original_dblPrice As Global.System.Nullable(Of Double), _ ByVal Original_strLongProdDesc As String, _ ByVal Original_strType As String, _ ByVal Original_strType2 As String, _ ByVal Original_intShortCode As String, _ ByVal Original_strPriceSeg As String, _ ByVal Original_strCategory As String, _ ByVal Original_strCategory2 As String, _ ByVal Original_blnActive As Global.System.Nullable(Of Boolean), _ ByVal Original_dblFlat As Global.System.Nullable(Of Double), _ ByVal Original_cwsicat As String, _ ByVal Original_strPrincipalMaterialRefNum As String, _ ByVal Original_strPrincipalProdDesc As String, _ ByVal Original_strBottleBarcode As String, _ ByVal Original_strCaseBarcode As String, _ ByVal Original_strGiftboxBarcode As String, _ ByVal Original_intDisplayOrder As Global.System.Nullable(Of Integer), _ ByVal Original_strBrandVarietal As String, _ ByVal Original_dtStamp As String, _ ByVal Original_strLastUser As String, _ ByVal Original_strProdCodeArchive As String, _ ByVal Original_blnQF As Boolean) As Integer Return Me.Update(Original_strProdCode, refBrandID, strProductDesc, intPack, intSize, dblPrice, strLongProdDesc, strType, strType2, intShortCode, strPriceSeg, strCategory, strCategory2, blnActive, dblFlat, cwsicat, strPrincipalMaterialRefNum, strPrincipalProdDesc, strBottleBarcode, strCaseBarcode, strGiftboxBarcode, intDisplayOrder, strBrandVarietal, dtStamp, strLastUser, strProdCodeArchive, blnQF, Original_strProdCode, Original_refBrandID, Original_strProductDesc, Original_intPack, Original_intSize, Original_dblPrice, Original_strLongProdDesc, Original_strType, Original_strType2, Original_intShortCode, Original_strPriceSeg, Original_strCategory, Original_strCategory2, Original_blnActive, Original_dblFlat, Original_cwsicat, Original_strPrincipalMaterialRefNum, Original_strPrincipalProdDesc, Original_strBottleBarcode, Original_strCaseBarcode, Original_strGiftboxBarcode, Original_intDisplayOrder, Original_strBrandVarietal, Original_dtStamp, Original_strLastUser, Original_strProdCodeArchive, Original_blnQF) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class mstUserTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ 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() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "mstUser" tableMapping.ColumnMappings.Add("UserID", "UserID") tableMapping.ColumnMappings.Add("refUserGroupID", "refUserGroupID") tableMapping.ColumnMappings.Add("refUserGroupSuperbowlID", "refUserGroupSuperbowlID") tableMapping.ColumnMappings.Add("refUserGroupForecastID", "refUserGroupForecastID") tableMapping.ColumnMappings.Add("refUserGroupPromotionID", "refUserGroupPromotionID") tableMapping.ColumnMappings.Add("refUserGroupScoreCardID", "refUserGroupScoreCardID") tableMapping.ColumnMappings.Add("refUserGroupFreeStockID", "refUserGroupFreeStockID") tableMapping.ColumnMappings.Add("refManagerID", "refManagerID") tableMapping.ColumnMappings.Add("refManagerAlternativeID", "refManagerAlternativeID") tableMapping.ColumnMappings.Add("refManagerExecutiveID", "refManagerExecutiveID") tableMapping.ColumnMappings.Add("strUserName", "strUserName") tableMapping.ColumnMappings.Add("strPassword", "strPassword") tableMapping.ColumnMappings.Add("strDomainLogin", "strDomainLogin") tableMapping.ColumnMappings.Add("strEmail", "strEmail") tableMapping.ColumnMappings.Add("strRegion", "strRegion") tableMapping.ColumnMappings.Add("blnManager", "blnManager") tableMapping.ColumnMappings.Add("blnManagerExecutive", "blnManagerExecutive") tableMapping.ColumnMappings.Add("strLastUser", "strLastUser") tableMapping.ColumnMappings.Add("dtStamp", "dtStamp") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [dbo].[mstUser] WHERE (([UserID] = @Original_UserID) AND ((@IsNull_re"& _ "fUserGroupID = 1 AND [refUserGroupID] IS NULL) OR ([refUserGroupID] = @Original_"& _ "refUserGroupID)) AND ((@IsNull_refUserGroupSuperbowlID = 1 AND [refUserGroupSupe"& _ "rbowlID] IS NULL) OR ([refUserGroupSuperbowlID] = @Original_refUserGroupSuperbow"& _ "lID)) AND ((@IsNull_refUserGroupForecastID = 1 AND [refUserGroupForecastID] IS N"& _ "ULL) OR ([refUserGroupForecastID] = @Original_refUserGroupForecastID)) AND ((@Is"& _ "Null_refUserGroupPromotionID = 1 AND [refUserGroupPromotionID] IS NULL) OR ([ref"& _ "UserGroupPromotionID] = @Original_refUserGroupPromotionID)) AND ((@IsNull_refUse"& _ "rGroupScoreCardID = 1 AND [refUserGroupScoreCardID] IS NULL) OR ([refUserGroupSc"& _ "oreCardID] = @Original_refUserGroupScoreCardID)) AND ((@IsNull_refUserGroupFreeS"& _ "tockID = 1 AND [refUserGroupFreeStockID] IS NULL) OR ([refUserGroupFreeStockID] "& _ "= @Original_refUserGroupFreeStockID)) AND ([refManagerID] = @Original_refManager"& _ "ID) AND ([refManagerAlternativeID] = @Original_refManagerAlternativeID) AND ([re"& _ "fManagerExecutiveID] = @Original_refManagerExecutiveID) AND ((@IsNull_strUserNam"& _ "e = 1 AND [strUserName] IS NULL) OR ([strUserName] = @Original_strUserName)) AND"& _ " ((@IsNull_strPassword = 1 AND [strPassword] IS NULL) OR ([strPassword] = @Origi"& _ "nal_strPassword)) AND ((@IsNull_strDomainLogin = 1 AND [strDomainLogin] IS NULL)"& _ " OR ([strDomainLogin] = @Original_strDomainLogin)) AND ((@IsNull_strEmail = 1 AN"& _ "D [strEmail] IS NULL) OR ([strEmail] = @Original_strEmail)) AND ([strRegion] = @"& _ "Original_strRegion) AND ([blnManager] = @Original_blnManager) AND ([blnManagerEx"& _ "ecutive] = @Original_blnManagerExecutive) AND ((@IsNull_strLastUser = 1 AND [str"& _ "LastUser] IS NULL) OR ([strLastUser] = @Original_strLastUser)) AND ((@IsNull_dtS"& _ "tamp = 1 AND [dtStamp] IS NULL) OR ([dtStamp] = @Original_dtStamp)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupSuperbowlID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupSuperbowlID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupSuperbowlID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupSuperbowlID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupForecastID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupForecastID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupForecastID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupForecastID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupPromotionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupPromotionID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupPromotionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupPromotionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupScoreCardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupScoreCardID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupScoreCardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupScoreCardID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupFreeStockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupFreeStockID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupFreeStockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupFreeStockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerAlternativeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerAlternativeID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerExecutiveID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerExecutiveID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strUserName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strUserName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strUserName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strUserName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPassword", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPassword", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPassword", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPassword", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strDomainLogin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strDomainLogin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strDomainLogin", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strDomainLogin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnManager", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManager", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnManagerExecutive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManagerExecutive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLastUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dtStamp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[mstUser] ([refUserGroupID], [refUserGroupSuperbowlID], [refUse"& _ "rGroupForecastID], [refUserGroupPromotionID], [refUserGroupScoreCardID], [refUse"& _ "rGroupFreeStockID], [refManagerID], [refManagerAlternativeID], [refManagerExecut"& _ "iveID], [strUserName], [strPassword], [strDomainLogin], [strEmail], [strRegion],"& _ " [blnManager], [blnManagerExecutive], [strLastUser], [dtStamp]) VALUES (@refUser"& _ "GroupID, @refUserGroupSuperbowlID, @refUserGroupForecastID, @refUserGroupPromoti"& _ "onID, @refUserGroupScoreCardID, @refUserGroupFreeStockID, @refManagerID, @refMan"& _ "agerAlternativeID, @refManagerExecutiveID, @strUserName, @strPassword, @strDomai"& _ "nLogin, @strEmail, @strRegion, @blnManager, @blnManagerExecutive, @strLastUser, "& _ "@dtStamp);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, refUserGroupID, refUserGroupSuperbowlID, refUserGroup"& _ "ForecastID, refUserGroupPromotionID, refUserGroupScoreCardID, refUserGroupFreeSt"& _ "ockID, refManagerID, refManagerAlternativeID, refManagerExecutiveID, strUserName"& _ ", strPassword, strDomainLogin, strEmail, strRegion, blnManager, blnManagerExecut"& _ "ive, strLastUser, dtStamp FROM mstUser WHERE (UserID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupSuperbowlID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupSuperbowlID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupForecastID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupForecastID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupPromotionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupPromotionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupScoreCardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupScoreCardID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupFreeStockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupFreeStockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerAlternativeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerAlternativeID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerExecutiveID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerExecutiveID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strUserName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strUserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPassword", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPassword", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strDomainLogin", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strDomainLogin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnManager", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManager", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnManagerExecutive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManagerExecutive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [dbo].[mstUser] SET [refUserGroupID] = @refUserGroupID, [refUserGroupSuper"& _ "bowlID] = @refUserGroupSuperbowlID, [refUserGroupForecastID] = @refUserGroupFore"& _ "castID, [refUserGroupPromotionID] = @refUserGroupPromotionID, [refUserGroupScore"& _ "CardID] = @refUserGroupScoreCardID, [refUserGroupFreeStockID] = @refUserGroupFre"& _ "eStockID, [refManagerID] = @refManagerID, [refManagerAlternativeID] = @refManage"& _ "rAlternativeID, [refManagerExecutiveID] = @refManagerExecutiveID, [strUserName] "& _ "= @strUserName, [strPassword] = @strPassword, [strDomainLogin] = @strDomainLogin"& _ ", [strEmail] = @strEmail, [strRegion] = @strRegion, [blnManager] = @blnManager, "& _ "[blnManagerExecutive] = @blnManagerExecutive, [strLastUser] = @strLastUser, [dtS"& _ "tamp] = @dtStamp WHERE (([UserID] = @Original_UserID) AND ((@IsNull_refUserGroup"& _ "ID = 1 AND [refUserGroupID] IS NULL) OR ([refUserGroupID] = @Original_refUserGro"& _ "upID)) AND ((@IsNull_refUserGroupSuperbowlID = 1 AND [refUserGroupSuperbowlID] I"& _ "S NULL) OR ([refUserGroupSuperbowlID] = @Original_refUserGroupSuperbowlID)) AND "& _ "((@IsNull_refUserGroupForecastID = 1 AND [refUserGroupForecastID] IS NULL) OR (["& _ "refUserGroupForecastID] = @Original_refUserGroupForecastID)) AND ((@IsNull_refUs"& _ "erGroupPromotionID = 1 AND [refUserGroupPromotionID] IS NULL) OR ([refUserGroupP"& _ "romotionID] = @Original_refUserGroupPromotionID)) AND ((@IsNull_refUserGroupScor"& _ "eCardID = 1 AND [refUserGroupScoreCardID] IS NULL) OR ([refUserGroupScoreCardID]"& _ " = @Original_refUserGroupScoreCardID)) AND ((@IsNull_refUserGroupFreeStockID = 1"& _ " AND [refUserGroupFreeStockID] IS NULL) OR ([refUserGroupFreeStockID] = @Origina"& _ "l_refUserGroupFreeStockID)) AND ([refManagerID] = @Original_refManagerID) AND (["& _ "refManagerAlternativeID] = @Original_refManagerAlternativeID) AND ([refManagerEx"& _ "ecutiveID] = @Original_refManagerExecutiveID) AND ((@IsNull_strUserName = 1 AND "& _ "[strUserName] IS NULL) OR ([strUserName] = @Original_strUserName)) AND ((@IsNull"& _ "_strPassword = 1 AND [strPassword] IS NULL) OR ([strPassword] = @Original_strPas"& _ "sword)) AND ((@IsNull_strDomainLogin = 1 AND [strDomainLogin] IS NULL) OR ([strD"& _ "omainLogin] = @Original_strDomainLogin)) AND ((@IsNull_strEmail = 1 AND [strEmai"& _ "l] IS NULL) OR ([strEmail] = @Original_strEmail)) AND ([strRegion] = @Original_s"& _ "trRegion) AND ([blnManager] = @Original_blnManager) AND ([blnManagerExecutive] ="& _ " @Original_blnManagerExecutive) AND ((@IsNull_strLastUser = 1 AND [strLastUser] "& _ "IS NULL) OR ([strLastUser] = @Original_strLastUser)) AND ((@IsNull_dtStamp = 1 A"& _ "ND [dtStamp] IS NULL) OR ([dtStamp] = @Original_dtStamp)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT UserID, refU"& _ "serGroupID, refUserGroupSuperbowlID, refUserGroupForecastID, refUserGroupPromoti"& _ "onID, refUserGroupScoreCardID, refUserGroupFreeStockID, refManagerID, refManager"& _ "AlternativeID, refManagerExecutiveID, strUserName, strPassword, strDomainLogin, "& _ "strEmail, strRegion, blnManager, blnManagerExecutive, strLastUser, dtStamp FROM "& _ "mstUser WHERE (UserID = @UserID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupSuperbowlID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupSuperbowlID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupForecastID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupForecastID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupPromotionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupPromotionID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupScoreCardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupScoreCardID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refUserGroupFreeStockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupFreeStockID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerAlternativeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerAlternativeID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@refManagerExecutiveID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerExecutiveID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strUserName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strUserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strPassword", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPassword", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strDomainLogin", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strDomainLogin", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strEmail", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnManager", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManager", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@blnManagerExecutive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManagerExecutive", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_UserID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupSuperbowlID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupSuperbowlID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupSuperbowlID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupSuperbowlID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupForecastID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupForecastID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupForecastID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupForecastID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupPromotionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupPromotionID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupPromotionID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupPromotionID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupScoreCardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupScoreCardID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupScoreCardID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupScoreCardID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_refUserGroupFreeStockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupFreeStockID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refUserGroupFreeStockID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refUserGroupFreeStockID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerAlternativeID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerAlternativeID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_refManagerExecutiveID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "refManagerExecutiveID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strUserName", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strUserName", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strUserName", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strUserName", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strPassword", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPassword", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strPassword", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strPassword", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strDomainLogin", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strDomainLogin", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strDomainLogin", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strDomainLogin", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strEmail", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strEmail", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strEmail", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strEmail", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strRegion", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strRegion", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnManager", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManager", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_blnManagerExecutive", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "blnManagerExecutive", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_strLastUser", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_strLastUser", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "strLastUser", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_dtStamp", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_dtStamp", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "dtStamp", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "UserID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.Snell_Cronjob.My.MySettings.Default.SQLConnectionRPT End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT UserID, refUserGroupID, refUserGroupSuperbowlID, refUserGroupForecastID, r"& _ "efUserGroupPromotionID, refUserGroupScoreCardID, refUserGroupFreeStockID, refMan"& _ "agerID, refManagerAlternativeID, refManagerExecutiveID, strUserName, strPassword"& _ ", strDomainLogin, strEmail, strRegion, blnManager, blnManagerExecutive, strLastU"& _ "ser, dtStamp FROM dbo.mstUser" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As SuperbowlDataSet.mstUserDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) 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 GetData() As SuperbowlDataSet.mstUserDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As SuperbowlDataSet.mstUserDataTable = New SuperbowlDataSet.mstUserDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As SuperbowlDataSet.mstUserDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As SuperbowlDataSet) As Integer Return Me.Adapter.Update(dataSet, "mstUser") 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_UserID As Integer, _ ByVal Original_refUserGroupID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupSuperbowlID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupForecastID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupPromotionID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupScoreCardID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupFreeStockID As Global.System.Nullable(Of Integer), _ ByVal Original_refManagerID As Integer, _ ByVal Original_refManagerAlternativeID As Integer, _ ByVal Original_refManagerExecutiveID As Integer, _ ByVal Original_strUserName As String, _ ByVal Original_strPassword As String, _ ByVal Original_strDomainLogin As String, _ ByVal Original_strEmail As String, _ ByVal Original_strRegion As String, _ ByVal Original_blnManager As Boolean, _ ByVal Original_blnManagerExecutive As Boolean, _ ByVal Original_strLastUser As String, _ ByVal Original_dtStamp As String) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_UserID,Integer) If (Original_refUserGroupID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_refUserGroupID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (Original_refUserGroupSuperbowlID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_refUserGroupSuperbowlID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (Original_refUserGroupForecastID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_refUserGroupForecastID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Original_refUserGroupPromotionID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_refUserGroupPromotionID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_refUserGroupScoreCardID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_refUserGroupScoreCardID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_refUserGroupFreeStockID.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_refUserGroupFreeStockID.Value,Integer) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_refManagerID,Integer) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_refManagerAlternativeID,Integer) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_refManagerExecutiveID,Integer) If (Original_strUserName Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_strUserName,String) End If If (Original_strPassword Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_strPassword,String) End If If (Original_strDomainLogin Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_strDomainLogin,String) End If If (Original_strEmail Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_strEmail,String) End If If (Original_strRegion Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strRegion") Else Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_strRegion,String) End If Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_blnManager,Boolean) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_blnManagerExecutive,Boolean) If (Original_strLastUser Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_strLastUser,String) End If If (Original_dtStamp Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_dtStamp,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal refUserGroupID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupSuperbowlID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupForecastID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupPromotionID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupScoreCardID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupFreeStockID As Global.System.Nullable(Of Integer), _ ByVal refManagerID As Integer, _ ByVal refManagerAlternativeID As Integer, _ ByVal refManagerExecutiveID As Integer, _ ByVal strUserName As String, _ ByVal strPassword As String, _ ByVal strDomainLogin As String, _ ByVal strEmail As String, _ ByVal strRegion As String, _ ByVal blnManager As Boolean, _ ByVal blnManagerExecutive As Boolean, _ ByVal strLastUser As String, _ ByVal dtStamp As String) As Integer If (refUserGroupID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(0).Value = CType(refUserGroupID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (refUserGroupSuperbowlID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(1).Value = CType(refUserGroupSuperbowlID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (refUserGroupForecastID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(2).Value = CType(refUserGroupForecastID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (refUserGroupPromotionID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(3).Value = CType(refUserGroupPromotionID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (refUserGroupScoreCardID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(refUserGroupScoreCardID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (refUserGroupFreeStockID.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(5).Value = CType(refUserGroupFreeStockID.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(refManagerID,Integer) Me.Adapter.InsertCommand.Parameters(7).Value = CType(refManagerAlternativeID,Integer) Me.Adapter.InsertCommand.Parameters(8).Value = CType(refManagerExecutiveID,Integer) If (strUserName Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(strUserName,String) End If If (strPassword Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(strPassword,String) End If If (strDomainLogin Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(strDomainLogin,String) End If If (strEmail Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(strEmail,String) End If If (strRegion Is Nothing) Then Throw New Global.System.ArgumentNullException("strRegion") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(strRegion,String) End If Me.Adapter.InsertCommand.Parameters(14).Value = CType(blnManager,Boolean) Me.Adapter.InsertCommand.Parameters(15).Value = CType(blnManagerExecutive,Boolean) If (strLastUser Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(strLastUser,String) End If If (dtStamp Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(17).Value = CType(dtStamp,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refUserGroupID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupSuperbowlID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupForecastID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupPromotionID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupScoreCardID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupFreeStockID As Global.System.Nullable(Of Integer), _ ByVal refManagerID As Integer, _ ByVal refManagerAlternativeID As Integer, _ ByVal refManagerExecutiveID As Integer, _ ByVal strUserName As String, _ ByVal strPassword As String, _ ByVal strDomainLogin As String, _ ByVal strEmail As String, _ ByVal strRegion As String, _ ByVal blnManager As Boolean, _ ByVal blnManagerExecutive As Boolean, _ ByVal strLastUser As String, _ ByVal dtStamp As String, _ ByVal Original_UserID As Integer, _ ByVal Original_refUserGroupID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupSuperbowlID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupForecastID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupPromotionID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupScoreCardID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupFreeStockID As Global.System.Nullable(Of Integer), _ ByVal Original_refManagerID As Integer, _ ByVal Original_refManagerAlternativeID As Integer, _ ByVal Original_refManagerExecutiveID As Integer, _ ByVal Original_strUserName As String, _ ByVal Original_strPassword As String, _ ByVal Original_strDomainLogin As String, _ ByVal Original_strEmail As String, _ ByVal Original_strRegion As String, _ ByVal Original_blnManager As Boolean, _ ByVal Original_blnManagerExecutive As Boolean, _ ByVal Original_strLastUser As String, _ ByVal Original_dtStamp As String, _ ByVal UserID As Integer) As Integer If (refUserGroupID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(0).Value = CType(refUserGroupID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value End If If (refUserGroupSuperbowlID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(1).Value = CType(refUserGroupSuperbowlID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value End If If (refUserGroupForecastID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(2).Value = CType(refUserGroupForecastID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value End If If (refUserGroupPromotionID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(3).Value = CType(refUserGroupPromotionID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value End If If (refUserGroupScoreCardID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(refUserGroupScoreCardID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (refUserGroupFreeStockID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(refUserGroupFreeStockID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(refManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(refManagerAlternativeID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(refManagerExecutiveID,Integer) If (strUserName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(strUserName,String) End If If (strPassword Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(strPassword,String) End If If (strDomainLogin Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(strDomainLogin,String) End If If (strEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(strEmail,String) End If If (strRegion Is Nothing) Then Throw New Global.System.ArgumentNullException("strRegion") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(strRegion,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(blnManager,Boolean) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(blnManagerExecutive,Boolean) If (strLastUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(strLastUser,String) End If If (dtStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(dtStamp,String) End If Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_UserID,Integer) If (Original_refUserGroupID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_refUserGroupID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_refUserGroupSuperbowlID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_refUserGroupSuperbowlID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_refUserGroupForecastID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_refUserGroupForecastID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If If (Original_refUserGroupPromotionID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_refUserGroupPromotionID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If If (Original_refUserGroupScoreCardID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(27).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_refUserGroupScoreCardID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(28).Value = Global.System.DBNull.Value End If If (Original_refUserGroupFreeStockID.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_refUserGroupFreeStockID.Value,Integer) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_refManagerID,Integer) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_refManagerAlternativeID,Integer) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_refManagerExecutiveID,Integer) If (Original_strUserName Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_strUserName,String) End If If (Original_strPassword Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_strPassword,String) End If If (Original_strDomainLogin Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_strDomainLogin,String) End If If (Original_strEmail Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_strEmail,String) End If If (Original_strRegion Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_strRegion") Else Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_strRegion,String) End If Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_blnManager,Boolean) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_blnManagerExecutive,Boolean) If (Original_strLastUser Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_strLastUser,String) End If If (Original_dtStamp Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(47).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(47).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_dtStamp,String) End If Me.Adapter.UpdateCommand.Parameters(49).Value = CType(UserID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal refUserGroupID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupSuperbowlID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupForecastID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupPromotionID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupScoreCardID As Global.System.Nullable(Of Integer), _ ByVal refUserGroupFreeStockID As Global.System.Nullable(Of Integer), _ ByVal refManagerID As Integer, _ ByVal refManagerAlternativeID As Integer, _ ByVal refManagerExecutiveID As Integer, _ ByVal strUserName As String, _ ByVal strPassword As String, _ ByVal strDomainLogin As String, _ ByVal strEmail As String, _ ByVal strRegion As String, _ ByVal blnManager As Boolean, _ ByVal blnManagerExecutive As Boolean, _ ByVal strLastUser As String, _ ByVal dtStamp As String, _ ByVal Original_UserID As Integer, _ ByVal Original_refUserGroupID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupSuperbowlID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupForecastID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupPromotionID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupScoreCardID As Global.System.Nullable(Of Integer), _ ByVal Original_refUserGroupFreeStockID As Global.System.Nullable(Of Integer), _ ByVal Original_refManagerID As Integer, _ ByVal Original_refManagerAlternativeID As Integer, _ ByVal Original_refManagerExecutiveID As Integer, _ ByVal Original_strUserName As String, _ ByVal Original_strPassword As String, _ ByVal Original_strDomainLogin As String, _ ByVal Original_strEmail As String, _ ByVal Original_strRegion As String, _ ByVal Original_blnManager As Boolean, _ ByVal Original_blnManagerExecutive As Boolean, _ ByVal Original_strLastUser As String, _ ByVal Original_dtStamp As String) As Integer Return Me.Update(refUserGroupID, refUserGroupSuperbowlID, refUserGroupForecastID, refUserGroupPromotionID, refUserGroupScoreCardID, refUserGroupFreeStockID, refManagerID, refManagerAlternativeID, refManagerExecutiveID, strUserName, strPassword, strDomainLogin, strEmail, strRegion, blnManager, blnManagerExecutive, strLastUser, dtStamp, Original_UserID, Original_refUserGroupID, Original_refUserGroupSuperbowlID, Original_refUserGroupForecastID, Original_refUserGroupPromotionID, Original_refUserGroupScoreCardID, Original_refUserGroupFreeStockID, Original_refManagerID, Original_refManagerAlternativeID, Original_refManagerExecutiveID, Original_strUserName, Original_strPassword, Original_strDomainLogin, Original_strEmail, Original_strRegion, Original_blnManager, Original_blnManagerExecutive, Original_strLastUser, Original_dtStamp, Original_UserID) End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _dwdCustomerTableAdapter As dwdCustomerTableAdapter Private _fsrItemTableAdapter As fsrItemTableAdapter Private _fsrRequisitionTableAdapter As fsrRequisitionTableAdapter Private _mstBrandTableAdapter As mstBrandTableAdapter Private _mstProductTableAdapter As mstProductTableAdapter Private _mstUserTableAdapter As mstUserTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property dwdCustomerTableAdapter() As dwdCustomerTableAdapter Get Return Me._dwdCustomerTableAdapter End Get Set Me._dwdCustomerTableAdapter = value End Set End Property _ Public Property fsrItemTableAdapter() As fsrItemTableAdapter Get Return Me._fsrItemTableAdapter End Get Set Me._fsrItemTableAdapter = value End Set End Property _ Public Property fsrRequisitionTableAdapter() As fsrRequisitionTableAdapter Get Return Me._fsrRequisitionTableAdapter End Get Set Me._fsrRequisitionTableAdapter = value End Set End Property _ Public Property mstBrandTableAdapter() As mstBrandTableAdapter Get Return Me._mstBrandTableAdapter End Get Set Me._mstBrandTableAdapter = value End Set End Property _ Public Property mstProductTableAdapter() As mstProductTableAdapter Get Return Me._mstProductTableAdapter End Get Set Me._mstProductTableAdapter = value End Set End Property _ Public Property mstUserTableAdapter() As mstUserTableAdapter Get Return Me._mstUserTableAdapter End Get Set Me._mstUserTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._dwdCustomerTableAdapter) Is Nothing) _ AndAlso (Not (Me._dwdCustomerTableAdapter.Connection) Is Nothing)) Then Return Me._dwdCustomerTableAdapter.Connection End If If ((Not (Me._fsrItemTableAdapter) Is Nothing) _ AndAlso (Not (Me._fsrItemTableAdapter.Connection) Is Nothing)) Then Return Me._fsrItemTableAdapter.Connection End If If ((Not (Me._fsrRequisitionTableAdapter) Is Nothing) _ AndAlso (Not (Me._fsrRequisitionTableAdapter.Connection) Is Nothing)) Then Return Me._fsrRequisitionTableAdapter.Connection End If If ((Not (Me._mstBrandTableAdapter) Is Nothing) _ AndAlso (Not (Me._mstBrandTableAdapter.Connection) Is Nothing)) Then Return Me._mstBrandTableAdapter.Connection End If If ((Not (Me._mstProductTableAdapter) Is Nothing) _ AndAlso (Not (Me._mstProductTableAdapter.Connection) Is Nothing)) Then Return Me._mstProductTableAdapter.Connection End If If ((Not (Me._mstUserTableAdapter) Is Nothing) _ AndAlso (Not (Me._mstUserTableAdapter.Connection) Is Nothing)) Then Return Me._mstUserTableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._dwdCustomerTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._fsrItemTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._fsrRequisitionTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._mstBrandTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._mstProductTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._mstUserTableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As SuperbowlDataSet, 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._dwdCustomerTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.dwdCustomer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._dwdCustomerTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._fsrItemTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.fsrItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._fsrItemTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._fsrRequisitionTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.fsrRequisition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._fsrRequisitionTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._mstBrandTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.mstBrand.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._mstBrandTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._mstProductTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.mstProduct.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._mstProductTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._mstUserTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.mstUser.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._mstUserTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As SuperbowlDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._dwdCustomerTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.dwdCustomer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._dwdCustomerTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._fsrItemTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.fsrItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._fsrItemTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._fsrRequisitionTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.fsrRequisition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._fsrRequisitionTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._mstBrandTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.mstBrand.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._mstBrandTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._mstProductTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.mstProduct.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._mstProductTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._mstUserTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.mstUser.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._mstUserTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As SuperbowlDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._mstUserTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.mstUser.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._mstUserTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._mstProductTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.mstProduct.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._mstProductTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._mstBrandTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.mstBrand.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._mstBrandTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._fsrRequisitionTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.fsrRequisition.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._fsrRequisitionTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._fsrItemTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.fsrItem.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._fsrItemTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._dwdCustomerTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.dwdCustomer.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._dwdCustomerTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ 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 Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = false) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As SuperbowlDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = false) Then Return 0 End If If ((Not (Me._dwdCustomerTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._dwdCustomerTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ "tring.") End If If ((Not (Me._fsrItemTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._fsrItemTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ "tring.") End If If ((Not (Me._fsrRequisitionTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._fsrRequisitionTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ "tring.") End If If ((Not (Me._mstBrandTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._mstBrandTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ "tring.") End If If ((Not (Me._mstProductTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._mstProductTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ "tring.") End If If ((Not (Me._mstUserTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._mstUserTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ "tring.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _ "ger TableAdapter property to a valid TableAdapter instance.") End If Dim workConnOpened As Boolean = false If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then workConnection.Open workConnOpened = true End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _ "ctions or the current state is not allowing the transaction to begin.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() Dim result As Integer = 0 Dim backupDataSet As Global.System.Data.DataSet = Nothing If Me.BackupDataSetBeforeUpdate Then backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If Try '---- Prepare for update ----------- ' If (Not (Me._dwdCustomerTableAdapter) Is Nothing) Then revertConnections.Add(Me._dwdCustomerTableAdapter, Me._dwdCustomerTableAdapter.Connection) Me._dwdCustomerTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._dwdCustomerTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._dwdCustomerTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._dwdCustomerTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._dwdCustomerTableAdapter.Adapter) End If End If If (Not (Me._fsrItemTableAdapter) Is Nothing) Then revertConnections.Add(Me._fsrItemTableAdapter, Me._fsrItemTableAdapter.Connection) Me._fsrItemTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._fsrItemTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._fsrItemTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._fsrItemTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._fsrItemTableAdapter.Adapter) End If End If If (Not (Me._fsrRequisitionTableAdapter) Is Nothing) Then revertConnections.Add(Me._fsrRequisitionTableAdapter, Me._fsrRequisitionTableAdapter.Connection) Me._fsrRequisitionTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._fsrRequisitionTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._fsrRequisitionTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._fsrRequisitionTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._fsrRequisitionTableAdapter.Adapter) End If End If If (Not (Me._mstBrandTableAdapter) Is Nothing) Then revertConnections.Add(Me._mstBrandTableAdapter, Me._mstBrandTableAdapter.Connection) Me._mstBrandTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._mstBrandTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._mstBrandTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._mstBrandTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._mstBrandTableAdapter.Adapter) End If End If If (Not (Me._mstProductTableAdapter) Is Nothing) Then revertConnections.Add(Me._mstProductTableAdapter, Me._mstProductTableAdapter.Connection) Me._mstProductTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._mstProductTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._mstProductTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._mstProductTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._mstProductTableAdapter.Adapter) End If End If If (Not (Me._mstUserTableAdapter) Is Nothing) Then revertConnections.Add(Me._mstUserTableAdapter, Me._mstUserTableAdapter.Connection) Me._mstUserTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._mstUserTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._mstUserTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._mstUserTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._mstUserTableAdapter.Adapter) End If End If ' '---- Perform updates ----------- ' If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) Else result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) End If result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) ' '---- Commit updates ----------- ' workTransaction.Commit If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If If (0 < allChangedRows.Count) Then Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow allChangedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges row.SetAdded i = (i + 1) Loop End If End If Throw ex Finally If workConnOpened Then workConnection.Close End If If (Not (Me._dwdCustomerTableAdapter) Is Nothing) Then Me._dwdCustomerTableAdapter.Connection = CType(revertConnections(Me._dwdCustomerTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._dwdCustomerTableAdapter.Transaction = Nothing End If If (Not (Me._fsrItemTableAdapter) Is Nothing) Then Me._fsrItemTableAdapter.Connection = CType(revertConnections(Me._fsrItemTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._fsrItemTableAdapter.Transaction = Nothing End If If (Not (Me._fsrRequisitionTableAdapter) Is Nothing) Then Me._fsrRequisitionTableAdapter.Connection = CType(revertConnections(Me._fsrRequisitionTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._fsrRequisitionTableAdapter.Transaction = Nothing End If If (Not (Me._mstBrandTableAdapter) Is Nothing) Then Me._mstBrandTableAdapter.Connection = CType(revertConnections(Me._mstBrandTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._mstBrandTableAdapter.Transaction = Nothing End If If (Not (Me._mstProductTableAdapter) Is Nothing) Then Me._mstProductTableAdapter.Connection = CType(revertConnections(Me._mstProductTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._mstProductTableAdapter.Transaction = Nothing End If If (Not (Me._mstUserTableAdapter) Is Nothing) Then Me._mstUserTableAdapter.Connection = CType(revertConnections(Me._mstUserTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._mstUserTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) adapter.AcceptChangesDuringUpdate = true i = (i + 1) Loop End If End Try Return result End Function _ 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 _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true End If If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then Return true End If Return false End Function ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub _ 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 distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function _ 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 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace