FoxPro/Visual FoxPro - Numero de Copias no responde

   
Vista:

Numero de Copias no responde

Publicado por Amado (66 intervenciones) el 18/12/2008 17:09:46
Hola... buenos dias... quisiera me pudieran ayudar el codigo que tiene un boton... de un formSet con un form llamado Facturacion se trata de NUMERO DE VECES A IMPRIMIR EL REPORTE... pero al ejecutarlo ... no responde... envia muchos reportes... no obedece al valor de la variable ncop y no responde el bucle.. yo tengo.. esto... cabe indicar que el reporte lo estoy mandando a codigo Say@

Mensaje='DESEA IMPRIMIR LA FACTURA No. '+STR(nFolio)
Titulo='Facturacion'
LOCAL opci1
opci1=MESSAGEBOX(Mensaje,4 + 64 + 256,titulo)
DO CASE
CASE opci1 = 6
LOCAL ncop
ncop=INPUTBOX('Introduzca el numero de Copias a imprimir..')
ncop=INT(VAL(ncop))
FOR x= 1 TO ncop
ThisformSet.pfactura() &&codigo SAY@ O prow()+x.y
endfor
CASE Opci1 = 7
MESSAGEBOX("Se ha omitido la Impresion de la Factura")
ENDCASE

Si alguien tiene una mejor idea de como ingresar el numero de copias..
Gracias...
Saludos a todos...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Numero de Copias no responde

Publicado por HELDER (COUNDY) (710 intervenciones) el 18/12/2008 18:19:09
USA ESTO;

REPORT FORM TU_REPORTE.frx NOCONSOLE TO PRINTER PROMPT PREVIEW

ASI SELECCIONAS NUMERO DE COPIAS.

SALUDES
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numero de Copias no responde

Publicado por HELDER (COUNDY) (710 intervenciones) el 18/12/2008 18:19:35
USA ESTO;

REPORT FORM TU_REPORTE.frx NOCONSOLE TO PRINTER PROMPT

ASI SELECCIONAS NUMERO DE COPIAS.

SALUDES
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Numero de Copias no responde

Publicado por Amado (66 intervenciones) el 18/12/2008 19:42:30
Hola... lo que pasa aqui es la impresion no sale a travez de un reporte diseñado sino que sale a travez de comandos say@... y no llama a ningun reporte frx.. sino que es un procedimiento elaborado asi...

ncop=InputBox('numero de veces..')
ncop=Int(Val(ncop))
for ncop= 1 to ncop
procedure funciones
=Imprime()
EnFor

****funciones.PRG tengo esto
function imprime
set printer
SET CONSOLE OFF
SET printer on
SET DEVICE TO PRINTER
SET PRINTER FONT "Arial",8
@prow()+1,2 say "nombre empresa"
@prow()+1,2 say "domicilio
@prow()+1,2 say "xxxxx
select facturas
set filter to folio=nFol
Go Top
do wile !Eof()
@prow()+1,2 say cant
@prow(),20 say descrip
@prow(),50 say precio
@prow(),80 say improrte
etc.
Enddo
@PROW()+35-cl,22 say nump
@PROW()+2.5,145 SAY nstotal pict '$ 999,999.99'
@PROW()+2,145 SAY niva pict '$ 999,999.99'
@PROW()+2,145 SAY ntotalgral pict '$ 999,999.99'
SET PRINTER TO
SET CONSOLE ON
SET DEVICE TO SCREEN
Return
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar