INFORMESBD.VB APLICACION: INFORMES

Imports System.Data

Public Class InformesBD

#Region "Declaraciones"

    Public Event Resultado(ByVal ID As Integer, ByVal Titulo As String, ByVal Mensaje As String)

    Public Shared cnn As OleDb.OleDbConnection
    Public Shared cmd As OleDb.OleDbCommand
    Public Shared cmd2 As OleDb.OleDbCommand
    Public Shared cmd3 As OleDb.OleDbCommand

    Private SetBase As String
    Private rst As OleDb.OleDbDataReader
    Private rst2 As OleDb.OleDbDataReader
    Private DataTableAux As DataTable
    Private AccesoBDDiario As AccesoArchivosSigmaDiario.AccesoXMLDiario
    Private AccesoBD As AccesoArchivos.AccesoXML
    Private AcessoArch As AccesoArchivos.AccesoArchivos
    Private AcessoArchDiario As AccesoArchivosSigmaDiario.AccesoArchivosSigmaDiario

#End Region

#Region "Queries"

    Public Sub SP_INFORMES_COMEX_STOCK_PEROLES_DINAMICO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_COMEX_STOCK_PEROLES_DINAMICO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_VERSIONES_LEER(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_VERSIONES_LEER", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_VENTAS_REQUAREMI_DINAMICO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_VENTAS_REQUAREMI_DINAMICO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_STOCK_CONTROL_DINAMICO_ABIERTAxMOVIMIENTOS(ByVal Param As DataTable)
        'InicializarDatosSigmaDiario()
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_CONTROL_DINAMICO_ABIERTAxMOVIMIENTOS", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_STOCK_CONTROL_DINAMICO(ByVal Param As DataTable)
        'InicializarDatosSigmaDiario()
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_CONTROL_DINAMICO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_VENTAS_REQUASALON_DINAMICO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_VENTAS_REQUASALON_DINAMICO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_ADUANA_PLANILLA_DINAMICO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_ADUANA_PLANILLA_DINAMICO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_VENTAS_STOCK_PEROLES_DINAMICO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_VENTAS_STOCK_PEROLES_DINAMICO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_SISTEMAS_PARAMETROS_BUSCAR(ByVal Param As DataTable)
        InicializaQueryParam("SP_SISTEMAS_PARAMETROS_BUSCAR", Param)
        CargarDatos()
    End Sub

    '****************************************
    Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_PERFIL(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_PERFIL", Param)
        CargarDatos()
    End Sub

    Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_USUARIO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_LISTADO_CONTROLES_POR_USUARIO", Param)
        CargarDatos()
    End Sub
    Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_MODIFICAR_ESTADO_CONTROLES_POR_USUARIO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_MODIFICAR_ESTADO_CONTROLES_POR_USUARIO", Param)
        CargarDatos()
    End Sub




    '***************************************



    Public Sub StockArtSalonInsertar(ByVal Param As DataTable)
        InicializaQueryParam("SP_INFORMES_STOCK_ARTICULOS_SALON_INSERTAR", Param)
        CargarDatos()
    End Sub

    Public Sub StockArtSalonEliminar()
        InicializaQuery("SP_INFORMES_STOCK_ARTICULOS_SALON_ELIMINAR")
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_COLECCIONES_LISTAR()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_COLECCIONES_LISTAR")
        CargarDatos()
    End Sub
    ' Llama los Canales Reghisbot
Public Sub SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_CANALES()
InicializarDatos()
        InicializaQuery("SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_CANALES")
CargarDatos()
End Sub
    ' Llama las Colecciones Reghisbot
Public Sub SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_COLECCIONES()
InicializarDatos()
InicializaQuery("SP_INFORMES_REPORTE_ADMVENTAS_ARTCUMPLIDOS_COLECCIONES")
CargarDatos()
End Sub
   
Public Sub SP_MAESTRO_TEMPORADAS_LISTAR()
InicializarDatos()
InicializaQuery("SP_MAESTRO_TEMPORADAS_LISTAR")
CargarDatos()
End Sub

    Public Sub SP_REMITOS_USUARIOS_REL_LISTAR()
        InicializarDatos()
        InicializaQuery("SP_REMITOS_USUARIOS_REL_LISTAR")
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_CANALES_LISTAR()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_CANALES_LISTAR")
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_CANALES_LISTAR_TODOS()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_CANALES_LISTAR_TODOS")
        CargarDatos()
    End Sub

    Public Sub ColeccionesListar()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_COLECCIONES_LISTAR")
        CargarDatos()
    End Sub

    Public Sub MaestroArticulosBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_ARTICULOS_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub MaestroMesesPorColeccion(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_MESES_POR_COLECCION_LEER", Param)
        CargarDatos()
    End Sub


    Public Sub SP_MAESTRO_SUBCA_LISTAR()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_SUBCA_LISTAR")
        CargarDatos()
    End Sub


    Public Sub MaestroGruposDepositosListar()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_GRUPOS_DEPOSITOS_LISTAR")
        CargarDatos()
    End Sub

    Public Sub MaestroColoresBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_COLORES_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub MaestroTallesBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_TALLES_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub MaestroClienteBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTROCLIENTES_LEER_CODCLI", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_CLIENTES_CODEXT_LEER(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_CLIENTES_CODEXT_LEER", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTROCLIENTES_LEER(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTROCLIENTES_LEER ", PARAM)
        CargarDatos()
    End Sub

    Public Sub MAESTRO_COLECCIONES_LISTAR()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_COLECCIONES_LISTAR")
        CargarDatos()
    End Sub


    Public Sub SP_MAESTRO_COLECCIONES_LISTAR_TODAS()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_COLECCIONES_LISTAR_TODAS")
        CargarDatos()
    End Sub


    Public Sub SP_PEDIDOS_COMEX_DISTRIBUCION(ByVal PARAM As DataTable)
        InicializaQueryParam("SP_PEDIDOS_COMEX_DISTRIBUCION", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_PEDIDOS_COMEX_DISTRIBUCION_INSERT(ByVal PARAM As DataTable)
        InicializaQueryParam("SP_PEDIDOS_COMEX_DISTRIBUCION_INSERT", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION(ByVal PARAM As DataTable)
        InicializaQueryParam("SP_HERRAMIENTAS_SIGMA_SEGURIDAD_INGRESAR_CONTROL_POR_APLICACION", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_SISTEMA_PARAMETROS_VALOR_LEER(ByVal Param As DataTable)
        InicializaQueryParam("SP_SISTEMA_PARAMETROS_VALOR_LEER", Param)
        CargarDatos()
    End Sub

    Public Sub SP_VALIDA_MENU_APLICACIONES(ByVal Param As DataTable)
        InicializaQueryParam("SP_VALIDA_MENU_APLICACIONES", Param)
        CargarDatos()
    End Sub

    Public Sub SP_VALIDA_ACCIONES(ByVal Param As DataTable)
        InicializaQueryParam("SP_VALIDA_ACCIONES", Param)
        CargarDatos()
    End Sub

    Public Sub SP_SISTEMA_USUARIOS_LEERXPERFIL(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_SISTEMA_USUARIOS_LEERXPERFIL", PARAM)
        CargarDatos()
    End Sub

    Public Sub SistemaReportesLeer(ByVal PARAM As DataTable)
        '# V1.2.0.1 - Función para buscar un reporte
        InicializarDatos()
        InicializaQueryParam("SP_SISTEMA_REPORTES_LEER", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_LOG_MENSAJES(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_LOG_MENSAJES", PARAM)
        CargarDatos()
    End Sub

    Public Sub ArticulosBuscar(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_ARTICULOS_BUSCAR", PARAM)
        CargarDatos()
    End Sub

    Public Sub ColoresBuscar(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_COLORES_BUSCAR", PARAM)
        CargarDatos()
    End Sub

    Public Sub BuscarEmail(ByVal Param As DataTable)
        InicializaQueryParam("SP_SISTEMAS_PARAMETROS_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub ClientesBuscar(ByVal Param As DataTable)
        InicializaQueryParam("SP_MAESTROCLIENTES_LEER_CODCLI", Param)
        CargarDatos()
    End Sub

    Public Sub SP_SISTEMA_USUARIOS_COMEX_LISTAR()
        InicializaQuery("SP_SISTEMA_USUARIOS_COMEX_LISTAR")
        CargarDatos()
    End Sub

    Public Sub BuscarPlan(ByVal Param As DataTable)
        InicializaQueryParam("SP_INFORMES_PLANCOMERCIAL_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub ListarRubros(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRORUBROS_LEER", Param)
        CargarDatos()
    End Sub

    Public Sub ListarRubros2()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_RUBROS_LISTAR")
        CargarDatos()
    End Sub

    Public Sub ListarSubRubros(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTROSUBRUBROS_LEERXCOLEC", Param)
        CargarDatos()
    End Sub

    Public Sub ListarSubRubros_Stock(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTROSUBRUBROS_LEERXCOLEC", Param)
        CargarDatos()
    End Sub

    Public Sub RubrosBuscar(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_RUBROS_BUSCAR", PARAM)
        CargarDatos()
    End Sub

    Public Sub SubRubrosBuscar(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_SUBRUBROS_BUSCAR", PARAM)
        CargarDatos()
    End Sub

    Public Sub LeerRubros_Stock(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_RUBROS_LISTARXCOLEC", PARAM)
        CargarDatos()
    End Sub


    Public Sub LeerRubros_TODOS(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_RUBROS_LEER_TODOS", PARAM)
        CargarDatos()
    End Sub

    Public Sub LeerRubros()
        InicializarDatos()
        InicializaQuery("SP_MAESTRO_RUBROS_LISTAR")
        CargarDatos()
    End Sub

    Public Sub ExisteArtColor(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_ARTICULOS_RELACIONAL_VALIDAR", Param)
        CargarDatos()
    End Sub

    Public Sub LeerPatrones(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_ADMVENTAS_PLANILLA_PATRONES_LEER", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_DISTRIBUCION_STOCKDPT_RUBROSUB(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_DISTRIBUCION_STOCKDPT_RUBROSUB", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_DISTRIBUCION_STOCKDPT_ARTCOLOR(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_DISTRIBUCION_STOCKDPT_ARTCOLOR", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_ARTICULOS_RELACIONAL_VALIDAR(ByVal param As DataTable)
        InicializaQueryParam("SP_MAESTRO_ARTICULOS_RELACIONAL_VALIDAR", param)
        CargarDatos()
    End Sub

    Public Sub SP_DISTRIBUCION_REPARTIDORES_COMEX_LISTAR()
        InicializaQuery("SP_DISTRIBUCION_REPARTIDORES_COMEX_LISTAR")
        CargarDatos()
    End Sub

    Public Sub SP_DISTRIBUCION_REPARTIDORES_LISTAR()
        InicializaQuery("SP_DISTRIBUCION_REPARTIDORES_LISTAR")
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_ARTCOLOR(ByVal param As DataTable)
        InicializaQueryParam("SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_ARTCOLOR", param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB_SoloCONT(ByVal param As DataTable)
        InicializaQueryParam("SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB_SoloCONT", param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB(ByVal param As DataTable)
        InicializaQueryParam("SP_INFORMES_ADMVENTAS_STOCKDPT_DISPONIBLE_RUBROSUB", param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC", Param)
        CargarDatos()
    End Sub

    Public Sub PrioridadesListar()
        InicializarDatos()
        InicializaQuery("SP_ADMVENTAS_PLANILLA_PRIORIDADES_LISTAR")
        CargarDatos()
    End Sub
    Public Sub EstadosListar()
        InicializarDatos()
        InicializaQuery("SP_DISTRIBUCION_ESTADOS_LISTAR")
        CargarDatos()
    End Sub

    Public Sub VendedoresListar()
        InicializarDatos()
        InicializaQuery("SP_PEDIDOS_VENDEDORES_LISTAR")
        CargarDatos()
    End Sub

    Public Sub ClientesListar(ByVal param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_PEDIDOS_CLIENTES_LISTAR", param)
        CargarDatos()
    End Sub

    Public Sub DepositosBuscarTodos()
        InicializarDatos()
        InicializaQuery("SP_MOVIMIENTOS_DEPOSITOS_BUSCAR_TODOS")
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_RUBROS_LEER_CALZADO_GRAL(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_RUBROS_LEER_CALZADO_GRAL", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_RUBROS_LEER_SIN_TODOS(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_RUBROS_LEER_SIN_TODOS", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_RUBROS_LEER_TODOS(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_RUBROS_LEER_TODOS", Param)
        CargarDatos()
    End Sub

    Public Sub SedesBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MOVIMIENTOS_SEDES_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub DepositosBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MOVIMIENTOS_DEPOSITOS_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub SubDepositosBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MOVIMIENTOS_SUBDEPOSITOS_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub UbicacionesBuscar(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MOVIMIENTOS_UBICACIONES_BUSCAR", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTROSUBRUBROS_LEER(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTROSUBRUBROS_LEER", Param)
        CargarDatos()
    End Sub


    Public Sub SP_MAESTRO_SUBRUBROS_LEER(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_SUBRUBROS_LEER", Param)
        CargarDatos()
    End Sub


    Public Sub SP_REQUERIMIENTOS_ESTADOS_LISTAR()
        InicializarDatos()
        InicializaQuery("SP_REQUERIMIENTOS_ESTADOS_LISTAR")
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_SUBRUBROS_XLINEA_LEER(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_SUBRUBROS_XLINEA_LEER", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_REQUERIMIENTOS_CLIENTES_HABILITADOS_BUSCAR_XCLIENTE(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_REQUERIMIENTOS_CLIENTES_HABILITADOS_BUSCAR_XCLIENTE", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_CLIENTES_HABILITADOS_LISTAR(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_CLIENTES_HABILITADOS_LISTAR", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_MOVIMIENTOS_TIPOS_LEER()
        InicializarDatos()
        InicializaQuery("SP_MOVIMIENTOS_TIPOS_LEER")
        CargarDatos()
    End Sub

    Public Sub InformesStockIngresosPorDeposito(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_INGRESOS_POR_DEPOSITO", PARAM)
        CargarDatos()
    End Sub
    Public Sub SP_INFORMES_STOCK_INGRESOS_POR_DEPOSITO_TEMPORADA(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_INGRESOS_POR_DEPOSITO_TEMPORADA", PARAM)
        CargarDatos()
    End Sub

    Public Sub InformesStockEgresosPorDeposito(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_EGRESOS_POR_DEPOSITO", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_STOCK_EGRESOS_POR_DEPOSITO_TEMPORADA(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_EGRESOS_POR_DEPOSITO_TEMPORADA", PARAM)
        CargarDatos()
    End Sub

    Public Sub InformesStockAjustesPorDeposito(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_AJUSTES_POR_DEPOSITO", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_STOCK_AJUSTES_POR_DEPOSITO_TEMPORADA(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_AJUSTES_POR_DEPOSITO_TEMPORADA", PARAM)
        CargarDatos()
    End Sub

    Public Sub InformesStockPorDeposito(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_POR_DEPOSITO", PARAM)
        CargarDatos()
    End Sub
    Public Sub SP_INFORMES_STOCK_POR_DEPOSITO_TEMPORADA(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_POR_DEPOSITO_TEMPORADA", PARAM)
        CargarDatos()
    End Sub

    Public Sub InformesStockEgresosLincePorDeposito(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_TOTALES_POR_GRUPO", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_STOCK_TOTALES_POR_GRUPO_POR_TEMPORADA(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_STOCK_TOTALES_POR_GRUPO_POR_TEMPORADA", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_MOVIMIENTOS_MERCADERIA_AJUSTES_CALZADOS(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_MOVIMIENTOS_MERCADERIA_AJUSTES_CALZADOS", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO_CALZADOS(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_REQUERIMIENTOS_STOCK_COMPARATIVO_CALZADOS", PARAM)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_ARTICULOS_COMEX_PRECIO_LEER(ByVal param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_ARTICULOS_COMEX_PRECIO_LEER", param)
        CargarDatos()
    End Sub

    Public Sub SP_DESPACHOS_LEER_XCLIENTE(ByVal PARAM As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_DESPACHOS_LEER_XCLIENTE", PARAM)
        CargarDatos()
    End Sub

    Public Sub MaestroClientesLeerxCodigo(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_CLIENTES_LEERXCODIGO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_CLIENTES_LEERXCODEXTERNO(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_CLIENTES_LEERXCODEXTERNO", Param)
        CargarDatos()
    End Sub

    Public Sub SP_CONTRATEMPORADA_PICKING_UBICACIONES_BUSCAR(ByVal param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_CONTRATEMPORADA_PICKING_UBICACIONES_BUSCAR", param)
        CargarDatos()
    End Sub


    Public Sub SP_SISTEMA_USUARIOS_MOVIMIENTOS_LISTAR(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_SISTEMA_USUARIOS_MOVIMIENTOS_LISTAR", Param)
        CargarDatos()
    End Sub

    Public Sub SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC_TODOS(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_MAESTRO_TEMPORADAS_LISTAR_XCOLEC_TODOS", Param)
        CargarDatos()
    End Sub

    Public Sub SP_ObtenerDatosConImagenes(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_PLANCOMERCIAL_CUBO_LEER_CON_IMAGENES", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_CONTRATEMPORADA_REPORTE_FALLAS(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_CONTRATEMPORADA_REPORTE_FALLAS", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_CONTRATEMPORADA_REPORTE_RECLAMOS(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_CONTRATEMPORADA_REPORTE_RECLAMOS", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_MOVIMIENTOS_AJUSTES_REPORTE(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_MOVIMIENTOS_AJUSTES_REPORTE", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_MOVIMIENTOS_MERCADERIA_REPORTE_LOCALES(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_MOVIMIENTOS_MERCADERIA_REPORTE_LOCALES", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_MOVIMIENTOS_MERCADERIA_PRODUCCION(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_MOVIMIENTOS_MERCADERIA_PRODUCCION", Param)
        CargarDatos()
    End Sub

    Public Sub SP_INFORMES_FALLAS_RECLAMOS_DEVOLUCIONES(ByVal Param As DataTable)
        InicializarDatos()
        InicializaQueryParam("SP_INFORMES_FALLAS_RECLAMOS_DEVOLUCIONES", Param)
        CargarDatos()
    End Sub


#End Region


#Region "Funciones"

    Public Sub InicializarDatosSigmaDiario()
        Try
            cnn = New OleDb.OleDbConnection
            AcessoArchDiario = New AccesoArchivosSigmaDiario.AccesoArchivosSigmaDiario
            cnn.ConnectionString = AcessoArchDiario.Conn.ConnectionString
            AccesoBDDiario = New AccesoArchivosSigmaDiario.AccesoXMLDiario
            BASE = AccesoBDDiario.BaseDatos

        Catch ex As Exception

            RaiseEvent Resultado(10097, "Mensaje del Sistema", "(10097): " & ex.Message)

        End Try

    End Sub

    Public Sub InicializarDatos()

        Try
            cnn = New OleDb.OleDbConnection
            AcessoArch = New AccesoArchivos.AccesoArchivos
            cnn.ConnectionString = AcessoArch.Conn.ConnectionString
            AccesoBD = New AccesoArchivos.AccesoXML
            BASE = AccesoBD.BaseDatos

        Catch ex As Exception
            RaiseEvent Resultado(10097, "Mensaje del Sistema", "(10097): " & ex.Message)
        End Try

    End Sub

    Public Sub InicializaQueryParam(ByVal StoreProc As String, ByVal Param As DataTable)
        Dim I, j As Integer
        cmd = New OleDb.OleDbCommand
        cmd.Connection = cnn
        StoreProc = "EXEC " & StoreProc
        With Param
            For I = 0 To .Rows.Count - 1
                For j = 0 To .Columns.Count - 1
                    cmd.Parameters.Add(New OleDb.OleDbParameter(.Columns(j).ColumnName, .Rows.Item(I).Item(j)))
                    StoreProc = StoreProc & " ?,"
                Next
            Next
        End With
        If Right(StoreProc, 1) = "," Then
            StoreProc = Mid(StoreProc, 1, Len(StoreProc) - 1)
        End If
        cmd.CommandText = StoreProc
    End Sub

    Public Sub InicializaQuery(ByVal StoreProc As String)
        cmd = New OleDb.OleDbCommand
        cmd.Connection = cnn
        StoreProc = "EXEC " & StoreProc
        cmd.CommandText = StoreProc
    End Sub

    Public Function CargarDataTable(ByVal rst As OleDb.OleDbDataReader) As DataTable

        Dim I As Integer
        Dim TieneDatos As Boolean
        Dim DataTable1 As DataTable
        Dim Fila As DataRow

        DataTable1 = New DataTable

        Try

            For I = 0 To rst.FieldCount - 1
                DataTable1.Columns.Add(New DataColumn)
                DataTable1.Columns(I).ColumnName = rst.GetName(I)
            Next

            TieneDatos = False
            If rst.Read Then
                For I = 0 To rst.FieldCount - 1
                    DataTable1.Columns(I).DataType = rst.Item(I).GetType()
                Next
                TieneDatos = True
            End If

            While TieneDatos
                Fila = Nothing
                Fila = DataTable1.NewRow
                For I = 0 To rst.FieldCount - 1
                    Fila.Item(I) = rst.Item(I)
                Next
                DataTable1.Rows.Add(Fila)
                If Not rst.Read Then
                    TieneDatos = False
                End If
            End While

        Catch ex As Exception
            RaiseEvent Resultado(10098, "Mensaje del Sistema", "(10098): " & ex.Message)
        Finally
            rst.Close()
        End Try


        Return DataTable1

    End Function

    Public Sub CargarDatos()
        Try
            cnn.Open()
            rst = cmd.ExecuteReader(CommandBehavior.Default)
            If rst.HasRows Then
                Tabla = CargarDataTable(rst)
            Else
                Tabla = Nothing
            End If

        Catch ex As Exception
            RaiseEvent Resultado(10099, "Mensaje del Sistema", "(10099): " & ex.Message)

        Finally
            cnn.Close()
        End Try
    End Sub

#End Region

#Region "Propiedades"

    Public Property Tabla() As DataTable
        Get
            Return DataTableAux
        End Get
        Set(ByVal value As DataTable)
            DataTableAux = value
        End Set
    End Property

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


#End Region

End Class