FoxPro/Visual FoxPro - impresion fox 6.0

   
Vista:

impresion fox 6.0

Publicado por chechaCAST (13 intervenciones) el 29/08/2009 20:34:48
q tal a todos tengan un buen dia el motivo de la presente es para pedirles ayuda con respecto a un problemita que tengo en la impresion de un reporte:

bueno tengo mi formulario: text,command y otros objetos
bueno esto es lo que tengo en un command el cual guarda en una tabla llamada "factura" y tambien guarda en una tabla llamada "histocuota" y luego imprime
*-----------------------------------------------------------------------------------------------------*
select factura
locate for nofa = thisform.text1.value
if found() then
Wait Window "Continuando...espere por favor" timeout(0.40)
=messagebox ("Esta Factura ya fue almacenada una vez",11+32,"System")
else
if thisform.total.value=0 then
=messagebox ("Por favor antes de Almacenar esta Factura debe Ingresar algun producto",11+32,"System")
else
append blank
replace nofa with thisform.text1.value
replace ni with thisform.text2.value
replace nomcli with thisform.text3.value
replace dircli with thisform.text45.value
replace codm1 with thisform.text76.value *** codm1 es el campo de la tabla
replace codm2 with thisform.text77.value
replace codm3 with thisform.text78.value
replace codm4 with thisform.text79.value
replace codm5 with thisform.text80.value
replace pro1 with thisform.text4.value *** pro1 es el campo de la tabla
replace pro2 with thisform.text5.value
replace pro3 with thisform.text6.value
replace pro4 with thisform.text7.value
replace pro5 with thisform.text8.value
*********asi sucesivamente son todos ****
replace tip1 with thisform.text46.value
replace tip2 with thisform.text47.value
replace tip3 with thisform.text48.value
replace tip4 with thisform.text49.value
replace tip5 with thisform.text50.value

replace can1 with thisform.text24.value
replace can2 with thisform.text25.value
replace can3 with thisform.text26.value
replace can4 with thisform.text27.value
replace can5 with thisform.text28.value

replace prec1 with thisform.text14.value
replace prec2 with thisform.text15.value
replace prec3 with thisform.text16.value
replace prec4 with thisform.text17.value
replace prec5 with thisform.text18.value

replace subt1 with thisform.text34.value
replace subt2 with thisform.text35.value
replace subt3 with thisform.text36.value
replace subt4 with thisform.text37.value
replace subt5 with thisform.text38.value

replace desc1 with thisform.text65.value
replace desc2 with thisform.text66.value
replace desc3 with thisform.text67.value
replace desc4 with thisform.text68.value
replace desc5 with thisform.text69.value

replace formpa with thisform.text93.value
replace totco with thisform.total.value
replace engan with thisform.text61.value
replace saldo with thisform.text92.value
replace totpa with thisform.text89.value
replace fech with thisform.text56.value
replace hora with thisform.text62.value
replace codcli with thisform.text95.value

endif
endif
********-------------aqui remplaza en la tabla histocuota donde guarda los datos correspondientes para la venta por cuota o credito ------****
en el formulario hay opciones donde se selecciona al contado o credito
select histocuota
append blank
replace nofac with thisform.text1.value
replace nitcli with thisform.text2.value
replace nomcli with thisform.text3.value
replace dircli with thisform.text45.value
replace engan with thisform.text61.value
replace fecom with thisform.text56.value
replace sald with thisform.text92.value
replace totpago with thisform.text89.value
replace formpago with thisform.text93.value
replace horacom with thisform.text62.value
replace totcompra with thisform.total.value
replace noregcre with thisform.text96.value

=messagebox ("Factura Almacenada..Espere un momento",11+32,"System")
Wait Window "Continuando.....datos almacenados" timeout(1.00)
despues de haber almacenado los envio al informe
**---los campos de la izquierda son los nombres de los campos en el informe ---***

codc=thisform.text95.value
nof=thisform.text1.value
nuni=thisform.text2.value
direccion=thisform.text45.value
nombre=thisform.text3.value
co1=thisform.text76.value
co2=thisform.text77.value
co3=thisform.text78.value
co4=thisform.text79.value
co5=thisform.text80.value

da=thisform.text56.value
ti=thisform.text62.value
medi1=thisform.text4.value
medi2=thisform.text5.value
medi3=thisform.text6.value
medi4=thisform.text7.value
medi5=thisform.text8.value

clasi1=thisform.text46.value
clasi2=thisform.text47.value
clasi3=thisform.text48.value
clasi4=thisform.text49.value
clasi5=thisform.text50.value

canti1=thisform.text24.value
canti2=thisform.text25.value
canti3=thisform.text26.value
canti4=thisform.text27.value
canti5=thisform.text28.value

prc1=thisform.text14.value
prc2=thisform.text15.value
prc3=thisform.text16.value
prc4=thisform.text17.value
prc5=thisform.text18.value

dsc1=thisform.text65.value
dsc2=thisform.text66.value
dsc3=thisform.text67.value
dsc4=thisform.text68.value
dsc5=thisform.text69.value


stota1=thisform.text34.value
stota2=thisform.text35.value
stota3=thisform.text36.value
stota4=thisform.text37.value
stota5=thisform.text38.value

toco=thisform.total.value

ef=thisform.text75.value
ca=thisform.text87.value
en=thisform.text61.value
sa=thisform.text92.value
tpg=thisform.text89.value
te=thisform.text93.value

report form "C:Farmaciainformfacfinal.frx" noconsole to printer prompt
*****----------------------------------------------------------------------------------------*************
cada vez que se guardan los datos se genera un numero de factura en base al ultimo
bueno ahora el problema esta en que cuando imprime.....
supongamos que la factura que mande a imprimir es del registro 5 o factura numero 5 este me imprime 5 hojas en ella se repiten todos los datos del mismo ( los datos que tengo en el formulario es el mismo que se repite en la impresion no cambian en nada pero me imprime varias veces) como el diseño de mi factura es pequeña en una hoja me muestra 2 veces repetidas y asi en total serian 10 facturitas por decirlo asi... no se cual sea el problema alguien me puede ayudar...se lo agradeceria bastante acepto cualquier ayuda, comentario, critica ,,,guacias bueno espero haberme explicado si hay dudas no duden en preguntarme aqui mismo o mi correo es checha_st@hotmail.com
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:impresion fox 6.0

Publicado por juan286 (179 intervenciones) el 30/08/2009 19:16:39
Efectivamente viendo la logica el programa repite los datos, el problema esta en la asignacion de
**---los campos de la izquierda son los nombres de los campos en el informe ---***

codc=thisform.text95.value
nof=thisform.text1.value
nuni=thisform.text2.value
direccion=thisform.text45.value
nombre=thisform.text3.value
co1=thisform.text76.value
co2=thisform.text77.value
co3=thisform.text78.value
co4=thisform.text79.value
co5=thisform.text80.value
....... sigue mas

Ya que fox toma como entrata solo a esta y los demas no te recomiendo ke todo lo mandes a un tabla temporal y esta sea l que llames en el entorno de datos otra cosa es k tienes demasiado codigo inecesario podias empelar en INSERT INTO tabla values(campos) para agregar la informacion a las tablas en lugar del replace.

Otra forma de guardar sin la necesidad de tabla es que uses un vector dimensional
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:impresion fox 6.0

Publicado por chechaCAST (13 intervenciones) el 01/09/2009 03:31:11
bueno voy a tomar tu consejo de una tabla temporal y aver q sucede y gracias por tu respuesta....
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