diff --git a/SchaumKommiCollo/.vs/KommiCollo/v15/.suo b/SchaumKommiCollo/.vs/KommiCollo/v15/.suo index 6838320..7dcb095 100644 Binary files a/SchaumKommiCollo/.vs/KommiCollo/v15/.suo and b/SchaumKommiCollo/.vs/KommiCollo/v15/.suo differ diff --git a/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb b/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb index 7a4d1cb..b5b0eaa 100644 --- a/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb +++ b/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb @@ -47,8 +47,6 @@ Partial Public Class MyDataset Private tableVWHUP_REPORT1 As VWHUP_REPORT1DataTable - Private tableVWKOMMCOLLI_UEBERSICHT As VWKOMMCOLLI_UEBERSICHTDataTable - Private relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID As Global.System.Data.DataRelation Private relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID As Global.System.Data.DataRelation @@ -119,9 +117,6 @@ Partial Public Class MyDataset If (Not (ds.Tables("VWHUP_REPORT1")) Is Nothing) Then MyBase.Tables.Add(New VWHUP_REPORT1DataTable(ds.Tables("VWHUP_REPORT1"))) End If - If (Not (ds.Tables("VWKOMMCOLLI_UEBERSICHT")) Is Nothing) Then - MyBase.Tables.Add(New VWKOMMCOLLI_UEBERSICHTDataTable(ds.Tables("VWKOMMCOLLI_UEBERSICHT"))) - End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -249,16 +244,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property VWKOMMCOLLI_UEBERSICHT() As VWKOMMCOLLI_UEBERSICHTDataTable - Get - Return Me.tableVWKOMMCOLLI_UEBERSICHT - End Get - End Property - _ - Private Function ShouldSerializeVWKOMMCOLLI_UEBERSICHT() As Boolean - Return false - End Function - _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -677,9 +645,6 @@ Partial Public Class MyDataset _ Public Delegate Sub VWHUP_REPORT1RowChangeEventHandler(ByVal sender As Object, ByVal e As VWHUP_REPORT1RowChangeEvent) - _ - Public Delegate Sub VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler(ByVal sender As Object, ByVal e As VWKOMMCOLLI_UEBERSICHTRowChangeEvent) - ''' '''Represents the strongly named DataTable class. ''' @@ -3697,7 +3662,6 @@ Partial Public Class MyDataset Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnBEZEICHNUNG.AllowDBNull = false Me.columnBEZEICHNUNG.MaxLength = 500 End Sub @@ -4758,593 +4722,6 @@ Partial Public Class MyDataset End Function End Class - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class VWKOMMCOLLI_UEBERSICHTDataTable - Inherits Global.System.Data.TypedTableBase(Of VWKOMMCOLLI_UEBERSICHTRow) - - Private columnLAD1 As Global.System.Data.DataColumn - - Private columnLAD_STRASSE As Global.System.Data.DataColumn - - Private columnLAD_LKZ_PLZ_ORT As Global.System.Data.DataColumn - - Private columnFERTIG As Global.System.Data.DataColumn - - Private columnSENDUNGNR As Global.System.Data.DataColumn - - Private columnSDG_REFERENZ As Global.System.Data.DataColumn - - Private columnEMP As Global.System.Data.DataColumn - - Private columnEMP_ZUSATZ As Global.System.Data.DataColumn - - Private columnEMP_STRASSE As Global.System.Data.DataColumn - - Private columnEMP_PLZ_STR As Global.System.Data.DataColumn - - Private columnEMP_LKZ As Global.System.Data.DataColumn - - Private columnEMP_ORT As Global.System.Data.DataColumn - - Private columnEMP_OTEIL As Global.System.Data.DataColumn - - Private columnABHOLDATUM As Global.System.Data.DataColumn - - Private columnSDG_GEWICHT As Global.System.Data.DataColumn - - Private columnSDG_STELLPLAETZE As Global.System.Data.DataColumn - - Private columnSDG_FRANKATUR As Global.System.Data.DataColumn - - Private columnBEMERKUNG As Global.System.Data.DataColumn - - Private columnBORDERONR As Global.System.Data.DataColumn - - Private columnGUID As Global.System.Data.DataColumn - - Private columnUEBERTRAGEN As Global.System.Data.DataColumn - - Private columnSelected As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "VWKOMMCOLLI_UEBERSICHT" - 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 LAD1Column() As Global.System.Data.DataColumn - Get - Return Me.columnLAD1 - End Get - End Property - - _ - Public ReadOnly Property LAD_STRASSEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLAD_STRASSE - End Get - End Property - - _ - Public ReadOnly Property LAD_LKZ_PLZ_ORTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLAD_LKZ_PLZ_ORT - End Get - End Property - - _ - Public ReadOnly Property FERTIGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFERTIG - End Get - End Property - - _ - Public ReadOnly Property SENDUNGNRColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSENDUNGNR - End Get - End Property - - _ - Public ReadOnly Property SDG_REFERENZColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSDG_REFERENZ - End Get - End Property - - _ - Public ReadOnly Property EMPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP - End Get - End Property - - _ - Public ReadOnly Property EMP_ZUSATZColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP_ZUSATZ - End Get - End Property - - _ - Public ReadOnly Property EMP_STRASSEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP_STRASSE - End Get - End Property - - _ - Public ReadOnly Property EMP_PLZ_STRColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP_PLZ_STR - End Get - End Property - - _ - Public ReadOnly Property EMP_LKZColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP_LKZ - End Get - End Property - - _ - Public ReadOnly Property EMP_ORTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP_ORT - End Get - End Property - - _ - Public ReadOnly Property EMP_OTEILColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMP_OTEIL - End Get - End Property - - _ - Public ReadOnly Property ABHOLDATUMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnABHOLDATUM - End Get - End Property - - _ - Public ReadOnly Property SDG_GEWICHTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSDG_GEWICHT - End Get - End Property - - _ - Public ReadOnly Property SDG_STELLPLAETZEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSDG_STELLPLAETZE - End Get - End Property - - _ - Public ReadOnly Property SDG_FRANKATURColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSDG_FRANKATUR - End Get - End Property - - _ - Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBEMERKUNG - End Get - End Property - - _ - Public ReadOnly Property BORDERONRColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBORDERONR - End Get - End Property - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property UEBERTRAGENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUEBERTRAGEN - End Get - End Property - - _ - Public ReadOnly Property SelectedColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSelected - 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 VWKOMMCOLLI_UEBERSICHTRow - Get - Return CType(Me.Rows(index),VWKOMMCOLLI_UEBERSICHTRow) - End Get - End Property - - _ - Public Event VWKOMMCOLLI_UEBERSICHTRowChanging As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler - - _ - Public Event VWKOMMCOLLI_UEBERSICHTRowChanged As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler - - _ - Public Event VWKOMMCOLLI_UEBERSICHTRowDeleting As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler - - _ - Public Event VWKOMMCOLLI_UEBERSICHTRowDeleted As VWKOMMCOLLI_UEBERSICHTRowChangeEventHandler - - _ - Public Overloads Sub AddVWKOMMCOLLI_UEBERSICHTRow(ByVal row As VWKOMMCOLLI_UEBERSICHTRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWKOMMCOLLI_UEBERSICHTRow( _ - ByVal LAD1 As String, _ - ByVal LAD_STRASSE As String, _ - ByVal LAD_LKZ_PLZ_ORT As String, _ - ByVal FERTIG As Boolean, _ - ByVal SENDUNGNR As String, _ - ByVal SDG_REFERENZ As String, _ - ByVal EMP As String, _ - ByVal EMP_ZUSATZ As String, _ - ByVal EMP_STRASSE As String, _ - ByVal EMP_PLZ_STR As String, _ - ByVal EMP_LKZ As String, _ - ByVal EMP_ORT As String, _ - ByVal EMP_OTEIL As String, _ - ByVal ABHOLDATUM As Date, _ - ByVal SDG_GEWICHT As Double, _ - ByVal SDG_STELLPLAETZE As Short, _ - ByVal SDG_FRANKATUR As String, _ - ByVal BEMERKUNG As String, _ - ByVal BORDERONR As Integer, _ - ByVal GUID As Integer, _ - ByVal UEBERTRAGEN As Boolean, _ - ByVal Selected As Boolean) As VWKOMMCOLLI_UEBERSICHTRow - Dim rowVWKOMMCOLLI_UEBERSICHTRow As VWKOMMCOLLI_UEBERSICHTRow = CType(Me.NewRow,VWKOMMCOLLI_UEBERSICHTRow) - Dim columnValuesArray() As Object = New Object() {LAD1, LAD_STRASSE, LAD_LKZ_PLZ_ORT, FERTIG, SENDUNGNR, SDG_REFERENZ, EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_PLZ_STR, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLDATUM, SDG_GEWICHT, SDG_STELLPLAETZE, SDG_FRANKATUR, BEMERKUNG, BORDERONR, GUID, UEBERTRAGEN, Selected} - rowVWKOMMCOLLI_UEBERSICHTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWKOMMCOLLI_UEBERSICHTRow) - Return rowVWKOMMCOLLI_UEBERSICHTRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As VWKOMMCOLLI_UEBERSICHTRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWKOMMCOLLI_UEBERSICHTRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWKOMMCOLLI_UEBERSICHTDataTable = CType(MyBase.Clone,VWKOMMCOLLI_UEBERSICHTDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWKOMMCOLLI_UEBERSICHTDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnLAD1 = MyBase.Columns("LAD1") - Me.columnLAD_STRASSE = MyBase.Columns("LAD_STRASSE") - Me.columnLAD_LKZ_PLZ_ORT = MyBase.Columns("LAD_LKZ_PLZ_ORT") - Me.columnFERTIG = MyBase.Columns("FERTIG") - Me.columnSENDUNGNR = MyBase.Columns("SENDUNGNR") - Me.columnSDG_REFERENZ = MyBase.Columns("SDG_REFERENZ") - Me.columnEMP = MyBase.Columns("EMP") - Me.columnEMP_ZUSATZ = MyBase.Columns("EMP_ZUSATZ") - Me.columnEMP_STRASSE = MyBase.Columns("EMP_STRASSE") - Me.columnEMP_PLZ_STR = MyBase.Columns("EMP_PLZ_STR") - Me.columnEMP_LKZ = MyBase.Columns("EMP_LKZ") - Me.columnEMP_ORT = MyBase.Columns("EMP_ORT") - Me.columnEMP_OTEIL = MyBase.Columns("EMP_OTEIL") - Me.columnABHOLDATUM = MyBase.Columns("ABHOLDATUM") - Me.columnSDG_GEWICHT = MyBase.Columns("SDG_GEWICHT") - Me.columnSDG_STELLPLAETZE = MyBase.Columns("SDG_STELLPLAETZE") - Me.columnSDG_FRANKATUR = MyBase.Columns("SDG_FRANKATUR") - Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") - Me.columnBORDERONR = MyBase.Columns("BORDERONR") - Me.columnGUID = MyBase.Columns("GUID") - Me.columnUEBERTRAGEN = MyBase.Columns("UEBERTRAGEN") - Me.columnSelected = MyBase.Columns("SELECTED") - End Sub - - _ - Private Sub InitClass() - Me.columnLAD1 = New Global.System.Data.DataColumn("LAD1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLAD1) - Me.columnLAD_STRASSE = New Global.System.Data.DataColumn("LAD_STRASSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLAD_STRASSE) - Me.columnLAD_LKZ_PLZ_ORT = New Global.System.Data.DataColumn("LAD_LKZ_PLZ_ORT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLAD_LKZ_PLZ_ORT) - Me.columnFERTIG = New Global.System.Data.DataColumn("FERTIG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFERTIG) - Me.columnSENDUNGNR = New Global.System.Data.DataColumn("SENDUNGNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSENDUNGNR) - Me.columnSDG_REFERENZ = New Global.System.Data.DataColumn("SDG_REFERENZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSDG_REFERENZ) - Me.columnEMP = New Global.System.Data.DataColumn("EMP", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP) - Me.columnEMP_ZUSATZ = New Global.System.Data.DataColumn("EMP_ZUSATZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP_ZUSATZ) - Me.columnEMP_STRASSE = New Global.System.Data.DataColumn("EMP_STRASSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP_STRASSE) - Me.columnEMP_PLZ_STR = New Global.System.Data.DataColumn("EMP_PLZ_STR", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP_PLZ_STR) - Me.columnEMP_LKZ = New Global.System.Data.DataColumn("EMP_LKZ", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP_LKZ) - Me.columnEMP_ORT = New Global.System.Data.DataColumn("EMP_ORT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP_ORT) - Me.columnEMP_OTEIL = New Global.System.Data.DataColumn("EMP_OTEIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMP_OTEIL) - Me.columnABHOLDATUM = New Global.System.Data.DataColumn("ABHOLDATUM", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnABHOLDATUM) - Me.columnSDG_GEWICHT = New Global.System.Data.DataColumn("SDG_GEWICHT", GetType(Double), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSDG_GEWICHT) - Me.columnSDG_STELLPLAETZE = New Global.System.Data.DataColumn("SDG_STELLPLAETZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSDG_STELLPLAETZE) - Me.columnSDG_FRANKATUR = New Global.System.Data.DataColumn("SDG_FRANKATUR", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSDG_FRANKATUR) - Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEMERKUNG) - Me.columnBORDERONR = New Global.System.Data.DataColumn("BORDERONR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBORDERONR) - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnUEBERTRAGEN = New Global.System.Data.DataColumn("UEBERTRAGEN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUEBERTRAGEN) - Me.columnSelected = New Global.System.Data.DataColumn("SELECTED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - Me.columnSelected.ExtendedProperties.Add("Generator_ColumnPropNameInRow", "Selected") - Me.columnSelected.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectedColumn") - Me.columnSelected.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelected") - Me.columnSelected.ExtendedProperties.Add("Generator_UserColumnName", "SELECTED") - MyBase.Columns.Add(Me.columnSelected) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnLAD1.AllowDBNull = false - Me.columnLAD1.MaxLength = 35 - Me.columnLAD_STRASSE.AllowDBNull = false - Me.columnLAD_STRASSE.MaxLength = 35 - Me.columnLAD_LKZ_PLZ_ORT.ReadOnly = true - Me.columnLAD_LKZ_PLZ_ORT.MaxLength = 49 - Me.columnFERTIG.AllowDBNull = false - Me.columnSENDUNGNR.ReadOnly = true - Me.columnSENDUNGNR.MaxLength = 33 - Me.columnSDG_REFERENZ.MaxLength = 35 - Me.columnEMP.MaxLength = 35 - Me.columnEMP_ZUSATZ.MaxLength = 35 - Me.columnEMP_STRASSE.MaxLength = 35 - Me.columnEMP_PLZ_STR.ReadOnly = true - Me.columnEMP_PLZ_STR.MaxLength = 49 - Me.columnEMP_LKZ.MaxLength = 3 - Me.columnEMP_ORT.MaxLength = 35 - Me.columnEMP_OTEIL.MaxLength = 35 - Me.columnABHOLDATUM.AllowDBNull = false - Me.columnSDG_GEWICHT.ReadOnly = true - Me.columnSDG_STELLPLAETZE.AllowDBNull = false - Me.columnSDG_FRANKATUR.AllowDBNull = false - Me.columnSDG_FRANKATUR.MaxLength = 100 - Me.columnBEMERKUNG.MaxLength = 70 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnUEBERTRAGEN.AllowDBNull = false - Me.columnSelected.AllowDBNull = false - Me.columnSelected.DefaultValue = CType(false,Boolean) - End Sub - - _ - Public Function NewVWKOMMCOLLI_UEBERSICHTRow() As VWKOMMCOLLI_UEBERSICHTRow - Return CType(Me.NewRow,VWKOMMCOLLI_UEBERSICHTRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWKOMMCOLLI_UEBERSICHTRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWKOMMCOLLI_UEBERSICHTRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowChangedEvent) Is Nothing) Then - RaiseEvent VWKOMMCOLLI_UEBERSICHTRowChanged(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowChangingEvent) Is Nothing) Then - RaiseEvent VWKOMMCOLLI_UEBERSICHTRowChanging(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowDeletedEvent) Is Nothing) Then - RaiseEvent VWKOMMCOLLI_UEBERSICHTRowDeleted(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.VWKOMMCOLLI_UEBERSICHTRowDeletingEvent) Is Nothing) Then - RaiseEvent VWKOMMCOLLI_UEBERSICHTRowDeleting(Me, New VWKOMMCOLLI_UEBERSICHTRowChangeEvent(CType(e.Row,VWKOMMCOLLI_UEBERSICHTRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveVWKOMMCOLLI_UEBERSICHTRow(ByVal row As VWKOMMCOLLI_UEBERSICHTRow) - 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 MyDataset = New MyDataset() - 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 = "VWKOMMCOLLI_UEBERSICHTDataTable" - 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. ''' @@ -6677,12 +6054,29 @@ Partial Public Class MyDataset Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get - Return CType(Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn),String) + Try + Return CType(Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBKOMMCOLLI_TEXTSCHLUESSEL ist DBNull."& _ + "", e) + End Try End Get Set Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn) = value End Set End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -7292,473 +6686,6 @@ Partial Public Class MyDataset End Sub End Class - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWKOMMCOLLI_UEBERSICHTRow - Inherits Global.System.Data.DataRow - - Private tableVWKOMMCOLLI_UEBERSICHT As VWKOMMCOLLI_UEBERSICHTDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWKOMMCOLLI_UEBERSICHT = CType(Me.Table,VWKOMMCOLLI_UEBERSICHTDataTable) - End Sub - - _ - Public Property LAD1() As String - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD1Column),String) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD1Column) = value - End Set - End Property - - _ - Public Property LAD_STRASSE() As String - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_STRASSEColumn),String) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_STRASSEColumn) = value - End Set - End Property - - _ - Public Property LAD_LKZ_PLZ_ORT() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAD_LKZ_PLZ_ORT in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn) = value - End Set - End Property - - _ - Public Property FERTIG() As Boolean - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.FERTIGColumn),Boolean) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.FERTIGColumn) = value - End Set - End Property - - _ - Public Property SENDUNGNR() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SENDUNGNR in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn) = value - End Set - End Property - - _ - Public Property SDG_REFERENZ() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SDG_REFERENZ in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn) = value - End Set - End Property - - _ - Public Property EMP() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn) = value - End Set - End Property - - _ - Public Property EMP_ZUSATZ() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_ZUSATZ in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn) = value - End Set - End Property - - _ - Public Property EMP_STRASSE() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_STRASSE in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn) = value - End Set - End Property - - _ - Public Property EMP_PLZ_STR() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_PLZ_STR in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn) = value - End Set - End Property - - _ - Public Property EMP_LKZ() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_LKZ in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn) = value - End Set - End Property - - _ - Public Property EMP_ORT() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_ORT in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn) = value - End Set - End Property - - _ - Public Property EMP_OTEIL() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMP_OTEIL in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn) = value - End Set - End Property - - _ - Public Property ABHOLDATUM() As Date - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.ABHOLDATUMColumn),Date) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.ABHOLDATUMColumn) = value - End Set - End Property - - _ - Public Property SDG_GEWICHT() As Double - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn),Double) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SDG_GEWICHT in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn) = value - End Set - End Property - - _ - Public Property SDG_STELLPLAETZE() As Short - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_STELLPLAETZEColumn),Short) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_STELLPLAETZEColumn) = value - End Set - End Property - - _ - Public Property SDG_FRANKATUR() As String - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_FRANKATURColumn),String) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_FRANKATURColumn) = value - End Set - End Property - - _ - Public Property BEMERKUNG() As String - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn) = value - End Set - End Property - - _ - Public Property BORDERONR() As Integer - Get - Try - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BORDERONR in Tabelle VWKOMMCOLLI_UEBERSICHT ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn) = value - End Set - End Property - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.GUIDColumn),Integer) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.GUIDColumn) = value - End Set - End Property - - _ - Public Property UEBERTRAGEN() As Boolean - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.UEBERTRAGENColumn),Boolean) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.UEBERTRAGENColumn) = value - End Set - End Property - - _ - Public Property Selected() As Boolean - Get - Return CType(Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SelectedColumn),Boolean) - End Get - Set - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SelectedColumn) = value - End Set - End Property - - _ - Public Function IsLAD_LKZ_PLZ_ORTNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn) - End Function - - _ - Public Sub SetLAD_LKZ_PLZ_ORTNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.LAD_LKZ_PLZ_ORTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSENDUNGNRNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn) - End Function - - _ - Public Sub SetSENDUNGNRNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SENDUNGNRColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSDG_REFERENZNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn) - End Function - - _ - Public Sub SetSDG_REFERENZNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_REFERENZColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMPNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn) - End Function - - _ - Public Sub SetEMPNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMPColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMP_ZUSATZNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn) - End Function - - _ - Public Sub SetEMP_ZUSATZNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ZUSATZColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMP_STRASSENull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn) - End Function - - _ - Public Sub SetEMP_STRASSENull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_STRASSEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMP_PLZ_STRNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn) - End Function - - _ - Public Sub SetEMP_PLZ_STRNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_PLZ_STRColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMP_LKZNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn) - End Function - - _ - Public Sub SetEMP_LKZNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_LKZColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMP_ORTNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn) - End Function - - _ - Public Sub SetEMP_ORTNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_ORTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMP_OTEILNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn) - End Function - - _ - Public Sub SetEMP_OTEILNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.EMP_OTEILColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSDG_GEWICHTNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn) - End Function - - _ - Public Sub SetSDG_GEWICHTNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.SDG_GEWICHTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn) - End Function - - _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BEMERKUNGColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsBORDERONRNull() As Boolean - Return Me.IsNull(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn) - End Function - - _ - Public Sub SetBORDERONRNull() - Me(Me.tableVWKOMMCOLLI_UEBERSICHT.BORDERONRColumn) = Global.System.Convert.DBNull - End Sub - End Class - ''' '''Row event argument class ''' @@ -8154,42 +7081,6 @@ Partial Public Class MyDataset End Get End Property End Class - - ''' - '''Row event argument class - ''' - _ - Public Class VWKOMMCOLLI_UEBERSICHTRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWKOMMCOLLI_UEBERSICHTRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWKOMMCOLLI_UEBERSICHTRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWKOMMCOLLI_UEBERSICHTRow - 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 MyDatasetTableAdapters @@ -12086,8 +10977,9 @@ Namespace MyDatasetTableAdapters 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 GUID, BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKOMMCOLLI_TEXTSCHLUESSEL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ - "E (AKTIV = 1) AND (QUALIFIER = 0)" + Me._commandCollection(0).CommandText = "SELECT GUID, CODE + '-' + BEZEICHNUNG AS BEZEICHNUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBKO"& _ + "MMCOLLI_TEXTSCHLUESSEL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (AKTIV = 1) AND (QUALIFIER = 0)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY C"& _ + "ODE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -12506,202 +11398,6 @@ Namespace MyDatasetTableAdapters End Function End Class - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWKOMMCOLLI_UEBERSICHTTableAdapter - 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 = "VWKOMMCOLLI_UEBERSICHT" - tableMapping.ColumnMappings.Add("LAD1", "LAD1") - tableMapping.ColumnMappings.Add("LAD_STRASSE", "LAD_STRASSE") - tableMapping.ColumnMappings.Add("LAD_LKZ_PLZ_ORT", "LAD_LKZ_PLZ_ORT") - tableMapping.ColumnMappings.Add("FERTIG", "FERTIG") - tableMapping.ColumnMappings.Add("SENDUNGNR", "SENDUNGNR") - tableMapping.ColumnMappings.Add("SDG_REFERENZ", "SDG_REFERENZ") - tableMapping.ColumnMappings.Add("EMP", "EMP") - tableMapping.ColumnMappings.Add("EMP_ZUSATZ", "EMP_ZUSATZ") - tableMapping.ColumnMappings.Add("EMP_STRASSE", "EMP_STRASSE") - tableMapping.ColumnMappings.Add("EMP_PLZ_STR", "EMP_PLZ_STR") - tableMapping.ColumnMappings.Add("EMP_LKZ", "EMP_LKZ") - tableMapping.ColumnMappings.Add("EMP_ORT", "EMP_ORT") - tableMapping.ColumnMappings.Add("EMP_OTEIL", "EMP_OTEIL") - tableMapping.ColumnMappings.Add("ABHOLDATUM", "ABHOLDATUM") - tableMapping.ColumnMappings.Add("SDG_GEWICHT", "SDG_GEWICHT") - tableMapping.ColumnMappings.Add("SDG_STELLPLAETZE", "SDG_STELLPLAETZE") - tableMapping.ColumnMappings.Add("SDG_FRANKATUR", "SDG_FRANKATUR") - tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") - tableMapping.ColumnMappings.Add("BORDERONR", "BORDERONR") - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("UEBERTRAGEN", "UEBERTRAGEN") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString - 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 LAD1, LAD_STRASSE, LAD_LKZ_PLZ_ORT, FERTIG, SENDUNGNR, SDG_REFERENZ"& _ - ", EMP, EMP_ZUSATZ, EMP_STRASSE, EMP_PLZ_STR, EMP_LKZ, EMP_ORT, EMP_OTEIL, ABHOLD"& _ - "ATUM, SDG_GEWICHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SDG_STELLPLAETZE, SDG_FRANKATUR, B"& _ - "EMERKUNG, BORDERONR, GUID, UEBERTRAGEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWKOMMCOLLI_UEBERSICHT" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable) 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 MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable = New MyDataset.VWKOMMCOLLI_UEBERSICHTDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' diff --git a/SchaumKommiCollo/KommiCollo/MyDataset.xsd b/SchaumKommiCollo/KommiCollo/MyDataset.xsd index 8774d76..db1262c 100644 --- a/SchaumKommiCollo/KommiCollo/MyDataset.xsd +++ b/SchaumKommiCollo/KommiCollo/MyDataset.xsd @@ -918,10 +918,11 @@ SELECT GUID, SENDUNGNR, SDG_LHM_ID, PACKSTUECKANZAHL, POSINHALT, GEWICHT, FRACHT - - SELECT GUID, BEZEICHNUNG + + SELECT GUID, CODE + '-' + BEZEICHNUNG AS BEZEICHNUNG FROM TBKOMMCOLLI_TEXTSCHLUESSEL -WHERE (AKTIV = 1) AND (QUALIFIER = 0) +WHERE (AKTIV = 1) AND (QUALIFIER = 0) +ORDER BY CODE @@ -1347,7 +1348,7 @@ FROM VWKOMMCOLLI_UEBERSICHT - + diff --git a/SchaumKommiCollo/KommiCollo/MyDataset.xss b/SchaumKommiCollo/KommiCollo/MyDataset.xss index 4b11e50..243cc27 100644 --- a/SchaumKommiCollo/KommiCollo/MyDataset.xss +++ b/SchaumKommiCollo/KommiCollo/MyDataset.xss @@ -4,23 +4,22 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - + + + + + + + + + - - + - + 206 @@ -32,7 +31,7 @@ - + 357 @@ -44,7 +43,7 @@ - + 840 @@ -56,7 +55,7 @@ - + 342 diff --git a/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.exe b/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.exe index 0d73c49..0220e05 100644 Binary files a/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.exe and b/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.exe differ diff --git a/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.pdb b/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.pdb index a230ec2..069e20f 100644 Binary files a/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.pdb and b/SchaumKommiCollo/KommiCollo/bin/Debug/KommiCollo.pdb differ diff --git a/SchaumKommiCollo/KommiCollo/frmMain.vb b/SchaumKommiCollo/KommiCollo/frmMain.vb index 245bea8..cb61f69 100644 --- a/SchaumKommiCollo/KommiCollo/frmMain.vb +++ b/SchaumKommiCollo/KommiCollo/frmMain.vb @@ -401,6 +401,8 @@ Public Class frmMain btnAddPaket.Enabled = True tsinfolabel.Text = "Vorgang abgebrochen" tsinfolabel.Visible = True + ListBox1.ResetText() + txtFreitext.Text = "" Catch ex As Exception ShowError("Fehler in Abbruch Paket: " & vbNewLine & ex.Message) End Try @@ -643,8 +645,11 @@ Public Class frmMain btnAddPaket.Enabled = True tsinfolabel.Text = "Vorgang abgebrochen" tsinfolabel.Visible = True + ListBox1.ResetText() frmPrintOptions.ShowDialog() + GridControlLHM.DataSource = Nothing + GridViewLHM.Columns.Clear() End If End If Catch ex As Exception @@ -802,4 +807,10 @@ Public Class frmMain txtFreitext.Text = "" End If End Sub + + Private Sub txtFreitext_TextChanged(sender As Object, e As EventArgs) Handles txtFreitext.TextChanged + If txtFreitext.Text.Length >= 70 Then + MsgBox("Achtung: Maximale Anzahl Textzeichen erreicht!", MsgBoxStyle.Critical) + End If + End Sub End Class diff --git a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.exe b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.exe index 0d73c49..0220e05 100644 Binary files a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.exe and b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.exe differ diff --git a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.pdb b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.pdb index a230ec2..069e20f 100644 Binary files a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.pdb and b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.pdb differ diff --git a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.vbproj.GenerateResource.Cache b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.vbproj.GenerateResource.Cache index da9de19..e473aaf 100644 Binary files a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.vbproj.GenerateResource.Cache and b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/KommiCollo.vbproj.GenerateResource.Cache differ diff --git a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/TempPE/MyDataset.Designer.vb.dll b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/TempPE/MyDataset.Designer.vb.dll index 8314724..0ce295d 100644 Binary files a/SchaumKommiCollo/KommiCollo/obj/x86/Debug/TempPE/MyDataset.Designer.vb.dll and b/SchaumKommiCollo/KommiCollo/obj/x86/Debug/TempPE/MyDataset.Designer.vb.dll differ