31 replies to this topic

[enecumene]

En el caso de las TMU puedes usar de las dos manera, sólo está a criterio tuyo de cual te resulta más cómodo o factible, aunque generalmente se trabaja con Canvas.

Saludos.

[felipe]

Gracias por la respuesta Fernando...
Igual y generalmente, este tipo de documentos no se muestran en vista previa sino que se envian directamente a la impresora; me imagino de que ella se encarga de organizar los parámetros que se pasan desde el canvas print para que el documento finalmente salga como deba ser.


Saludos

[eduarcol]

nop, en el casa de impresión por canvas tu debes dar las coordenadas para que salga ordenada la factura, aqui un ejemplo que adpate, no recuerdo si lo facilito Seoane o Egostar:

delphi

procedure ImprimirFactura(dsCabeza, dsDetalles: TKbmMemTable; Avance: Integer);
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..1023] of char;
  ms: Integer; //margen superior
  nLineas: Integer;
 
   procedure SaltarLinea;
   begin
      ms := ms + Sistema.Espaciado;
   end;
   procedure ImprimirLinea(Linea: String);
   begin
      Printer.Canvas.TextOut(Sistema.MargenDerecho, ms, Linea);
      SaltarLinea;
   end;
begin
  //Configura la impresora
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(PAnsiChar(Sistema.Impresora), Driver, Port, DeviceMode);
  Printer.Title := 'Factura de Venta';
  with Printer do
  begin
    SetMapMode(Printer.Handle,MM_LOMETRIC);
    BeginDoc;
    Canvas.Font.Size:= Sistema.TamayoLetra;
    Canvas.Font.Name := 'TAHOMA';
    //------------Datos del encabezado
    //Empresa
    ImprimirLinea(dsCabeza.fieldbyName('NombreEmpresa').AsString);
    //Factura
    ImprimirLinea(dsCabeza.FieldbyName('Tipo').AsString + ': ' + Sistema.NumeroSerie + '-' + dsCabeza.fieldbyname('Factura').AsString);
    //Datos del Cliente
    ImprimirLinea('RIF: ' + dsCabeza.fieldbyName('Rif').AsString + '    ' + dsCabeza.fieldbyname('FECHA').AsString);
    ImprimirLinea('CLIENTE: ' + dsCabeza.fieldbyName('ClienteNombre').AsString);
    ImprimirLinea('DIRECCION: ' + dsCabeza.fieldbyName('ClienteDireccion').AsString);
    SaltarLinea;
    //Encabezado
    ImprimirLinea('Can Descripcion Unitario Total');
    //Imprime los detalles
    nLineas := 0;
    dsDetalles.First;
    while not dsDetalles.Eof do
    begin
       ImprimirLinea(RPad(dsDetalles.FieldbyName('Cant').AsString, ' ', 4) + RPad(dsDetalles.FieldbyName('Descripcion').AsString, ' ', 10) + LPad(FormatFLoat('#,##0.00', dsDetalles.FieldbyName('PrecioSInIva').asFloat), ' ', 9) + LPad(FormatFLoat('#,##0.00', dsDetalles.FieldbyName('Total').asFloat), ' ', 9));
       Inc(nLineas);
       dsDetalles.Next;
    end;
    while nLineas < Sistema.Lineas do
    begin
       SaltarLinea;
       Inc(nLineas);
    end; //Rellena el numero de las lineas faltantes
    //Imprime el cierre de la factura
    ImprimirLinea('SubTotal: ' + FormatFLoat('#,##0.00', dsCabeza.FieldbyName('SubTotal').AsFloat));
    ImprimirLinea('Desc Lineas: ' + FormatFLoat('#,##0.00', dsCabeza.FieldbyName('DescLineas').AsFloat));
    ImprimirLinea('Descuento: ' + FormatFLoat('#,##0.00', dsCabeza.FieldbyName('Descuentos').AsFloat));
    ImprimirLinea('IVA (' + dsCabeza.FieldbyName('PORCIVA').AsString + '%): ' + FormatFLoat('#,##0.00', dsCabeza.FieldbyName('IVA').AsFloat));
    ImprimirLinea('Total: ' + FormatFLoat('#,##0.00', dsCabeza.FieldbyName('Total').AsFloat));
    ImprimirLinea('PAGADO');
    ImprimirLinea(dsCabeza.FieldbyName('FormaPago').AsString);
    ImprimirLinea(dsCabeza.FieldbyName('Coletilla').AsString);
    if Avance > 0 then
    begin
       ms := ms + Avance;
       ImprimirLinea('-');
    end;
    EndDoc;
  end;
end;
 

En este caso el ticket saldria justificado a la izquierda.

[enecumene]

nop, en el casa de impresión por canvas tu debes dar las coordenadas para que salga ordenada la factura, aqui un ejemplo que adpate, no recuerdo si lo facilito Seoane o Egostar:

Pues te lo facilité yo una vez

[enecumene]

Pues te lo facilité yo una vez

Ahhh no, me equivoqué, bueno el caso es que una vez te facilité algún canvas de impresión.

[eduarcol]

si ya recorde, mi memoria es malisima, aun no se de quien lo tome, pero tu me enviastes uno que me ayudo a salir de unas dudas y echarlo a andar... Gracias por eso 

[felipe]

Ahh.. ok Eduardo, mucho mejor con este otro ejemplo...

Y algunos tickets se ven asi...

---------------------------------
l                FACTURA                 
l                                             
l  11/26/2008              3:00 Pm   
l  000000001               Caja 04   
l                                             
l  PROCUCTO    CANT.    VALOR       
l  Articulo1         2        $ 200                   
l 
l  **TOTAL        2        $ 200
l
---------------------------------   

Conclusion y recomendacion con las TMU : Canvas Print                                         

[eduarcol]

si tu duda ha sido solucionada, colocale la estrellita para futuras referencias, con el codigo que me dio seoane ya consigo lo que quiero  (*)

[felipe]

si tu duda ha sido solucionada, colocale la estrellita para futuras referencias, con el codigo que me dio seoane ya consigo lo que quiero  (*)

Pues hasta ahora todo muy bien... ya aclare mis dudas; ¿llegará el momento en que tenga que profundizar mas en el tema? tal vez...

Lo de la estrella ¿quien y/o como se hace?  ...

[Editado]

[enecumene]

Pues sólo debes editar uno de tus mensajes y poner donde dice ICONO DEL MENSAJE y colocar la estrella

Saludos.

[FGarcia]

Tengo el manual de programacion de la epson TM-U950 la cual es una impresora con tres vias de impresion: Rollo continuo para auditoria (Journal), ticket de 3" (Slip) y Boleto (Receipt) esta muy pesado por lo que no lo puedo subir a la seccion de manuales, ¿alguien le interesa ? aviseme y vemos como lo ponemos, no me gustaria dejarlo en rapidshare o similares porque despues de un tiempo sino se sube nada mas borran lo que este.

[eduarcol]

interesante aporte FGarcia, no se como sera el hosting de la pagina ni que permitira, dejame averiguar, para el que le interese esta es la impresora que dice el amigo Garcia:

[img]http://tbn2.google.com/images?q=tbn:fQPOx3L80toS4M:http://www.scansmart.com/images/u950-lg.jpg[/img]


Siempre he querido programar una de esas, pero por los momentos nadie la ha necesitado