@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: