
Option Compare Binary
Option Infer On
Option Strict On
Option Explicit On

Imports ApRiaServices
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.ComponentModel.DataAnnotations
Imports System.Data.Objects.DataClasses
Imports System.Linq
Imports System.ServiceModel.DomainServices.Hosting
Imports System.ServiceModel.DomainServices.Server


'El MetadataTypeAttribute identifica a alum_asigMetadata como la clase
' que contiene metadatos adicionales para la class alum_asig.
<MetadataTypeAttribute(GetType(alum_asig.alum_asigMetadata))>  _
Partial Public Class alum_asig
    
    'Esta clase permite adjuntar atributos personalizados a properties
    ' de la clase alum_asig.
    '
    'Por ejemplo, lo siguiente marca la property Xyz como una
    ' property requerida y especifica el formato de los valores válidos:
    '    <Required()>
    '    <RegularExpression("[A-Z][A-Za-z0-9]*")>
    '    <StringLength(32)>
    '    Public Property Xyz As String
    Friend NotInheritable Class alum_asigMetadata
        
        'No se van a crear instancias de las clases de metadatos.
        Private Sub New()
            MyBase.New
        End Sub
        
        Public Property alumno As alumno
        
        Public Property asignatura As asignatura
        
        Public Property id_alumno As Integer
        
        Public Property id_asignatura As Integer
        
        Public Property nota As Single
    End Class
End Class

'El MetadataTypeAttribute identifica a alumnoMetadata como la clase
' que contiene metadatos adicionales para la class alumno.
<MetadataTypeAttribute(GetType(alumno.alumnoMetadata))>  _
Partial Public Class alumno
    
    'Esta clase permite adjuntar atributos personalizados a properties
    ' de la clase alumno.
    '
    'Por ejemplo, lo siguiente marca la property Xyz como una
    ' property requerida y especifica el formato de los valores válidos:
    '    <Required()>
    '    <RegularExpression("[A-Z][A-Za-z0-9]*")>
    '    <StringLength(32)>
    '    Public Property Xyz As String
    Friend NotInheritable Class alumnoMetadata
        
        'No se van a crear instancias de las clases de metadatos.
        Private Sub New()
            MyBase.New
        End Sub
        
        Public Property alums_asigs As EntityCollection(Of alum_asig)
        
        Public Property id_alumno As Integer
        
        Public Property nombre As String
    End Class
End Class

'El MetadataTypeAttribute identifica a asignaturaMetadata como la clase
' que contiene metadatos adicionales para la class asignatura.
<MetadataTypeAttribute(GetType(asignatura.asignaturaMetadata))>  _
Partial Public Class asignatura
    
    'Esta clase permite adjuntar atributos personalizados a properties
    ' de la clase asignatura.
    '
    'Por ejemplo, lo siguiente marca la property Xyz como una
    ' property requerida y especifica el formato de los valores válidos:
    '    <Required()>
    '    <RegularExpression("[A-Z][A-Za-z0-9]*")>
    '    <StringLength(32)>
    '    Public Property Xyz As String
    Friend NotInheritable Class asignaturaMetadata
        
        'No se van a crear instancias de las clases de metadatos.
        Private Sub New()
            MyBase.New
        End Sub
        
        Public Property alums_asigs As EntityCollection(Of alum_asig)
        
        Public Property id_asignatura As Integer
        
        Public Property nombre As String
    End Class
End Class

