Problema Web Service Datos y Esquema...

[Stream]

Option Strict On
Option Explicit On

Imports System
Imports System.Data
Imports System.Runtime.Serialization

Namespace Componentes.Common
<System.ComponentModel.DesignerCategory("Code"), SerializableAttribute()> _
Public Class Data_Cargos
Inherits Data_Common

Public Const TABLE_Cargos As String = "Cargos"
Public Const FIELD_IDCargo As String = "IdCargo"
Public Const FIELD_IDCuenta As String = "IdCuenta"
Public Const FIELD_IdConcepto As String = "IdConcepto"
Public Const FIELD_Importe As String = "Importe"
Public Const FIELD_TipoCambio As String = "TipoCambio"
Public Const FIELD_FechaCaptura As String = "FechaCaptura"
Public Const FIELD_Descuento As String = "Descuento"
Public Const FIELD_Observaciones As String = "Observaciones"
Public Const FIELD_Referencia As String = "ReferenciaRest"
Public Const FIELD_Fecha As String = "Fecha"
Public Const FIELD_Estado As String = "Estado"
Public Const FIELD_Cantidad As String = "Cantidad"
Public Const FIELD_IdUsuario As String = "IdUsuario"

'//Tabla Cargos Impuestos
Public Const TABLE_CargosImpuestos As String = "CargosImpuestos"
Public Const FIELD_IdImpuesto As String = "IdImpuesto"
Public Const FIELD_Porcentaje As String = "Porcentaje"

Public Const Pk_RelImpuestos As String = "RelImpuestos"

Public Const INVALID_NAME_NOT_UNIQUE As String = "Nombre Existente"
Public Const INVALID_FIELD As String = "Invalid Field"
Public Const INVALID_FIELDS As String = "Invalid Fields"
Public Const INVALID_NOTEXIST As String = "Not exist "

Public Sub New()
MyBase.New()
InitClass()
MyClass.BuildDataTables()
End Sub

Private Sub InitClass()
Me.DataSetName = "Data_Cargos"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/Data_Cargos.xsd"
Me.Locale = New System.Globalization.CultureInfo("en-US")
Me.CaseSensitive = False
Me.EnforceConstraints = True
End Sub

Private Sub BuildDataTables()
Dim table As DataTable = New DataTable(Me.TABLE_Cargos)
With table.Columns
With .Add(FIELD_IDCargo, GetType(System.Int64))
.AutoIncrement = True
.Unique = False
End With
.Add(FIELD_IDCuenta, GetType(System.Int32))
.Add(FIELD_IdConcepto, GetType(System.Int32))
.Add(FIELD_Importe, GetType(System.Single))
.Add(FIELD_Descuento, GetType(System.Single))
.Add(FIELD_Observaciones, GetType(System.String))
.Add(FIELD_TipoCambio, GetType(System.Single))
.Add(FIELD_Referencia, GetType(System.String))
.Add(FIELD_Estado, GetType(System.Int16))
.Add(FIELD_Cantidad, GetType(System.Int16))
.Add(FIELD_IdUsuario, GetType(System.Int32))
.Add(FIELD_Fecha, GetType(System.DateTime))
.Add(FIELD_FechaCaptura, GetType(System.DateTime))
End With
Me.Tables.Add(table)

table = New DataTable(Me.TABLE_CargosImpuestos)
With table.Columns
.Add(FIELD_IDCargo, GetType(System.Int64))
.Add(FIELD_IdImpuesto, GetType(System.Int64))
.Add(FIELD_Porcentaje, GetType(System.Double))
End With
Me.Tables.Add(table)

Me.Relations.Add(New DataRelation(Me.Pk_RelImpuestos, Me.Tables(Me.TABLE_Cargos).Columns(Me.FIELD_IDCarg o), Me.Tables(Me.TABLE_CargosImpuestos).Columns(Me.FIE LD_IDCargo)))
End Sub
End Class

End Namespace