domingo, 15 de marzo de 2020

consulta para definir perfiles

SELECT su.idusuario,su.nombreusuarion,pus.idcontrol FROM permisos_perfil PPF INNER JOIN sistema_usuario SU ON PPF.idperfil = SU.idperfil
inner join permisos_usurio pus on pus.idaplicacion=ppf.idaplicacion

WHERE PPF.idaplicacion=2 AND PPF.idperfil=4 ORDER BY idusuario ASC

SELECT * FROM permisos_usurio WHERE  idusuario=3 and idaplicacion=2

UPDATE permisos_usurio SET idusuario=3 WHERE idusuario=2
en No hay comentarios:

lunes, 2 de marzo de 2020

Enviar email desde vb.net (SENCILLO)

Private Sub EnviarMail(ByVal EMails As String, ByVal TextoAsunto As String, ByVal TextoCuerpo As String)

        myOlApp = New Microsoft.Office.Interop.Outlook.Application
        Dim myOlItem As Microsoft.Office.Interop.Outlook.MailItem

        Try
            myOlItem = myOlApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
            With myOlItem
                .To = EMails
                .Subject = TextoAsunto
                .Body = TextoCuerpo
                .Importance = Microsoft.Office.Interop.Outlook.OlImportance.olImportanceHigh
            End With
            myOlItem.Send()

        Catch ex As System.Exception
        End Try

    End Sub
en No hay comentarios:

llamado de aplicacion: infomes

objInformesRN.SP_VALIDA_MENU_APLICACIONES(My.Application.IDAPLICACION, My.Application.IDPERFIL, SubMenu.Name)
en No hay comentarios:

InformesRN,VB aplic: Informes

Imports System.Data

 Public Class InformesRN

 #Region "Declaraciones"

     Public WithEvents objInformesBD As InformesBD.InformesBD
    Public Event MensajeSistema(ByVal ID As Integer, ByVal Titulo As String, ByVal Mensaje As String)
    Private Parametros As DataTable
    Private Fila As DataRow
    Private AuxTabla, AuxTablaRubros As DataTable
    Public Event CargarCombosColeccion()
    Public Event ListarSubRu(ByVal Tabla As DataTable)
    Public Event ListarRub(ByVal Tabla As DataTable)
    Public Event ListarPatron(ByVal tabla As DataTable)
    Public Event LeerRubrosPeroles(ByVal Tabla As DataTable)
    Public Event REPARTIDORES_LISTAR(ByVal tabla As DataTable)

 #End Region

 #Region "Funciones"

     Public Sub SP_INFORMES_COMEX_STOCK_PEROLES_DINAMICO(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(idcolec)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_COMEX_STOCK_PEROLES_DINAMICO(Parametros)

     End Sub

    
    Public Sub SP_INFORMES_VENTAS_REQUAREMI_DINAMICO(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcolec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_VENTAS_REQUAREMI_DINAMICO(Parametros)

     End Sub

     Public Sub SP_INFORMES_STOCK_CONTROL_DINAMICO_ABIERTAxMOVIMIENTOS(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcolec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_STOCK_CONTROL_DINAMICO_ABIERTAxMOVIMIENTOS(Parametros)

     End Sub

     Public Sub SP_INFORMES_STOCK_CONTROL_DINAMICO(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcolec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_STOCK_CONTROL_DINAMICO(Parametros)

     End Sub

     Public Sub SP_INFORMES_VENTAS_REQUASALON_DINAMICO(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcolec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_VENTAS_REQUASALON_DINAMICO(Parametros)

     End Sub

     Public Sub SP_INFORMES_ADUANA_PLANILLA_DINAMICO(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcolec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_ADUANA_PLANILLA_DINAMICO(Parametros)

     End Sub

     Public Sub SP_INFORMES_VENTAS_STOCK_PEROLES_DINAMICO(ByVal idcolec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcolec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_VENTAS_STOCK_PEROLES_DINAMICO(Parametros)

     End Sub

     Public Sub InicializarComboColeccion()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.MAESTRO_COLECCIONES_LISTAR()
        objInformesBD.CargarDatos()

         RaiseEvent CargarCombosColeccion()

     End Sub

     Public Function MaestroArticulosBuscar(ByVal codArt As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        For I = 0 To 0
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codArt)
        objInformesBD.MaestroArticulosBuscar(Parametros)

         MaestroArticulosBuscar = objInformesBD.Tabla
    End Function

     Public Function MaestroGruposDepositosListar() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.MaestroGruposDepositosListar()
        MaestroGruposDepositosListar = objInformesBD.Tabla
    End Function

     Public Function MaestroColoresBuscar(ByVal codColor As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        For I = 0 To 0
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codColor)
        objInformesBD.MaestroColoresBuscar(Parametros)

         MaestroColoresBuscar = objInformesBD.Tabla
    End Function

     Public Function MaestroTallesBuscar(ByVal codTalle As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        For I = 0 To 0
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codTalle)
        objInformesBD.MaestroTallesBuscar(Parametros)

         MaestroTallesBuscar = objInformesBD.Tabla
    End Function

     Public Function MaestroMesesPorColeccion(ByVal idColec As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        For I = 0 To 0
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idColec)
        objInformesBD.MaestroMesesPorColeccion(Parametros)

         MaestroMesesPorColeccion = objInformesBD.Tabla
    End Function
    
    Public Sub SP_REMITOS_USUARIOS_REL_LISTAR()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_REMITOS_USUARIOS_REL_LISTAR()

     End Sub
    Public Function SubCaLeer() As DataTable

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MAESTRO_SUBCA_LISTAR()
        SubCaLeer = objInformesBD.Tabla
    End Function

     Public Sub SP_MAESTRO_COLECCIONES_LISTAR()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MAESTRO_COLECCIONES_LISTAR()

 End Sub
' Para traer los canales Reghisbot
Public Sub SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_CANALES()

 objInformesBD = New InformesBD.InformesBD
objInformesBD.SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_CANALES()

 End Sub
' Para traer las colecciones Reghisbot 
Public Sub SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_COLECCIONES()

 objInformesBD = New InformesBD.InformesBD
objInformesBD.SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_COLECCIONES()

 End Sub

     Public Sub SP_MAESTRO_TEMPORADAS_LISTAR()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MAESTRO_TEMPORADAS_LISTAR()

     End Sub

     Public Sub Distribucion(ByVal codart As String, ByVal codcolor As String, ByVal idColec As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codart
        Fila.Item(1) = codcolor
        Fila.Item(2) = idColec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_PEDIDOS_COMEX_DISTRIBUCION(Parametros)

     End Sub

     Public Sub DistribucionInsertar(ByVal codart As String, ByVal codcolor As String, ByVal idColec As Integer, ByVal idusuario As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codart
        Fila.Item(1) = codcolor
        Fila.Item(2) = idusuario
        Fila.Item(3) = idColec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_PEDIDOS_COMEX_DISTRIBUCION_INSERT(Parametros)

     End Sub
    '******************home jgm************************
    Public Sub ControlesMenuInsertar(ByVal idaplicacion As Integer, ByVal nombrecontrol As String, ByVal descripcionControl As String)
        '*******esta siendo modificado
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        ' Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idaplicacion
        Fila.Item(1) = nombrecontrol
        Fila.Item(2) = descripcionControl
        'Fila.Item(3) = idColec
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION(Parametros)

     End Sub

     Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_PERFIL(ByVal IdAplicacion As Integer, ByVal IdPerfil As Integer)
        Parametros = New DataTable 'criamos uma tabela temporária e atribuímos os campos
        Parametros.Columns.Add(New DataColumn) 'es campos um
        Parametros.Columns.Add(New DataColumn) 'es campos dois
        Fila = Parametros.NewRow
        Fila.Item(0) = IdAplicacion
        Fila.Item(1) = IdPerfil
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_PERFIL(Parametros)

    End Sub
    Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_USUARIO(ByVal IdAplicacion As Integer, ByVal IdUsuario As Integer)
        Parametros = New DataTable 'criamos uma tabela temporária e atribuímos os campos
        Parametros.Columns.Add(New DataColumn) 'es campos um
        Parametros.Columns.Add(New DataColumn) 'es campos dois
        Fila = Parametros.NewRow
        Fila.Item(0) = IdAplicacion
        Fila.Item(1) = IdUsuario
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_USUARIO(Parametros)

     End Sub
    Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_MODIFICAR_ESTADO_CONTROLES_POR_USUARIO(ByVal idaplicacion As Integer, ByVal Ncontrol As String, ByVal Cactivo As Boolean, ByVal Cvisible As Boolean, ByVal IdUsuario As Integer)
        'Ncontrol, Cactivo, Cvisible, My.Application.IDUSUARIO
        Parametros = New DataTable 'criamos uma tabela temporária e atribuímos os campos
        Parametros.Columns.Add(New DataColumn) 'es campos um
        Parametros.Columns.Add(New DataColumn) 'es campos dois
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idaplicacion
        Fila.Item(1) = Ncontrol
        Fila.Item(2) = Cactivo
        Fila.Item(3) = Cvisible
        Fila.Item(4) = IdUsuario
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_HERRAMIENTAS_SIGMA_SEGURIDAD_MODIFICAR_ESTADO_CONTROLES_POR_USUARIO(Parametros)

     End Sub

     '*******************end jgm*************************
    Public Sub SP_MAESTRO_VERSIONES_LEER(ByVal idaplic As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(idaplic)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MAESTRO_VERSIONES_LEER(Parametros)

     End Sub

    Public Function SP_SISTEMAS_PARAMETROS_BUSCAR(ByVal ParamABuscar As String) As String

         Dim Parametros As DataTable

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(ParamABuscar)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_SISTEMAS_PARAMETROS_BUSCAR(Parametros)
        If objInformesBD.Tabla IsNot Nothing Then
            SP_SISTEMAS_PARAMETROS_BUSCAR = objInformesBD.Tabla.Rows(0).Item(1)
        Else
            SP_SISTEMAS_PARAMETROS_BUSCAR = vbNullString
        End If

     End Function

     Public Sub SP_MAESTROCLIENTES_LEER(ByVal idcliente As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idcliente
        Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MAESTROCLIENTES_LEER(Parametros)

     End Sub

     Public Sub SP_VALIDA_ACCIONES(ByVal idaplicacion As Integer, ByVal idPerfil As Integer, ByVal nombremenu As String)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idaplicacion
        Fila.Item(1) = idPerfil
        Fila.Item(2) = nombremenu
        Parametros.Rows.Add(Fila)

         objInformesBD.SP_VALIDA_ACCIONES(Parametros)

     End Sub

     Public Sub SP_VALIDA_MENU_APLICACIONES(ByVal idaplicacion As Integer, ByVal idPerfil As Integer, ByVal nombremenu As String)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idaplicacion
        Fila.Item(1) = idPerfil
        Fila.Item(2) = nombremenu
        Parametros.Rows.Add(Fila)

         objInformesBD.SP_VALIDA_MENU_APLICACIONES(Parametros)

     End Sub

     Public Function SP_SISTEMA_PARAMETROS_VALOR_LEER(ByVal parametro As String) As DataTable
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = parametro
        Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_SISTEMA_PARAMETROS_VALOR_LEER(Parametros)
        SP_SISTEMA_PARAMETROS_VALOR_LEER = objInformesBD.Tabla
    End Function
    Public Sub SP_SISTEMA_USUARIOS_COMEX_LISTAR()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_SISTEMA_USUARIOS_COMEX_LISTAR()
        Tabla = objInformesBD.Tabla

     End Sub

     Public Sub InicializarBase()
        Try
            objInformesBD = New InformesBD.InformesBD
            objInformesBD.InicializarDatos()

         Catch ex As SystemException
            RaiseEvent MensajeSistema(0, "ERROR EN BASE DE DATOS", " (10037): Error al inicializar Base de Datos - " & Err.Description)
        End Try
    End Sub

     Public Function SistemasReportesLeer(ByVal idReporte As String) As DataTable
        '# V1.2.0.1 - Función para buscar un reporte
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idReporte
        Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SistemaReportesLeer(Parametros)
        SistemasReportesLeer = objInformesBD.Tabla
    End Function

     Public Sub SP_SISTEMA_USUARIOS_LEERXPERFIL(ByVal idperfil As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idperfil
        Parametros.Rows.Add(Fila)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_SISTEMA_USUARIOS_LEERXPERFIL(Parametros)

     End Sub

     Public Sub InsertarLogMensaje(ByVal IDMsg As String, ByVal Mensaje As String, ByVal idUsuario As Integer, ByVal IDAPLICACION As Integer)
        Parametros = New DataTable
        For i As Integer = 0 To 3
            Parametros.Columns.Add(New DataColumn)
        Next
        Fila = Parametros.NewRow
        Fila.Item(0) = IDMsg
        Fila.Item(1) = Mensaje
        Fila.Item(2) = idUsuario
        Fila.Item(3) = IDAPLICACION
        Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_LOG_MENSAJES(Parametros)
    End Sub

     Public Function ArticulosBuscar(ByVal codArt As String) As DataTable
        Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codArt

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.ArticulosBuscar(Parametros)

         ArticulosBuscar = objInformesBD.Tabla
    End Function

     Public Function ColoresBuscar(ByVal codColor As String) As DataTable
        Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codColor

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.ColoresBuscar(Parametros)

         ColoresBuscar = objInformesBD.Tabla
    End Function

     Public Function ClientesBuscar(ByVal codCliente As String, ByVal idCanal As Integer) As DataTable
        Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codCliente
        Fila.Item(1) = idCanal

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.ClientesBuscar(Parametros)

         ClientesBuscar = objInformesBD.Tabla

     End Function

     Public Sub BuscarEmail(ByVal EMails As String)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = EMails
        Parametros.Rows.Add(Fila)

         objInformesBD.BuscarEmail(Parametros)

     End Sub

     Public Function BuscarPlan(ByVal idCanal As Integer) As DataTable
        Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idCanal

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.BuscarPlan(Parametros)

         BuscarPlan = objInformesBD.Tabla

     End Function

     Public Sub ListarRubros(ByVal inicial As String)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = inicial
        Parametros.Rows.Add(Fila)

         objInformesBD.ListarRubros(Parametros)
        RaiseEvent ListarRub(objInformesBD.Tabla)
    End Sub

     Public Function ListarRubros2() As DataTable
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.ListarRubros2()
        ListarRubros2 = objInformesBD.Tabla
    End Function

     Public Sub ListarSubRubros_Stock(ByVal idRubro As Integer, ByVal IDCOLEC As Integer)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = idRubro
        Fila.Item(1) = IDCOLEC
        Parametros.Rows.Add(Fila)

         objInformesBD.ListarSubRubros_Stock(Parametros)
        RaiseEvent ListarSubRu(objInformesBD.Tabla)
    End Sub

     Public Sub ListarSubRubros(ByVal idRubro As Integer)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = idRubro
        Parametros.Rows.Add(Fila)

         objInformesBD.ListarSubRubros(Parametros)
        RaiseEvent ListarSubRu(objInformesBD.Tabla)
    End Sub

     Public Function SP_MAESTROSUBRUBROS_LEER(ByVal idRubro As Integer) As DataTable

         Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idRubro)

         objInformesBD.SP_MAESTROSUBRUBROS_LEER(Parametros)
        SP_MAESTROSUBRUBROS_LEER = objInformesBD.Tabla

     End Function
    Public Function SP_MAESTRO_SUBRUBROS_LEER(ByVal idRubro As Integer) As DataTable

         Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idRubro)

         objInformesBD.SP_MAESTROSUBRUBROS_LEER(Parametros)
        SP_MAESTRO_SUBRUBROS_LEER = objInformesBD.Tabla

     End Function

    Public Function RubrosBuscar(ByVal codRubro As String) As DataTable
        Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codRubro

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.RubrosBuscar(Parametros)

         RubrosBuscar = objInformesBD.Tabla
    End Function

     Public Function SubRubrosBuscar(ByVal codSubRubro As String) As DataTable
        Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = codSubRubro

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SubRubrosBuscar(Parametros)

         SubRubrosBuscar = objInformesBD.Tabla
    End Function
    Public Sub LeerRubros_Stock(ByVal IDCOLEC As Integer)

         Parametros = New DataTable

         Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = IDCOLEC

         Parametros.Rows.Add(Fila)

         objInformesBD = New InformesBD.InformesBD

         objInformesBD.LeerRubros_Stock(Parametros)
        'LeerRubros = objInformesBD.Tabla
        RaiseEvent ListarRub(objInformesBD.Tabla)

     End Sub

     Public Sub LeerRubros()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.LeerRubros()
        RaiseEvent ListarRub(objInformesBD.Tabla)

     End Sub
    Public Sub LeerRubros_TODOS(ByVal COLECCION As Integer)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = COLECCION
        Parametros.Rows.Add(Fila)

         objInformesBD.LeerRubros_TODOS(Parametros)

         RaiseEvent ListarRub(objInformesBD.Tabla)

     End Sub

     Public Sub ExisteArtColor(ByVal idArt, ByVal idColor)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = idArt
        Fila.Item(1) = idColor
        Parametros.Rows.Add(Fila)

         objInformesBD.ExisteArtColor(Parametros)

     End Sub

     Public Sub LeerPatrones(ByVal idRubro)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = idRubro
        Parametros.Rows.Add(Fila)

         objInformesBD.LeerPatrones(Parametros)
        objInformesBD.CargarDatos()

         RaiseEvent ListarPatron(objInformesBD.Tabla)

     End Sub

     Public Sub SP_INFORMES_DISTRIBUCION_STOCKDPT_RUBROSUB(ByVal ppVarcoleccion, ByVal idRubro, ByVal idSubRubro, ByVal ppubicacion)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = ppVarcoleccion
        Fila.Item(1) = idRubro
        Fila.Item(2) = idSubRubro
        Fila.Item(3) = ppubicacion

         Parametros.Rows.Add(Fila)

         objInformesBD.SP_INFORMES_DISTRIBUCION_STOCKDPT_RUBROSUB(Parametros)

     End Sub

     Public Sub SP_INFORMES_DISTRIBUCION_STOCKDPT_ARTCOLOR(ByVal idart, ByVal idcolor, ByVal ppUbicacion)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = idart
        Fila.Item(1) = idcolor
        Fila.Item(2) = ppUbicacion
        Parametros.Rows.Add(Fila)

         objInformesBD.SP_INFORMES_DISTRIBUCION_STOCKDPT_ARTCOLOR(Parametros)

     End Sub

     Public Function MaestroClienteBuscar(ByVal codCli As String, ByVal idCanal As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Fila = Parametros.NewRow
        Fila.Item(0) = codCli
        Fila.Item(1) = idCanal

         Parametros.Rows.Add(Fila)
        objInformesBD.MaestroClienteBuscar(Parametros)

         MaestroClienteBuscar = objInformesBD.Tabla
    End Function

     Public Function SP_MAESTRO_CLIENTES_CODEXT_LEER(ByVal codExt As String) As DataTable

         Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 0
            Parametros.Columns.Add(New DataColumn)
        Next

         Fila = Parametros.NewRow
        Fila.Item(0) = codExt

         Parametros.Rows.Add(Fila)
        objInformesBD.SP_MAESTRO_CLIENTES_CODEXT_LEER(Parametros)

         SP_MAESTRO_CLIENTES_CODEXT_LEER = objInformesBD.Tabla

     End Function

     Public Sub SP_DISTRIBUCION_REPARTIDORES_COMEX_LISTAR()
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_DISTRIBUCION_REPARTIDORES_COMEX_LISTAR()
        RaiseEvent REPARTIDORES_LISTAR(objInformesBD.Tabla)
    End Sub

     Public Sub SP_DISTRIBUCION_REPARTIDORES_LISTAR()
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_DISTRIBUCION_REPARTIDORES_LISTAR()
        RaiseEvent REPARTIDORES_LISTAR(objInformesBD.Tabla)
    End Sub

     Public Sub SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_ARTCOLOR(ByVal idArt, ByVal idColor, ByVal idColec)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = idArt
        Fila.Item(1) = idColor
        Fila.Item(2) = idColec

         Parametros.Rows.Add(Fila)

         objInformesBD.SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_ARTCOLOR(Parametros)

     End Sub

     Public Sub SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB(ByVal ppVarcoleccion, ByVal idRubro, ByVal idSubRubro)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = ppVarcoleccion
        Fila.Item(1) = idRubro
        Fila.Item(2) = idSubRubro

         Parametros.Rows.Add(Fila)

         objInformesBD.SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB(Parametros)

     End Sub

     Public Sub SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB_SoloCONT(ByVal ppVarcoleccion, ByVal idRubro, ByVal idSubRubro)
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)
        Fila = Parametros.NewRow
        Fila.Item(0) = ppVarcoleccion
        Fila.Item(1) = idRubro
        Fila.Item(2) = idSubRubro

         Parametros.Rows.Add(Fila)

         objInformesBD.SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB_SoloCONT(Parametros)

     End Sub

     Public Function EstadosListar() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.EstadosListar()
        EstadosListar = objInformesBD.Tabla
    End Function

     Public Function PrioridadesListar() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.PrioridadesListar()
        PrioridadesListar = objInformesBD.Tabla
    End Function

     Public Function VendedoresListar() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.VendedoresListar()
        VendedoresListar = objInformesBD.Tabla
    End Function

     Public Function ClientesListar(ByVal idVendedor, ByVal idColec) As DataTable
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.InicializarDatos()

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Columns.Add(New DataColumn)

         Fila = Parametros.NewRow
        Fila.Item(0) = idVendedor
        Fila.Item(1) = idColec

         Parametros.Rows.Add(Fila)

         objInformesBD.ClientesListar(Parametros)
        ClientesListar = objInformesBD.Tabla
    End Function

     Public Function DepositosBuscarTodos() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.DepositosBuscarTodos()
        DepositosBuscarTodos = objInformesBD.Tabla
    End Function

     Public Function ListarColecciones() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.SP_MAESTRO_COLECCIONES_LISTAR()
        ListarColecciones = objInformesBD.Tabla
    End Function

     Public Function ListarColecciones_TODAS() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.SP_MAESTRO_COLECCIONES_LISTAR_TODAS()
        ListarColecciones_TODAS = objInformesBD.Tabla
    End Function

     Public Function SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC(ByVal idcolec As Integer) As DataTable
        Dim I As Integer
        objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idcolec)

         objInformesBD.SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC(Parametros)
        SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC = objInformesBD.Tabla

     End Function

     Public Function SP_MAESTRO_RUBROS_LEER_CALZADO_GRAL(ByVal idcolec As Integer) As DataTable

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(idcolec)

         objInformesBD.SP_MAESTRO_RUBROS_LEER_CALZADO_GRAL(Parametros)
        SP_MAESTRO_RUBROS_LEER_CALZADO_GRAL = objInformesBD.Tabla

     End Function

     Public Function SP_MAESTRO_RUBROS_LEER_SIN_TODOS(ByVal idcolec As Integer) As DataTable

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(idcolec)

         objInformesBD.SP_MAESTRO_RUBROS_LEER_SIN_TODOS(Parametros)
        SP_MAESTRO_RUBROS_LEER_SIN_TODOS = objInformesBD.Tabla

     End Function
    Public Function SP_MAESTRO_RUBROS_LEER_TODOS(ByVal idcolec As Integer) As DataTable

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(idcolec)

         objInformesBD.SP_MAESTRO_RUBROS_LEER_TODOS(Parametros)
        SP_MAESTRO_RUBROS_LEER_TODOS = objInformesBD.Tabla

     End Function

     Public Function SedesBuscar(ByVal Sede As String) As DataTable
        objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(Sede)

         objInformesBD.SedesBuscar(Parametros)
        SedesBuscar = objInformesBD.Tabla
    End Function

     Public Function DepositosBuscar(ByVal Deposito As String) As DataTable
        objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(Deposito)

         objInformesBD.DepositosBuscar(Parametros)
        DepositosBuscar = objInformesBD.Tabla
    End Function

     Public Function SubDepositosBuscar(ByVal SubDeposito As String) As DataTable
        objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(SubDeposito)

         objInformesBD.SubDepositosBuscar(Parametros)
        SubDepositosBuscar = objInformesBD.Tabla
    End Function

     Public Function UbicacionesBuscar(ByVal Ubicacion As String) As DataTable
        objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(Ubicacion)

         objInformesBD.UbicacionesBuscar(Parametros)
        UbicacionesBuscar = objInformesBD.Tabla
    End Function

     Public Function SP_REQUERIMIENTOS_ESTADOS_LISTAR() As DataTable
        objInformesBD = New InformesBD.InformesBD

         objInformesBD.SP_REQUERIMIENTOS_ESTADOS_LISTAR()
        SP_REQUERIMIENTOS_ESTADOS_LISTAR = objInformesBD.Tabla
    End Function

     Public Function SP_MAESTRO_SUBRUBROS_XLINEA_LEER(ByVal idLinea As Integer) As DataTable

         Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idLinea)

         objInformesBD.SP_MAESTRO_SUBRUBROS_XLINEA_LEER(Parametros)
        SP_MAESTRO_SUBRUBROS_XLINEA_LEER = objInformesBD.Tabla

     End Function

     Public Function SP_REQUERIMIENTOS_CLIENTES_HABILITADOS_BUSCAR_XCLIENTE(ByVal IDCLIENTE As Integer, ByVal IDCOLEC As Integer)
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(IDCLIENTE, IDCOLEC)

         objInformesBD.SP_REQUERIMIENTOS_CLIENTES_HABILITADOS_BUSCAR_XCLIENTE(Parametros)
        SP_REQUERIMIENTOS_CLIENTES_HABILITADOS_BUSCAR_XCLIENTE = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_CLIENTES_HABILITADOS_LISTAR(ByVal IDVENDEDOR As Integer, ByVal IDCOLEC As Integer, ByVal HAB As Integer)
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 3
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(IDVENDEDOR, IDCOLEC, HAB)

         objInformesBD.SP_INFORMES_CLIENTES_HABILITADOS_LISTAR(Parametros)
        SP_INFORMES_CLIENTES_HABILITADOS_LISTAR = objInformesBD.Tabla

     End Function
    Public Function SP_MOVIMIENTOS_TIPOS_LEER()

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MOVIMIENTOS_TIPOS_LEER()

         SP_MOVIMIENTOS_TIPOS_LEER = objInformesBD.Tabla

     End Function

     Public Function InformesStockIngresosPorDeposito(ByVal codDeposito As String, ByVal idArt As Integer, ByVal idColor As Integer, ByVal idTalle As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 4
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idArt, idColor, idTalle)

         objInformesBD.InformesStockIngresosPorDeposito(Parametros)
        InformesStockIngresosPorDeposito = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_STOCK_INGRESOS_POR_DEPOSITO_TEMPORADA(ByVal codDeposito As String, ByVal idtemp As Integer) As DataTable

         Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idtemp)

         objInformesBD.SP_INFORMES_STOCK_INGRESOS_POR_DEPOSITO_TEMPORADA(Parametros)
        SP_INFORMES_STOCK_INGRESOS_POR_DEPOSITO_TEMPORADA = objInformesBD.Tabla

     End Function

     Public Function InformesStockEgresosPorDeposito(ByVal codDeposito As String, ByVal idArt As Integer, ByVal idColor As Integer, ByVal idTalle As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 4
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idArt, idColor, idTalle)

         objInformesBD.InformesStockEgresosPorDeposito(Parametros)
        InformesStockEgresosPorDeposito = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_STOCK_EGRESOS_POR_DEPOSITO_TEMPORADA(ByVal codDeposito As String, ByVal IDTEMP As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, IDTEMP)

         objInformesBD.SP_INFORMES_STOCK_EGRESOS_POR_DEPOSITO_TEMPORADA(Parametros)
        SP_INFORMES_STOCK_EGRESOS_POR_DEPOSITO_TEMPORADA = objInformesBD.Tabla

     End Function
    Public Function InformesStockAjustesPorDeposito(ByVal codDeposito As String, ByVal idArt As Integer, ByVal idColor As Integer, ByVal idTalle As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 4
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idArt, idColor, idTalle)

         objInformesBD.InformesStockAjustesPorDeposito(Parametros)
        InformesStockAjustesPorDeposito = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_STOCK_AJUSTES_POR_DEPOSITO_TEMPORADA(ByVal codDeposito As String, ByVal idTEMP As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idTEMP)

         objInformesBD.SP_INFORMES_STOCK_AJUSTES_POR_DEPOSITO_TEMPORADA(Parametros)
        SP_INFORMES_STOCK_AJUSTES_POR_DEPOSITO_TEMPORADA = objInformesBD.Tabla

     End Function

     Public Function InformesStockPorDeposito(ByVal codDeposito As String, ByVal idArt As Integer, ByVal idColor As Integer, ByVal idTalle As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 4
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idArt, idColor, idTalle)

         objInformesBD.InformesStockPorDeposito(Parametros)
        InformesStockPorDeposito = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_STOCK_POR_DEPOSITO_TEMPORADA(ByVal codDeposito As String, ByVal idTEMP As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codDeposito, idTEMP)

         objInformesBD.SP_INFORMES_STOCK_POR_DEPOSITO_TEMPORADA(Parametros)
        SP_INFORMES_STOCK_POR_DEPOSITO_TEMPORADA = objInformesBD.Tabla

     End Function

     Public Function InformesStockEgresosLincePorDeposito(ByVal idArt As Integer, ByVal idColor As Integer, ByVal idTalle As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 3
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idArt, idColor, idTalle)

         objInformesBD.InformesStockEgresosLincePorDeposito(Parametros)
        InformesStockEgresosLincePorDeposito = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_STOCK_TOTALES_POR_GRUPO_POR_TEMPORADA(ByVal IDTEMP As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(IDTEMP)

         objInformesBD.SP_INFORMES_STOCK_TOTALES_POR_GRUPO_POR_TEMPORADA(Parametros)
        SP_INFORMES_STOCK_TOTALES_POR_GRUPO_POR_TEMPORADA = objInformesBD.Tabla

     End Function

     Public Function ColeccionesListar() As DataTable
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.ColeccionesListar()
        ColeccionesListar = objInformesBD.Tabla
    End Function
    Public Function SP_MAESTRO_CANALES_LISTAR() As DataTable

         objInformesBD = New InformesBD.InformesBD

         objInformesBD.SP_MAESTRO_CANALES_LISTAR()
        SP_MAESTRO_CANALES_LISTAR = objInformesBD.Tabla

     End Function
    Public Function SP_MAESTRO_CANALES_LISTAR_TODOS() As DataTable

         objInformesBD = New InformesBD.InformesBD

         objInformesBD.SP_MAESTRO_CANALES_LISTAR_TODOS()
        SP_MAESTRO_CANALES_LISTAR_TODOS = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_MOVIMIENTOS_MERCADERIA_AJUSTES_CALZADOS(ByVal FechaD As String, ByVal FechaH As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(FechaD, FechaH)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_MOVIMIENTOS_MERCADERIA_AJUSTES_CALZADOS(Parametros)
        SP_INFORMES_MOVIMIENTOS_MERCADERIA_AJUSTES_CALZADOS = objInformesBD.Tabla
    End Function

     Public Function SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO(ByVal idcolec As Integer, ByVal idrubro As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 2
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idcolec, idrubro)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO(Parametros)
        SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO_CALZADOS(ByVal idcolec As Integer) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idcolec)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO_CALZADOS(Parametros)
        SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO_CALZADOS = objInformesBD.Tabla

     End Function

     Public Function SP_INFORMES_ARTICULOS_COMEX_PRECIO_LEER(ByVal idcolec As Integer, ByVal idrubro As Integer, ByVal idsubrubro As Integer)

         Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 3
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idcolec, idrubro, idsubrubro)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_INFORMES_ARTICULOS_COMEX_PRECIO_LEER(Parametros)
        SP_INFORMES_ARTICULOS_COMEX_PRECIO_LEER = objInformesBD.Tabla

     End Function
    Public Function SP_DESPACHOS_LEER_XCLIENTE(ByVal IDCLIENTE As Integer)

         Parametros = New DataTable
        Parametros.Columns.Add(New DataColumn)
        Parametros.Rows.Add(IDCLIENTE)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_DESPACHOS_LEER_XCLIENTE(Parametros)
        SP_DESPACHOS_LEER_XCLIENTE = objInformesBD.Tabla

     End Function

     Public Function MaestroClientesLeerxCodigo(ByVal codCliente As String) As DataTable
        Dim I As Integer

         Parametros = New DataTable
        For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(codCliente)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.MaestroClientesLeerxCodigo(Parametros)

         MaestroClientesLeerxCodigo = objInformesBD.Tabla

     End Function

     Public Function SP_MAESTRO_CLIENTES_LEERXCODEXTERNO(ByVal CODEXTERNO As String) As DataTable

         Dim I As Integer
        Parametros = New DataTable
        For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(CODEXTERNO)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_MAESTRO_CLIENTES_LEERXCODEXTERNO(Parametros)
        SP_MAESTRO_CLIENTES_LEERXCODEXTERNO = objInformesBD.Tabla

     End Function
    Public Function SP_CONTRATEMPORADA_PICKING_UBICACIONES_BUSCAR(ByVal posicion As String) As DataTable

         Dim I As Integer
        Parametros = New DataTable
        For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(posicion)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_CONTRATEMPORADA_PICKING_UBICACIONES_BUSCAR(Parametros)
        SP_CONTRATEMPORADA_PICKING_UBICACIONES_BUSCAR = objInformesBD.Tabla

     End Function

     Public Function SP_SISTEMA_USUARIOS_MOVIMIENTOS_LISTAR(ByVal Activo As String) As DataTable

         Dim I As Integer
        Parametros = New DataTable
        For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(Activo)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.SP_SISTEMA_USUARIOS_MOVIMIENTOS_LISTAR(Parametros)
        SP_SISTEMA_USUARIOS_MOVIMIENTOS_LISTAR = objInformesBD.Tabla

     End Function

     Public Sub StockArtSalonInsertar(ByVal codArt As String, codColor As String, codTalle As String)

         Dim I As Integer
        Parametros = New DataTable
        For I = 1 To 3
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(codArt, codColor, codTalle)

         objInformesBD = New InformesBD.InformesBD
        objInformesBD.StockArtSalonInsertar(Parametros)
    End Sub

     Public Sub StockArtSalonEliminar()
        objInformesBD = New InformesBD.InformesBD
        objInformesBD.StockArtSalonEliminar()
    End Sub

     Public Function SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC_TODOS(ByVal idcolec As Integer) As DataTable
        Dim I As Integer
        objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable

         For I = 1 To 1
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(idcolec)

         objInformesBD.SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC_TODOS(Parametros)
        SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC_TODOS = objInformesBD.Tabla

     End Function

     Public Function ObtenerDatosConImagenes(ByVal unidColecCanal As Integer, ByVal unCanal As Integer, ByVal unIdLinea As Integer,
                                            ByVal unIdRubroCanal As Integer, ByVal unSubRubro As Integer) As DataTable  ' ByVal unMes, ByVal unCont) As DataTable

         objInformesBD = New InformesBD.InformesBD

         Parametros = New DataTable

         For I As Integer = 0 To 4
            Parametros.Columns.Add(New DataColumn)
        Next
        Parametros.Rows.Add(unidColecCanal, unCanal, unIdLinea, unIdRubroCanal, 0) 'el cero es subrubro   ' unMes, unCont)

         objInformesBD.SP_ObtenerDatosConImagenes(Parametros)
        ObtenerDatosConImagenes = objInformesBD.Tabla
    End Function

     Public Function SP_INFORMES_CONTRATEMPORADA_REPORTE_FALLAS(ByVal FechaDesde As String, ByVal FechaHasta As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(FechaDesde, FechaHasta)

         objInformesBD.SP_INFORMES_CONTRATEMPORADA_REPORTE_FALLAS(Parametros)
        SP_INFORMES_CONTRATEMPORADA_REPORTE_FALLAS = objInformesBD.Tabla
    End Function

     Public Function SP_INFORMES_FALLAS_RECLAMOS_DEVOLUCIONES(ByVal FechaDesde As String, ByVal FechaHasta As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(FechaDesde, FechaHasta)

         objInformesBD.SP_INFORMES_FALLAS_RECLAMOS_DEVOLUCIONES(Parametros)
        SP_INFORMES_FALLAS_RECLAMOS_DEVOLUCIONES = objInformesBD.Tabla
    End Function



    Public Function SP_INFORMES_CONTRATEMPORADA_REPORTE_RECLAMOS(ByVal FechaDesde As String, ByVal FechaHasta As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(FechaDesde, FechaHasta)

         objInformesBD.SP_INFORMES_CONTRATEMPORADA_REPORTE_RECLAMOS(Parametros)
        SP_INFORMES_CONTRATEMPORADA_REPORTE_RECLAMOS = objInformesBD.Tabla
    End Function

     Public Function SP_INFORMES_MOVIMIENTOS_AJUSTES_REPORTE(ByVal FechaDesde As String, ByVal FechaHasta As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(FechaDesde, FechaHasta)

         objInformesBD.SP_INFORMES_MOVIMIENTOS_AJUSTES_REPORTE(Parametros)
        SP_INFORMES_MOVIMIENTOS_AJUSTES_REPORTE = objInformesBD.Tabla
    End Function

     Public Function SP_INFORMES_MOVIMIENTOS_MERCADERIA_REPORTE_LOCALES(ByVal FechaDesde As String, ByVal FechaHasta As String) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 1
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(FechaDesde, FechaHasta)

         objInformesBD.SP_INFORMES_MOVIMIENTOS_MERCADERIA_REPORTE_LOCALES(Parametros)
        SP_INFORMES_MOVIMIENTOS_MERCADERIA_REPORTE_LOCALES = objInformesBD.Tabla
    End Function

     Public Function SP_INFORMES_MOVIMIENTOS_MERCADERIA_PRODUCCION(ByVal FechaDesde As String, ByVal FechaHasta As String, ByVal calzado As Boolean) As DataTable
        Dim I As Integer

         objInformesBD = New InformesBD.InformesBD
        Parametros = New DataTable
        For I = 0 To 2
            Parametros.Columns.Add(New DataColumn)
        Next

         Parametros.Rows.Add(FechaDesde, FechaHasta, calzado)

         objInformesBD.SP_INFORMES_MOVIMIENTOS_MERCADERIA_PRODUCCION(Parametros)
        SP_INFORMES_MOVIMIENTOS_MERCADERIA_PRODUCCION = objInformesBD.Tabla
    End Function

 #End Region

 #Region "Eventos"

     Public Sub objInformesBD_Resultado(ByVal ID As Integer, ByVal Titulo As String, ByVal Mensaje As String) _
         Handles objInformesBD.Resultado

         RaiseEvent MensajeSistema(ID, Titulo, Mensaje)
    End Sub

 #End Region

 #Region "Propiedades"

     Public Property BASE() As String
        Get
            BASE = objInformesBD.BASE
        End Get
        Set(ByVal value As String)
            objInformesBD.BASE = value
        End Set
    End Property

     Public Property Tabla() As DataTable
        Get
            Return objInformesBD.Tabla
        End Get
        Set(ByVal value As DataTable)
            AuxTabla = value
        End Set
    End Property

 #End Region

 End Class

en No hay comentarios:
Suscribirse a: Entradas (Atom)

Los mail de oulook no se pueden reenviar.

 cuando en el asunto poseen un caracter especial por ejemplo @#$ los correos no salen y no te muestra ningun correo de rebote, especialmente...

  • Methods access 2010
    https://msdn.microsoft.com/en-us/library/office/ff192694.aspx filtros DoCmd.SetFilter Method (Access) Office 2013 and later Ot...
  • Operadores Para Microsoft Access
    Tabla de operadores Access para Office 365   Access 2019   Access 2016   Access 2013   Access 2010   Access 2007 Un operador es...