diff --git a/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb b/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb index 16fb44b..7a4d1cb 100644 --- a/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb +++ b/SchaumKommiCollo/KommiCollo/MyDataset.Designer.vb @@ -47,6 +47,8 @@ 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 @@ -58,7 +60,7 @@ Partial Public Class MyDataset Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -70,7 +72,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -117,6 +119,9 @@ 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 @@ -135,7 +140,7 @@ Partial Public Class MyDataset End Sub _ Public ReadOnly Property TBKOMMCOLLI_MANDANT() As TBKOMMCOLLI_MANDANTDataTable @@ -145,7 +150,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBWH_MANDANT() As TBWH_MANDANTDataTable @@ -155,7 +160,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_PAKET_KOPF() As TBKOMMCOLLI_PAKET_KOPFDataTable @@ -165,7 +170,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_PAKET_POS() As TBKOMMCOLLI_PAKET_POSDataTable @@ -175,7 +180,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWKOMMCOLLI_ABSCHLUSS_PAKET() As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable @@ -185,7 +190,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_TERMINART() As TBKOMMCOLLI_TERMINARTDataTable @@ -195,7 +200,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_PAKET_POS_LS() As TBKOMMCOLLI_PAKET_POS_LSDataTable @@ -205,7 +210,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_SDGPOSITIONEN() As TBKOMMCOLLI_SDGPOSITIONENDataTable @@ -215,7 +220,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_TEXTSCHLUESSEL() As TBKOMMCOLLI_TEXTSCHLUESSELDataTable @@ -225,7 +230,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property TBKOMMCOLLI_HINWEIS() As TBKOMMCOLLI_HINWEISDataTable @@ -235,7 +240,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property VWHUP_REPORT1() As VWHUP_REPORT1DataTable @@ -245,7 +250,17 @@ Partial Public Class MyDataset End Property _ + Public ReadOnly Property VWKOMMCOLLI_UEBERSICHT() As VWKOMMCOLLI_UEBERSICHTDataTable + Get + Return Me.tableVWKOMMCOLLI_UEBERSICHT + End Get + End Property + + _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -258,7 +273,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -267,7 +282,7 @@ Partial Public Class MyDataset End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -276,7 +291,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -284,7 +299,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars @@ -293,19 +308,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -344,6 +359,9 @@ 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 @@ -359,7 +377,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -368,13 +386,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBKOMMCOLLI_MANDANT = CType(MyBase.Tables("TBKOMMCOLLI_MANDANT"),TBKOMMCOLLI_MANDANTDataTable) If (initTable = true) Then @@ -442,6 +460,12 @@ Partial Public Class MyDataset Me.tableVWHUP_REPORT1.InitVars End If End If + Me.tableVWKOMMCOLLI_UEBERSICHT = CType(MyBase.Tables("VWKOMMCOLLI_UEBERSICHT"),VWKOMMCOLLI_UEBERSICHTDataTable) + If (initTable = true) Then + If (Not (Me.tableVWKOMMCOLLI_UEBERSICHT) Is Nothing) Then + Me.tableVWKOMMCOLLI_UEBERSICHT.InitVars + End If + End If Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID = Me.Relations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID") Me.relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID = Me.Relations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID") Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1 = Me.Relations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1") @@ -449,7 +473,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" @@ -478,6 +502,8 @@ Partial Public Class MyDataset MyBase.Tables.Add(Me.tableTBKOMMCOLLI_HINWEIS) Me.tableVWHUP_REPORT1 = New VWHUP_REPORT1DataTable() MyBase.Tables.Add(Me.tableVWHUP_REPORT1) + Me.tableVWKOMMCOLLI_UEBERSICHT = New VWKOMMCOLLI_UEBERSICHTDataTable() + MyBase.Tables.Add(Me.tableVWKOMMCOLLI_UEBERSICHT) Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID = New Global.System.Data.DataRelation("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID", New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_MANDANT.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_KOPF.MANDANT_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID) Me.relationFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID = New Global.System.Data.DataRelation("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID", New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_KOPF.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBKOMMCOLLI_PAKET_POS.KOPF_IDColumn}, false) @@ -489,73 +515,79 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_MANDANT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBWH_MANDANT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_PAKET_KOPF() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_PAKET_POS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWKOMMCOLLI_ABSCHLUSS_PAKET() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_TERMINART() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_PAKET_POS_LS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_SDGPOSITIONEN() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_TEXTSCHLUESSEL() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeTBKOMMCOLLI_HINWEIS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function ShouldSerializeVWHUP_REPORT1() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Private Function ShouldSerializeVWKOMMCOLLI_UEBERSICHT() 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 @@ -563,7 +595,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -612,39 +644,42 @@ Partial Public Class MyDataset Return type End Function - _ + _ Public Delegate Sub TBKOMMCOLLI_MANDANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_MANDANTRowChangeEvent) - _ + _ Public Delegate Sub TBWH_MANDANTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_MANDANTRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_PAKET_KOPFRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_PAKET_POSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_PAKET_POSRowChangeEvent) - _ + _ Public Delegate Sub VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler(ByVal sender As Object, ByVal e As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_TERMINARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_TERMINARTRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent) - _ + _ Public Delegate Sub TBKOMMCOLLI_HINWEISRowChangeEventHandler(ByVal sender As Object, ByVal e As TBKOMMCOLLI_HINWEISRowChangeEvent) - _ + _ 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. ''' @@ -684,7 +719,7 @@ Partial Public Class MyDataset Private columnPRINTER_NAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_MANDANT" @@ -694,7 +729,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -712,14 +747,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -727,7 +762,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -735,7 +770,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME @@ -743,7 +778,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SPEICHERORTColumn() As Global.System.Data.DataColumn Get Return Me.columnSPEICHERORT @@ -751,7 +786,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRAEFIXColumn() As Global.System.Data.DataColumn Get Return Me.columnPRAEFIX @@ -759,7 +794,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TRENNUNG_BCColumn() As Global.System.Data.DataColumn Get Return Me.columnTRENNUNG_BC @@ -767,7 +802,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -775,7 +810,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -783,7 +818,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -791,7 +826,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -799,7 +834,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV @@ -807,7 +842,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANTENCODEColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANTENCODE @@ -815,7 +850,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NVE_FESTColumn() As Global.System.Data.DataColumn Get Return Me.columnNVE_FEST @@ -823,7 +858,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NVE_VARColumn() As Global.System.Data.DataColumn Get Return Me.columnNVE_VAR @@ -831,7 +866,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PRINTER_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRINTER_NAME @@ -839,7 +874,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -848,33 +883,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_MANDANTRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_MANDANTRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_MANDANTRowChanging As TBKOMMCOLLI_MANDANTRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_MANDANTRowChanged As TBKOMMCOLLI_MANDANTRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_MANDANTRowDeleting As TBKOMMCOLLI_MANDANTRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_MANDANTRowDeleted As TBKOMMCOLLI_MANDANTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_MANDANTRow(ByVal row As TBKOMMCOLLI_MANDANTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_MANDANTRow(ByVal NAME As String, ByVal KURZNAME As String, ByVal SPEICHERORT As String, ByVal PRAEFIX As String, ByVal TRENNUNG_BC As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal AKTIV As Boolean, ByVal MANDANTENCODE As String, ByVal NVE_FEST As String, ByVal NVE_VAR As Long, ByVal PRINTER_NAME As String) As TBKOMMCOLLI_MANDANTRow Dim rowTBKOMMCOLLI_MANDANTRow As TBKOMMCOLLI_MANDANTRow = CType(Me.NewRow,TBKOMMCOLLI_MANDANTRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, KURZNAME, SPEICHERORT, PRAEFIX, TRENNUNG_BC, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, AKTIV, MANDANTENCODE, NVE_FEST, NVE_VAR, PRINTER_NAME} @@ -884,13 +919,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_MANDANTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_MANDANTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_MANDANTDataTable = CType(MyBase.Clone,TBKOMMCOLLI_MANDANTDataTable) cln.InitVars @@ -898,13 +933,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_MANDANTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -924,7 +959,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -985,25 +1020,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_MANDANTRow() As TBKOMMCOLLI_MANDANTRow Return CType(Me.NewRow,TBKOMMCOLLI_MANDANTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_MANDANTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_MANDANTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_MANDANTRowChangedEvent) Is Nothing) Then @@ -1012,7 +1047,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_MANDANTRowChangingEvent) Is Nothing) Then @@ -1021,7 +1056,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_MANDANTRowDeletedEvent) Is Nothing) Then @@ -1030,7 +1065,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_MANDANTRowDeletingEvent) Is Nothing) Then @@ -1039,13 +1074,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_MANDANTRow(ByVal row As TBKOMMCOLLI_MANDANTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1126,7 +1161,7 @@ Partial Public Class MyDataset Private columnKURZNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBWH_MANDANT" @@ -1136,7 +1171,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1154,14 +1189,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1169,7 +1204,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -1177,7 +1212,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnKURZNAME @@ -1185,7 +1220,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1194,33 +1229,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_MANDANTRow Get Return CType(Me.Rows(index),TBWH_MANDANTRow) End Get End Property - _ + _ Public Event TBWH_MANDANTRowChanging As TBWH_MANDANTRowChangeEventHandler - _ + _ Public Event TBWH_MANDANTRowChanged As TBWH_MANDANTRowChangeEventHandler - _ + _ Public Event TBWH_MANDANTRowDeleting As TBWH_MANDANTRowChangeEventHandler - _ + _ Public Event TBWH_MANDANTRowDeleted As TBWH_MANDANTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBWH_MANDANTRow(ByVal row As TBWH_MANDANTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBWH_MANDANTRow(ByVal NAME As String, ByVal KURZNAME As String) As TBWH_MANDANTRow Dim rowTBWH_MANDANTRow As TBWH_MANDANTRow = CType(Me.NewRow,TBWH_MANDANTRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, KURZNAME} @@ -1230,13 +1265,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_MANDANTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_MANDANTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_MANDANTDataTable = CType(MyBase.Clone,TBWH_MANDANTDataTable) cln.InitVars @@ -1244,13 +1279,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_MANDANTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -1258,7 +1293,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1280,25 +1315,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBWH_MANDANTRow() As TBWH_MANDANTRow Return CType(Me.NewRow,TBWH_MANDANTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_MANDANTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_MANDANTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_MANDANTRowChangedEvent) Is Nothing) Then @@ -1307,7 +1342,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_MANDANTRowChangingEvent) Is Nothing) Then @@ -1316,7 +1351,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_MANDANTRowDeletedEvent) Is Nothing) Then @@ -1325,7 +1360,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_MANDANTRowDeletingEvent) Is Nothing) Then @@ -1334,13 +1369,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBWH_MANDANTRow(ByVal row As TBWH_MANDANTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1441,7 +1476,7 @@ Partial Public Class MyDataset Private columnGESAMTGEWICHT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_PAKET_KOPF" @@ -1451,7 +1486,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1469,14 +1504,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1484,7 +1519,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT_ID @@ -1492,7 +1527,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAKET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPAKET_ID @@ -1500,7 +1535,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FERTIGColumn() As Global.System.Data.DataColumn Get Return Me.columnFERTIG @@ -1508,7 +1543,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FERTIG_WANNColumn() As Global.System.Data.DataColumn Get Return Me.columnFERTIG_WANN @@ -1516,7 +1551,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWOColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWO @@ -1524,7 +1559,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -1532,7 +1567,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -1540,7 +1575,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -1548,7 +1583,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -1556,7 +1591,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TERMIN_KZColumn() As Global.System.Data.DataColumn Get Return Me.columnTERMIN_KZ @@ -1564,7 +1599,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ANZ_PACKSTUECKColumn() As Global.System.Data.DataColumn Get Return Me.columnANZ_PACKSTUECK @@ -1572,7 +1607,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GESAMTGEWICHTColumn() As Global.System.Data.DataColumn Get Return Me.columnGESAMTGEWICHT @@ -1580,7 +1615,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1589,33 +1624,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_PAKET_KOPFRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_PAKET_KOPFRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_PAKET_KOPFRowChanging As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_KOPFRowChanged As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_KOPFRowDeleting As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_KOPFRowDeleted As TBKOMMCOLLI_PAKET_KOPFRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_PAKET_KOPFRow(ByVal row As TBKOMMCOLLI_PAKET_KOPFRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_PAKET_KOPFRow(ByVal parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID As TBKOMMCOLLI_MANDANTRow, ByVal PAKET_ID As String, ByVal FERTIG As Boolean, ByVal FERTIG_WANN As Date, ByVal ERFASSTWO As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal TERMIN_KZ As String, ByVal ANZ_PACKSTUECK As Short, ByVal GESAMTGEWICHT As Double) As TBKOMMCOLLI_PAKET_KOPFRow Dim rowTBKOMMCOLLI_PAKET_KOPFRow As TBKOMMCOLLI_PAKET_KOPFRow = CType(Me.NewRow,TBKOMMCOLLI_PAKET_KOPFRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PAKET_ID, FERTIG, FERTIG_WANN, ERFASSTWO, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN, TERMIN_KZ, ANZ_PACKSTUECK, GESAMTGEWICHT} @@ -1628,13 +1663,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_PAKET_KOPFRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_PAKET_KOPFRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_PAKET_KOPFDataTable = CType(MyBase.Clone,TBKOMMCOLLI_PAKET_KOPFDataTable) cln.InitVars @@ -1642,13 +1677,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_PAKET_KOPFDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") @@ -1666,7 +1701,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1714,25 +1749,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_PAKET_KOPFRow() As TBKOMMCOLLI_PAKET_KOPFRow Return CType(Me.NewRow,TBKOMMCOLLI_PAKET_KOPFRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_PAKET_KOPFRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_PAKET_KOPFRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowChangedEvent) Is Nothing) Then @@ -1741,7 +1776,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowChangingEvent) Is Nothing) Then @@ -1750,7 +1785,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowDeletedEvent) Is Nothing) Then @@ -1759,7 +1794,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_PAKET_KOPFRowDeletingEvent) Is Nothing) Then @@ -1768,13 +1803,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_PAKET_KOPFRow(ByVal row As TBKOMMCOLLI_PAKET_KOPFRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1863,7 +1898,7 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_PAKET_POS" @@ -1873,7 +1908,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1891,14 +1926,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1906,7 +1941,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property KOPF_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnKOPF_ID @@ -1914,7 +1949,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BARCODEColumn() As Global.System.Data.DataColumn Get Return Me.columnBARCODE @@ -1922,7 +1957,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VKOPF_BESTELLNRColumn() As Global.System.Data.DataColumn Get Return Me.columnVKOPF_BESTELLNR @@ -1930,7 +1965,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VKOPF_EINGANGNRColumn() As Global.System.Data.DataColumn Get Return Me.columnVKOPF_EINGANGNR @@ -1938,7 +1973,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -1946,7 +1981,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -1954,7 +1989,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -1963,33 +1998,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_PAKET_POSRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_PAKET_POSRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_PAKET_POSRowChanging As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_POSRowChanged As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_POSRowDeleting As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_POSRowDeleted As TBKOMMCOLLI_PAKET_POSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_PAKET_POSRow(ByVal row As TBKOMMCOLLI_PAKET_POSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_PAKET_POSRow(ByVal parentTBKOMMCOLLI_PAKET_KOPFRowByFK_TBKOMMCOLLI_PAKET_POS_KOPF_ID As TBKOMMCOLLI_PAKET_KOPFRow, ByVal BARCODE As String, ByVal VKOPF_BESTELLNR As String, ByVal VKOPF_EINGANGNR As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWANN As Date) As TBKOMMCOLLI_PAKET_POSRow Dim rowTBKOMMCOLLI_PAKET_POSRow As TBKOMMCOLLI_PAKET_POSRow = CType(Me.NewRow,TBKOMMCOLLI_PAKET_POSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, BARCODE, VKOPF_BESTELLNR, VKOPF_EINGANGNR, ERFASSTWANN, GEAENDERTWANN} @@ -2002,13 +2037,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_PAKET_POSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_PAKET_POSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_PAKET_POSDataTable = CType(MyBase.Clone,TBKOMMCOLLI_PAKET_POSDataTable) cln.InitVars @@ -2016,13 +2051,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_PAKET_POSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnKOPF_ID = MyBase.Columns("KOPF_ID") @@ -2034,7 +2069,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2066,25 +2101,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_PAKET_POSRow() As TBKOMMCOLLI_PAKET_POSRow Return CType(Me.NewRow,TBKOMMCOLLI_PAKET_POSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_PAKET_POSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_PAKET_POSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_PAKET_POSRowChangedEvent) Is Nothing) Then @@ -2093,7 +2128,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_PAKET_POSRowChangingEvent) Is Nothing) Then @@ -2102,7 +2137,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_PAKET_POSRowDeletedEvent) Is Nothing) Then @@ -2111,7 +2146,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_PAKET_POSRowDeletingEvent) Is Nothing) Then @@ -2120,13 +2155,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_PAKET_POSRow(ByVal row As TBKOMMCOLLI_PAKET_POSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2221,7 +2256,7 @@ Partial Public Class MyDataset Private columnGESAMTGEWICHT As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWKOMMCOLLI_ABSCHLUSS_PAKET" @@ -2231,7 +2266,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2249,14 +2284,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2264,7 +2299,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MandantColumn() As Global.System.Data.DataColumn Get Return Me.columnMandant @@ -2272,7 +2307,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PAKET_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPAKET_ID @@ -2280,7 +2315,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GepacktColumn() As Global.System.Data.DataColumn Get Return Me.columnGepackt @@ -2288,7 +2323,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property AuswahlColumn() As Global.System.Data.DataColumn Get Return Me.columnAuswahl @@ -2296,7 +2331,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT_ID @@ -2304,7 +2339,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TRENNUNG_BCColumn() As Global.System.Data.DataColumn Get Return Me.columnTRENNUNG_BC @@ -2312,7 +2347,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TERMIN_KZColumn() As Global.System.Data.DataColumn Get Return Me.columnTERMIN_KZ @@ -2320,7 +2355,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ANZ_PACKSTUECKColumn() As Global.System.Data.DataColumn Get Return Me.columnANZ_PACKSTUECK @@ -2328,7 +2363,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GESAMTGEWICHTColumn() As Global.System.Data.DataColumn Get Return Me.columnGESAMTGEWICHT @@ -2336,7 +2371,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2345,33 +2380,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWKOMMCOLLI_ABSCHLUSS_PAKETRow Get Return CType(Me.Rows(index),VWKOMMCOLLI_ABSCHLUSS_PAKETRow) End Get End Property - _ + _ Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowChanging As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler - _ + _ Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowChanged As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler - _ + _ Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeleting As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler - _ + _ Public Event VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeleted As VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWKOMMCOLLI_ABSCHLUSS_PAKETRow(ByVal row As VWKOMMCOLLI_ABSCHLUSS_PAKETRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWKOMMCOLLI_ABSCHLUSS_PAKETRow(ByVal Mandant As String, ByVal PAKET_ID As String, ByVal Gepackt As Date, ByVal Auswahl As Boolean, ByVal TRENNUNG_BC As String, ByVal TERMIN_KZ As String, ByVal ANZ_PACKSTUECK As Short, ByVal GESAMTGEWICHT As Double) As VWKOMMCOLLI_ABSCHLUSS_PAKETRow Dim rowVWKOMMCOLLI_ABSCHLUSS_PAKETRow As VWKOMMCOLLI_ABSCHLUSS_PAKETRow = CType(Me.NewRow,VWKOMMCOLLI_ABSCHLUSS_PAKETRow) Dim columnValuesArray() As Object = New Object() {Nothing, Mandant, PAKET_ID, Gepackt, Auswahl, Nothing, TRENNUNG_BC, TERMIN_KZ, ANZ_PACKSTUECK, GESAMTGEWICHT} @@ -2381,13 +2416,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As VWKOMMCOLLI_ABSCHLUSS_PAKETRow Return CType(Me.Rows.Find(New Object() {GUID}),VWKOMMCOLLI_ABSCHLUSS_PAKETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable = CType(MyBase.Clone,VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable) cln.InitVars @@ -2395,13 +2430,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMandant = MyBase.Columns("Mandant") @@ -2416,7 +2451,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2460,25 +2495,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWKOMMCOLLI_ABSCHLUSS_PAKETRow() As VWKOMMCOLLI_ABSCHLUSS_PAKETRow Return CType(Me.NewRow,VWKOMMCOLLI_ABSCHLUSS_PAKETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWKOMMCOLLI_ABSCHLUSS_PAKETRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWKOMMCOLLI_ABSCHLUSS_PAKETRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangedEvent) Is Nothing) Then @@ -2487,7 +2522,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangingEvent) Is Nothing) Then @@ -2496,7 +2531,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeletedEvent) Is Nothing) Then @@ -2505,7 +2540,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWKOMMCOLLI_ABSCHLUSS_PAKETRowDeletingEvent) Is Nothing) Then @@ -2514,13 +2549,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWKOMMCOLLI_ABSCHLUSS_PAKETRow(ByVal row As VWKOMMCOLLI_ABSCHLUSS_PAKETRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2611,7 +2646,7 @@ Partial Public Class MyDataset Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_TERMINART" @@ -2621,7 +2656,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2639,14 +2674,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2654,7 +2689,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property MANDANT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMANDANT_ID @@ -2662,7 +2697,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TERMIN_BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnTERMIN_BEZEICHNUNG @@ -2670,7 +2705,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property TERMIN_KZColumn() As Global.System.Data.DataColumn Get Return Me.columnTERMIN_KZ @@ -2678,7 +2713,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWER @@ -2686,7 +2721,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ERFASSTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERFASSTWANN @@ -2694,7 +2729,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER @@ -2702,7 +2737,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN @@ -2710,7 +2745,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -2719,33 +2754,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_TERMINARTRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_TERMINARTRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_TERMINARTRowChanging As TBKOMMCOLLI_TERMINARTRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_TERMINARTRowChanged As TBKOMMCOLLI_TERMINARTRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_TERMINARTRowDeleting As TBKOMMCOLLI_TERMINARTRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_TERMINARTRowDeleted As TBKOMMCOLLI_TERMINARTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_TERMINARTRow(ByVal row As TBKOMMCOLLI_TERMINARTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_TERMINARTRow(ByVal parentTBKOMMCOLLI_MANDANTRowByFK_TBKOMMCOLLI_TERMINART_MANDANT_ID As TBKOMMCOLLI_MANDANTRow, ByVal TERMIN_BEZEICHNUNG As String, ByVal TERMIN_KZ As String, ByVal ERFASSTWER As String, ByVal ERFASSTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBKOMMCOLLI_TERMINARTRow Dim rowTBKOMMCOLLI_TERMINARTRow As TBKOMMCOLLI_TERMINARTRow = CType(Me.NewRow,TBKOMMCOLLI_TERMINARTRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TERMIN_BEZEICHNUNG, TERMIN_KZ, ERFASSTWER, ERFASSTWANN, GEANDERTWER, GEAENDERTWANN} @@ -2758,13 +2793,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_TERMINARTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_TERMINARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_TERMINARTDataTable = CType(MyBase.Clone,TBKOMMCOLLI_TERMINARTDataTable) cln.InitVars @@ -2772,13 +2807,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_TERMINARTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMANDANT_ID = MyBase.Columns("MANDANT_ID") @@ -2791,7 +2826,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2828,25 +2863,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_TERMINARTRow() As TBKOMMCOLLI_TERMINARTRow Return CType(Me.NewRow,TBKOMMCOLLI_TERMINARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_TERMINARTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_TERMINARTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_TERMINARTRowChangedEvent) Is Nothing) Then @@ -2855,7 +2890,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_TERMINARTRowChangingEvent) Is Nothing) Then @@ -2864,7 +2899,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_TERMINARTRowDeletedEvent) Is Nothing) Then @@ -2873,7 +2908,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_TERMINARTRowDeletingEvent) Is Nothing) Then @@ -2882,13 +2917,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_TERMINARTRow(ByVal row As TBKOMMCOLLI_TERMINARTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2965,7 +3000,7 @@ Partial Public Class MyDataset Private columnVKOPF_EINGANGNR As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_PAKET_POS_LS" @@ -2975,7 +3010,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2993,14 +3028,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property VKOPF_EINGANGNRColumn() As Global.System.Data.DataColumn Get Return Me.columnVKOPF_EINGANGNR @@ -3008,7 +3043,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3017,33 +3052,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_PAKET_POS_LSRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_PAKET_POS_LSRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_PAKET_POS_LSRowChanging As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_POS_LSRowChanged As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_POS_LSRowDeleting As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_PAKET_POS_LSRowDeleted As TBKOMMCOLLI_PAKET_POS_LSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_PAKET_POS_LSRow(ByVal row As TBKOMMCOLLI_PAKET_POS_LSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_PAKET_POS_LSRow(ByVal VKOPF_EINGANGNR As String) As TBKOMMCOLLI_PAKET_POS_LSRow Dim rowTBKOMMCOLLI_PAKET_POS_LSRow As TBKOMMCOLLI_PAKET_POS_LSRow = CType(Me.NewRow,TBKOMMCOLLI_PAKET_POS_LSRow) Dim columnValuesArray() As Object = New Object() {VKOPF_EINGANGNR} @@ -3053,7 +3088,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_PAKET_POS_LSDataTable = CType(MyBase.Clone,TBKOMMCOLLI_PAKET_POS_LSDataTable) cln.InitVars @@ -3061,19 +3096,19 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_PAKET_POS_LSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnVKOPF_EINGANGNR = MyBase.Columns("VKOPF_EINGANGNR") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnVKOPF_EINGANGNR = New Global.System.Data.DataColumn("VKOPF_EINGANGNR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVKOPF_EINGANGNR) @@ -3081,25 +3116,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_PAKET_POS_LSRow() As TBKOMMCOLLI_PAKET_POS_LSRow Return CType(Me.NewRow,TBKOMMCOLLI_PAKET_POS_LSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_PAKET_POS_LSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_PAKET_POS_LSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowChangedEvent) Is Nothing) Then @@ -3108,7 +3143,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowChangingEvent) Is Nothing) Then @@ -3117,7 +3152,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowDeletedEvent) Is Nothing) Then @@ -3126,7 +3161,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_PAKET_POS_LSRowDeletingEvent) Is Nothing) Then @@ -3135,13 +3170,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_PAKET_POS_LSRow(ByVal row As TBKOMMCOLLI_PAKET_POS_LSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3224,7 +3259,7 @@ Partial Public Class MyDataset Private columnLHM As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_SDGPOSITIONEN" @@ -3234,7 +3269,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3252,14 +3287,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3267,7 +3302,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property POSINHALTColumn() As Global.System.Data.DataColumn Get Return Me.columnPOSINHALT @@ -3275,7 +3310,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GEWICHTColumn() As Global.System.Data.DataColumn Get Return Me.columnGEWICHT @@ -3283,7 +3318,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LHMColumn() As Global.System.Data.DataColumn Get Return Me.columnLHM @@ -3291,7 +3326,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3300,33 +3335,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_SDGPOSITIONENRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_SDGPOSITIONENRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_SDGPOSITIONENRowChanging As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_SDGPOSITIONENRowChanged As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_SDGPOSITIONENRowDeleting As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_SDGPOSITIONENRowDeleted As TBKOMMCOLLI_SDGPOSITIONENRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_SDGPOSITIONENRow(ByVal row As TBKOMMCOLLI_SDGPOSITIONENRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_SDGPOSITIONENRow(ByVal POSINHALT As String, ByVal GEWICHT As Double, ByVal LHM As String) As TBKOMMCOLLI_SDGPOSITIONENRow Dim rowTBKOMMCOLLI_SDGPOSITIONENRow As TBKOMMCOLLI_SDGPOSITIONENRow = CType(Me.NewRow,TBKOMMCOLLI_SDGPOSITIONENRow) Dim columnValuesArray() As Object = New Object() {Nothing, POSINHALT, GEWICHT, LHM} @@ -3336,13 +3371,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_SDGPOSITIONENRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_SDGPOSITIONENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_SDGPOSITIONENDataTable = CType(MyBase.Clone,TBKOMMCOLLI_SDGPOSITIONENDataTable) cln.InitVars @@ -3350,13 +3385,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_SDGPOSITIONENDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPOSINHALT = MyBase.Columns("POSINHALT") @@ -3365,7 +3400,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3390,25 +3425,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_SDGPOSITIONENRow() As TBKOMMCOLLI_SDGPOSITIONENRow Return CType(Me.NewRow,TBKOMMCOLLI_SDGPOSITIONENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_SDGPOSITIONENRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_SDGPOSITIONENRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowChangedEvent) Is Nothing) Then @@ -3417,7 +3452,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowChangingEvent) Is Nothing) Then @@ -3426,7 +3461,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowDeletedEvent) Is Nothing) Then @@ -3435,7 +3470,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_SDGPOSITIONENRowDeletingEvent) Is Nothing) Then @@ -3444,13 +3479,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_SDGPOSITIONENRow(ByVal row As TBKOMMCOLLI_SDGPOSITIONENRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3529,7 +3564,7 @@ Partial Public Class MyDataset Private columnBEZEICHNUNG As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_TEXTSCHLUESSEL" @@ -3539,7 +3574,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3557,14 +3592,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3572,7 +3607,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3580,7 +3615,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3589,33 +3624,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_TEXTSCHLUESSELRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_TEXTSCHLUESSELRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowChanging As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowChanged As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowDeleting As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_TEXTSCHLUESSELRowDeleted As TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_TEXTSCHLUESSELRow(ByVal row As TBKOMMCOLLI_TEXTSCHLUESSELRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_TEXTSCHLUESSELRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String) As TBKOMMCOLLI_TEXTSCHLUESSELRow Dim rowTBKOMMCOLLI_TEXTSCHLUESSELRow As TBKOMMCOLLI_TEXTSCHLUESSELRow = CType(Me.NewRow,TBKOMMCOLLI_TEXTSCHLUESSELRow) Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG} @@ -3625,13 +3660,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Byte) As TBKOMMCOLLI_TEXTSCHLUESSELRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_TEXTSCHLUESSELRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_TEXTSCHLUESSELDataTable = CType(MyBase.Clone,TBKOMMCOLLI_TEXTSCHLUESSELDataTable) cln.InitVars @@ -3639,20 +3674,20 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_TEXTSCHLUESSELDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3667,25 +3702,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_TEXTSCHLUESSELRow() As TBKOMMCOLLI_TEXTSCHLUESSELRow Return CType(Me.NewRow,TBKOMMCOLLI_TEXTSCHLUESSELRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_TEXTSCHLUESSELRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_TEXTSCHLUESSELRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowChangedEvent) Is Nothing) Then @@ -3694,7 +3729,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowChangingEvent) Is Nothing) Then @@ -3703,7 +3738,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowDeletedEvent) Is Nothing) Then @@ -3712,7 +3747,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_TEXTSCHLUESSELRowDeletingEvent) Is Nothing) Then @@ -3721,13 +3756,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_TEXTSCHLUESSELRow(ByVal row As TBKOMMCOLLI_TEXTSCHLUESSELRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3808,7 +3843,7 @@ Partial Public Class MyDataset Private columnGUID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBKOMMCOLLI_HINWEIS" @@ -3818,7 +3853,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3836,14 +3871,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SENDUNGNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSENDUNGNR @@ -3851,7 +3886,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG @@ -3859,7 +3894,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3867,7 +3902,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -3876,33 +3911,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBKOMMCOLLI_HINWEISRow Get Return CType(Me.Rows(index),TBKOMMCOLLI_HINWEISRow) End Get End Property - _ + _ Public Event TBKOMMCOLLI_HINWEISRowChanging As TBKOMMCOLLI_HINWEISRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_HINWEISRowChanged As TBKOMMCOLLI_HINWEISRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_HINWEISRowDeleting As TBKOMMCOLLI_HINWEISRowChangeEventHandler - _ + _ Public Event TBKOMMCOLLI_HINWEISRowDeleted As TBKOMMCOLLI_HINWEISRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddTBKOMMCOLLI_HINWEISRow(ByVal row As TBKOMMCOLLI_HINWEISRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddTBKOMMCOLLI_HINWEISRow(ByVal SENDUNGNR As Integer, ByVal BEZEICHNUNG As String) As TBKOMMCOLLI_HINWEISRow Dim rowTBKOMMCOLLI_HINWEISRow As TBKOMMCOLLI_HINWEISRow = CType(Me.NewRow,TBKOMMCOLLI_HINWEISRow) Dim columnValuesArray() As Object = New Object() {SENDUNGNR, BEZEICHNUNG, Nothing} @@ -3912,13 +3947,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBKOMMCOLLI_HINWEISRow Return CType(Me.Rows.Find(New Object() {GUID}),TBKOMMCOLLI_HINWEISRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBKOMMCOLLI_HINWEISDataTable = CType(MyBase.Clone,TBKOMMCOLLI_HINWEISDataTable) cln.InitVars @@ -3926,13 +3961,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBKOMMCOLLI_HINWEISDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnSENDUNGNR = MyBase.Columns("SENDUNGNR") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -3940,7 +3975,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnSENDUNGNR = New Global.System.Data.DataColumn("SENDUNGNR", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSENDUNGNR) @@ -3961,25 +3996,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewTBKOMMCOLLI_HINWEISRow() As TBKOMMCOLLI_HINWEISRow Return CType(Me.NewRow,TBKOMMCOLLI_HINWEISRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBKOMMCOLLI_HINWEISRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBKOMMCOLLI_HINWEISRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBKOMMCOLLI_HINWEISRowChangedEvent) Is Nothing) Then @@ -3988,7 +4023,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBKOMMCOLLI_HINWEISRowChangingEvent) Is Nothing) Then @@ -3997,7 +4032,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBKOMMCOLLI_HINWEISRowDeletedEvent) Is Nothing) Then @@ -4006,7 +4041,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBKOMMCOLLI_HINWEISRowDeletingEvent) Is Nothing) Then @@ -4015,13 +4050,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveTBKOMMCOLLI_HINWEISRow(ByVal row As TBKOMMCOLLI_HINWEISRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4148,7 +4183,7 @@ Partial Public Class MyDataset Private columnGUID As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "VWHUP_REPORT1" @@ -4158,7 +4193,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4176,14 +4211,14 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LAD1Column() As Global.System.Data.DataColumn Get Return Me.columnLAD1 @@ -4191,7 +4226,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LAD_STRASSEColumn() As Global.System.Data.DataColumn Get Return Me.columnLAD_STRASSE @@ -4199,7 +4234,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property LAD_LKZ_PLZ_ORTColumn() As Global.System.Data.DataColumn Get Return Me.columnLAD_LKZ_PLZ_ORT @@ -4207,7 +4242,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property FERTIGColumn() As Global.System.Data.DataColumn Get Return Me.columnFERTIG @@ -4215,7 +4250,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP @@ -4223,7 +4258,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMP_ZUSATZColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP_ZUSATZ @@ -4231,7 +4266,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMP_STRASSEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP_STRASSE @@ -4239,7 +4274,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMP_LKZColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP_LKZ @@ -4247,7 +4282,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMP_ORTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP_ORT @@ -4255,7 +4290,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMP_OTEILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP_OTEIL @@ -4263,7 +4298,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property ABHOLDATUMColumn() As Global.System.Data.DataColumn Get Return Me.columnABHOLDATUM @@ -4271,7 +4306,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SDG_GEWICHTColumn() As Global.System.Data.DataColumn Get Return Me.columnSDG_GEWICHT @@ -4279,7 +4314,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SDG_STELLPLAETZEColumn() As Global.System.Data.DataColumn Get Return Me.columnSDG_STELLPLAETZE @@ -4287,7 +4322,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SDG_FRANKATURColumn() As Global.System.Data.DataColumn Get Return Me.columnSDG_FRANKATUR @@ -4295,7 +4330,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property NVEColumn() As Global.System.Data.DataColumn Get Return Me.columnNVE @@ -4303,7 +4338,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property POSINHALTColumn() As Global.System.Data.DataColumn Get Return Me.columnPOSINHALT @@ -4311,7 +4346,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property POS_GEWICHTColumn() As Global.System.Data.DataColumn Get Return Me.columnPOS_GEWICHT @@ -4319,7 +4354,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property PACKSTUECKANZAHLColumn() As Global.System.Data.DataColumn Get Return Me.columnPACKSTUECKANZAHL @@ -4327,7 +4362,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HINW_CODEColumn() As Global.System.Data.DataColumn Get Return Me.columnHINW_CODE @@ -4335,7 +4370,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HINW_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnHINW_TEXT @@ -4343,7 +4378,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property HINW_TEXT_ERGColumn() As Global.System.Data.DataColumn Get Return Me.columnHINW_TEXT_ERG @@ -4351,7 +4386,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SENDUNGNRColumn() As Global.System.Data.DataColumn Get Return Me.columnSENDUNGNR @@ -4359,7 +4394,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SDG_REFERENZColumn() As Global.System.Data.DataColumn Get Return Me.columnSDG_REFERENZ @@ -4367,7 +4402,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property EMP_PLZ_STRColumn() As Global.System.Data.DataColumn Get Return Me.columnEMP_PLZ_STR @@ -4375,7 +4410,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property SelectedColumn() As Global.System.Data.DataColumn Get Return Me.columnSelected @@ -4383,7 +4418,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -4391,7 +4426,7 @@ Partial Public Class MyDataset End Property _ Public ReadOnly Property Count() As Integer Get @@ -4400,33 +4435,33 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWHUP_REPORT1Row Get Return CType(Me.Rows(index),VWHUP_REPORT1Row) End Get End Property - _ + _ Public Event VWHUP_REPORT1RowChanging As VWHUP_REPORT1RowChangeEventHandler - _ + _ Public Event VWHUP_REPORT1RowChanged As VWHUP_REPORT1RowChangeEventHandler - _ + _ Public Event VWHUP_REPORT1RowDeleting As VWHUP_REPORT1RowChangeEventHandler - _ + _ Public Event VWHUP_REPORT1RowDeleted As VWHUP_REPORT1RowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Sub AddVWHUP_REPORT1Row(ByVal row As VWHUP_REPORT1Row) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overloads Function AddVWHUP_REPORT1Row( _ ByVal LAD1 As String, _ ByVal LAD_STRASSE As String, _ @@ -4462,7 +4497,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWHUP_REPORT1DataTable = CType(MyBase.Clone,VWHUP_REPORT1DataTable) cln.InitVars @@ -4470,13 +4505,13 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWHUP_REPORT1DataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub InitVars() Me.columnLAD1 = MyBase.Columns("LAD1") Me.columnLAD_STRASSE = MyBase.Columns("LAD_STRASSE") @@ -4507,7 +4542,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitClass() Me.columnLAD1 = New Global.System.Data.DataColumn("LAD1", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLAD1) @@ -4597,25 +4632,25 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function NewVWHUP_REPORT1Row() As VWHUP_REPORT1Row Return CType(Me.NewRow,VWHUP_REPORT1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWHUP_REPORT1Row(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWHUP_REPORT1Row) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWHUP_REPORT1RowChangedEvent) Is Nothing) Then @@ -4624,7 +4659,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWHUP_REPORT1RowChangingEvent) Is Nothing) Then @@ -4633,7 +4668,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWHUP_REPORT1RowDeletedEvent) Is Nothing) Then @@ -4642,7 +4677,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWHUP_REPORT1RowDeletingEvent) Is Nothing) Then @@ -4651,13 +4686,13 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub RemoveVWHUP_REPORT1Row(ByVal row As VWHUP_REPORT1Row) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -4723,6 +4758,593 @@ 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. ''' @@ -4732,14 +5354,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_MANDANT As TBKOMMCOLLI_MANDANTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_MANDANT = CType(Me.Table,TBKOMMCOLLI_MANDANTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.GUIDColumn),Integer) @@ -4750,7 +5372,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.NAMEColumn),String) @@ -4761,7 +5383,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.KURZNAMEColumn),String) @@ -4772,7 +5394,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SPEICHERORT() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.SPEICHERORTColumn),String) @@ -4783,7 +5405,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRAEFIX() As String Get Try @@ -4798,7 +5420,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TRENNUNG_BC() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.TRENNUNG_BCColumn),String) @@ -4809,7 +5431,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWERColumn),String) @@ -4820,7 +5442,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Try @@ -4835,7 +5457,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -4850,7 +5472,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -4865,7 +5487,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.AKTIVColumn),Boolean) @@ -4876,7 +5498,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANTENCODE() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_MANDANT.MANDANTENCODEColumn),String) @@ -4887,7 +5509,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NVE_FEST() As String Get Try @@ -4902,7 +5524,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NVE_VAR() As Long Get Try @@ -4917,7 +5539,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PRINTER_NAME() As String Get Try @@ -4932,91 +5554,91 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRAEFIXNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.PRAEFIXColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRAEFIXNull() Me(Me.tableTBKOMMCOLLI_MANDANT.PRAEFIXColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsERFASSTWANNNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetERFASSTWANNNull() Me(Me.tableTBKOMMCOLLI_MANDANT.ERFASSTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBKOMMCOLLI_MANDANT.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBKOMMCOLLI_MANDANT.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNVE_FESTNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.NVE_FESTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNVE_FESTNull() Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_FESTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNVE_VARNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.NVE_VARColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNVE_VARNull() Me(Me.tableTBKOMMCOLLI_MANDANT.NVE_VARColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPRINTER_NAMENull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_MANDANT.PRINTER_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPRINTER_NAMENull() Me(Me.tableTBKOMMCOLLI_MANDANT.PRINTER_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBKOMMCOLLI_PAKET_KOPFRows() As TBKOMMCOLLI_PAKET_KOPFRow() If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID") Is Nothing) Then Return New TBKOMMCOLLI_PAKET_KOPFRow(-1) {} @@ -5026,7 +5648,7 @@ Partial Public Class MyDataset End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBKOMMCOLLI_TERMINARTRows() As TBKOMMCOLLI_TERMINARTRow() If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID") Is Nothing) Then Return New TBKOMMCOLLI_TERMINARTRow(-1) {} @@ -5045,14 +5667,14 @@ Partial Public Class MyDataset Private tableTBWH_MANDANT As TBWH_MANDANTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_MANDANT = CType(Me.Table,TBWH_MANDANTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_MANDANT.GUIDColumn),Integer) @@ -5063,7 +5685,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NAME() As String Get Return CType(Me(Me.tableTBWH_MANDANT.NAMEColumn),String) @@ -5074,7 +5696,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KURZNAME() As String Get Return CType(Me(Me.tableTBWH_MANDANT.KURZNAMEColumn),String) @@ -5094,14 +5716,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_PAKET_KOPF As TBKOMMCOLLI_PAKET_KOPFDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_PAKET_KOPF = CType(Me.Table,TBKOMMCOLLI_PAKET_KOPFDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GUIDColumn),Integer) @@ -5112,7 +5734,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT_ID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.MANDANT_IDColumn),Integer) @@ -5123,7 +5745,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAKET_ID() As String Get Try @@ -5138,7 +5760,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FERTIG() As Boolean Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIGColumn),Boolean) @@ -5149,7 +5771,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FERTIG_WANN() As Date Get Try @@ -5164,7 +5786,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWO() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWOColumn),String) @@ -5175,7 +5797,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWERColumn),String) @@ -5186,7 +5808,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ERFASSTWANNColumn),Date) @@ -5197,7 +5819,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -5212,7 +5834,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -5227,7 +5849,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TERMIN_KZ() As String Get Try @@ -5242,7 +5864,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ANZ_PACKSTUECK() As Short Get Try @@ -5257,7 +5879,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GESAMTGEWICHT() As Double Get Try @@ -5272,7 +5894,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBKOMMCOLLI_MANDANTRow() As TBKOMMCOLLI_MANDANTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID")),TBKOMMCOLLI_MANDANTRow) @@ -5283,7 +5905,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VWKOMMCOLLI_ABSCHLUSS_PAKETRow() As VWKOMMCOLLI_ABSCHLUSS_PAKETRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1")),VWKOMMCOLLI_ABSCHLUSS_PAKETRow) @@ -5294,91 +5916,91 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAKET_IDNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.PAKET_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAKET_IDNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.PAKET_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsFERTIG_WANNNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIG_WANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetFERTIG_WANNNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.FERTIG_WANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTERMIN_KZNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.TERMIN_KZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTERMIN_KZNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.TERMIN_KZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsANZ_PACKSTUECKNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.ANZ_PACKSTUECKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetANZ_PACKSTUECKNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.ANZ_PACKSTUECKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGESAMTGEWICHTNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_KOPF.GESAMTGEWICHTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGESAMTGEWICHTNull() Me(Me.tableTBKOMMCOLLI_PAKET_KOPF.GESAMTGEWICHTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBKOMMCOLLI_PAKET_POSRows() As TBKOMMCOLLI_PAKET_POSRow() If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID") Is Nothing) Then Return New TBKOMMCOLLI_PAKET_POSRow(-1) {} @@ -5397,14 +6019,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_PAKET_POS As TBKOMMCOLLI_PAKET_POSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_PAKET_POS = CType(Me.Table,TBKOMMCOLLI_PAKET_POSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.GUIDColumn),Integer) @@ -5415,7 +6037,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property KOPF_ID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.KOPF_IDColumn),Integer) @@ -5426,7 +6048,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BARCODE() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.BARCODEColumn),String) @@ -5437,7 +6059,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VKOPF_BESTELLNR() As String Get Try @@ -5452,7 +6074,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VKOPF_EINGANGNR() As String Get Try @@ -5467,7 +6089,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBKOMMCOLLI_PAKET_POS.ERFASSTWANNColumn),Date) @@ -5478,7 +6100,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -5493,7 +6115,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBKOMMCOLLI_PAKET_KOPFRow() As TBKOMMCOLLI_PAKET_KOPFRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_PAKET_POS_KOPF_ID")),TBKOMMCOLLI_PAKET_KOPFRow) @@ -5504,37 +6126,37 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVKOPF_BESTELLNRNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_BESTELLNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVKOPF_BESTELLNRNull() Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_BESTELLNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVKOPF_EINGANGNRNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_EINGANGNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVKOPF_EINGANGNRNull() Me(Me.tableTBKOMMCOLLI_PAKET_POS.VKOPF_EINGANGNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBKOMMCOLLI_PAKET_POS.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -5549,14 +6171,14 @@ Partial Public Class MyDataset Private tableVWKOMMCOLLI_ABSCHLUSS_PAKET As VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET = CType(Me.Table,VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GUIDColumn),Integer) @@ -5567,7 +6189,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Mandant() As String Get Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.MandantColumn),String) @@ -5578,7 +6200,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PAKET_ID() As String Get Try @@ -5593,7 +6215,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Gepackt() As Date Get Try @@ -5608,7 +6230,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Auswahl() As Boolean Get Try @@ -5623,7 +6245,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT_ID() As Integer Get Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.MANDANT_IDColumn),Integer) @@ -5634,7 +6256,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TRENNUNG_BC() As String Get Return CType(Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TRENNUNG_BCColumn),String) @@ -5645,7 +6267,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TERMIN_KZ() As String Get Try @@ -5660,7 +6282,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ANZ_PACKSTUECK() As Short Get Try @@ -5676,7 +6298,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GESAMTGEWICHT() As Double Get Try @@ -5692,79 +6314,79 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsPAKET_IDNull() As Boolean Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.PAKET_IDColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetPAKET_IDNull() Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.PAKET_IDColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGepacktNull() As Boolean Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GepacktColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGepacktNull() Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GepacktColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsAuswahlNull() As Boolean Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.AuswahlColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetAuswahlNull() Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.AuswahlColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsTERMIN_KZNull() As Boolean Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TERMIN_KZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetTERMIN_KZNull() Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.TERMIN_KZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsANZ_PACKSTUECKNull() As Boolean Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.ANZ_PACKSTUECKColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetANZ_PACKSTUECKNull() Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.ANZ_PACKSTUECKColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGESAMTGEWICHTNull() As Boolean Return Me.IsNull(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GESAMTGEWICHTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGESAMTGEWICHTNull() Me(Me.tableVWKOMMCOLLI_ABSCHLUSS_PAKET.GESAMTGEWICHTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function GetTBKOMMCOLLI_PAKET_KOPFRows() As TBKOMMCOLLI_PAKET_KOPFRow() If (Me.Table.ChildRelations("FK_TBKOMMCOLLI_PAKET_KOPF_MANDANT_ID1") Is Nothing) Then Return New TBKOMMCOLLI_PAKET_KOPFRow(-1) {} @@ -5783,14 +6405,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_TERMINART As TBKOMMCOLLI_TERMINARTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_TERMINART = CType(Me.Table,TBKOMMCOLLI_TERMINARTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.GUIDColumn),Integer) @@ -5801,7 +6423,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property MANDANT_ID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.MANDANT_IDColumn),Integer) @@ -5812,7 +6434,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TERMIN_BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.TERMIN_BEZEICHNUNGColumn),String) @@ -5823,7 +6445,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TERMIN_KZ() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.TERMIN_KZColumn),String) @@ -5834,7 +6456,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWER() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.ERFASSTWERColumn),String) @@ -5845,7 +6467,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ERFASSTWANN() As Date Get Return CType(Me(Me.tableTBKOMMCOLLI_TERMINART.ERFASSTWANNColumn),Date) @@ -5856,7 +6478,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEANDERTWER() As String Get Try @@ -5871,7 +6493,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEAENDERTWANN() As Date Get Try @@ -5886,7 +6508,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBKOMMCOLLI_MANDANTRow() As TBKOMMCOLLI_MANDANTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBKOMMCOLLI_TERMINART_MANDANT_ID")),TBKOMMCOLLI_MANDANTRow) @@ -5897,25 +6519,25 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_TERMINART.GEANDERTWERColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBKOMMCOLLI_TERMINART.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_TERMINART.GEAENDERTWANNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBKOMMCOLLI_TERMINART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub @@ -5930,14 +6552,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_PAKET_POS_LS As TBKOMMCOLLI_PAKET_POS_LSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_PAKET_POS_LS = CType(Me.Table,TBKOMMCOLLI_PAKET_POS_LSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property VKOPF_EINGANGNR() As String Get Try @@ -5953,13 +6575,13 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsVKOPF_EINGANGNRNull() As Boolean Return Me.IsNull(Me.tableTBKOMMCOLLI_PAKET_POS_LS.VKOPF_EINGANGNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetVKOPF_EINGANGNRNull() Me(Me.tableTBKOMMCOLLI_PAKET_POS_LS.VKOPF_EINGANGNRColumn) = Global.System.Convert.DBNull End Sub @@ -5974,14 +6596,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_SDGPOSITIONEN As TBKOMMCOLLI_SDGPOSITIONENDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_SDGPOSITIONEN = CType(Me.Table,TBKOMMCOLLI_SDGPOSITIONENDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.GUIDColumn),Integer) @@ -5992,7 +6614,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property POSINHALT() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.POSINHALTColumn),String) @@ -6003,7 +6625,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GEWICHT() As Double Get Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.GEWICHTColumn),Double) @@ -6014,7 +6636,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LHM() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_SDGPOSITIONEN.LHMColumn),String) @@ -6034,14 +6656,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_TEXTSCHLUESSEL As TBKOMMCOLLI_TEXTSCHLUESSELDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL = CType(Me.Table,TBKOMMCOLLI_TEXTSCHLUESSELDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Byte Get Return CType(Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.GUIDColumn),Byte) @@ -6052,7 +6674,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_TEXTSCHLUESSEL.BEZEICHNUNGColumn),String) @@ -6072,14 +6694,14 @@ Partial Public Class MyDataset Private tableTBKOMMCOLLI_HINWEIS As TBKOMMCOLLI_HINWEISDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBKOMMCOLLI_HINWEIS = CType(Me.Table,TBKOMMCOLLI_HINWEISDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SENDUNGNR() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.SENDUNGNRColumn),Integer) @@ -6090,7 +6712,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BEZEICHNUNG() As String Get Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.BEZEICHNUNGColumn),String) @@ -6101,7 +6723,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBKOMMCOLLI_HINWEIS.GUIDColumn),Integer) @@ -6121,14 +6743,14 @@ Partial Public Class MyDataset Private tableVWHUP_REPORT1 As VWHUP_REPORT1DataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWHUP_REPORT1 = CType(Me.Table,VWHUP_REPORT1DataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LAD1() As String Get Return CType(Me(Me.tableVWHUP_REPORT1.LAD1Column),String) @@ -6139,7 +6761,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LAD_STRASSE() As String Get Return CType(Me(Me.tableVWHUP_REPORT1.LAD_STRASSEColumn),String) @@ -6150,7 +6772,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property LAD_LKZ_PLZ_ORT() As String Get Try @@ -6165,7 +6787,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property FERTIG() As Boolean Get Return CType(Me(Me.tableVWHUP_REPORT1.FERTIGColumn),Boolean) @@ -6176,7 +6798,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP() As String Get Try @@ -6191,7 +6813,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP_ZUSATZ() As String Get Try @@ -6206,7 +6828,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP_STRASSE() As String Get Try @@ -6221,7 +6843,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP_LKZ() As String Get Try @@ -6236,7 +6858,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP_ORT() As String Get Try @@ -6251,7 +6873,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP_OTEIL() As String Get Try @@ -6266,7 +6888,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ABHOLDATUM() As Date Get Return CType(Me(Me.tableVWHUP_REPORT1.ABHOLDATUMColumn),Date) @@ -6277,7 +6899,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SDG_GEWICHT() As Double Get Try @@ -6292,7 +6914,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SDG_STELLPLAETZE() As Short Get Return CType(Me(Me.tableVWHUP_REPORT1.SDG_STELLPLAETZEColumn),Short) @@ -6303,7 +6925,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SDG_FRANKATUR() As String Get Return CType(Me(Me.tableVWHUP_REPORT1.SDG_FRANKATURColumn),String) @@ -6314,7 +6936,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property NVE() As String Get Try @@ -6329,7 +6951,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property POSINHALT() As String Get Return CType(Me(Me.tableVWHUP_REPORT1.POSINHALTColumn),String) @@ -6340,7 +6962,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property POS_GEWICHT() As Double Get Return CType(Me(Me.tableVWHUP_REPORT1.POS_GEWICHTColumn),Double) @@ -6351,7 +6973,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property PACKSTUECKANZAHL() As Byte Get Return CType(Me(Me.tableVWHUP_REPORT1.PACKSTUECKANZAHLColumn),Byte) @@ -6362,7 +6984,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HINW_CODE() As String Get Try @@ -6377,7 +6999,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HINW_TEXT() As String Get Try @@ -6392,7 +7014,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property HINW_TEXT_ERG() As String Get Try @@ -6407,7 +7029,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SENDUNGNR() As String Get Try @@ -6422,7 +7044,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SDG_REFERENZ() As String Get Try @@ -6437,7 +7059,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property EMP_PLZ_STR() As String Get Try @@ -6452,7 +7074,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property Selected() As Boolean Get Try @@ -6467,7 +7089,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWHUP_REPORT1.GUIDColumn),Integer) @@ -6478,202 +7100,669 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsLAD_LKZ_PLZ_ORTNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.LAD_LKZ_PLZ_ORTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetLAD_LKZ_PLZ_ORTNull() Me(Me.tableVWHUP_REPORT1.LAD_LKZ_PLZ_ORTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMPNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMPColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMPNull() Me(Me.tableVWHUP_REPORT1.EMPColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMP_ZUSATZNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_ZUSATZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMP_ZUSATZNull() Me(Me.tableVWHUP_REPORT1.EMP_ZUSATZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMP_STRASSENull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_STRASSEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMP_STRASSENull() Me(Me.tableVWHUP_REPORT1.EMP_STRASSEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMP_LKZNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_LKZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMP_LKZNull() Me(Me.tableVWHUP_REPORT1.EMP_LKZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMP_ORTNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_ORTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMP_ORTNull() Me(Me.tableVWHUP_REPORT1.EMP_ORTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMP_OTEILNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_OTEILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMP_OTEILNull() Me(Me.tableVWHUP_REPORT1.EMP_OTEILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSDG_GEWICHTNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.SDG_GEWICHTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSDG_GEWICHTNull() Me(Me.tableVWHUP_REPORT1.SDG_GEWICHTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsNVENull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.NVEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetNVENull() Me(Me.tableVWHUP_REPORT1.NVEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsHINW_CODENull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.HINW_CODEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetHINW_CODENull() Me(Me.tableVWHUP_REPORT1.HINW_CODEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsHINW_TEXTNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.HINW_TEXTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetHINW_TEXTNull() Me(Me.tableVWHUP_REPORT1.HINW_TEXTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsHINW_TEXT_ERGNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.HINW_TEXT_ERGColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetHINW_TEXT_ERGNull() Me(Me.tableVWHUP_REPORT1.HINW_TEXT_ERGColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSENDUNGNRNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.SENDUNGNRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSENDUNGNRNull() Me(Me.tableVWHUP_REPORT1.SENDUNGNRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSDG_REFERENZNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.SDG_REFERENZColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSDG_REFERENZNull() Me(Me.tableVWHUP_REPORT1.SDG_REFERENZColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsEMP_PLZ_STRNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.EMP_PLZ_STRColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetEMP_PLZ_STRNull() Me(Me.tableVWHUP_REPORT1.EMP_PLZ_STRColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function IsSelectedNull() As Boolean Return Me.IsNull(Me.tableVWHUP_REPORT1.SelectedColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub SetSelectedNull() Me(Me.tableVWHUP_REPORT1.SelectedColumn) = Global.System.Convert.DBNull 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 ''' - _ + _ Public Class TBKOMMCOLLI_MANDANTRowChangeEvent Inherits Global.System.EventArgs @@ -6682,7 +7771,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_MANDANTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6690,7 +7779,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_MANDANTRow Get Return Me.eventRow @@ -6698,7 +7787,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6709,7 +7798,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBWH_MANDANTRowChangeEvent Inherits Global.System.EventArgs @@ -6718,7 +7807,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBWH_MANDANTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6726,7 +7815,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBWH_MANDANTRow Get Return Me.eventRow @@ -6734,7 +7823,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6745,7 +7834,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_PAKET_KOPFRowChangeEvent Inherits Global.System.EventArgs @@ -6754,7 +7843,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_PAKET_KOPFRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6762,7 +7851,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_PAKET_KOPFRow Get Return Me.eventRow @@ -6770,7 +7859,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6781,7 +7870,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_PAKET_POSRowChangeEvent Inherits Global.System.EventArgs @@ -6790,7 +7879,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_PAKET_POSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6798,7 +7887,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_PAKET_POSRow Get Return Me.eventRow @@ -6806,7 +7895,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6817,7 +7906,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWKOMMCOLLI_ABSCHLUSS_PAKETRowChangeEvent Inherits Global.System.EventArgs @@ -6826,7 +7915,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWKOMMCOLLI_ABSCHLUSS_PAKETRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6834,7 +7923,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWKOMMCOLLI_ABSCHLUSS_PAKETRow Get Return Me.eventRow @@ -6842,7 +7931,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6853,7 +7942,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_TERMINARTRowChangeEvent Inherits Global.System.EventArgs @@ -6862,7 +7951,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_TERMINARTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6870,7 +7959,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_TERMINARTRow Get Return Me.eventRow @@ -6878,7 +7967,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6889,7 +7978,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_PAKET_POS_LSRowChangeEvent Inherits Global.System.EventArgs @@ -6898,7 +7987,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_PAKET_POS_LSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6906,7 +7995,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_PAKET_POS_LSRow Get Return Me.eventRow @@ -6914,7 +8003,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6925,7 +8014,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_SDGPOSITIONENRowChangeEvent Inherits Global.System.EventArgs @@ -6934,7 +8023,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_SDGPOSITIONENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6942,7 +8031,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_SDGPOSITIONENRow Get Return Me.eventRow @@ -6950,7 +8039,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6961,7 +8050,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_TEXTSCHLUESSELRowChangeEvent Inherits Global.System.EventArgs @@ -6970,7 +8059,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_TEXTSCHLUESSELRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -6978,7 +8067,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_TEXTSCHLUESSELRow Get Return Me.eventRow @@ -6986,7 +8075,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6997,7 +8086,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class TBKOMMCOLLI_HINWEISRowChangeEvent Inherits Global.System.EventArgs @@ -7006,7 +8095,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As TBKOMMCOLLI_HINWEISRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7014,7 +8103,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As TBKOMMCOLLI_HINWEISRow Get Return Me.eventRow @@ -7022,7 +8111,7 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7033,7 +8122,7 @@ Partial Public Class MyDataset ''' '''Row event argument class ''' - _ + _ Public Class VWHUP_REPORT1RowChangeEvent Inherits Global.System.EventArgs @@ -7042,7 +8131,7 @@ Partial Public Class MyDataset Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New(ByVal row As VWHUP_REPORT1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7050,7 +8139,7 @@ Partial Public Class MyDataset End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public ReadOnly Property Row() As VWHUP_REPORT1Row Get Return Me.eventRow @@ -7058,7 +8147,43 @@ Partial Public Class MyDataset End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + 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 @@ -7092,14 +8217,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -7110,7 +8235,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -7140,7 +8265,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -7168,7 +8293,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -7179,7 +8304,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -7190,7 +8315,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -7273,14 +8398,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -7303,7 +8428,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_MANDANTDataTable) As Integer @@ -7316,7 +8441,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBKOMMCOLLI_MANDANTDataTable @@ -7327,35 +8452,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_MANDANTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_MANDANT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_KURZNAME As String, ByVal Original_SPEICHERORT As String, ByVal Original_PRAEFIX As String, ByVal Original_TRENNUNG_BC As String, ByVal Original_ERFASSTWER As String, ByVal Original_ERFASSTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -7427,7 +8552,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal KURZNAME As String, ByVal SPEICHERORT As String, ByVal PRAEFIX As String, ByVal TRENNUNG_BC As String, ByVal ERFASSTWER As String, ByVal PRINTER_NAME As String) As Integer @@ -7482,7 +8607,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal KURZNAME As String, ByVal SPEICHERORT As String, ByVal PRAEFIX As String, ByVal TRENNUNG_BC As String, ByVal GEANDERTWER As String, ByVal PRINTER_NAME As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -7539,7 +8664,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdGetGUIDbyKurzname(ByVal KURZNAME As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -7570,7 +8695,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdgetSpeicherort(ByVal GUID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -7620,14 +8745,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -7638,7 +8763,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -7668,7 +8793,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -7696,7 +8821,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -7707,7 +8832,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -7718,7 +8843,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -7731,14 +8856,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -7748,7 +8873,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWH_MANDANTDataTable) As Integer @@ -7761,7 +8886,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBWH_MANDANTDataTable @@ -7795,14 +8920,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -7813,7 +8938,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -7843,7 +8968,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -7871,7 +8996,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -7882,7 +9007,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -7893,7 +9018,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -7975,14 +9100,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(20) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -8184,7 +9309,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable, ByVal guid As Integer) As Integer @@ -8198,7 +9323,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal guid As Integer) As MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable @@ -8210,35 +9335,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_KOPFDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_PAKET_KOPF") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -8259,7 +9384,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal MANDANT_ID As Integer, ByVal ERFASSTWO As String, ByVal ERFASSTWER As String, ByVal ANZ_PACKSTUECK As Global.System.Nullable(Of Short), ByVal GESAMTGEWICHT As Global.System.Nullable(Of Double)) As Integer @@ -8300,7 +9425,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -8416,7 +9541,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -8443,7 +9568,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseExists(ByVal KOPF_ID As Integer) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) @@ -8470,7 +9595,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseFirma1(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) @@ -8497,7 +9622,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseFirma2(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) @@ -8524,7 +9649,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseFirma3(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) @@ -8551,7 +9676,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseLAND(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) @@ -8578,7 +9703,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseOrt(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) @@ -8605,7 +9730,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweisePLZ(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) @@ -8632,7 +9757,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAllVerweiseStrasse(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) @@ -8659,7 +9784,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBestellNrFirma1(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) @@ -8686,7 +9811,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBestellNrFirma2(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(10) @@ -8713,7 +9838,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBestellNrFirma3(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(11) @@ -8740,7 +9865,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBestellNrLand(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(12) @@ -8767,7 +9892,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBestellNrOrt(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(13) @@ -8794,7 +9919,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBestellNrPLZ(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(14) @@ -8821,7 +9946,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdBEstellNrStrasse(ByVal KOPF_ID As Integer) As String Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(15) @@ -8848,7 +9973,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdDeleteGUID(ByVal Original_GUID As Integer) As Integer @@ -8871,7 +9996,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CMDDeletePaketnachID(ByVal PAKET_ID As String) As Integer @@ -8898,7 +10023,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdGetMaxGUID() As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(18) @@ -8924,7 +10049,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function CmdsetFertig(ByVal GEANDERTWER As String, ByVal TERMINKZ As String, ByVal GUID As Integer) As Integer @@ -8957,7 +10082,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdUpdate_Gewicht(ByVal GEANDERTWER As String, ByVal Gewicht As Global.System.Nullable(Of Double), ByVal PAKET_ID As String) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(20) @@ -9016,14 +10141,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -9034,7 +10159,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -9064,7 +10189,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -9092,7 +10217,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -9103,7 +10228,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -9114,7 +10239,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -9176,14 +10301,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -9214,7 +10339,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_POSDataTable, ByVal KOPF_ID As Integer) As Integer @@ -9228,7 +10353,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal KOPF_ID As Integer) As MyDataset.TBKOMMCOLLI_PAKET_POSDataTable @@ -9240,35 +10365,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_POSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_PAKET_POS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -9289,7 +10414,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal KOPF_ID As Integer, ByVal BARCODE As String) As Integer @@ -9315,7 +10440,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal KOPF_ID As Integer, ByVal BARCODE As String, ByVal VKOPF_BESTELLNR As String, ByVal VKOPF_EINGANGNR As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KOPF_ID As Integer, ByVal Original_BARCODE As String, ByVal Original_VKOPF_BESTELLNR As String, ByVal Original_VKOPF_EINGANGNR As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer @@ -9387,7 +10512,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal KOPF_ID As Integer, ByVal BARCODE As String, ByVal VKOPF_BESTELLNR As String, ByVal VKOPF_EINGANGNR As String, ByVal ERFASSTWANN As Date, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_KOPF_ID As Integer, ByVal Original_BARCODE As String, ByVal Original_VKOPF_BESTELLNR As String, ByVal Original_VKOPF_EINGANGNR As String, ByVal Original_ERFASSTWANN As Date, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -9395,7 +10520,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDelete_nachKopfID(ByVal PAKET_ID As String) As Integer @@ -9422,7 +10547,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDeleteKopfData(ByVal KOPF_ID As Integer) As Integer @@ -9445,7 +10570,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdDeletePos(ByVal KOPF_ID As Integer) As Integer @@ -9491,14 +10616,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -9509,7 +10634,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -9539,7 +10664,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -9567,7 +10692,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -9578,7 +10703,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -9589,7 +10714,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -9608,14 +10733,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -9635,7 +10760,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable, ByVal Mandant As String) As Integer @@ -9653,7 +10778,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal Mandant As String) As MyDataset.VWKOMMCOLLI_ABSCHLUSS_PAKETDataTable @@ -9669,7 +10794,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function cmdAbschluss(ByVal filename As String, ByVal Guid As Integer) As Integer @@ -9720,14 +10845,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -9738,7 +10863,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -9768,7 +10893,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -9796,7 +10921,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -9807,7 +10932,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -9818,7 +10943,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -9861,14 +10986,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -9881,7 +11006,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_TERMINARTDataTable, ByVal mandantID As Integer) As Integer @@ -9895,7 +11020,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal mandantID As Integer) As MyDataset.TBKOMMCOLLI_TERMINARTDataTable @@ -9907,28 +11032,28 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_TERMINARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_TERMINART") 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) @@ -9958,14 +11083,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -9976,7 +11101,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -10006,7 +11131,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -10034,7 +11159,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -10045,7 +11170,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -10056,7 +11181,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -10067,14 +11192,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -10086,7 +11211,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable, ByVal KOPF_ID As Integer) As Integer @@ -10100,7 +11225,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal KOPF_ID As Integer) As MyDataset.TBKOMMCOLLI_PAKET_POS_LSDataTable @@ -10135,14 +11260,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -10153,7 +11278,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -10183,7 +11308,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -10211,7 +11336,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -10222,7 +11347,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -10233,7 +11358,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -10376,14 +11501,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -10398,7 +11523,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable, ByVal SDG As Integer, ByVal ID As Integer) As Integer @@ -10413,7 +11538,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal SDG As Integer, ByVal ID As Integer) As MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable @@ -10426,35 +11551,35 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBKOMMCOLLI_SDGPOSITIONENDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBKOMMCOLLI_SDGPOSITIONEN") 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( _ @@ -10550,7 +11675,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal SENDUNGNR As Integer, ByVal SDG_LHM_ID As Integer, ByVal PACKSTUECKANZAHL As Byte, ByVal POSINHALT As String, ByVal GEWICHT As Double, ByVal FRACHTPFLICTGEWICHT As Double, ByVal REFERENZ As String, ByVal NVE As String, ByVal FERTIG As Boolean, ByVal FERTIGWER As String, ByVal FERTIGWANN As Global.System.Nullable(Of Date), ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEAENDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer @@ -10617,7 +11742,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -10777,7 +11902,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -10839,14 +11964,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -10857,7 +11982,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -10887,7 +12012,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -10915,7 +12040,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -10926,7 +12051,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -10937,7 +12062,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -10949,14 +12074,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -10967,7 +12092,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable) As Integer @@ -10980,7 +12105,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBKOMMCOLLI_TEXTSCHLUESSELDataTable @@ -11014,14 +12139,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -11032,7 +12157,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -11062,7 +12187,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -11090,7 +12215,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -11101,7 +12226,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -11112,7 +12237,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11125,14 +12250,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -11147,7 +12272,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBKOMMCOLLI_HINWEISDataTable, ByVal Sendung As Integer) As Integer @@ -11161,7 +12286,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal Sendung As Integer) As MyDataset.TBKOMMCOLLI_HINWEISDataTable @@ -11196,14 +12321,14 @@ Namespace MyDatasetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -11214,7 +12339,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -11244,7 +12369,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -11272,7 +12397,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -11283,7 +12408,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -11294,7 +12419,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -11329,14 +12454,14 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.KommiCollo.My.MySettings.Default.SCHAUM_IIDConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -11353,7 +12478,7 @@ Namespace MyDatasetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWHUP_REPORT1DataTable, ByVal FERTIG As Boolean, ByVal UEBERTRAGEN As Boolean) As Integer @@ -11368,7 +12493,7 @@ Namespace MyDatasetTableAdapters End Function _ Public Overloads Overridable Function GetData(ByVal FERTIG As Boolean, ByVal UEBERTRAGEN As Boolean) As MyDataset.VWHUP_REPORT1DataTable @@ -11381,6 +12506,202 @@ 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 ''' @@ -11409,7 +12730,7 @@ Namespace MyDatasetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -11420,7 +12741,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -11434,7 +12755,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -11448,7 +12769,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -11462,7 +12783,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -11476,7 +12797,7 @@ Namespace MyDatasetTableAdapters End Property _ @@ -11490,7 +12811,7 @@ Namespace MyDatasetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -11501,7 +12822,7 @@ Namespace MyDatasetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -11536,7 +12857,7 @@ Namespace MyDatasetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -11564,7 +12885,7 @@ Namespace MyDatasetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then @@ -11619,7 +12940,7 @@ Namespace MyDatasetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBKOMMCOLLI_MANDANTTableAdapter) Is Nothing) Then @@ -11669,7 +12990,7 @@ Namespace MyDatasetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBKOMMCOLLI_SDGPOSITIONENTableAdapter) Is Nothing) Then @@ -11719,7 +13040,7 @@ Namespace MyDatasetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -11745,7 +13066,7 @@ Namespace MyDatasetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -11952,13 +13273,13 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -11976,7 +13297,7 @@ Namespace MyDatasetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -11987,7 +13308,7 @@ Namespace MyDatasetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -11997,7 +13318,7 @@ Namespace MyDatasetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -12009,7 +13330,7 @@ Namespace MyDatasetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -12048,7 +13369,7 @@ Namespace MyDatasetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/SchaumKommiCollo/KommiCollo/MyDataset.xsd b/SchaumKommiCollo/KommiCollo/MyDataset.xsd index 3ecb355..8774d76 100644 --- a/SchaumKommiCollo/KommiCollo/MyDataset.xsd +++ b/SchaumKommiCollo/KommiCollo/MyDataset.xsd @@ -1002,6 +1002,44 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN + + + + + + 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, ABHOLDATUM, SDG_GEWICHT, + SDG_STELLPLAETZE, SDG_FRANKATUR, BEMERKUNG, BORDERONR, GUID, UEBERTRAGEN +FROM VWKOMMCOLLI_UEBERSICHT + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1010,7 +1048,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1091,7 +1129,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1112,7 +1150,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1161,7 +1199,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1192,7 +1230,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1232,7 +1270,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1270,7 +1308,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1283,7 +1321,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1305,7 +1343,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1319,7 +1357,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1334,7 +1372,7 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN - + @@ -1474,6 +1512,118 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -1512,13 +1662,17 @@ WHERE (FERTIG = @FERTIG) AND UEBERTRAGEN = @UEBERTRAGEN + + + + - - - - + + + + \ No newline at end of file diff --git a/SchaumKommiCollo/KommiCollo/MyDataset.xss b/SchaumKommiCollo/KommiCollo/MyDataset.xss index cd3f6c0..4b11e50 100644 --- a/SchaumKommiCollo/KommiCollo/MyDataset.xss +++ b/SchaumKommiCollo/KommiCollo/MyDataset.xss @@ -4,22 +4,23 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - + + + + + + + + + + + + - + 206 @@ -31,7 +32,7 @@ - + 357 @@ -43,7 +44,7 @@ - + 840 @@ -55,7 +56,7 @@ - + 342 diff --git a/SchaumKommiCollo/KommiCollo/frmAbschluss.Designer.vb b/SchaumKommiCollo/KommiCollo/frmAbschluss.Designer.vb index 6b7e4a0..8e34f6c 100644 --- a/SchaumKommiCollo/KommiCollo/frmAbschluss.Designer.vb +++ b/SchaumKommiCollo/KommiCollo/frmAbschluss.Designer.vb @@ -30,25 +30,25 @@ Partial Class frmAbschluss Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.VWAbschlussDataGridView = New System.Windows.Forms.DataGridView() Me.Auswahl = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.VWAbschlussBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.MyDataset = New KommiCollo.MyDataset() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label1 = New System.Windows.Forms.Label() Me.cmbMandant = New System.Windows.Forms.ComboBox() Me.btndelete = New System.Windows.Forms.Button() Me.btnAbschluss = New System.Windows.Forms.Button() Me.Panel2 = New System.Windows.Forms.Panel() - Me.VWHUP_REPORT1DataGridView = New System.Windows.Forms.DataGridView() - Me.VWHUP_REPORT1BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWKOMMCOLLI_UEBERSICHTDataGridView = New System.Windows.Forms.DataGridView() Me.DSMercator = New KommiCollo.DSMercator() Me.VKKOPFBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VKKOPFTableAdapter = New KommiCollo.DSMercatorTableAdapters.VKKOPFTableAdapter() Me.TableAdapterManager1 = New KommiCollo.DSMercatorTableAdapters.TableAdapterManager() Me.bw_Tagesabschluss = New System.ComponentModel.BackgroundWorker() + Me.VWHUP_REPORT1BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New KommiCollo.MyDataset() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.VWAbschlussBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWAbschlussTableAdapter = New KommiCollo.MyDatasetTableAdapters.VWKOMMCOLLI_ABSCHLUSS_PAKETTableAdapter() Me.TableAdapterManager = New KommiCollo.MyDatasetTableAdapters.TableAdapterManager() Me.TBKOMMCOLLI_MANDANTBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -60,28 +60,33 @@ Partial Class frmAbschluss Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBKOMMCOLLI_PAKET_POS_LSTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POS_LSTableAdapter() Me.VWHUP_REPORT1TableAdapter = New KommiCollo.MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter() - Me.DataGridViewCheckBoxColumn3 = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.VWKOMMCOLLI_UEBERSICHTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWKOMMCOLLI_UEBERSICHTTableAdapter = New KommiCollo.MyDatasetTableAdapters.VWKOMMCOLLI_UEBERSICHTTableAdapter() + Me.Selected = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.UEBERTRAGEN = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.GUID = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn26 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn27 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.DataGridViewTextBoxColumn19 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ABHOLDATUM = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SDG_GEWICHT = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.BORDERONR = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LAD1DataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LADSTRASSEDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LADLKZPLZORTDataGridViewTextBoxColumn = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.FERTIGDataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn() Me.ToolStrip1.SuspendLayout() CType(Me.VWAbschlussDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWAbschlussBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() - CType(Me.VWHUP_REPORT1DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWHUP_REPORT1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWKOMMCOLLI_UEBERSICHTDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DSMercator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VKKOPFBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWHUP_REPORT1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWAbschlussBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBKOMMCOLLI_MANDANTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBKOMMCOLLI_PAKET_POSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBKOMMCOLLI_PAKET_KOPFBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWKOMMCOLLI_UEBERSICHTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ToolStrip1 @@ -139,44 +144,6 @@ Partial Class frmAbschluss Me.Auswahl.Name = "Auswahl" Me.Auswahl.Width = 60 ' - 'DataGridViewTextBoxColumn1 - ' - Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" - Me.DataGridViewTextBoxColumn1.HeaderText = "ID" - Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" - Me.DataGridViewTextBoxColumn1.ReadOnly = True - Me.DataGridViewTextBoxColumn1.Width = 60 - ' - 'DataGridViewTextBoxColumn2 - ' - Me.DataGridViewTextBoxColumn2.DataPropertyName = "Mandant" - Me.DataGridViewTextBoxColumn2.HeaderText = "Mandant" - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - ' - 'DataGridViewTextBoxColumn3 - ' - Me.DataGridViewTextBoxColumn3.DataPropertyName = "PAKET_ID" - Me.DataGridViewTextBoxColumn3.HeaderText = "Paket-ID" - Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" - Me.DataGridViewTextBoxColumn3.Width = 130 - ' - 'DataGridViewTextBoxColumn4 - ' - Me.DataGridViewTextBoxColumn4.DataPropertyName = "Gepackt" - Me.DataGridViewTextBoxColumn4.HeaderText = "Gepackt" - Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" - Me.DataGridViewTextBoxColumn4.Width = 150 - ' - 'VWAbschlussBindingSource - ' - Me.VWAbschlussBindingSource.DataMember = "VWKOMMCOLLI_ABSCHLUSS_PAKET" - Me.VWAbschlussBindingSource.DataSource = Me.MyDataset - ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'Panel1 ' Me.Panel1.Controls.Add(Me.Label1) @@ -233,7 +200,7 @@ Partial Class frmAbschluss ' 'Panel2 ' - Me.Panel2.Controls.Add(Me.VWHUP_REPORT1DataGridView) + Me.Panel2.Controls.Add(Me.VWKOMMCOLLI_UEBERSICHTDataGridView) Me.Panel2.Controls.Add(Me.VWAbschlussDataGridView) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel2.Location = New System.Drawing.Point(154, 25) @@ -241,26 +208,21 @@ Partial Class frmAbschluss Me.Panel2.Size = New System.Drawing.Size(960, 748) Me.Panel2.TabIndex = 3 ' - 'VWHUP_REPORT1DataGridView + 'VWKOMMCOLLI_UEBERSICHTDataGridView ' - Me.VWHUP_REPORT1DataGridView.AllowUserToAddRows = False - Me.VWHUP_REPORT1DataGridView.AllowUserToDeleteRows = False + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.AllowUserToAddRows = False + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.AllowUserToDeleteRows = False DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan - Me.VWHUP_REPORT1DataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.VWHUP_REPORT1DataGridView.AutoGenerateColumns = False - Me.VWHUP_REPORT1DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.VWHUP_REPORT1DataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewCheckBoxColumn3, Me.GUID, Me.DataGridViewTextBoxColumn26, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9, Me.DataGridViewTextBoxColumn10, Me.DataGridViewTextBoxColumn27, Me.DataGridViewTextBoxColumn19}) - Me.VWHUP_REPORT1DataGridView.DataSource = Me.VWHUP_REPORT1BindingSource - Me.VWHUP_REPORT1DataGridView.Location = New System.Drawing.Point(40, 130) - Me.VWHUP_REPORT1DataGridView.Name = "VWHUP_REPORT1DataGridView" - Me.VWHUP_REPORT1DataGridView.Size = New System.Drawing.Size(876, 220) - Me.VWHUP_REPORT1DataGridView.TabIndex = 2 - Me.VWHUP_REPORT1DataGridView.Visible = False - ' - 'VWHUP_REPORT1BindingSource - ' - Me.VWHUP_REPORT1BindingSource.DataMember = "VWHUP_REPORT1" - Me.VWHUP_REPORT1BindingSource.DataSource = Me.MyDataset + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.AutoGenerateColumns = False + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Selected, Me.UEBERTRAGEN, Me.GUID, Me.ABHOLDATUM, Me.SDG_GEWICHT, Me.BORDERONR, Me.LAD1DataGridViewTextBoxColumn, Me.LADSTRASSEDataGridViewTextBoxColumn, Me.LADLKZPLZORTDataGridViewTextBoxColumn, Me.FERTIGDataGridViewCheckBoxColumn}) + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.DataSource = Me.VWKOMMCOLLI_UEBERSICHTBindingSource + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.Location = New System.Drawing.Point(40, 130) + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.Name = "VWKOMMCOLLI_UEBERSICHTDataGridView" + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.Size = New System.Drawing.Size(876, 220) + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.TabIndex = 2 + Me.VWKOMMCOLLI_UEBERSICHTDataGridView.Visible = False ' 'DSMercator ' @@ -285,6 +247,49 @@ Partial Class frmAbschluss 'bw_Tagesabschluss ' ' + 'VWHUP_REPORT1BindingSource + ' + Me.VWHUP_REPORT1BindingSource.DataMember = "VWHUP_REPORT1" + Me.VWHUP_REPORT1BindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" + Me.DataGridViewTextBoxColumn1.HeaderText = "ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + Me.DataGridViewTextBoxColumn1.Width = 60 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Mandant" + Me.DataGridViewTextBoxColumn2.HeaderText = "Mandant" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "PAKET_ID" + Me.DataGridViewTextBoxColumn3.HeaderText = "Paket-ID" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.Width = 130 + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Gepackt" + Me.DataGridViewTextBoxColumn4.HeaderText = "Gepackt" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.Width = 150 + ' + 'VWAbschlussBindingSource + ' + Me.VWAbschlussBindingSource.DataMember = "VWKOMMCOLLI_ABSCHLUSS_PAKET" + Me.VWAbschlussBindingSource.DataSource = Me.MyDataset + ' 'VWAbschlussTableAdapter ' Me.VWAbschlussTableAdapter.ClearBeforeFill = True @@ -340,12 +345,27 @@ Partial Class frmAbschluss ' Me.VWHUP_REPORT1TableAdapter.ClearBeforeFill = True ' - 'DataGridViewCheckBoxColumn3 + 'VWKOMMCOLLI_UEBERSICHTBindingSource ' - Me.DataGridViewCheckBoxColumn3.DataPropertyName = "Selected" - Me.DataGridViewCheckBoxColumn3.HeaderText = "löschen" - Me.DataGridViewCheckBoxColumn3.Name = "DataGridViewCheckBoxColumn3" - Me.DataGridViewCheckBoxColumn3.Width = 50 + Me.VWKOMMCOLLI_UEBERSICHTBindingSource.DataMember = "VWKOMMCOLLI_UEBERSICHT" + Me.VWKOMMCOLLI_UEBERSICHTBindingSource.DataSource = Me.MyDataset + ' + 'VWKOMMCOLLI_UEBERSICHTTableAdapter + ' + Me.VWKOMMCOLLI_UEBERSICHTTableAdapter.ClearBeforeFill = True + ' + 'Selected + ' + Me.Selected.FalseValue = "False" + Me.Selected.HeaderText = "Löschen" + Me.Selected.Name = "Selected" + Me.Selected.TrueValue = "True" + ' + 'UEBERTRAGEN + ' + Me.UEBERTRAGEN.DataPropertyName = "UEBERTRAGEN" + Me.UEBERTRAGEN.HeaderText = "UEBERTRAGEN" + Me.UEBERTRAGEN.Name = "UEBERTRAGEN" ' 'GUID ' @@ -353,50 +373,49 @@ Partial Class frmAbschluss Me.GUID.HeaderText = "Sendung-Nr" Me.GUID.Name = "GUID" ' - 'DataGridViewTextBoxColumn26 + 'ABHOLDATUM ' - Me.DataGridViewTextBoxColumn26.DataPropertyName = "SDG_REFERENZ" - Me.DataGridViewTextBoxColumn26.HeaderText = "Referenz" - Me.DataGridViewTextBoxColumn26.Name = "DataGridViewTextBoxColumn26" - Me.DataGridViewTextBoxColumn26.ReadOnly = True + Me.ABHOLDATUM.DataPropertyName = "ABHOLDATUM" + Me.ABHOLDATUM.HeaderText = "ABHOLDATUM" + Me.ABHOLDATUM.Name = "ABHOLDATUM" ' - 'DataGridViewTextBoxColumn8 + 'SDG_GEWICHT ' - Me.DataGridViewTextBoxColumn8.DataPropertyName = "EMP" - Me.DataGridViewTextBoxColumn8.HeaderText = "Empfänger" - Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" - Me.DataGridViewTextBoxColumn8.ReadOnly = True - Me.DataGridViewTextBoxColumn8.Width = 200 + Me.SDG_GEWICHT.DataPropertyName = "SDG_GEWICHT" + Me.SDG_GEWICHT.HeaderText = "SDG_GEWICHT" + Me.SDG_GEWICHT.Name = "SDG_GEWICHT" + Me.SDG_GEWICHT.ReadOnly = True ' - 'DataGridViewTextBoxColumn9 + 'BORDERONR ' - Me.DataGridViewTextBoxColumn9.DataPropertyName = "EMP_ZUSATZ" - Me.DataGridViewTextBoxColumn9.HeaderText = "Zusatz" - Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" - Me.DataGridViewTextBoxColumn9.ReadOnly = True + Me.BORDERONR.DataPropertyName = "BORDERONR" + Me.BORDERONR.HeaderText = "BORDERONR" + Me.BORDERONR.Name = "BORDERONR" ' - 'DataGridViewTextBoxColumn10 + 'LAD1DataGridViewTextBoxColumn ' - Me.DataGridViewTextBoxColumn10.DataPropertyName = "EMP_STRASSE" - Me.DataGridViewTextBoxColumn10.HeaderText = "Strasse" - Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10" - Me.DataGridViewTextBoxColumn10.ReadOnly = True + Me.LAD1DataGridViewTextBoxColumn.DataPropertyName = "LAD1" + Me.LAD1DataGridViewTextBoxColumn.HeaderText = "LAD1" + Me.LAD1DataGridViewTextBoxColumn.Name = "LAD1DataGridViewTextBoxColumn" ' - 'DataGridViewTextBoxColumn27 + 'LADSTRASSEDataGridViewTextBoxColumn ' - Me.DataGridViewTextBoxColumn27.DataPropertyName = "EMP_PLZ_STR" - Me.DataGridViewTextBoxColumn27.HeaderText = "PLZ Ort" - Me.DataGridViewTextBoxColumn27.Name = "DataGridViewTextBoxColumn27" - Me.DataGridViewTextBoxColumn27.ReadOnly = True - Me.DataGridViewTextBoxColumn27.Width = 300 + Me.LADSTRASSEDataGridViewTextBoxColumn.DataPropertyName = "LAD_STRASSE" + Me.LADSTRASSEDataGridViewTextBoxColumn.HeaderText = "LAD_STRASSE" + Me.LADSTRASSEDataGridViewTextBoxColumn.Name = "LADSTRASSEDataGridViewTextBoxColumn" ' - 'DataGridViewTextBoxColumn19 + 'LADLKZPLZORTDataGridViewTextBoxColumn ' - Me.DataGridViewTextBoxColumn19.DataPropertyName = "POSINHALT" - Me.DataGridViewTextBoxColumn19.HeaderText = "Inhalt" - Me.DataGridViewTextBoxColumn19.Name = "DataGridViewTextBoxColumn19" - Me.DataGridViewTextBoxColumn19.ReadOnly = True - Me.DataGridViewTextBoxColumn19.Width = 250 + Me.LADLKZPLZORTDataGridViewTextBoxColumn.DataPropertyName = "LAD_LKZ_PLZ_ORT" + Me.LADLKZPLZORTDataGridViewTextBoxColumn.HeaderText = "LAD_LKZ_PLZ_ORT" + Me.LADLKZPLZORTDataGridViewTextBoxColumn.Name = "LADLKZPLZORTDataGridViewTextBoxColumn" + Me.LADLKZPLZORTDataGridViewTextBoxColumn.ReadOnly = True + ' + 'FERTIGDataGridViewCheckBoxColumn + ' + Me.FERTIGDataGridViewCheckBoxColumn.DataPropertyName = "FERTIG" + Me.FERTIGDataGridViewCheckBoxColumn.HeaderText = "FERTIG" + Me.FERTIGDataGridViewCheckBoxColumn.Name = "FERTIGDataGridViewCheckBoxColumn" ' 'frmAbschluss ' @@ -414,19 +433,20 @@ Partial Class frmAbschluss Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.PerformLayout() CType(Me.VWAbschlussDataGridView, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWAbschlussBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.Panel2.ResumeLayout(False) - CType(Me.VWHUP_REPORT1DataGridView, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWHUP_REPORT1BindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWKOMMCOLLI_UEBERSICHTDataGridView, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DSMercator, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VKKOPFBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWHUP_REPORT1BindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWAbschlussBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBKOMMCOLLI_MANDANTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBKOMMCOLLI_PAKET_POSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBKOMMCOLLI_PAKET_KOPFBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBKOMMCOLLI_PAKET_POS_LSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWKOMMCOLLI_UEBERSICHTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -467,13 +487,17 @@ Partial Class frmAbschluss Friend WithEvents Label1 As Label Friend WithEvents VWHUP_REPORT1BindingSource As BindingSource Friend WithEvents VWHUP_REPORT1TableAdapter As MyDatasetTableAdapters.VWHUP_REPORT1TableAdapter - Friend WithEvents VWHUP_REPORT1DataGridView As DataGridView - Friend WithEvents DataGridViewCheckBoxColumn3 As DataGridViewCheckBoxColumn + Friend WithEvents VWKOMMCOLLI_UEBERSICHTDataGridView As DataGridView + Friend WithEvents VWKOMMCOLLI_UEBERSICHTBindingSource As BindingSource + Friend WithEvents VWKOMMCOLLI_UEBERSICHTTableAdapter As MyDatasetTableAdapters.VWKOMMCOLLI_UEBERSICHTTableAdapter + Friend WithEvents Selected As DataGridViewCheckBoxColumn + Friend WithEvents UEBERTRAGEN As DataGridViewCheckBoxColumn Friend WithEvents GUID As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn26 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn27 As DataGridViewTextBoxColumn - Friend WithEvents DataGridViewTextBoxColumn19 As DataGridViewTextBoxColumn + Friend WithEvents ABHOLDATUM As DataGridViewTextBoxColumn + Friend WithEvents SDG_GEWICHT As DataGridViewTextBoxColumn + Friend WithEvents BORDERONR As DataGridViewTextBoxColumn + Friend WithEvents LAD1DataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents LADSTRASSEDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents LADLKZPLZORTDataGridViewTextBoxColumn As DataGridViewTextBoxColumn + Friend WithEvents FERTIGDataGridViewCheckBoxColumn As DataGridViewCheckBoxColumn End Class diff --git a/SchaumKommiCollo/KommiCollo/frmAbschluss.resx b/SchaumKommiCollo/KommiCollo/frmAbschluss.resx index 4f031b2..bbad3fd 100644 --- a/SchaumKommiCollo/KommiCollo/frmAbschluss.resx +++ b/SchaumKommiCollo/KommiCollo/frmAbschluss.resx @@ -129,11 +129,26 @@ 17, 17 + + True + + + True + True - - 768, 95 + + True + + + True + + + True + + + 17, 134 17, 56 @@ -150,6 +165,9 @@ 611, 95 + + 768, 95 + 330, 17 @@ -183,6 +201,9 @@ 997, 95 + + 311, 134 + 187 diff --git a/SchaumKommiCollo/KommiCollo/frmAbschluss.vb b/SchaumKommiCollo/KommiCollo/frmAbschluss.vb index 7e0db1f..5b187b1 100644 --- a/SchaumKommiCollo/KommiCollo/frmAbschluss.vb +++ b/SchaumKommiCollo/KommiCollo/frmAbschluss.vb @@ -2,6 +2,8 @@ Dim Mandant As String Dim Mandant_ID As Integer Private Sub frmAbschluss_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.VWKOMMCOLLI_UEBERSICHT". Sie können sie bei Bedarf verschieben oder entfernen. + Me.VWKOMMCOLLI_UEBERSICHTTableAdapter.Fill(Me.MyDataset.VWKOMMCOLLI_UEBERSICHT) Try Me.VWAbschlussTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString Me.TBKOMMCOLLI_MANDANTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString @@ -186,7 +188,7 @@ DR.Item("Auswahl") = True Next Else - Dim DT As DataTable = MyDataset.VWHUP_REPORT1 + Dim DT As DataTable = MyDataset.VWKOMMCOLLI_UEBERSICHT For Each DR As DataRow In DT.Rows DR.Item("Selected") = True Next @@ -201,7 +203,7 @@ DR.Item("Auswahl") = False Next Else - Dim DT As DataTable = MyDataset.VWHUP_REPORT1 + Dim DT As DataTable = MyDataset.VWKOMMCOLLI_UEBERSICHT For Each DR As DataRow In DT.Rows DR.Item("Selected") = False Next @@ -272,13 +274,15 @@ ElseIf cmbMandant.Text = "HuP" Then 'Sendung löschen bei HuP - VWHUP_REPORT1BindingSource.EndEdit() - For Each row As DataRow In MyDataset.VWHUP_REPORT1.Rows - If row.Item("Selected") = True Then - Dim cmd = String.Format("EXECUTE PRKOMMCOLLI_SDG_LOESCHEN {0}", row.Item("GUID")) + VWKOMMCOLLI_UEBERSICHTBindingSource.EndEdit() + + For Each row As DataGridViewRow In VWKOMMCOLLI_UEBERSICHTDataGridView.Rows + If row.Cells("SELECTED").Value = True Then + Dim cmd = String.Format("EXECUTE PRKOMMCOLLI_SDG_LOESCHEN {0}", row.Cells("GUID").Value) ClassDatabase.Execute_non_Query(cmd, True) End If Next + Load_Sendungen() @@ -288,14 +292,14 @@ Sub Refresh_Grid() VWAbschlussDataGridView.Visible = False VWAbschlussDataGridView.Dock = DockStyle.None - VWHUP_REPORT1DataGridView.Visible = False + VWKOMMCOLLI_UEBERSICHTDataGridView.Visible = False btndelete.Enabled = False If cmbMandant.SelectedIndex <> -1 Then Select Case cmbMandant.SelectedIndex Case 0 Load_Sendungen() - VWHUP_REPORT1DataGridView.Dock = DockStyle.Fill - VWHUP_REPORT1DataGridView.Visible = True + VWKOMMCOLLI_UEBERSICHTDataGridView.Dock = DockStyle.Fill + VWKOMMCOLLI_UEBERSICHTDataGridView.Visible = True btndelete.Text = "Sendung(en)" & vbNewLine & "löschen" btndelete.Enabled = True Case 1 @@ -331,8 +335,8 @@ Private Sub Load_Sendungen() Try - Me.VWHUP_REPORT1TableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString - Me.VWHUP_REPORT1TableAdapter.Fill(Me.MyDataset.VWHUP_REPORT1, True, False) + VWKOMMCOLLI_UEBERSICHTTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + VWKOMMCOLLI_UEBERSICHTTableAdapter.Fill(MyDataset.VWKOMMCOLLI_UEBERSICHT) Catch ex As System.Exception MsgBox("Fehler bei Load_Sendungen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try diff --git a/SchaumKommiCollo/KommiCollo/frmMain.Designer.vb b/SchaumKommiCollo/KommiCollo/frmMain.Designer.vb index 8e01199..fce4a2a 100644 --- a/SchaumKommiCollo/KommiCollo/frmMain.Designer.vb +++ b/SchaumKommiCollo/KommiCollo/frmMain.Designer.vb @@ -70,6 +70,7 @@ Partial Class frmMain Me.TBKOMMCOLLI_PAKET_POSTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_PAKET_POSTableAdapter() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tsinfolabel = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStripStatusLabelVersion = New System.Windows.Forms.ToolStripStatusLabel() Me.pnlError = New System.Windows.Forms.Panel() Me.TBKOMMCOLLI_TERMINARTTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_TERMINARTTableAdapter() Me.Panel1 = New System.Windows.Forms.Panel() @@ -120,7 +121,6 @@ Partial Class frmMain Me.TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_TEXTSCHLUESSELTableAdapter() Me.TBKOMMCOLLI_HINWEISTableAdapter = New KommiCollo.MyDatasetTableAdapters.TBKOMMCOLLI_HINWEISTableAdapter() Me.bw_Tagesabschluss = New System.ComponentModel.BackgroundWorker() - Me.ToolStripStatusLabelVersion = New System.Windows.Forms.ToolStripStatusLabel() PAKET_IDLabel = New System.Windows.Forms.Label() Label3 = New System.Windows.Forms.Label() GESAMTGEWICHTLabel = New System.Windows.Forms.Label() @@ -554,6 +554,12 @@ Partial Class frmMain Me.tsinfolabel.Text = "ToolStripStatusLabel1" Me.tsinfolabel.Visible = False ' + 'ToolStripStatusLabelVersion + ' + Me.ToolStripStatusLabelVersion.Name = "ToolStripStatusLabelVersion" + Me.ToolStripStatusLabelVersion.Size = New System.Drawing.Size(48, 17) + Me.ToolStripStatusLabelVersion.Text = "Version:" + ' 'pnlError ' Me.pnlError.Controls.Add(Me.picbxError) @@ -1085,12 +1091,6 @@ Partial Class frmMain ' Me.TBKOMMCOLLI_HINWEISTableAdapter.ClearBeforeFill = True ' - 'ToolStripStatusLabelVersion - ' - Me.ToolStripStatusLabelVersion.Name = "ToolStripStatusLabelVersion" - Me.ToolStripStatusLabelVersion.Size = New System.Drawing.Size(48, 17) - Me.ToolStripStatusLabelVersion.Text = "Version:" - ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!) diff --git a/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb b/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb index c65d97e..88c4a43 100644 --- a/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb +++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.designer.vb @@ -22,6 +22,8 @@ Partial Public Class reportUebergabe Me.components = New System.ComponentModel.Container() Dim CustomSqlQuery1 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(reportUebergabe)) + Dim CustomSqlQuery2 As DevExpress.DataAccess.Sql.CustomSqlQuery = New DevExpress.DataAccess.Sql.CustomSqlQuery() + Dim QueryParameter1 As DevExpress.DataAccess.Sql.QueryParameter = New DevExpress.DataAccess.Sql.QueryParameter() Dim XrSummary1 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary() Dim XrSummary2 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary() Dim XrSummary3 As DevExpress.XtraReports.UI.XRSummary = New DevExpress.XtraReports.UI.XRSummary() @@ -57,9 +59,8 @@ Partial Public Class reportUebergabe Me.FieldCaption = New DevExpress.XtraReports.UI.XRControlStyle() Me.PageInfo = New DevExpress.XtraReports.UI.XRControlStyle() Me.DataField = New DevExpress.XtraReports.UI.XRControlStyle() - Me.FormattingRule1 = New DevExpress.XtraReports.UI.FormattingRule() Me.ReportFooter = New DevExpress.XtraReports.UI.ReportFooterBand() - Me.XrLabel32 = New DevExpress.XtraReports.UI.XRLabel() + Me.labelAnzahlSendungen = New DevExpress.XtraReports.UI.XRLabel() Me.XrLine7 = New DevExpress.XtraReports.UI.XRLine() Me.XrLabel16 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel17 = New DevExpress.XtraReports.UI.XRLabel() @@ -82,43 +83,49 @@ Partial Public Class reportUebergabe Me.XrLabel27 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLine6 = New DevExpress.XtraReports.UI.XRLine() Me.XrLabel9 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine() - Me.XrLabel31 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel50 = New DevExpress.XtraReports.UI.XRLabel() - Me.GroupHeader2 = New DevExpress.XtraReports.UI.GroupHeaderBand() - Me.XrLabel37 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel29 = New DevExpress.XtraReports.UI.XRLabel() - Me.GroupFooter2 = New DevExpress.XtraReports.UI.GroupFooterBand() - Me.XrLabel56 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel53 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel52 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel51 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel40 = New DevExpress.XtraReports.UI.XRLabel() + Me.labelSummeGewicht = New DevExpress.XtraReports.UI.XRLabel() + Me.labelSummeKolli = New DevExpress.XtraReports.UI.XRLabel() Me.XrLine5 = New DevExpress.XtraReports.UI.XRLine() + Me.XrLine1 = New DevExpress.XtraReports.UI.XRLine() + Me.GroupFooter2 = New DevExpress.XtraReports.UI.GroupFooterBand() + Me.XrLabel46 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel58 = New DevExpress.XtraReports.UI.XRLabel() Me.GroupHeader3 = New DevExpress.XtraReports.UI.GroupHeaderBand() Me.XrLabel44 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel45 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel54 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel25 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel43 = New DevExpress.XtraReports.UI.XRLabel() + Me.labelPalettenanzahl = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel42 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel35 = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel34 = New DevExpress.XtraReports.UI.XRLabel() - Me.XrLabel33 = New DevExpress.XtraReports.UI.XRLabel() + Me.labelGewicht = New DevExpress.XtraReports.UI.XRLabel() Me.XrLabel55 = New DevExpress.XtraReports.UI.XRLabel() Me.GroupHeader1 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.GroupHeader4 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.XrLabel49 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel51 = New DevExpress.XtraReports.UI.XRLabel() + Me.GroupHeader2 = New DevExpress.XtraReports.UI.GroupHeaderBand() + Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand() + Me.XrLabel32 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel33 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel37 = New DevExpress.XtraReports.UI.XRLabel() + Me.GroupFooter3 = New DevExpress.XtraReports.UI.GroupFooterBand() + Me.XrLabel29 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel31 = New DevExpress.XtraReports.UI.XRLabel() + Me.XrLabel38 = New DevExpress.XtraReports.UI.XRLabel() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'Detail ' + Me.Detail.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel37, Me.XrLabel33, Me.XrLabel32}) Me.Detail.Dpi = 100.0! - Me.Detail.HeightF = 0! + Me.Detail.HeightF = 14.58334! Me.Detail.KeepTogether = True Me.Detail.KeepTogetherWithDetailReports = True Me.Detail.MultiColumn.Mode = DevExpress.XtraReports.UI.MultiColumnMode.UseColumnCount Me.Detail.Name = "Detail" Me.Detail.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) - Me.Detail.SortFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("NVE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) Me.Detail.StyleName = "DataField" Me.Detail.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft ' @@ -209,7 +216,15 @@ Partial Public Class reportUebergabe Me.SqlDataSource1.Name = "SqlDataSource1" CustomSqlQuery1.Name = "Query" CustomSqlQuery1.Sql = resources.GetString("CustomSqlQuery1.Sql") - Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1}) + CustomSqlQuery2.Name = "Query_Hinweistext" + QueryParameter1.Name = "SENDUNGSNR" + QueryParameter1.Type = GetType(DevExpress.DataAccess.Expression) + QueryParameter1.Value = New DevExpress.DataAccess.Expression("0", GetType(Integer)) + CustomSqlQuery2.Parameters.Add(QueryParameter1) + CustomSqlQuery2.Sql = "SELECT T.TEXT, T2.CODE, T2.BEZEICHNUNG FROM TBKOMMCOLLI_HINWEIS T" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "INNER JOIN TBK" & + "OMMCOLLI_TEXTSCHLUESSEL T2 ON T.TEXTSCHLUSSEL_ID = T2.GUID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE T.SENDUNGNR = " & + "@SENDUNGSNR" + Me.SqlDataSource1.Queries.AddRange(New DevExpress.DataAccess.Sql.SqlQuery() {CustomSqlQuery1, CustomSqlQuery2}) Me.SqlDataSource1.ResultSchemaSerializable = resources.GetString("SqlDataSource1.ResultSchemaSerializable") ' 'PageHeaderBand1 @@ -474,13 +489,9 @@ Partial Public Class reportUebergabe Me.DataField.Name = "DataField" Me.DataField.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) ' - 'FormattingRule1 - ' - Me.FormattingRule1.Name = "FormattingRule1" - ' 'ReportFooter ' - Me.ReportFooter.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel32, Me.XrLine7, Me.XrLabel16, Me.XrLabel17, Me.XrLabel18, Me.XrLabel19, Me.XrLabel20, Me.XrLabel21, Me.XrLine8, Me.XrLabel22, Me.XrLine9, Me.XrLabel23, Me.XrLine10, Me.XrLine11, Me.XrLine13, Me.XrLabel26, Me.XrLabel24, Me.XrLabel10, Me.XrLine12, Me.XrLine3, Me.XrLabel27, Me.XrLine6, Me.XrLabel9, Me.XrLine1, Me.XrLabel31, Me.XrLabel50}) + Me.ReportFooter.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.labelAnzahlSendungen, Me.XrLine7, Me.XrLabel16, Me.XrLabel17, Me.XrLabel18, Me.XrLabel19, Me.XrLabel20, Me.XrLabel21, Me.XrLine8, Me.XrLabel22, Me.XrLine9, Me.XrLabel23, Me.XrLine10, Me.XrLine11, Me.XrLine13, Me.XrLabel26, Me.XrLabel24, Me.XrLabel10, Me.XrLine12, Me.XrLine3, Me.XrLabel27, Me.XrLine6, Me.XrLabel9, Me.labelSummeGewicht, Me.labelSummeKolli, Me.XrLine5}) Me.ReportFooter.Dpi = 100.0! Me.ReportFooter.HeightF = 192.1249! Me.ReportFooter.KeepTogether = True @@ -488,20 +499,21 @@ Partial Public Class reportUebergabe Me.ReportFooter.PageBreak = DevExpress.XtraReports.UI.PageBreak.BeforeBandExceptFirstEntry Me.ReportFooter.PrintAtBottom = True ' - 'XrLabel32 + 'labelAnzahlSendungen ' - Me.XrLabel32.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.EMP")}) - Me.XrLabel32.Dpi = 100.0! - Me.XrLabel32.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel32.LocationFloat = New DevExpress.Utils.PointFloat(0!, 12.49998!) - Me.XrLabel32.Name = "XrLabel32" - Me.XrLabel32.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel32.SizeF = New System.Drawing.SizeF(200.0!, 25.0!) - Me.XrLabel32.StylePriority.UseFont = False + Me.labelAnzahlSendungen.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.EMP")}) + Me.labelAnzahlSendungen.Dpi = 100.0! + Me.labelAnzahlSendungen.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelAnzahlSendungen.LocationFloat = New DevExpress.Utils.PointFloat(0!, 12.49998!) + Me.labelAnzahlSendungen.Name = "labelAnzahlSendungen" + Me.labelAnzahlSendungen.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.labelAnzahlSendungen.SizeF = New System.Drawing.SizeF(200.0!, 25.0!) + Me.labelAnzahlSendungen.StylePriority.UseFont = False XrSummary1.FormatString = "Anzahl Sendungen: {0}" - XrSummary1.Func = DevExpress.XtraReports.UI.SummaryFunc.Count + XrSummary1.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom + XrSummary1.IgnoreNullValues = True XrSummary1.Running = DevExpress.XtraReports.UI.SummaryRunning.Report - Me.XrLabel32.Summary = XrSummary1 + Me.labelAnzahlSendungen.Summary = XrSummary1 ' 'XrLine7 ' @@ -747,165 +759,103 @@ Partial Public Class reportUebergabe Me.XrLabel9.Text = "Unterschrift Fahrer:" Me.XrLabel9.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopLeft ' - 'XrLine1 + 'labelSummeGewicht ' - Me.XrLine1.Dpi = 100.0! - Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) - Me.XrLine1.Name = "XrLine1" - Me.XrLine1.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) - Me.XrLine1.SizeF = New System.Drawing.SizeF(650.0!, 6.999996!) - Me.XrLine1.StylePriority.UsePadding = False - ' - 'XrLabel31 - ' - Me.XrLabel31.BackColor = System.Drawing.Color.Transparent - Me.XrLabel31.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_GEWICHT")}) - Me.XrLabel31.Dpi = 100.0! - Me.XrLabel31.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel31.LocationFloat = New DevExpress.Utils.PointFloat(312.4995!, 12.49998!) - Me.XrLabel31.Name = "XrLabel31" - Me.XrLabel31.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel31.SizeF = New System.Drawing.SizeF(249.9998!, 25.0!) - Me.XrLabel31.StylePriority.UseBackColor = False - Me.XrLabel31.StylePriority.UseFont = False + Me.labelSummeGewicht.BackColor = System.Drawing.Color.Transparent + Me.labelSummeGewicht.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_GEWICHT")}) + Me.labelSummeGewicht.Dpi = 100.0! + Me.labelSummeGewicht.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelSummeGewicht.LocationFloat = New DevExpress.Utils.PointFloat(312.4995!, 12.49998!) + Me.labelSummeGewicht.Name = "labelSummeGewicht" + Me.labelSummeGewicht.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.labelSummeGewicht.SizeF = New System.Drawing.SizeF(249.9998!, 25.0!) + Me.labelSummeGewicht.StylePriority.UseBackColor = False + Me.labelSummeGewicht.StylePriority.UseFont = False XrSummary2.FormatString = "Summe Gewicht: {0} kg" + XrSummary2.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom + XrSummary2.IgnoreNullValues = True XrSummary2.Running = DevExpress.XtraReports.UI.SummaryRunning.Report - Me.XrLabel31.Summary = XrSummary2 + Me.labelSummeGewicht.Summary = XrSummary2 ' - 'XrLabel50 + 'labelSummeKolli ' - Me.XrLabel50.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.EMP")}) - Me.XrLabel50.Dpi = 100.0! - Me.XrLabel50.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.XrLabel50.LocationFloat = New DevExpress.Utils.PointFloat(200.0!, 12.5!) - Me.XrLabel50.Name = "XrLabel50" - Me.XrLabel50.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel50.SizeF = New System.Drawing.SizeF(112.4995!, 25.0!) - Me.XrLabel50.StylePriority.UseFont = False + Me.labelSummeKolli.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.EMP")}) + Me.labelSummeKolli.Dpi = 100.0! + Me.labelSummeKolli.Font = New System.Drawing.Font("Arial", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.labelSummeKolli.LocationFloat = New DevExpress.Utils.PointFloat(200.0!, 12.5!) + Me.labelSummeKolli.Name = "labelSummeKolli" + Me.labelSummeKolli.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.labelSummeKolli.SizeF = New System.Drawing.SizeF(112.4995!, 25.0!) + Me.labelSummeKolli.StylePriority.UseFont = False XrSummary3.FormatString = "Summe Kolli: {0}" - XrSummary3.Func = DevExpress.XtraReports.UI.SummaryFunc.Count + XrSummary3.Func = DevExpress.XtraReports.UI.SummaryFunc.Custom + XrSummary3.IgnoreNullValues = True XrSummary3.Running = DevExpress.XtraReports.UI.SummaryRunning.Report - Me.XrLabel50.Summary = XrSummary3 - ' - 'GroupHeader2 - ' - Me.GroupHeader2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel37, Me.XrLabel29}) - Me.GroupHeader2.Dpi = 100.0! - Me.GroupHeader2.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("POSINHALT", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) - Me.GroupHeader2.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WholePage - Me.GroupHeader2.HeightF = 26.20836! - Me.GroupHeader2.KeepTogether = True - Me.GroupHeader2.Name = "GroupHeader2" - ' - 'XrLabel37 - ' - Me.XrLabel37.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.NVE")}) - Me.XrLabel37.Dpi = 100.0! - Me.XrLabel37.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel37.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 14.66667!) - Me.XrLabel37.Name = "XrLabel37" - Me.XrLabel37.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel37.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Suppress - Me.XrLabel37.SizeF = New System.Drawing.SizeF(160.201!, 11.54169!) - Me.XrLabel37.StylePriority.UseFont = False - Me.XrLabel37.Text = "XrLabel49" - ' - 'XrLabel29 - ' - Me.XrLabel29.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT")}) - Me.XrLabel29.Dpi = 100.0! - Me.XrLabel29.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel29.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 0!) - Me.XrLabel29.Name = "XrLabel29" - Me.XrLabel29.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel29.SizeF = New System.Drawing.SizeF(119.5757!, 14.66667!) - Me.XrLabel29.StylePriority.UseFont = False - ' - 'GroupFooter2 - ' - Me.GroupFooter2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel56, Me.XrLabel53, Me.XrLabel52, Me.XrLabel51, Me.XrLabel40, Me.XrLine5}) - Me.GroupFooter2.Dpi = 100.0! - Me.GroupFooter2.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail - Me.GroupFooter2.HeightF = 41.58334! - Me.GroupFooter2.KeepTogether = True - Me.GroupFooter2.Level = 2 - Me.GroupFooter2.Name = "GroupFooter2" - ' - 'XrLabel56 - ' - Me.XrLabel56.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.BEMERKUNG")}) - Me.XrLabel56.Dpi = 100.0! - Me.XrLabel56.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel56.LocationFloat = New DevExpress.Utils.PointFloat(100.0!, 0!) - Me.XrLabel56.Name = "XrLabel56" - Me.XrLabel56.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel56.SizeF = New System.Drawing.SizeF(550.0!, 14.58337!) - Me.XrLabel56.StylePriority.UseFont = False - Me.XrLabel56.Text = "XrLabel47" - ' - 'XrLabel53 - ' - Me.XrLabel53.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT_ERG")}) - Me.XrLabel53.Dpi = 100.0! - Me.XrLabel53.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel53.LocationFloat = New DevExpress.Utils.PointFloat(449.9995!, 18.41983!) - Me.XrLabel53.Name = "XrLabel53" - Me.XrLabel53.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel53.SizeF = New System.Drawing.SizeF(100.0!, 14.58327!) - Me.XrLabel53.StylePriority.UseFont = False - Me.XrLabel53.Text = "XrLabel46" - ' - 'XrLabel52 - ' - Me.XrLabel52.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT")}) - Me.XrLabel52.Dpi = 100.0! - Me.XrLabel52.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel52.LocationFloat = New DevExpress.Utils.PointFloat(46.38993!, 18.41972!) - Me.XrLabel52.Name = "XrLabel52" - Me.XrLabel52.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel52.SizeF = New System.Drawing.SizeF(403.6096!, 14.58334!) - Me.XrLabel52.StylePriority.UseFont = False - Me.XrLabel52.Text = "XrLabel39" - ' - 'XrLabel51 - ' - Me.XrLabel51.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_CODE")}) - Me.XrLabel51.Dpi = 100.0! - Me.XrLabel51.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel51.LocationFloat = New DevExpress.Utils.PointFloat(0!, 18.41983!) - Me.XrLabel51.Name = "XrLabel51" - Me.XrLabel51.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel51.SizeF = New System.Drawing.SizeF(42.22472!, 14.58334!) - Me.XrLabel51.StylePriority.UseFont = False - Me.XrLabel51.Text = "XrLabel38" - ' - 'XrLabel40 - ' - Me.XrLabel40.Dpi = 100.0! - Me.XrLabel40.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel40.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0.000007629395!) - Me.XrLabel40.Multiline = True - Me.XrLabel40.Name = "XrLabel40" - Me.XrLabel40.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel40.SizeF = New System.Drawing.SizeF(100.0!, 14.58334!) - Me.XrLabel40.StyleName = "Title" - Me.XrLabel40.StylePriority.UseFont = False - Me.XrLabel40.Text = "Bemerkung:" + Me.labelSummeKolli.Summary = XrSummary3 ' 'XrLine5 ' Me.XrLine5.Dpi = 100.0! - Me.XrLine5.LocationFloat = New DevExpress.Utils.PointFloat(0!, 34.58334!) + Me.XrLine5.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) Me.XrLine5.Name = "XrLine5" Me.XrLine5.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) Me.XrLine5.SizeF = New System.Drawing.SizeF(650.0!, 6.999992!) Me.XrLine5.StylePriority.UsePadding = False ' + 'XrLine1 + ' + Me.XrLine1.Dpi = 100.0! + Me.XrLine1.LocationFloat = New DevExpress.Utils.PointFloat(0!, 14.5834!) + Me.XrLine1.Name = "XrLine1" + Me.XrLine1.Padding = New DevExpress.XtraPrinting.PaddingInfo(0, 0, 0, 0, 100.0!) + Me.XrLine1.SizeF = New System.Drawing.SizeF(650.0!, 6.999996!) + Me.XrLine1.StylePriority.UsePadding = False + ' + 'GroupFooter2 + ' + Me.GroupFooter2.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLine1, Me.XrLabel46, Me.XrLabel58}) + Me.GroupFooter2.Dpi = 100.0! + Me.GroupFooter2.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail + Me.GroupFooter2.HeightF = 21.58339! + Me.GroupFooter2.KeepTogether = True + Me.GroupFooter2.Level = 3 + Me.GroupFooter2.Name = "GroupFooter2" + ' + 'XrLabel46 + ' + Me.XrLabel46.Dpi = 100.0! + Me.XrLabel46.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel46.ForeColor = System.Drawing.Color.Black + Me.XrLabel46.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.XrLabel46.Multiline = True + Me.XrLabel46.Name = "XrLabel46" + Me.XrLabel46.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel46.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel46.ProcessNullValues = DevExpress.XtraReports.UI.ValueSuppressType.SuppressAndShrink + Me.XrLabel46.SizeF = New System.Drawing.SizeF(100.0!, 14.58334!) + Me.XrLabel46.StyleName = "Title" + Me.XrLabel46.StylePriority.UseFont = False + Me.XrLabel46.StylePriority.UseForeColor = False + Me.XrLabel46.Text = "Bemerkung:" + ' + 'XrLabel58 + ' + Me.XrLabel58.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.BEMERKUNG")}) + Me.XrLabel58.Dpi = 100.0! + Me.XrLabel58.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel58.LocationFloat = New DevExpress.Utils.PointFloat(100.0!, 0!) + Me.XrLabel58.Name = "XrLabel58" + Me.XrLabel58.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel58.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel58.SizeF = New System.Drawing.SizeF(550.0!, 14.58337!) + Me.XrLabel58.StylePriority.UseFont = False + Me.XrLabel58.Text = "XrLabel47" + ' 'GroupHeader3 ' - Me.GroupHeader3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel44, Me.XrLabel45, Me.XrLabel54, Me.XrLabel25, Me.XrLabel43, Me.XrLabel42, Me.XrLabel35, Me.XrLabel34, Me.XrLabel33, Me.XrLabel55}) + Me.GroupHeader3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel44, Me.XrLabel45, Me.XrLabel54, Me.XrLabel25, Me.labelPalettenanzahl, Me.XrLabel42, Me.XrLabel35, Me.XrLabel34, Me.labelGewicht, Me.XrLabel55}) Me.GroupHeader3.Dpi = 100.0! - Me.GroupHeader3.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("SENDUNGNR", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending), New DevExpress.XtraReports.UI.GroupField("CODE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) + Me.GroupHeader3.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("CODE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) Me.GroupHeader3.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WholePage Me.GroupHeader3.HeightF = 45.12498! Me.GroupHeader3.KeepTogether = True @@ -964,21 +914,21 @@ Partial Public Class reportUebergabe Me.XrLabel25.StylePriority.UseFont = False Me.XrLabel25.Text = "XrLabel25" ' - 'XrLabel43 + 'labelPalettenanzahl ' - Me.XrLabel43.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.PALETTENANZAHL")}) - Me.XrLabel43.Dpi = 100.0! - Me.XrLabel43.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel43.LocationFloat = New DevExpress.Utils.PointFloat(216.836!, 0!) - Me.XrLabel43.Name = "XrLabel43" - Me.XrLabel43.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel43.SizeF = New System.Drawing.SizeF(25.25044!, 14.66667!) - Me.XrLabel43.StylePriority.UseFont = False - Me.XrLabel43.StylePriority.UseTextAlignment = False + Me.labelPalettenanzahl.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.PALETTENANZAHL")}) + Me.labelPalettenanzahl.Dpi = 100.0! + Me.labelPalettenanzahl.Font = New System.Drawing.Font("Arial", 8.25!) + Me.labelPalettenanzahl.LocationFloat = New DevExpress.Utils.PointFloat(216.836!, 0!) + Me.labelPalettenanzahl.Name = "labelPalettenanzahl" + Me.labelPalettenanzahl.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.labelPalettenanzahl.SizeF = New System.Drawing.SizeF(25.25044!, 14.66667!) + Me.labelPalettenanzahl.StylePriority.UseFont = False + Me.labelPalettenanzahl.StylePriority.UseTextAlignment = False XrSummary4.FormatString = "{0}" XrSummary4.Func = DevExpress.XtraReports.UI.SummaryFunc.Count - Me.XrLabel43.Summary = XrSummary4 - Me.XrLabel43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight + Me.labelPalettenanzahl.Summary = XrSummary4 + Me.labelPalettenanzahl.TextAlignment = DevExpress.XtraPrinting.TextAlignment.TopRight ' 'XrLabel42 ' @@ -1020,17 +970,17 @@ Partial Public Class reportUebergabe Me.XrLabel34.StylePriority.UseFont = False Me.XrLabel34.Text = "1.00 EUR" ' - 'XrLabel33 + 'labelGewicht ' - Me.XrLabel33.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_GEWICHT", "{0} kg")}) - Me.XrLabel33.Dpi = 100.0! - Me.XrLabel33.Font = New System.Drawing.Font("Arial", 8.25!) - Me.XrLabel33.LocationFloat = New DevExpress.Utils.PointFloat(429.5758!, 0!) - Me.XrLabel33.Name = "XrLabel33" - Me.XrLabel33.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) - Me.XrLabel33.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Suppress - Me.XrLabel33.SizeF = New System.Drawing.SizeF(58.89133!, 14.66667!) - Me.XrLabel33.StylePriority.UseFont = False + Me.labelGewicht.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.SDG_GEWICHT", "{0} kg")}) + Me.labelGewicht.Dpi = 100.0! + Me.labelGewicht.Font = New System.Drawing.Font("Arial", 8.25!) + Me.labelGewicht.LocationFloat = New DevExpress.Utils.PointFloat(429.5758!, 0!) + Me.labelGewicht.Name = "labelGewicht" + Me.labelGewicht.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.labelGewicht.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Suppress + Me.labelGewicht.SizeF = New System.Drawing.SizeF(58.89133!, 14.66667!) + Me.labelGewicht.StylePriority.UseFont = False ' 'XrLabel55 ' @@ -1052,16 +1002,162 @@ Partial Public Class reportUebergabe Me.GroupHeader1.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WholePage Me.GroupHeader1.HeightF = 0! Me.GroupHeader1.KeepTogether = True - Me.GroupHeader1.Level = 2 + Me.GroupHeader1.Level = 3 Me.GroupHeader1.Name = "GroupHeader1" ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel49, Me.XrLabel51}) + Me.GroupHeader4.Dpi = 100.0! + Me.GroupHeader4.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("POSINHALT", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending), New DevExpress.XtraReports.UI.GroupField("NVE", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) + Me.GroupHeader4.GroupUnion = DevExpress.XtraReports.UI.GroupUnion.WithFirstDetail + Me.GroupHeader4.HeightF = 24.12495! + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'XrLabel49 + ' + Me.XrLabel49.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.NVE")}) + Me.XrLabel49.Dpi = 100.0! + Me.XrLabel49.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel49.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 11.54162!) + Me.XrLabel49.Name = "XrLabel49" + Me.XrLabel49.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel49.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel49.SizeF = New System.Drawing.SizeF(148.9583!, 12.58333!) + Me.XrLabel49.StylePriority.UseFont = False + Me.XrLabel49.Text = "XrLabel29" + ' + 'XrLabel51 + ' + Me.XrLabel51.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.POSINHALT")}) + Me.XrLabel51.Dpi = 100.0! + Me.XrLabel51.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel51.LocationFloat = New DevExpress.Utils.PointFloat(278.3869!, 0!) + Me.XrLabel51.Name = "XrLabel51" + Me.XrLabel51.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel51.SizeF = New System.Drawing.SizeF(148.9583!, 11.54167!) + Me.XrLabel51.StylePriority.UseFont = False + Me.XrLabel51.Text = "XrLabel47" + ' + 'GroupHeader2 + ' + Me.GroupHeader2.Dpi = 100.0! + Me.GroupHeader2.GroupFields.AddRange(New DevExpress.XtraReports.UI.GroupField() {New DevExpress.XtraReports.UI.GroupField("SENDUNGNR", DevExpress.XtraReports.UI.XRColumnSortOrder.Ascending)}) + Me.GroupHeader2.HeightF = 0! + Me.GroupHeader2.Level = 2 + Me.GroupHeader2.Name = "GroupHeader2" + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Dpi = 100.0! + Me.GroupFooter1.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail + Me.GroupFooter1.HeightF = 0! + Me.GroupFooter1.Level = 2 + Me.GroupFooter1.Name = "GroupFooter1" + ' + 'XrLabel32 + ' + Me.XrLabel32.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT_ERG")}) + Me.XrLabel32.Dpi = 100.0! + Me.XrLabel32.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel32.ForeColor = System.Drawing.Color.Black + Me.XrLabel32.LocationFloat = New DevExpress.Utils.PointFloat(449.9995!, 0!) + Me.XrLabel32.Name = "XrLabel32" + Me.XrLabel32.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel32.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel32.SizeF = New System.Drawing.SizeF(100.0!, 14.58327!) + Me.XrLabel32.StylePriority.UseFont = False + Me.XrLabel32.StylePriority.UseForeColor = False + Me.XrLabel32.Text = "XrLabel46" + ' + 'XrLabel33 + ' + Me.XrLabel33.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT")}) + Me.XrLabel33.Dpi = 100.0! + Me.XrLabel33.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel33.ForeColor = System.Drawing.Color.Black + Me.XrLabel33.LocationFloat = New DevExpress.Utils.PointFloat(45.38994!, 0!) + Me.XrLabel33.Name = "XrLabel33" + Me.XrLabel33.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel33.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel33.SizeF = New System.Drawing.SizeF(403.6096!, 14.58334!) + Me.XrLabel33.StylePriority.UseFont = False + Me.XrLabel33.StylePriority.UseForeColor = False + Me.XrLabel33.Text = "XrLabel39" + ' + 'XrLabel37 + ' + Me.XrLabel37.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_CODE"), New DevExpress.XtraReports.UI.XRBinding("Tag", Nothing, "Query.HINW_CODE")}) + Me.XrLabel37.Dpi = 100.0! + Me.XrLabel37.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel37.ForeColor = System.Drawing.Color.Black + Me.XrLabel37.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.XrLabel37.Name = "XrLabel37" + Me.XrLabel37.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel37.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel37.SizeF = New System.Drawing.SizeF(42.22472!, 14.58334!) + Me.XrLabel37.StylePriority.UseFont = False + Me.XrLabel37.StylePriority.UseForeColor = False + ' + 'GroupFooter3 + ' + Me.GroupFooter3.Controls.AddRange(New DevExpress.XtraReports.UI.XRControl() {Me.XrLabel29, Me.XrLabel31, Me.XrLabel38}) + Me.GroupFooter3.Dpi = 100.0! + Me.GroupFooter3.GroupUnion = DevExpress.XtraReports.UI.GroupFooterUnion.WithLastDetail + Me.GroupFooter3.HeightF = 14.58334! + Me.GroupFooter3.Level = 1 + Me.GroupFooter3.Name = "GroupFooter3" + ' + 'XrLabel29 + ' + Me.XrLabel29.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT_ERG")}) + Me.XrLabel29.Dpi = 100.0! + Me.XrLabel29.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel29.ForeColor = System.Drawing.Color.DarkRed + Me.XrLabel29.LocationFloat = New DevExpress.Utils.PointFloat(449.9995!, 0!) + Me.XrLabel29.Name = "XrLabel29" + Me.XrLabel29.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel29.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel29.SizeF = New System.Drawing.SizeF(100.0!, 14.58327!) + Me.XrLabel29.StylePriority.UseFont = False + Me.XrLabel29.StylePriority.UseForeColor = False + Me.XrLabel29.Text = "XrLabel46" + ' + 'XrLabel31 + ' + Me.XrLabel31.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_TEXT")}) + Me.XrLabel31.Dpi = 100.0! + Me.XrLabel31.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel31.ForeColor = System.Drawing.Color.DarkRed + Me.XrLabel31.LocationFloat = New DevExpress.Utils.PointFloat(45.38994!, 0!) + Me.XrLabel31.Name = "XrLabel31" + Me.XrLabel31.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel31.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel31.SizeF = New System.Drawing.SizeF(403.6096!, 14.58334!) + Me.XrLabel31.StylePriority.UseFont = False + Me.XrLabel31.StylePriority.UseForeColor = False + Me.XrLabel31.Text = "XrLabel39" + ' + 'XrLabel38 + ' + Me.XrLabel38.DataBindings.AddRange(New DevExpress.XtraReports.UI.XRBinding() {New DevExpress.XtraReports.UI.XRBinding("Text", Nothing, "Query.HINW_CODE"), New DevExpress.XtraReports.UI.XRBinding("Tag", Nothing, "Query.HINW_CODE")}) + Me.XrLabel38.Dpi = 100.0! + Me.XrLabel38.Font = New System.Drawing.Font("Arial", 8.25!) + Me.XrLabel38.ForeColor = System.Drawing.Color.DarkRed + Me.XrLabel38.LocationFloat = New DevExpress.Utils.PointFloat(0!, 0!) + Me.XrLabel38.Name = "XrLabel38" + Me.XrLabel38.Padding = New DevExpress.XtraPrinting.PaddingInfo(2, 2, 0, 0, 100.0!) + Me.XrLabel38.ProcessDuplicatesMode = DevExpress.XtraReports.UI.ProcessDuplicatesMode.Merge + Me.XrLabel38.SizeF = New System.Drawing.SizeF(42.22472!, 14.58334!) + Me.XrLabel38.StylePriority.UseFont = False + Me.XrLabel38.StylePriority.UseForeColor = False + ' 'reportUebergabe ' - Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.PageHeaderBand1, Me.ReportHeaderBand1, Me.ReportFooter, Me.GroupHeader2, Me.GroupHeader1, Me.GroupFooter2, Me.GroupHeader3}) + Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.Detail, Me.TopMargin, Me.BottomMargin, Me.PageHeaderBand1, Me.ReportHeaderBand1, Me.ReportFooter, Me.GroupHeader1, Me.GroupFooter2, Me.GroupHeader3, Me.GroupHeader4, Me.GroupHeader2, Me.GroupFooter1, Me.GroupFooter3}) Me.ComponentStorage.AddRange(New System.ComponentModel.IComponent() {Me.SqlDataSource1}) Me.DataMember = "Query" Me.DataSource = Me.SqlDataSource1 - Me.FormattingRuleSheet.AddRange(New DevExpress.XtraReports.UI.FormattingRule() {Me.FormattingRule1}) Me.Margins = New System.Drawing.Printing.Margins(100, 100, 41, 54) Me.ScriptLanguage = DevExpress.XtraReports.ScriptLanguage.VisualBasic Me.StyleSheet.AddRange(New DevExpress.XtraReports.UI.XRControlStyle() {Me.Title, Me.FieldCaption, Me.PageInfo, Me.DataField}) @@ -1100,9 +1196,8 @@ Partial Public Class reportUebergabe Friend WithEvents XrLabel11 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel36 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel41 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents FormattingRule1 As DevExpress.XtraReports.UI.FormattingRule Friend WithEvents ReportFooter As DevExpress.XtraReports.UI.ReportFooterBand - Friend WithEvents XrLabel32 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents labelAnzahlSendungen As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLine7 As DevExpress.XtraReports.UI.XRLine Friend WithEvents XrLabel16 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel17 As DevExpress.XtraReports.UI.XRLabel @@ -1126,28 +1221,34 @@ Partial Public Class reportUebergabe Friend WithEvents XrLine6 As DevExpress.XtraReports.UI.XRLine Friend WithEvents XrLabel9 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLine1 As DevExpress.XtraReports.UI.XRLine - Friend WithEvents XrLabel31 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel50 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents GroupHeader2 As DevExpress.XtraReports.UI.GroupHeaderBand - Friend WithEvents XrLabel29 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel37 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents labelSummeGewicht As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents labelSummeKolli As DevExpress.XtraReports.UI.XRLabel Friend WithEvents GroupFooter2 As DevExpress.XtraReports.UI.GroupFooterBand - Friend WithEvents XrLabel56 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel53 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel52 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel51 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel40 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLine5 As DevExpress.XtraReports.UI.XRLine Friend WithEvents GroupHeader3 As DevExpress.XtraReports.UI.GroupHeaderBand Friend WithEvents XrLabel44 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel45 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel54 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel25 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel43 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents labelPalettenanzahl As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel42 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel35 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel34 As DevExpress.XtraReports.UI.XRLabel - Friend WithEvents XrLabel33 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents labelGewicht As DevExpress.XtraReports.UI.XRLabel Friend WithEvents XrLabel55 As DevExpress.XtraReports.UI.XRLabel Friend WithEvents GroupHeader1 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents XrLabel46 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel58 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents GroupHeader4 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents XrLabel49 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel51 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents GroupHeader2 As DevExpress.XtraReports.UI.GroupHeaderBand + Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand + Friend WithEvents XrLabel32 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel33 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel37 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents GroupFooter3 As DevExpress.XtraReports.UI.GroupFooterBand + Friend WithEvents XrLabel29 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel31 As DevExpress.XtraReports.UI.XRLabel + Friend WithEvents XrLabel38 As DevExpress.XtraReports.UI.XRLabel End Class diff --git a/SchaumKommiCollo/KommiCollo/reportUebergabe.resx b/SchaumKommiCollo/KommiCollo/reportUebergabe.resx index 11e7da0..661a7e6 100644 --- a/SchaumKommiCollo/KommiCollo/reportUebergabe.resx +++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.resx @@ -152,6 +152,6 @@ FROM [SCHAUM_IID].[dbo].[VWHUP_REPORT1] - PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iTEFEMSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfTEtaX1BMWl9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRkVSVElHIiBUeXBlPSJCb29sZWFuIiAvPjxGaWVsZCBOYW1lPSJTRU5EVU5HTlIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU0RHX1JFRkVSRU5aIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfWlVTQVRaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9TVFJBU1NFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9QTFpfU1RSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9MS1oiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09SVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfT1RFSUwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQUJIT0xEQVRVTSIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IlNER19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlNER19TVEVMTFBMQUVUWkUiIFR5cGU9IkludDE2IiAvPjxGaWVsZCBOYW1lPSJTREdfRlJBTktBVFVSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5WRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJQT1NJTkhBTFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TX0dFV0lDSFQiIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iUEFDS1NUVUVDS0FOWkFITCIgVHlwZT0iQnl0ZSIgLz48RmllbGQgTmFtZT0iUEFMRVRURU5BTlpBSEwiIFR5cGU9IkludDMyIiAvPjxGaWVsZCBOYW1lPSJDT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJFTUVSS1VORyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX0NPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19URVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVF9FUkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQk9SREVST05SIiBUeXBlPSJJbnQzMiIgLz48L1ZpZXc+PC9EYXRhU2V0Pg== + PERhdGFTZXQgTmFtZT0iU3FsRGF0YVNvdXJjZTEiPjxWaWV3IE5hbWU9IlF1ZXJ5Ij48RmllbGQgTmFtZT0iTEFEMSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfU1RSQVNTRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJMQURfTEtaX1BMWl9PUlQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRkVSVElHIiBUeXBlPSJCb29sZWFuIiAvPjxGaWVsZCBOYW1lPSJTRU5EVU5HTlIiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iU0RHX1JFRkVSRU5aIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfWlVTQVRaIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9TVFJBU1NFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9QTFpfU1RSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkVNUF9MS1oiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iRU1QX09SVCIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJFTVBfT1RFSUwiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQUJIT0xEQVRVTSIgVHlwZT0iRGF0ZVRpbWUiIC8+PEZpZWxkIE5hbWU9IlNER19HRVdJQ0hUIiBUeXBlPSJEb3VibGUiIC8+PEZpZWxkIE5hbWU9IlNER19TVEVMTFBMQUVUWkUiIFR5cGU9IkludDE2IiAvPjxGaWVsZCBOYW1lPSJTREdfRlJBTktBVFVSIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9Ik5WRSIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJQT1NJTkhBTFQiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iUE9TX0dFV0lDSFQiIFR5cGU9IkRvdWJsZSIgLz48RmllbGQgTmFtZT0iUEFDS1NUVUVDS0FOWkFITCIgVHlwZT0iQnl0ZSIgLz48RmllbGQgTmFtZT0iUEFMRVRURU5BTlpBSEwiIFR5cGU9IkludDMyIiAvPjxGaWVsZCBOYW1lPSJDT0RFIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkJFTUVSS1VORyIgVHlwZT0iU3RyaW5nIiAvPjxGaWVsZCBOYW1lPSJISU5XX0NPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iSElOV19URVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkhJTldfVEVYVF9FUkciIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQk9SREVST05SIiBUeXBlPSJJbnQzMiIgLz48L1ZpZXc+PFZpZXcgTmFtZT0iUXVlcnlfSGlud2Vpc3RleHQiPjxGaWVsZCBOYW1lPSJURVhUIiBUeXBlPSJTdHJpbmciIC8+PEZpZWxkIE5hbWU9IkNPREUiIFR5cGU9IlN0cmluZyIgLz48RmllbGQgTmFtZT0iQkVaRUlDSE5VTkciIFR5cGU9IlN0cmluZyIgLz48L1ZpZXc+PC9EYXRhU2V0Pg== \ No newline at end of file diff --git a/SchaumKommiCollo/KommiCollo/reportUebergabe.vb b/SchaumKommiCollo/KommiCollo/reportUebergabe.vb index 8172329..4ed49fc 100644 --- a/SchaumKommiCollo/KommiCollo/reportUebergabe.vb +++ b/SchaumKommiCollo/KommiCollo/reportUebergabe.vb @@ -1,3 +1,41 @@ Public Class reportUebergabe + Private sendungen As Integer = 0 + Private kolli As Integer = 0 + Private gewicht As Double = 0.00 + Private Sub labelAnzahlSendungen_SummaryReset(sender As Object, e As EventArgs) Handles labelAnzahlSendungen.SummaryReset + sendungen = 0 + kolli = 0 + gewicht = 0.00 + End Sub + + Private Sub labelPosInhalt_BeforePrint(sender As Object, e As Printing.PrintEventArgs) + sendungen = sendungen + 1 + End Sub + + Private Sub labelPalettenanzahl_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelPalettenanzahl.BeforePrint + kolli = kolli + GetCurrentColumnValue("PALETTENANZAHL") + End Sub + + Private Sub labelGewicht_BeforePrint(sender As Object, e As Printing.PrintEventArgs) Handles labelGewicht.BeforePrint + gewicht = gewicht + CDbl(GetCurrentColumnValue("SDG_GEWICHT")) + End Sub + + Private Sub labelSummeKolli_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeKolli.SummaryGetResult + e.Result = kolli + e.Handled = True + End Sub + + Private Sub labelSummeGewicht_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelSummeGewicht.SummaryGetResult + e.Result = gewicht + e.Handled = True + End Sub + + Private Sub labelAnzahlSendungen_SummaryGetResult(sender As Object, e As DevExpress.XtraReports.UI.SummaryGetResultEventArgs) Handles labelAnzahlSendungen.SummaryGetResult + e.Result = sendungen + e.Handled = True + End Sub + + Private Sub GroupFooter1_BeforePrint(sender As Object, e As Printing.PrintEventArgs) + End Sub End Class \ No newline at end of file