Y Como es Eso de Programar en capas con .NET (Parte 3)

Capa de Lógica de Negocio

Public Class Cliente
    Public Function GuardarCliente(ByVal _apellidos As String, ByVal _nombres As String, _
         ByVal _direccion As String, ByVal _telefono As String, ByVal _email As String) As Integer

        Dim bopass As Boolean = True
        bopass = Reglas(_apellidos, _nombres, _direccion, _telefono, _email)
        Dim obj As LibAccesoDatos.AccesoDatos = New LibAccesoDatos.AccesoDatos
        Dim res As Integer = 0

        Try
            If bopass = True Then
                obj.InsertarCliente(_apellidos, _nombres, _direccion, _telefono, _email)
                res = 1
            Else
                res = 0
            End If
        Catch ex As Exception
            Throw
        End Try
        Return res
    End Function
    Private Function Reglas(ByVal ape As String, ByVal nom As String, _
        ByVal dir As String, ByVal tel As String, ByVal e As String) As Boolean

        Dim bolres As Boolean = True
        If ape = "" Then
            bolres = False
        Else
            If nom = "" Then
                bolres = False
            End If
            If e = "" Then
                bolres = False
            End If
        End If
        Return bolres
    End Function

End Class

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s