viernes, 27 de diciembre de 2013

Convertir un importe a texto en Crystal Reports

Crystal Reports



Hola amigos, hace tiempo que no escribo nada, bien hoy me he encontrado un pequeño problemilla con crystal reports, como convertir un importe a letra, esto es muy habitual en los  recibos que se entrega a los clientes.












Os pongo el código que funciona sin ningún problema:

local stringvar sNumero := cstr({facturacab.Total});
local numbervar Entera := truncate({facturacab.Total});
local numbervar posDecimal := instrrev(sNumber, ',');
local numbervar decimales := 0;

if posDecimal > 0 then
(decimales := CDbl(right(sNumero, length(sNumero) - posDecimal)););

if decimales > 0 then
    Uppercase(ToWords(Entera, 0) + ' EUROS CON ' + ToWords(decimales, 0) + ' CENTIMOS') 
else
    Uppercase(ToWords(Entera, 0) + ' EUROS');





  1. convierte el número a cadena.
  2. coge la parte entera del número.
  3. coge la parte decimal, le indicamos que está separada por ",", si utilizais el punto decimal, en vez de coma bastará con cambiar la "," por ".".
  4. variable para conocer las posiciones decimales.
  5. Si hay posiciones decimales, calculamos el tamaño
  6. si el tamaño es mayor que 0, es que existe parte decimal, convertimos a texto la parte entera y los decimales, en caso contrario solo mostramos el texto de la parte entera.





viernes, 13 de diciembre de 2013

Instalar controlador epson LX-300+ en Windows 7

epson lx300+ windows 7
Hoy me he encontrado con el problema de imprimir facturas en una impresora matricial con algunos añitos, una Epson LX-300+ en un ordenador con Windows 7, la verdad es que estas impresoras son una verdadera maravilla, funcionan a la perfección después de muchos años, pero claro con los nuevos sistemas operativos de Microsoft no se llevan nada bien. 

Os paso a explicar el problema cual es:

Factura en papel continuo con tamaño 21,00x28,00 utilizo el controlador para windows 7 que hay en la página de epson, este controlador crea la impresora Epson LX-300+II, utilizo "Propiedades del servidor de impresión" para crear el tamaño exacto del papel, sin problemas, asigno la impresora al formato factura en el programa de velneo y todo funciona bien, salvo un pequeño detalle, el cuerpo de la factura. En el cuerpo de la factura imprime 10 líneas y salta de página, dejando un hueco en blanco, sin impresión, claro cuando una factura tiene 2 páginas, con este controlador utiliza el doble, !! 4 páginas ¡¡.

Epson LX Series 1 (80)Buscando y probando controladores, al final lo he solucionado con el controlador que tiene Windows 7 "Epson LX Series 1 (80)", con este controlador funciona sin problemas, el salto lo realiza correctamente y el detalle de la factura lo imprime bien sin huecos y espaciados indeseados. 

Espero que si le ocurre a alguien lo mismo que le sirva de ayuda.

Datos personales

avjsite

elxopet.blogspot.com.es

elxopet.blogspot.com.es
banner elxopet.blogspot.com.es

Muchas gracias a tod@s