Option Strict Off
Option Explicit On
'''<summary>
'''Represents a strongly typed in-memory cache of data.
'''</summary>
<Global.System.Serializable(), _
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _Global.System.ComponentModel.ToolboxItem(true), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _Global.System.Xml.Serialization.XmlRootAttribute("dbventasDataSet1"), _Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _Partial Public Class dbventasDataSet1
Inherits Global.System.Data.DataSet
Private tablecategoria As categoriaDataTable
Private tablecliente As clienteDataTable
Private tabledetalle_venta As detalle_ventaDataTable
Private tableproducto As productoDataTable
Private tableusuario As usuarioDataTable
Private tableventa As ventaDataTable
Private tablegenerar_comprobante As generar_comprobanteDataTable
Private tablemostrar_categoria As mostrar_categoriaDataTable
Private tablemostrar_cliente As mostrar_clienteDataTable
Private tablemostrar_detalle_venta As mostrar_detalle_ventaDataTable
Private tablemostrar_producto As mostrar_productoDataTable
Private tablemostrar_venta As mostrar_ventaDataTable
Private relationFK_detalle_venta_producto As Global.System.Data.DataRelation
Private relationFK_detalle_venta_ventas As Global.System.Data.DataRelation
Private relationFK_producto_categoria As Global.System.Data.DataRelation
Private relationFK_ventas_cliente As Global.System.Data.DataRelation
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("categoria")) Is Nothing) Then MyBase.Tables.Add(New categoriaDataTable(ds.Tables("categoria"))) End If
If (Not (ds.Tables("cliente")) Is Nothing) Then MyBase.Tables.Add(New clienteDataTable(ds.Tables("cliente"))) End If
If (Not (ds.Tables("detalle_venta")) Is Nothing) Then MyBase.Tables.Add(New detalle_ventaDataTable(ds.Tables("detalle_venta"))) End If
If (Not (ds.Tables("producto")) Is Nothing) Then MyBase.Tables.Add(New productoDataTable(ds.Tables("producto"))) End If
If (Not (ds.Tables("usuario")) Is Nothing) Then MyBase.Tables.Add(New usuarioDataTable(ds.Tables("usuario"))) End If
If (Not (ds.Tables("venta")) Is Nothing) Then MyBase.Tables.Add(New ventaDataTable(ds.Tables("venta"))) End If
If (Not (ds.Tables("generar_comprobante")) Is Nothing) Then MyBase.Tables.Add(New generar_comprobanteDataTable(ds.Tables("generar_comprobante"))) End If
If (Not (ds.Tables("mostrar_categoria")) Is Nothing) Then MyBase.Tables.Add(New mostrar_categoriaDataTable(ds.Tables("mostrar_categoria"))) End If
If (Not (ds.Tables("mostrar_cliente")) Is Nothing) Then MyBase.Tables.Add(New mostrar_clienteDataTable(ds.Tables("mostrar_cliente"))) End If
If (Not (ds.Tables("mostrar_detalle_venta")) Is Nothing) Then MyBase.Tables.Add(New mostrar_detalle_ventaDataTable(ds.Tables("mostrar_detalle_venta"))) End If
If (Not (ds.Tables("mostrar_producto")) Is Nothing) Then MyBase.Tables.Add(New mostrar_productoDataTable(ds.Tables("mostrar_producto"))) End If
If (Not (ds.Tables("mostrar_venta")) Is Nothing) Then MyBase.Tables.Add(New mostrar_ventaDataTable(ds.Tables("mostrar_venta"))) End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property categoria() As categoriaDataTable
Get
Return Me.tablecategoria
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property cliente() As clienteDataTable
Get
Return Me.tablecliente
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property detalle_venta() As detalle_ventaDataTable
Get
Return Me.tabledetalle_venta
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property producto() As productoDataTable
Get
Return Me.tableproducto
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property usuario() As usuarioDataTable
Get
Return Me.tableusuario
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property venta() As ventaDataTable
Get
Return Me.tableventa
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property generar_comprobante() As generar_comprobanteDataTable
Get
Return Me.tablegenerar_comprobante
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property mostrar_categoria() As mostrar_categoriaDataTable
Get
Return Me.tablemostrar_categoria
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property mostrar_cliente() As mostrar_clienteDataTable
Get
Return Me.tablemostrar_cliente
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property mostrar_detalle_venta() As mostrar_detalle_ventaDataTable
Get
Return Me.tablemostrar_detalle_venta
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property mostrar_producto() As mostrar_productoDataTable
Get
Return Me.tablemostrar_producto
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property mostrar_venta() As mostrar_ventaDataTable
Get
Return Me.tablemostrar_venta
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.BrowsableAttribute(true), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As dbventasDataSet1 = CType(MyBase.Clone,dbventasDataSet1)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("categoria")) Is Nothing) Then MyBase.Tables.Add(New categoriaDataTable(ds.Tables("categoria"))) End If
If (Not (ds.Tables("cliente")) Is Nothing) Then MyBase.Tables.Add(New clienteDataTable(ds.Tables("cliente"))) End If
If (Not (ds.Tables("detalle_venta")) Is Nothing) Then MyBase.Tables.Add(New detalle_ventaDataTable(ds.Tables("detalle_venta"))) End If
If (Not (ds.Tables("producto")) Is Nothing) Then MyBase.Tables.Add(New productoDataTable(ds.Tables("producto"))) End If
If (Not (ds.Tables("usuario")) Is Nothing) Then MyBase.Tables.Add(New usuarioDataTable(ds.Tables("usuario"))) End If
If (Not (ds.Tables("venta")) Is Nothing) Then MyBase.Tables.Add(New ventaDataTable(ds.Tables("venta"))) End If
If (Not (ds.Tables("generar_comprobante")) Is Nothing) Then MyBase.Tables.Add(New generar_comprobanteDataTable(ds.Tables("generar_comprobante"))) End If
If (Not (ds.Tables("mostrar_categoria")) Is Nothing) Then MyBase.Tables.Add(New mostrar_categoriaDataTable(ds.Tables("mostrar_categoria"))) End If
If (Not (ds.Tables("mostrar_cliente")) Is Nothing) Then MyBase.Tables.Add(New mostrar_clienteDataTable(ds.Tables("mostrar_cliente"))) End If
If (Not (ds.Tables("mostrar_detalle_venta")) Is Nothing) Then MyBase.Tables.Add(New mostrar_detalle_ventaDataTable(ds.Tables("mostrar_detalle_venta"))) End If
If (Not (ds.Tables("mostrar_producto")) Is Nothing) Then MyBase.Tables.Add(New mostrar_productoDataTable(ds.Tables("mostrar_producto"))) End If
If (Not (ds.Tables("mostrar_venta")) Is Nothing) Then MyBase.Tables.Add(New mostrar_ventaDataTable(ds.Tables("mostrar_venta"))) End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tablecategoria = CType(MyBase.Tables("categoria"),categoriaDataTable) If (initTable = true) Then
If (Not (Me.tablecategoria) Is Nothing) Then
Me.tablecategoria.InitVars
End If
End If
Me.tablecliente = CType(MyBase.Tables("cliente"),clienteDataTable) If (initTable = true) Then
If (Not (Me.tablecliente) Is Nothing) Then
Me.tablecliente.InitVars
End If
End If
Me.tabledetalle_venta = CType(MyBase.Tables("detalle_venta"),detalle_ventaDataTable) If (initTable = true) Then
If (Not (Me.tabledetalle_venta) Is Nothing) Then
Me.tabledetalle_venta.InitVars
End If
End If
Me.tableproducto = CType(MyBase.Tables("producto"),productoDataTable) If (initTable = true) Then
If (Not (Me.tableproducto) Is Nothing) Then
Me.tableproducto.InitVars
End If
End If
Me.tableusuario = CType(MyBase.Tables("usuario"),usuarioDataTable) If (initTable = true) Then
If (Not (Me.tableusuario) Is Nothing) Then
Me.tableusuario.InitVars
End If
End If
Me.tableventa = CType(MyBase.Tables("venta"),ventaDataTable) If (initTable = true) Then
If (Not (Me.tableventa) Is Nothing) Then
Me.tableventa.InitVars
End If
End If
Me.tablegenerar_comprobante = CType(MyBase.Tables("generar_comprobante"),generar_comprobanteDataTable) If (initTable = true) Then
If (Not (Me.tablegenerar_comprobante) Is Nothing) Then
Me.tablegenerar_comprobante.InitVars
End If
End If
Me.tablemostrar_categoria = CType(MyBase.Tables("mostrar_categoria"),mostrar_categoriaDataTable) If (initTable = true) Then
If (Not (Me.tablemostrar_categoria) Is Nothing) Then
Me.tablemostrar_categoria.InitVars
End If
End If
Me.tablemostrar_cliente = CType(MyBase.Tables("mostrar_cliente"),mostrar_clienteDataTable) If (initTable = true) Then
If (Not (Me.tablemostrar_cliente) Is Nothing) Then
Me.tablemostrar_cliente.InitVars
End If
End If
Me.tablemostrar_detalle_venta = CType(MyBase.Tables("mostrar_detalle_venta"),mostrar_detalle_ventaDataTable) If (initTable = true) Then
If (Not (Me.tablemostrar_detalle_venta) Is Nothing) Then
Me.tablemostrar_detalle_venta.InitVars
End If
End If
Me.tablemostrar_producto = CType(MyBase.Tables("mostrar_producto"),mostrar_productoDataTable) If (initTable = true) Then
If (Not (Me.tablemostrar_producto) Is Nothing) Then
Me.tablemostrar_producto.InitVars
End If
End If
Me.tablemostrar_venta = CType(MyBase.Tables("mostrar_venta"),mostrar_ventaDataTable) If (initTable = true) Then
If (Not (Me.tablemostrar_venta) Is Nothing) Then
Me.tablemostrar_venta.InitVars
End If
End If
Me.relationFK_detalle_venta_producto = Me.Relations("FK_detalle_venta_producto") Me.relationFK_detalle_venta_ventas = Me.Relations("FK_detalle_venta_ventas") Me.relationFK_producto_categoria = Me.Relations("FK_producto_categoria") Me.relationFK_ventas_cliente = Me.Relations("FK_ventas_cliente")End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Sub InitClass()
Me.DataSetName = "dbventasDataSet1"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/dbventasDataSet1.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tablecategoria = New categoriaDataTable()
MyBase.Tables.Add(Me.tablecategoria)
Me.tablecliente = New clienteDataTable()
MyBase.Tables.Add(Me.tablecliente)
Me.tabledetalle_venta = New detalle_ventaDataTable()
MyBase.Tables.Add(Me.tabledetalle_venta)
Me.tableproducto = New productoDataTable()
MyBase.Tables.Add(Me.tableproducto)
Me.tableusuario = New usuarioDataTable()
MyBase.Tables.Add(Me.tableusuario)
Me.tableventa = New ventaDataTable()
MyBase.Tables.Add(Me.tableventa)
Me.tablegenerar_comprobante = New generar_comprobanteDataTable()
MyBase.Tables.Add(Me.tablegenerar_comprobante)
Me.tablemostrar_categoria = New mostrar_categoriaDataTable()
MyBase.Tables.Add(Me.tablemostrar_categoria)
Me.tablemostrar_cliente = New mostrar_clienteDataTable()
MyBase.Tables.Add(Me.tablemostrar_cliente)
Me.tablemostrar_detalle_venta = New mostrar_detalle_ventaDataTable()
MyBase.Tables.Add(Me.tablemostrar_detalle_venta)
Me.tablemostrar_producto = New mostrar_productoDataTable()
MyBase.Tables.Add(Me.tablemostrar_producto)
Me.tablemostrar_venta = New mostrar_ventaDataTable()
MyBase.Tables.Add(Me.tablemostrar_venta)
Me.relationFK_detalle_venta_producto = New Global.System.Data.DataRelation("FK_detalle_venta_producto", New Global.System.Data.DataColumn() {Me.tableproducto.idproductoColumn}, New Global.System.Data.DataColumn() {Me.tabledetalle_venta.idproductoColumn}, false) Me.Relations.Add(Me.relationFK_detalle_venta_producto)
Me.relationFK_detalle_venta_ventas = New Global.System.Data.DataRelation("FK_detalle_venta_ventas", New Global.System.Data.DataColumn() {Me.tableventa.idventaColumn}, New Global.System.Data.DataColumn() {Me.tabledetalle_venta.idventaColumn}, false) Me.Relations.Add(Me.relationFK_detalle_venta_ventas)
Me.relationFK_producto_categoria = New Global.System.Data.DataRelation("FK_producto_categoria", New Global.System.Data.DataColumn() {Me.tablecategoria.idcategoriaColumn}, New Global.System.Data.DataColumn() {Me.tableproducto.idcategoriaColumn}, false) Me.Relations.Add(Me.relationFK_producto_categoria)
Me.relationFK_ventas_cliente = New Global.System.Data.DataRelation("FK_ventas_cliente", New Global.System.Data.DataColumn() {Me.tablecliente.idclienteColumn}, New Global.System.Data.DataColumn() {Me.tableventa.idclienteColumn}, false) Me.Relations.Add(Me.relationFK_ventas_cliente)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializecategoria() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializecliente() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializedetalle_venta() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializeproducto() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializeusuario() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializeventa() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializegenerar_comprobante() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializemostrar_categoria() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializemostrar_cliente() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializemostrar_detalle_venta() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializemostrar_producto() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Function ShouldSerializemostrar_venta() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As dbventasDataSet1 = New dbventasDataSet1()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
Friend Function mostrar_comprobante() As Object
Throw New NotImplementedException()
End Function
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub categoriaRowChangeEventHandler(ByVal sender As Object, ByVal e As categoriaRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub clienteRowChangeEventHandler(ByVal sender As Object, ByVal e As clienteRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub detalle_ventaRowChangeEventHandler(ByVal sender As Object, ByVal e As detalle_ventaRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub productoRowChangeEventHandler(ByVal sender As Object, ByVal e As productoRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub usuarioRowChangeEventHandler(ByVal sender As Object, ByVal e As usuarioRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub ventaRowChangeEventHandler(ByVal sender As Object, ByVal e As ventaRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub generar_comprobanteRowChangeEventHandler(ByVal sender As Object, ByVal e As generar_comprobanteRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub mostrar_categoriaRowChangeEventHandler(ByVal sender As Object, ByVal e As mostrar_categoriaRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub mostrar_clienteRowChangeEventHandler(ByVal sender As Object, ByVal e As mostrar_clienteRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub mostrar_detalle_ventaRowChangeEventHandler(ByVal sender As Object, ByVal e As mostrar_detalle_ventaRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub mostrar_productoRowChangeEventHandler(ByVal sender As Object, ByVal e As mostrar_productoRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _Public Delegate Sub mostrar_ventaRowChangeEventHandler(ByVal sender As Object, ByVal e As mostrar_ventaRowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _Partial Public Class categoriaDataTable
Inherits Global.System.Data.TypedTableBase(Of categoriaRow)
Private columnidcategoria As Global.System.Data.DataColumn
Private columnnombre_categoria As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New()
MyBase.New
Me.TableName = "categoria"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property idcategoriaColumn() As Global.System.Data.DataColumn
Get
Return Me.columnidcategoria
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property nombre_categoriaColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnombre_categoria
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As categoriaRow
Get
Return CType(Me.Rows(index),categoriaRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event categoriaRowChanging As categoriaRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event categoriaRowChanged As categoriaRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event categoriaRowDeleting As categoriaRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Event categoriaRowDeleted As categoriaRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overloads Sub AddcategoriaRow(ByVal row As categoriaRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overloads Function AddcategoriaRow(ByVal nombre_categoria As String) As categoriaRow
Dim rowcategoriaRow As categoriaRow = CType(Me.NewRow,categoriaRow)
Dim columnValuesArray() As Object = New Object() {Nothing, nombre_categoria} rowcategoriaRow.ItemArray = columnValuesArray
Me.Rows.Add(rowcategoriaRow)
Return rowcategoriaRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function FindByidcategoria(ByVal idcategoria As Integer) As categoriaRow
Return CType(Me.Rows.Find(New Object() {idcategoria}),categoriaRow) End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As categoriaDataTable = CType(MyBase.Clone,categoriaDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New categoriaDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Friend Sub InitVars()
Me.columnidcategoria = MyBase.Columns("idcategoria") Me.columnnombre_categoria = MyBase.Columns("nombre_categoria") End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Sub InitClass()
Me.columnidcategoria = New Global.System.Data.DataColumn("idcategoria", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnidcategoria)
Me.columnnombre_categoria = New Global.System.Data.DataColumn("nombre_categoria", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnnombre_categoria)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnidcategoria}, true)) Me.columnidcategoria.AutoIncrement = true
Me.columnidcategoria.AutoIncrementSeed = -1
Me.columnidcategoria.AutoIncrementStep = -1
Me.columnidcategoria.AllowDBNull = false
Me.columnidcategoria.ReadOnly = true
Me.columnidcategoria.Unique = true
Me.columnnombre_categoria.AllowDBNull = false
Me.columnnombre_categoria.MaxLength = 50
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Function NewcategoriaRow() As categoriaRow
Return CType(Me.NewRow,categoriaRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New categoriaRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(categoriaRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.categoriaRowChangedEvent) Is Nothing) Then
RaiseEvent categoriaRowChanged(Me, New categoriaRowChangeEvent(CType(e.Row,categoriaRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.categoriaRowChangingEvent) Is Nothing) Then
RaiseEvent categoriaRowChanging(Me, New categoriaRowChangeEvent(CType(e.Row,categoriaRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.categoriaRowDeletedEvent) Is Nothing) Then
RaiseEvent categoriaRowDeleted(Me, New categoriaRowChangeEvent(CType(e.Row,categoriaRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.categoriaRowDeletingEvent) Is Nothing) Then
RaiseEvent categoriaRowDeleting(Me, New categoriaRowChangeEvent(CType(e.Row,categoriaRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub RemovecategoriaRow(ByVal row As categoriaRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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()
Dim ds As dbventasDataSet1 = New dbventasDataSet1()
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 = "categoriaDataTable"
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _Partial Public Class clienteDataTable
Inherits Global.System.Data.TypedTableBase(Of clienteRow)
Private columnidcliente As Global.System.Data.DataColumn
Private columnnombre As Global.System.Data.DataColumn
Private columnapellidos As Global.System.Data.DataColumn
Private columndireccion As Global.System.Data.DataColumn
Private columntelefono As Global.System.Data.DataColumn
Private columndni As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New()
MyBase.New
Me.TableName = "cliente"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ 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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property idclienteColumn() As Global.System.Data.DataColumn
Get
Return Me.columnidcliente
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property nombreColumn() As Global.System.Data.DataColumn
Get
Return Me.columnnombre
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property apellidosColumn() As Global.System.Data.DataColumn
Get
Return Me.columnapellidos
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property direccionColumn() As Global.System.Data.DataColumn
Get
Return Me.columndireccion
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public ReadOnly Property telefonoColumn() As Global.System.Data.DataColumn
Get
Return Me.columntelefono
End Get
