FoxPro/Visual FoxPro - imprimir!!

 
Vista:

imprimir!!

Publicado por marcos (190 intervenciones) el 11/05/2004 03:54:36
hola a todos, tengo una consulta sobre una impresion de un informe.

Lo que quiero es imprimir un informe ( constancia de cargos) por un n° de antecedente (en un antecedente pueden haber varios n°s de cedulas), es decir, ingreso como parametro el n° de antecedente, y que me imprima todas constancias de las cedulas que encuentre.

Lo que hago es meter los datos en un cursor, y luego lo recorro e imprimo el reporte. Si esto lo hago con un reporte diseñado en VFP no hay problema, pero con un informe creado en fox y llamado desde VFP (en ascii) se queda colgado cuando este debe imprimir 4 veces aproximadamente....

Nose porque se me queda colgado...lo que hago es seleccionar mis datos y luego llamo a mi reporte asi:
REPORT FORM mireporte.frx TO FILE archivo.txt ASCII NOCONSOLE
RUN /n TYPE archivo.txt >prn
todo esto dentro de un ciclo do while...enddo, para poder seleccionar los datos que necesito.

Ojala puedan ayudarme y tengan algun truquito para solucionar mi problema, gracias
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:imprimir!!

Publicado por Plinio (7841 intervenciones) el 11/05/2004 05:24:41
Puedes postear el codigo que esta dentro del ciclo Do While?
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:imprimir!!

Publicado por marcos (190 intervenciones) el 12/05/2004 05:04:20
claro que si, ahi te va:

select distinct cedula_id1;
from mmvm;
where antece_nro = m_nro_antecedente; & variable q esta sobre un text
into cursor temp1
select temp1
SCAN
m_cedula_id = temp1.cedula_id1
SELECT SUELDOS
SET ORDER TO CEDULA
SEEK(M_CEDULA_ID)
IF FOUND()
SELECT *;
FROM SUELDOS S;
WHERE s.CEDULA_ID = m_cedula_id;
ORDER BY S.CEDULA_ID;
INTO CURSOR TEMPORAL
SELECT TEMPORAL
REPORT FORM mireporte.frx TO FILE archivo.txt ASCII NOCONSOLE
RUN /n TYPE archivo.txt >prn


ENDIF
ENDSCAN
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:imprimir!!

Publicado por Plinio (7841 intervenciones) el 12/05/2004 08:00:10

1- Me dijiste que tenia un ciclo Do while, veo Scan...endscan.
2- El comando RUN donde va la "n" prueba poniendo un 2
asi:
RUN /2 TYPE archivo.txt >prn
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