Instalación Prestashop 1.7

Se que este tema parece un poco trivial y que hay miles de tutoriales en la red, la idea es crear una tienda en Prestashop 1.7.3.3, la versión más reciente que hay en este momento, pero con la singularidad de que tendremos las imágenes en un bucket del S3 de AWS (Amazon Web Services) de forma que no nos ocupen espacio en el hosting ya que en nuestro caso es un tanto limitado.

Comenzaremos por lo que es la instalación del Prestashop propiamente dicho para despues continuar con las distintas configuraciones, de forma que este tema comprenderá varias entradas. Pero empecemos ya...

Lo primero que tenemos que hacer, una vez adquirido el dominio y el hosting, es descargar la última versión de Prestashop y subirla al hosting para proceder a la instalación, para ello iremos a la página oficial de Prestashop y descargaremos la versión que nos interesa, en este caso la última, 1.7.3.3

https://www.prestashop.com/es/descarga

Despues de descargar, la propia página de Prestashop nos muestra un tutorial sobre como instalar Prestashop 1.7 ya que hay algunos cambios respecto a versiones anteriores, pero nosotros ya sabemos como movernos un poco en este mundillo, así que lo obviaremos, de todas formas os dejo el enlace para quien le interese.

https://www.prestashop.com/es/descargar-exito

Una vez descargado el fichero lo primero que haremos es descomprimirlo y subir los ficheros index.php y prestashop.zip a la carpeta de nuestro hosting donde vayamos a alojar la web. Debemos tener creada tambien la BD que usara Prestashop. Cuando tengamos todo esto listo ya podremos comenzar la instalación, para ello bastará con que escribamos la url de nuestro nuevo sitio y sigamos las instrucciones.

Tras una pequeña animación donde vemos como se va descomprimiendo Prestashop en nuestro hosting nos aparecera la siguiente pantalla donde pondremos seleccionar el idioma, en nuestro caso Español, lo seleccionamos y pulsamos Next

A continuación debemos leer y aceptar los términos y condiciones del acuerdo de lincencia y volveremos a pulsar en el botón siguiente

En el siguiente paso el instalador verificará que el sistema cumple con las especificaciones requeridas para el correcto funcionamiento de Prestashop, en caso de detectar algún problema o tener alguna sugerencia nos los indicará en la pantalla. Cuando este todo correcto podremos pulsar el botón siguiente para continuar.

El siguiente paso será introducir la información de la tienda, Nombre, Actividad y País, los datos del administrador de la misma y su contraseña, cuando tengamos toda la info volveremos a pulsar en siguiente.

A continuación deberemos introducir los datos de conexión con la base de datos, si usas un puesto distinto al por defecto, el 3306, recuerda ponerlo al final de la dirección del servidor separado por dos puntos de la misma (:4242).  Aquí podremos elegir el prefijo de las tablas de Prestashop que vamos a crear, por defecto es ps_ pero podemos cambiarlo a otro y dar un poco mas de seguridad a nuestra BD. Podemos comprobar que los datos que hemos introducido son correctos gracias pulsando en el botón indicado para ello, cuando todo este operativo pulsaremos en Siguiente.

La siguiente pantalla nos muestra como va el progreso de nuestra instalación de Prestashop

Una vez completado nos aparecerá la siguiente pantalla donde nos indica que todo ha terminado correctamente y nos recuerda que debemos eliminar el directorio install para evitar problemas futuros. 

Cuando ya tengamos la carpeta eliminada podremos acceder a la administración de Prestashop, tenemos un enlace a la administración en esta última pantalla de la instalación, y comenzar a configurar nuestra tienda, pero el tema la configuración lo explicaremos en otra entrada.

Datetime vacío en VB.NET

Si habeís declarado una variable de tipo DateTime en VB.NET y quereis saber si se le ha asignado algún valor en un momento dado hay que compararla con DateTime.minValue

dim fecha as DateTime

If Me.fecha = DateTime.MinValue Then
   'no se le ha asignado valor todavia

Fecha nula en mysql

Si al hacer una consulta con un campo de tipo fecha nos encontramos que la fecha nula nos la devuelve como '00/00/0000' y queremos que nos devuelva null debemos hacer la consulta de la siguiente forma:


SELECT IF(fecha,date_format(fecha, '%d/%m/%Y'),NULL) as fecha FROM tabla

Apertura de un cajón conectado a una impresora desde VB.NET

Para abrir un cajón conectado a traves de una impresora con VB.NET sin necesidad de tocar en la configuración de la impresora ni imprimir nada, es necesario enviar un conjunto de caracteres propios de cada impresora sin formato a la misma para que proceda a abrir el cajon, en nuestro caso tenemos una Bixolon srp-350II plus, cuyo codigo es: 27,112,0,50,250, para consultar codigos de otras impresoras: http://keyhut.com/popopen.htm

En el caso de una impresora SEYPOS PRP-085 IIIV el código que debemos usar es 27,112,0,5,5

usaremos la siguiente clase (http://support.microsoft.com/kb/322090),

Imports System.IO
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles Button1.Click
        Dim s As String
        Dim pd As New PrintDialog()

        s = Chr(27) + Chr(112) + Chr(0) + Chr(50) + Chr(250)
        
        pd.PrinterSettings = New PrinterSettings()

        Dim impresora as String = "BIXOLON" 'nombre de la impresora 
        RawPrinterHelper.SendStringToPrinter(BIXOLON, s)
        
    End Sub 

Public Class RawPrinterHelper
    ' Structure and API declarions:
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Structure DOCINFOW
        <MarshalAs(UnmanagedType.LPWStr)> Public pDocName As String
        <MarshalAs(UnmanagedType.LPWStr)> Public pOutputFile As String
        <MarshalAs(UnmanagedType.LPWStr)> Public pDataType As String
    End Structure

    <DllImport("winspool.Drv", EntryPoint:="OpenPrinterW", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function OpenPrinter(ByVal src As String, ByRef hPrinter 

As IntPtr, ByVal pd As Long) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="ClosePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function ClosePrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="StartDocPrinterW", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function StartDocPrinter(ByVal hPrinter As IntPtr, ByVal level 

As Int32, ByRef pDI As DOCINFOW) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="EndDocPrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function EndDocPrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="StartPagePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function StartPagePrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="EndPagePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function EndPagePrinter(ByVal hPrinter As IntPtr) As Boolean
    End Function
    <DllImport("winspool.Drv", EntryPoint:="WritePrinter", _
       SetLastError:=True, CharSet:=CharSet.Unicode, _
       ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Public Shared Function WritePrinter(ByVal hPrinter As IntPtr, ByVal pBytes 

As IntPtr, ByVal dwCount As Int32, ByRef dwWritten As Int32) As Boolean
    End Function

    ' SendBytesToPrinter()
    ' When the function is given a printer name and an unmanaged array of  
    ' bytes, the function sends those bytes to the print queue.
    ' Returns True on success or False on failure.
    Public Shared Function SendBytesToPrinter(ByVal szPrinterName As String, 

ByVal pBytes As IntPtr, ByVal dwCount As Int32) As Boolean
        Dim hPrinter As IntPtr   ' The printer handle.
        Dim dwError As Int32     ' Last error - in case there was trouble.
        Dim di As DOCINFOW       ' Describes your document (name, port,data type).
        Dim dwWritten As Int32   ' The number of bytes written by WritePrinter().
        Dim bSuccess As Boolean  ' Your success code.

        ' Set up the DOCINFO structure.
        With di
            .pDocName = "My Visual Basic .NET RAW Document"
            .pDataType = "RAW"
        End With
        ' Assume failure unless you specifically succeed.
        bSuccess = False
        If OpenPrinter(szPrinterName, hPrinter, 0) Then
            If StartDocPrinter(hPrinter, 1, di) Then
                If StartPagePrinter(hPrinter) Then
                    ' Write your printer-specific bytes to the printer.
                    bSuccess = WritePrinter(hPrinter, pBytes, dwCount, dwWritten)
                    EndPagePrinter(hPrinter)
                End If
                EndDocPrinter(hPrinter)
            End If
            ClosePrinter(hPrinter)
        End If
        ' If you did not succeed, GetLastError may give more information
        ' about why not.
        If bSuccess = False Then
            dwError = Marshal.GetLastWin32Error()
        End If
        Return bSuccess
    End Function ' SendBytesToPrinter()

    ' SendFileToPrinter()
    ' When the function is given a file name and a printer name, 
    ' the function reads the contents of the file and sends the
    ' contents to the printer.
    ' Presumes that the file contains printer-ready data.
    ' Shows how to use the SendBytesToPrinter function.
    ' Returns True on success or False on failure.
    Public Shared Function SendFileToPrinter(ByVal szPrinterName As String, 

ByVal szFileName As String) As Boolean
        ' Open the file.
        Dim fs As New FileStream(szFileName, FileMode.Open)
        ' Create a BinaryReader on the file.
        Dim br As New BinaryReader(fs)
        ' Dim an array of bytes large enough to hold the file's contents.
        Dim bytes(fs.Length) As Byte
        Dim bSuccess As Boolean
        ' Your unmanaged pointer.
        Dim pUnmanagedBytes As IntPtr

        ' Read the contents of the file into the array.
        bytes = br.ReadBytes(fs.Length)
        ' Allocate some unmanaged memory for those bytes.
        pUnmanagedBytes = Marshal.AllocCoTaskMem(fs.Length)
        ' Copy the managed byte array into the unmanaged array.
        Marshal.Copy(bytes, 0, pUnmanagedBytes, fs.Length)
        ' Send the unmanaged bytes to the printer.
        bSuccess = SendBytesToPrinter(szPrinterName, pUnmanagedBytes, fs.Length)
        ' Free the unmanaged memory that you allocated earlier.
        Marshal.FreeCoTaskMem(pUnmanagedBytes)
        Return bSuccess
    End Function ' SendFileToPrinter()

    ' When the function is given a string and a printer name,
    ' the function sends the string to the printer as raw bytes.
    Public Shared Function SendStringToPrinter(ByVal szPrinterName As String, 

ByVal szString As String)
        Dim pBytes As IntPtr
        Dim dwCount As Int32
        ' How many characters are in the string?
        dwCount = szString.Length()
        ' Assume that the printer is expecting ANSI text, and then convert
        ' the string to ANSI text.
        pBytes = Marshal.StringToCoTaskMemAnsi(szString)
        ' Send the converted ANSI string to the printer.
        SendBytesToPrinter(szPrinterName, pBytes, dwCount)
        Marshal.FreeCoTaskMem(pBytes)
    End Function
End Class

Y para eliminar todas las tablas de una BD SQL Server

EXEC sp_MSforeachtable @command1 = "DROP TABLE ?"

Quitar una base de datos SQL Server del modo single-user

Facil...

exec sp_dboption 'testdb01', 'single user', 'FALSE';

Limpiar las licencias de Terminal Server en un Windows 2003 Server

Nos lo pasa nuestro amigo Jose:

- PARAR Terminal Server Licensing Manager Service.

- BORRAR el contenido de %systemroot%\system32\Lserver directory.

- REINICIAR Terminal Server Licensing Manager Service.

He perdido la clave de mi WIFI, quiero meter un nuevo equipo en la red y no puedo averiguarla ¿que hacer?

Te descargas el programa Wirelesskeyview en tu antiguo PC que previamente tenías metido en la red WIFI. Una vez lo instales te va a decir las claves WEP de todas las wifi que hayas configurado en ese equipo.

32 bits:
http://www.nirsoft.net/utils/wirelesskeyview.zip
64 bits:
http://www.nirsoft.net/utils/wirelesskeyview-x64.zip

Exportar resultado de consulta a Excel [SQL Server]

Para exportar el resultado de una consulta SQL a un Excel simplemente hacemos:

EXEC sp_makewebtask @outputfile = 'c:\excel.xls', @query = 'Select campo1,campo2 from basedatos..tabla', @colheaders = 1, @FixedFont = 0,
@lastupdated = 0, @resultstitle = 'Testing details'

Haciéndolo de esta manera no necesitaremos que exista previamente el archivo excel

Modificar lenguaje por defecto en SQL SERVER

exec sp_defaultlanguage sa, 'spanish'

Crystal Report cómo formatear campos

Un par de apuntes sobre el formateo de campos en Crystal Report:

• Cambiar un Y/N por un S/N:
• Pulsamos sobre el campo con el botón derecho
• Format Object
• Design
• Display String y buscamos el icono para introducir una fórmula
• Introducimos IIF({campo},'S', 'N')
• Listo
• Como sombrear las filas pares de una lista
• Botón derecho sobre la sección de detalle
• Section Expert
• Pestaña color
• Background color y pulsamos en icono de formula
• Introducimos if RecordNumber mod 2 = 0 then Color (221,221,221) else crNoColor
• 

Esto es todo amigos.

Cambiar el puerto a una aplicación en IIS7

Para cambiar el puerto a una aplicación que tengamos en el IIS7, basta con entrar en el Administrador del Internet Information Server, seleccionamos la aplicación en cuestion y pulsamos Enlaces dentro de las Acciones...

Seleccionamos el enlace del puerto que queremos cambiar y le damos a Modificar, de forma que nos aparecerá otra ventana donde podremos cambiar el puerto.



Configuracion de IIS7 y Tomcat con el Modulo IIS ARR

Para configurar el tomcat en un entorno de windows server 2008 con procesador de 64 bits y con IIS7 hemos usado lo siguiente
- Java JRE Version 6 Update 23
https://cds.sun.com/is-bin/INTERSHOP.enfinity/WFS/CDS-CDS_Developer-Site/en_US/-/USD/ViewProductDetail-Start?ProductRef=jre-6u23-oth-JPR@CDS-CDS_Developer

- Apache Tomcat (32-bit/64-bit Windows Service Installer)
http://tomcat.apache.org/download-60.cgi

- IIS Application Request Routing (ARR) 2.0
http://www.iis.net/download/applicationrequestrouting

Comenzamos por instalar el java, cambiando la carpeta de destino a C:\Java

Una vez instalado Java, pasamos a instalar el tomcat, seleccionamos una instalacion 'Custom' y elegimos los componentes marcados en la siguiente imagen (los ejemplos tambien ya que los usuaremos en este tutorial)

Seguimos adelante sin modificar las opciones que nos encontramos por defecto, y finalmente introducimos como directorio para la instalacion del tomcat C:\Tomcat

Con esto ya deberiamos tener el tomcat corriendo en nuestra máquina.  Una vez comprobado que el tomcat funciona correctamente, pasamos a instalar y configurar el modulo IIS Aplication Request Routing que permitira al IIS actuar como un servidor proxy y enviar las llamadas al tomcat. 

Cuando la instalacion de este modulo termina, se crea un fichero de log que se puede encontrar en el directorio %TEMP%.



Una vez instalado este modulo, procedemos a su configuracion para que actue como un proxy, ya que esta funcionalidad no viene habilitada por defecto. Seguimos los siguientes pasos:

1. Abrimos la caracteristica de 'Cache de enroutamiento de solicitud de aplicaciones'

2. En la siguiente ventana seleccionamos la opción de Configuración de proxy de servidor en las zonas de Acciones

3. Marcamos la casilla de habilitar proxy y pulsamos aplicar, dejando el resto de casillas con sus valores por defecto

4. Ahora tenemos que confiugurar una "Reescritura de direccion URL" de forma que ISS sepa que hacer con las llamdas que queremos que remita al tomcat. Pinchamos en el sitio, seleccionamos el icono de  Reescritura de direccion URL y pulsamos en abrir caracteristica.

5.En la pagina de Reescritura de direccion URL pulsamos sobre 'Agregar reglas'

6. En agregar reglas pulsamos sobre 'regla en blanco' y le damos a aceptar

7. En la pantalla de modificación de regla de entrada asignamos un nombre a la nueva regla y un patron (examples.+). La nueva regla usa expresiones regulares por defecto, de no ser así hay que seleccionar esa ocpión. En la zona de acciones de la modificación de regla hay que asegurars de que el tipo de acción seleccionado es Reescribir. Ponemos la URL a nuestro servidor Tomcat en el campo reescribir direccion URL, seguido de {R:0}. Despues pulsamos Aplicar.

Ya podemos comprobar que al acceder a cualquier direccion del tipo http://localhost/examples, el IIS nos redireccionara a http://localhost:8080/examples, por lo que la petición será servida por el Tomcat.

Nota: Tutorial basado en http://www.iisadmin.co.uk/?p=326

Realizar y restaurar copias de seguridad de bases de datos mySQL

Para hacer un backup:

mysqldump -u usuario -p nombrebasedatos > archivo.sql

Para restaurarlo:

mysql -u usuario -p nombrebasedatos < archivo.sql

* Nota: si la base de datos incluye funciones definidas por el usuario y queremos restaurarlas debemos incluir la opción --routines al restaurar
* Nota 2: podemos comprimir el dump generado con la instrucción:
tar zcvf copia.tar.gz archivo.sql

Envio de email en ASP con CDO.Message

Para el envio de emails en ASP desde un servidor IIS7 podemos usar el objeto CMO.Message que no necesita instalar nada nuevo en el servidor.

La configuracion del objeto seria como sigue:

Set msg = Server.CreateObject("CDO.Message") msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1" msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'Si el servidor necesita autenticacion msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="usuario@servidor.com" msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="contraseña" msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True msg.Configuration.Fields.Update msg.To = "direccion_destino" msg.From = "direccion_procedencia" msg.Subject = "Asunto" msg.HTMLBody = "Cuerpo del mensaje" 'Si lleva adjuntos msg.AddAttachment fichero msg.Send ' Destruimos el CDO if err <> 0 then response.write err.description response.End() end if Set msg=Nothing

Formatear fecha para que la devuelva sin hora en SQL Server

¿Como hacer que en un SELECT SQL Server devuelva un campo fecha sin la hora?

Fasil:

DATEADD(dd,0,DATEDIFF(dd,0,campofecha))

Alternativa:

convert(date, campo)

Migraciones VB 6 a VB.NET

Varias cosillas que os podéis encontrar al migrar una aplicación VB6 a .NET y por donde tirar:

• Informes: No os molestéis mucho en intentar importar automaticamente a CrystalReport los DataReports que hayáis creado en su día. Al menos que sean muy muy bestias es preferible rehacerlos a andar intentando importarlos. Cuando no da problemas el DataEnviroment, lo da el uso de las propiedades Orientation etc...
• DatePickers: Os recomiendo que borreis todos los controles datepickers y los volváis a crear desde .NET. Sino os puede dar problemas al cargarlos por segunda vez.

En los próximos días lo amplío.

Generación de ficheros XLS desde BIRT

A la hora de generar ficheros Excel desde BIRT nos encontramos con que al abrirlos desde Excel 2007 da la siguiente advertencia 'El archivo que intenta abrir, <>, tiene otro formato que el especificado por la extensión de archivo. Compruebe que el archivo no está dañado y procede de un origen de confianza antes de abrirlo. ¿Desea abrir el archivo ahora?'. Ademas, con la distribucion inicial no es posible crear diferentes hojas en el excel generado.

Para versiones de BIRT 2.5.1 o posteriores podemos resolver esto de la siguiente forma:

1. Descargamos de http://sourceforge.net/projects/tribix/files/2.5.1/ los ficheros org.uguess.birt.report.engine.emitter.xls_2.5.1.201001221050.jar y org.uguess.birt.report.engine.common_1.1.1.201001221050.jar

2. Descomprimimos el fichero org.uguess.birt.report.engine.emitter.xls_2.5.1.201001221050.jar en una carpeta conservando su nombre

3. Para la creacion de nuevos informes debemos copiar la carpeta obtenida en el punto 2 y el fichero org.uguess.birt.report.engine.common_1.1.1.201001221050.jar en la carpeta plugins de nuestra instalacion de Eclipse BIRT

4. Para el servidor BIRT debemos poner la carpeta y fichero del punto anterior en la carpeta WEB-INF/platform/plugins

5. Tanto en el caso del servidor como del Eclipse BIRT, eliminar los siguientes ficheros de las carpetas mencionadas en los puntos 3 y 4: org.eclipse.birt.report.engine.emitter.prototype.excel_2.6.0.v20100601.jar y org.eclipse.birt.report.engine.emitter.excel.config_2.6.0.v20100527.jar

Nota: las hojas nuevas en el xls se crearan en los 'page break' de los informes generados con BIRT

Declaración de intenciones

Hola a todos!!
Este blog no prentende mas que ser un chuletario de próblemas resueltos alguna vez durante nuestras horas de trabajo, de forma que la información quede unificada en un sitio donde poder consultarla cada vez que sea necesario y no tener que recurrir de nuevo a San Google.
Esperemos que sea de utilidad...
Saludos