19 respuestas en este tema

[luk2009]

delphi

@prow()+1,0 say " " 
@prow(),0 say padc(AR(1),80," ")
select 1
@Prow()+1,0 say padc(ar(3),80," ")
@Prow()+1,0 say padc(ar(4),80," ")
@prow()+2,0 say targ
@prow(),58 say ruta  
@prow(),61 say notaruta
@prow(),94 say "BALANCE PENDIENTE + FACT ACTUAL"
@prow()+1,0 SAY CLIENTE
@prow(),58 say ar(2)
@prow(),93 SAY REPLICATE ("-",22)
@prow()+1,0 SAY DIRECCION
@prow(),58 say ar(5)
@prow(),93 say "VENTAS"
@prow(),106 say m7 pict"RD$999,999.99"
@prow()+1,0 SAY TELEFONO
@prow(),58 say ar(15)
@prow(),93 say "ACOPLAMIENTOS"
@prow(),106 say m6 pict "RD$999,999.99"
@prow()+1,0 say replicate("-",80)
@PROW(),93 SAY REPLICATE ("=",28)
@prow()+1,0 say "CANTIDAD"
@prow(),10 say "DETALLES"
@prow(),58 SAY "TOTAL  "
@prow(),93 say "TOTAL"
@prow(),106 say m5 pict "RD$999,999.99"
@prow()+1,0 SAY REPLICATE ("-",80)
 
 
COD1=SPACE(04)
store 0 to cantidad
cantidad=1
@prow()+1,0 SAY CANTIDAD PICT '9'
@prow(),10 SAY AR(6) 
totales=aco*cantidad
@prow(),58 say totales*3 pict '9999.99'
if guar>0
@prow()+1,0 SAY CANTIDAD PICT '9'
@prow(),10 SAY AR(7) 
totales1 =guar*cantidad
@prow(),58 say totales1 pict'9999.99'
endif
if report>0
@prow()+1,0 SAY CANTIDAD PICT '9'
@prow(),10 SAY AR(8) 
totales2=report*cantidad
@prow(),58 say totales2 pict '9999.99'
endif
 
@prow()+1,0 say replicate ("-",80)
@prow()+1,30 SAY 'TOTAL FACTURADO + ITBI'
@prow(),54 say MONT pict "$99,999.99" 
@prow()+1,0 SAY REPLICATE ("=",80)
*//@prow()+1,0 SAY "NOTA  " +AR(9)
@prow()+1,87 SAY "REVISADA POR"
@prow(),114 SAY "RECIBIDA POR"
@prow()+1,12 SAY AR(9) 
@prow()+1,0 say " "
@prow()+1,0 say " "
@prow()+1,0 say " "
endif
if prow()>=55
eject
endif
set devi to screen
f1=f1+1
endfor
deac wind all
return
   

saludos a todos

Esto es un codigo realizado en foxpro para MSDOS que imprime facturas de tres en tres por pagina  en una impresosa de matrix tipo epson lx300 o similar.

la medida de esta hoja de papel continuo es 9 1/2 x 3  2/3 

La idea es poder imprimir por ejemplo 500 facturas de forma continua en una impresora de este tipo y de tres en tres, pero utilizando delphi con quick report o con cualquier otra herramienta.

Alguna idea?.


Pero como una imagen vale mas que mil palabras. La idea es esta:

[enecumene]

Claro que se puede amigo, ahora si lo quieres exactamente como la imagen pues deberás usar Canvas, de lo contrario puedes usar QuickReports.

Saludos.

[eduarcol]

yo lo haría directamente al canvas, el tipo y cantidad de impresiones seria la opción mas eficiente, según mi punto de vista.

[egostar]

Yo hace tiempo, cuando solo se usaban impresoras matriciales, imprimia recibos de 3 en 3 con QuickReport configurando el tamaño de la página tanto en QR como en la impresora.



Salud OS

[luk2009]

yo lo haría directamente al canvas, el tipo y cantidad de impresiones seria la opción mas eficiente, según mi punto de vista.

Porque entiendes que asi es mas eficiente y dame una idea de como hacerlo.


Egostar la opcion de quick report parece mas simple de usar o me equivoco?

Gracias por su ayuda

[egostar]

yo lo haría directamente al canvas, el tipo y cantidad de impresiones seria la opción mas eficiente, según mi punto de vista.

Porque entiendes que asi es mas eficiente y dame una idea de como hacerlo.


Egostar la opcion de quick report parece mas simple de usar o me equivoco?

Gracias por su ayuda

Pues es mas gráfica, por lo que te evita ciertos dolores de cabeza al usar Canvas, a mi me gusta mas usar el canvas, pero en este caso donde los datos son estáticos preferí utilizar QR, cuando son datos dinámicos, si creo que usar Canvas es la mejor opción.

Salud OS

[eduarcol]

A mi manera de ver las cosas, la impresión directa por canvas es mas rápida que la impresión por editor de reportes, esto se debe a la forma que procesa windows la impresión.

Trabajar con cualquier editor de reportes es mas rápido para diseñar, pero la velocidad de impresión mejora mucho con la impresión directa.

El siguiente ejemplo es una adaptación que hice de un código de Seoane o Eliseo no recuerdo ahorita el autor, pero para tus fines debe servirte.

delphi

procedure ImprimirFactura(dsCabecera, dsLineasDetalles: 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 + 10;
   end;
   procedure ImprimirLinea(Linea: String);
   begin
      Printer.Canvas.TextOut(10, ms, Linea);
      SaltarLinea;
   end;
begin
  //Configura la impresora
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter('Nombre Impresora', Driver, Port, DeviceMode);
  Printer.Title := 'Factura de Venta';
  with Printer do
  begin
    SetMapMode(Printer.Handle,MM_LOMETRIC);
    BeginDoc;
    Canvas.Font.Size:= 12;
    Canvas.Font.Name := 'TAHOMA';
    //------------Datos del encabezado
    //Empresa
    ImprimirLinea('Cualquier Cosa');
    //Factura
    ImprimirLinea('Cualquier Cosa');
    //Datos del Cliente
    ImprimirLinea('RIF: ');
    ImprimirLinea('CLIENTE: ');
    ImprimirLinea('DIRECCION: ');
    SaltarLinea;
    //Encabezado
    ImprimirLinea('Can Descripcion Unitario Total');
    //Imprime los detalles
    nLineas := 0;
    dsDetalles.First;
    while not dsDetalles.Eof do
    begin
       ImprimirLinea('Linea XXXX XXXX XXXX.XX');
       Inc(nLineas);
       dsDetalles.Next;
    end;
    while nLineas < 10 do
    begin
       SaltarLinea;
       Inc(nLineas);
    end; //Rellena el numero de las lineas faltantes
    //Imprime el cierre de la factura
    ImprimirLinea('SubTotal: ');
    ImprimirLinea('Descuento: ');
    ImprimirLinea('IVA ');
    ImprimirLinea('Total: ');
    ImprimirLinea('PAGADO');
    if Avance > 0 then
    begin
       ms := ms + Avance;
       ImprimirLinea('-');
    end;
    EndDoc;
  end;
end;

[Delphius]

Hola, yo tengo una pregunta... no he explorado mucho el terreno de los reportes con QR.
¿Y cómo le hacen para que salgan tres reportes en una hoja? ¿O es que se trata de un reporte con 3 detalles? 8-)

En la imagen que pone Eliseo veo un reporte...
¿Cómo es que se hace para decirle que debe imprimir 3 por hoja? ¿Alguna propiedad, o juego de eventos? ¿O alguna configuración?

Si lo hacen por medio del Canvas, entonces debes "pintar" el reporte tres veces... uno debajo del otro ¿no?

Es una curiosidad mía.

Saludos,

[egostar]

Hola, yo tengo una pregunta... no he explorado mucho el terreno de los reportes con QR.
¿Y cómo le hacen para que salgan tres reportes en una hoja? ¿O es que se trata de un reporte con 3 detalles? 8-)

En la imagen que pone Eliseo veo un reporte...
¿Cómo es que se hace para decirle que debe imprimir 3 por hoja? ¿Alguna propiedad, o juego de eventos? ¿O alguna configuración?

Si lo hacen por medio del Canvas, entonces debes "pintar" el reporte tres veces... uno debajo del otro ¿no?

Es una curiosidad mía.

Saludos,

Hola Marcelo

El caso que puse de ejemplo es un recibo con datos estáticos, es decir, solo un registro por recibo, este recibo está configurado para trabajar con impresoras matriciales con tractor, la cual se configura su tamaño de hoja a 1/3 de hoja por cada recibo, las propiedades de la impresión en QR es la misma que en la impresora, de tal suerte que se imprime tres veces por cada hoja tamaño carta, deteniendose cada vez que termina de imprimir un recibo ( las hojas ya están preconfiguradas con corte 3 en cada hoja tamaño carta).

Salud OS

[Delphius]

Hola Marcelo

El caso que puse de ejemplo es un recibo con datos estáticos, es decir, solo un registro por recibo, este recibo está configurado para trabajar con impresoras matriciales con tractor, la cual se configura su tamaño de hoja a 1/3 de hoja por cada recibo, las propiedades de la impresión en QR es la misma que en la impresora, de tal suerte que se imprime tres veces por cada hoja tamaño carta, deteniendose cada vez que termina de imprimir un recibo ( las hojas ya están preconfiguradas con corte 3 en cada hoja tamaño carta).

Salud OS

Ahora entiendo.
Recién caigo en la idea... (vaya si seré lento )
Muchas gracias por explicármelo amigo.

Saludos,

[luk2009]

Estoy retomando este proyecto y cuando voy a compilarlo recibo el error sobre

Undeclared identifier:TKbmMemTable'

Hay alguna unidad que deba declarar? 
Que debo hacer para seguir con la compilacion?

[egostar]

No conozco ese componente y si, el error es por falta de la unidad correspondiente. Me imagino que es parte de los DevExpress.

Salud OS

[seoane]

Es un componente que permite crear tablas temporales en memoria:

http://www.component...ts/kbmmemtable/

Pero supongo que con pequeños cambios se podría utilizar cualquier otro tipo de tabla.

[Rolphy Reyes]

Saludos.

El mismo puede ser sustituido por el TClientDataSet sin mayores problemas.

[eduarcol]

Es una tabla de memoria, pero cambia donde aparece TKbmMemTable por ClientDataset, eso si recuerda agregar midaslib a las uses.

[egostar]

Ah vaya, pues si, el ClientDataSet bien puede servir.

Salud OS

[luk2009]

Perdon por la tardanza en darle seguimiento a este hilo, pero la mayoria sabe porque no habia podido hacerlo asi que no vayan a jo... 

Quiero usar el procedimiento que indica Eduarcol y hacerlo con una base de datos firebird, utilizando los componentes zeos. Que debo hacer para usar el clientdataset que me indican. Debo crear una tabla con este componente y adicionarle los registros de mi query.

Como deberia hacerlo?

Gracias por adelantado

[eduarcol]

Realmente no hace falta un clientdataset con cualquier dataset es suficiente.

[luk2009]

Gracias eduarcol, hoy no he tenido tiempo, pero manana voy a trabajar con esto, asi que te estare molestando por skype con algunas preguntas.

gracias por adelantado y asi te comprometo.

[eduarcol]

jajaja dale a ver que se puede hacer