Monitor de licencias ASPEL

Hoy me enfrente con que el servidor de licencias de ASPEL no funcionaba y no me permita entrar en ninguno de los equipo (trabajo en red) y después de muchos intentes finalmente lo conseguí hacer funcionar.


1.- Desinstala y instala el servicio windows de licencias de usuario
  Abre una consola de comandos (CMD)
  Ejecuta la siguiente instrucción : C:\windowsSysWOW64\servlicasp /uninstall
  Reinicia la maquina.

Abre una consola de comandos (CMD)   Ejecuta la siguiente instrucción : C:\windowsSysWOW64\servlicasp /install
  Reinicia la maquina y asegurate de que el servicio se este ejecutando (Inicio->Servicios).


2.-Registra la DLL midas.dll
   regsvr32.exe c:\windows\system32\midas.dll


3.-Verifica que todas las referencias a a la DLL Midas.dll estén correctas en el reg edit
   Entrar al Regedit , seleccionar MI PC luego menú Edición / Buscar / midas.dll
  Verificar que todas las etiquetas que encuentres tengan la misma ruta y sea correcta es posible que hagan referencia a una ruta que ya no existe.


En otro momento ampliaré esta información.

Copia masiva de datos usando OracleBulkCopy y Array Binding

En algunas ocasiones en nuestros desarrollos nos encontramos con la necesidad de copiar o insertar una gran cantidad de registros a nuestra base de datos desde algún origen externo como lo puede ser un archivo u otra base de datos; En esta entrada les comparto dos formas en las que pueden realizar esta copia de información de manera eficiente

El poderoso método de copia masiva BulkCopy

No tiene rival cuando de copiar una gran cantidad de datos se trata, yo lo recomiendo cuando se trata de más de 10,000 registros e incluso menos si es que requieres que tu copia de datos sea rápida. Debes garantizar que los registros que copias no infrinjan alguna de las reglas de la tabla y solo se puede hacer la copia no se puede usar con sentencias sql.

public static void CopiaMasivao(List<Libro> listaLibros)

{

        OracleBulkCopy copiaMasiva = new OracleBulkCopy("tu cadena de conexion");

        

        copiaMasiva.BulkCopyTimeout = 600;

        copiaMasiva.DestinationTableName = "LIBRO";

        copiaMasiva.ColumnMappings.Add("ID", "ID");

        copiaMasiva.ColumnMappings.Add("TITULO", "TITULO");

        copiaMasiva.ColumnMappings.Add("ISBN", "ISBN");

        //El uso de mappings sólo se requiere cuando el origen y el destino tienen número u orden de

        //columnas/propiedades diferentes. 

     

        copiaMasiva.WriteToServer(listaLibros.ToDataTable());

       cmdInsert.Connection.Close()

}

//Método  que que permite convertir una IEnumerable (en este caso nuestra lista generica) en un DataTable 

  public static class IEnumerableExtensions

    {

      public static DataTable ToDataTable<T>(this IEnumerable<T> data)

            {

                PropertyDescriptorCollection properties = TypeDescriptor.GetProperties(typeof(T));

                var table = new DataTable();

                foreach (PropertyDescriptor prop in properties)

                    table.Columns.Add(prop.Name, Nullable.GetUnderlyingType(prop.PropertyType) ?? prop.PropertyType);

                foreach (T item in data)

                {

                    DataRow row = table.NewRow();

                    foreach (PropertyDescriptor prop in properties)

                        row[prop.Name] = prop.GetValue(item) ?? DBNull.Value;

                    table.Rows.Add(row);

                }

                return table;

            }

        

    }

---------------------------------------------------------------------------------------------------------------------

El  poco documentado método de Array Binding (hasta donde se sólo disponible para Oracle)

Este método es muy efectivo lo recomiendo cuando se trata de menos de 10,000 registros o bien cuando no no se puede hacer uso de BulkCopy. La diferencia respecto al método de registro por registros que este método manda la información por bloques a la BD en lugar de enviar uno por uno, el tamaño del bloque es determinado por la propiedad BatchSieze. Es un excelente método de realizar no solo copia de datos sino de ejecutar instrucciones SQL con parámetros asociados.

public static void CopiaArray(List<Libro> listaLibros)

{

            string strSql = @"INSERT INTO LIBRO (ID,  TITULO,  ISBN) 

                                        VALUES  (:ID, :TITULO, :ISBN)";

            OracleCommand cmdInsert= new OracleCommand(strSql);

            cmdInsert.Connection = new OracleConnection("tu cadena de conexion");

            cmdInsert.Parameters.Add(":ID",OracleDbType.Int64);

            cmdInsert.Parameters.Add(":TITULO",OracleDbType.Varchar2,255);

            cmdInsert.Parameters.Add(":ISBN",OracleDbType.Int64);

            cmdInsert.Connection.Open();

            cmdInsert.Parameters["ID"].Value =  listaLibros.Select(x => x.ID).ToArray();

            cmdInsert.Parameters["TITULO"].Value = listaLibros.Select(x => x.Titulo).ToArray();

            cmdInsert.Parameters["ISBN"].Value =listaLibros.Select(x => x.ISBN).ToArray();;

            cmd.ArrayBindCount = listaLibros.Count;

          

            cmdInsert.ExecuteNonQuery();

            cmdInsert.Connection.Close()

}

El viejo y conocido método de registro por registro  

Ineficiente a la hora de copiar o insertar un numero importante de registros,  ya que por cada execute del comando se realiza un viaje a la BD con el respectivo costo que esto implica. Solo es recomendable cuando la inserción puede generar un error  y se requiere que continúe  con las demás inserciones 

public static void CopiaRegistroPorRegistro(List<Libro> listaLibros)

{

            string strSql = @"INSERT INTO LIBRO (ID,  TITULO,  ISBN) 

                                        VALUES  (:ID, :TITULO, :ISBN)";

            OracleCommand cmdInsert= new OracleCommand(strSql);

            cmdInsert.Connection = new OracleConnection("tu cadena de conexion");

            cmdInsert.Parameters.Add(":ID",OracleDbType.Int64);

            cmdInsert.Parameters.Add(":TITULO",OracleDbType.Varchar2,255);

            cmdInsert.Parameters.Add(":ISBN",OracleDbType.Int64);

            cmdInsert.Connection.Open();

            foreach (Libro libro  in listaLibros)

            {

                cmdInsert.Parameters["ID"].Value = libro.ID;

                cmdInsert.Parameters["TITULO"].Value = libro.Titulo;

                cmdInsert.Parameters["ISBN"].Value = libro.ISBN;

                cmdInsert.ExecuteNonQuery();

            }

            cmdInsert.Connection.Close()

}

Estructura de Tablas Aspel SAE 6.0

Como ya hemos comentado en otra ocasión la mayoría de las aplicaciones de Aspel utilizan la base de datos FireBird. 

Para el caso de SAE la base de datos tiene una estructura mucho más decente, comparada con la estructura que tiene Aspel CAJA, aun así los nombres de las tablas no son tan claros y además no siempre resulta fácil lidiar con sus más de 150 Tablas. 

ASi que aqui ire agregando los nombres de las tablas más cpmunes usadas dentro de Aspel SAE:

De entrada las tablas contiene tiene una terminación que se coincide con el número de empresa así que por default las tablas tendrán la terminación 01. 

PRODUCTOS E INVENTARIOS
INVE01	Contiene el catálogo e información como: clave, nombre, método de costeo existencias entre otro. En caso de usar el multialmacén estas existencias representan las existencias globales de la empresa, es decir suman las existencias de cada almacén, para conocer las existencia de cada almacén cuando se hace uso del multialmacen se debe consultar la tabla (en cuanto recuerde el nombre lo actualiza pero es algo así como multi-).
INVE_CLIB01	Contiene los campos libres que se usa para el catálogo de productos estos campos suelen usarse para almacenar información adicional de productos como puede ser si ficha técnica u otros detalles.
PAGOS Y CUENTSA POR COBRAR
CUEN_M02	Contiene información respecto al pago que nos han realizado nuestros clientes.

Conexión de FireBird desde .NET (unable to complete network request to host)

Firebird es un gestor de base de datos que ha ganado popularidad y que en lo personal me gusta bastante, pues es muy ligero así que decidí hacer algunas pruebas con .NET y al principio resulto bastante complicado encontrar la información para conexión remota pero después de varias horas logré realizar la conexión 

Aquí les dejo una lista de pasos que deben realizar para poder conectarse desde .NET. Los primeros pasos son para configurar el servidor Firebird, y permitir atender peticiones provenientes de la red. 

En esta entrada mencionare los pasos que se requieren para realizar una conexión a una base de datos remota con el servidor de base de datos Firebird. 

1.-Instalar el Servidor Firebird (Super Clasic o Super Server) 

2.-Verificar que FireBbird se ejecute como un servicio

3.-Modificar el archivo de configuración, debemos descomentar las siguientes lineas:

  RemoteServiceName=gds_db

  RemoteServicePort=3050

4.-Crear un alias de la base de datos ( esto se hace en el archivo aliases.config) 

     MiAliasDeBaseDeDatos = C:\directorio\base.bdf

    

5.-Agregar(si aún no existe) una regla en el firewall de Windows para permitir la conexión al puerto 3050 (TCP)

6.- Reiniciar el servicio de Firebird Server (no confundir con Firebird Guardian) 

Con esto deberemos estar listos para conectarnos, de manera remota,  a nuestro servidor de base de 

Ahora para poder conectarnos desde .NET (en mi caso en particular uso C#) debemos realizar los siguientes pasos 

    1- Obtener el proveedor de datos nativo de FireBird 

         

        La manera más sencilla de instalarlo es desde la Consola del Administrador de Paquetes de Visual Estudio.

         Herramientas>>Administrador de Paquetes de Biblioteca>>Consola del Administrador de Paquetes. 

        En la consola que se mostrará (parte inferior) escribimos 

        Install-Package FirebirdSql.Data.FirebirdClient

      

       Esperamos a que termine la instalación que no suele tardar más de dos minutos y ahora ya podemos incluir el espacio de nombres en los archivos que sean necesarios 

       using FirebirdSql.Data.FirebirdClient;

    2.- Crear la cadena de conexión,

        private void testConnection()

       {

            string strCnn = "data source=192.168.0.2; initial catalog=MiAliasDeBaseDeDatos;user id=SYSDBA;password=masterkey;port number=3050"

           FbConnection cnn = new FbConnection();

           cnn.ConnectionString = strCnn;

    

            try

            {

                cnn.Open();

                cnn.Close();

                MessageBox.Show("Conexión Exitosa","Información");

            }

            catch (Exception er)

            {

                MessageBox.Show("Error al tratar de abrir la base dedatos. " + er.Message.ToString(), "Error");

            }

}

VPN Error 800. Habilitar Conexión L2LP o PPTP detrás de un NAT en Windows XP, Vista ó 7

Ya que tenemos configurado nuestro servidor VPN es común que al intentar conectarnos a la VPN desde un equipo con windows XP, Vista o 7 usando  el protocolo PPT o L2LP se genera un error 800. Este error puede tener muchas causas pero quizás la mas común es que Windos, (Xp, vista y 7)  de manera predeterminad no permite el uso de IPSEC en equipos que se encuentran detrás de un NAT (en este caso el ruteador ) . para solventar el problema hay que realizar los siguientes pasos.

1 Abrir el registro de Windows (Inicio->>Ejecuta "RegEdit" )

2.-Navegas hasta HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent

3.-Agregar la siguiente clave AssumeUDPEncapsulationContextOnSendRuley (Edicin->>Nuevo->>Valor Dword 32 bits)

4.-Establecer el valor de la entrada creada en 2 (Dar doble clic en la entrada creada para poder modificar el valor).

Reiniciar nuestro equipo

Con esto debemos poder conectarnos a nuestra VPN.

Saludos cordiales.

Nomenclatura Tablas Aspel Caja 3.5

Como lo he mencionado en otra entrada Aspel Caja  crea, diariamente, varias tablas para su funcionamiento cosa que es bastante ineficiente, creo que eso también ya lo he dicho en la entrada anterior pero no me cansaré de decirlo.

Siempre es importante saber la nomenclatura que usa CAJA, para nombrar a sus tablas

XCCDDMMX

Dónde

X : Puede ser

               V  = Tabla que contiene las notas de Ventas
               D  =  Tabla que contiene el Detalle de las notas de Venta  (es decir las partidas de cada nota)
                I   =  Tabla que contiene el detalle de los Impuestos cobrados en cada Nota
                B  = Tabla que contiene una Bitácora de los movimientos realizados en el sistema

CC: Número de caja o sucursal (esto depende si se esta administrando por caja o por sucursal)

DD: Día de operación  (dos dígitos)

MM= Mes de Operación (dos digitos)

X = Año de la operación ( una letra que representa el año de la operación  S= 2013, T=2015, U=2015 ...)

Sin duda a la gente de Aspel les gusta complicar las cosas, pues de entrada no hay necesidad de crear una tabla para cada día de operación y luego la nomenclatura que usaron (especialmente en los años), bueno eso no tiene perdón.

Finalmente les dejo una pequeña función en VBA que  Toma una fecha y devuelve una cadena que con el formato usado Por aspel caja, para que en caso de tener que hacer una consulta dinámica ustedes solo agreguen la tabla que desean consultar y el numero de caja o sucursal.

Este es un ejemplo de como se podría construir una consulta para obtener los datos de las notas de Venta de Aspel Caja para la tienda o caja 01 (V= Ventas , 01= No Caja o Sucursal)

qry = "         SELECT *  FROM  V01" +  FechaCaja(ToDay());


'-------------------------------------------------------------------------------------------------
'Devuelve una cadena que representa la fecha con la nomenclatura usada por Caja35 en el formato usado por aspel caja 3.5
'Formato de fecha Caja: ddmmx
'           Donde: dd= 2 digitos para dia mm= 2 digitos para mes x=  1  letra para año (S= 2013, T=2014)
'
'-------------------------------------------------------------------------------------------------
Private Function FechaCaja(Fecha As Date) As String
    Dim FecCaja As String
         
    'Obtiene el dìa al nombre de talba
    If Day(Fecha) < 10 Then
        FecCaja = "0" & CStr(Day(Fecha))
    Else
        FecCaja = FecCaja & CStr(Day(Fecha))
 
    End If
 
    'agrega el mes (mm) al nombre de la tabla
    If Month(Fecha) < 10 Then
        FecCaja = FecCaja & "0" & CStr(Month(Fecha))
    Else
        FecCaja = FecCaja & CStr(Month(Fecha))
    End If
 
    'Agrega la letra correspondiente al año, tomando en cuenta que en el sistena
    'El año 2013 corresponde a la letra S --1930 Representa el incremento inicial--
 
    FecCaja = FecCaja & Chr(Year(Fecha) - 1930)
 
    FechaCaja = FecCaja
 
End Function

UPS: AVR Regulación Automática de Energia

En esencia un UPS o NO-BREAK, es un dispositivo que provee energía eléctrica a los equipos que se encuentran conectados a el durante un corte o interrupción de energía eléctrica. 

 De manera adicional estos aparatos normalmente cuentan con un sistema de regulación automática de energía (AVR), este sistema tiene como función mantener el voltaje dentro de los limites aceptables es decir evita bajos voltajes o picos de voltajes.  Si el sistema de regulación automática no es capaz de mantener el voltaje en n valor aceptable entonces dejara de suministrar la energía de la fuente principal y entrarán en funcionamiento las baterías.