En Visual Foxpro, se registran datos pero no se imprimen. ¿Habrá algún código erróneo?

Resulta que un procedimiento toma datos de una tabla las vuelca en variables, luego en otra tabla y luego las imprime. Pasa que en las horas pico se produce lo siguiente: se registran los datos (se los ve en grilla) pero no los imprime. Cuando no hay tanto movimiento la cosa anda bien. Qeu puede estar sucediendo? Le coloque begin trans y sigue igual
este es el codigo:
if not used('okey')
use .\dbfs\okey in 0 shared
endif
sele okey
if okey.estoy then
if not used('pagos')
use .\dbfs\pagos in 0 shared
CURSORSETPROP('buffering', 3, 'pagos')
endif
sele pagos
if not used('colaimpre')
use .\dbfs\colaimpre in 0 shared
endif
sele colaimpre
count to vCuenta
if vCuenta != 0 then
*begin trans
go top
vEmple = colaimpre.empleado
vFecha1 = DATE() &&ctod(colaimpre.fecha)
vHora1 = allt(str(hour(datetime()))) + ":" + allt(str(minute(datetime()))) + ":" + allt(str(sec(datetime())))
*vHora1 = colaimpre.hora
vfichas = colaimpre.token
vserie_Maq = colaimpre.maquina
vPremia = colaimpre.valor
vCola = colaimpre.fincola
if not used('ficheros')
use .\dbfs\ficheros in 0 shared
endif
sele ficheros
set order to tag cod_fiche
seek(alltrim(vEmple))
vNombre = ficheros.apellido
use
if not used('maquinas')
use .\dbfs\maquinas in 0 shared
endif
sele maquinas
locate for serie_maqu = vserie_Maq
if found() then
vmodelo = maquinas.descripcio
endif
sele colaimpre
dele
go top
*ultimo nro de ticket disponible
sele dispone
go top
registro = dispone.nro
replace nro with registro + 1
tableupdate()
vticket = registro
sele pagos
append blank
replace cod_pago with registro
replace cod_turno with genero
replace serie_maqu with vserie_Maq
replace serie_cupo with registro
replace fecha with vFecha1
replace hora with vHora1
replace fichas_pag with vfichas
replace premio with vPremia
replace pagador with vNombre
replace cod_paga with val(vEmple)
begin trans
lSuccess = TABLEUPDATE(.T.,.F.)
IF lSuccess = .F.
ROLLBACK
messagebox ("no se pudo completar la transaccion, reintente", 0, "Mensaje")
else
*****
if not used('impreso')
use .\dbfs\impreso in 0 shared
endif
sele impreso
append blank
replace serie_cupo with registro
replace impreso with .t.
cPrinter = set("printer",2)
set printer to name(cPrinter)
STORE PRINTSTATUS( ) TO glReady
IF NOT glReady
messagebox ("Asegúrese de que la impresora está conectada y encendida", 0, "Mensaje")
ELSE
REPORT FORM .\reportes\ticket.frx ;
NOCONSOLE NOWAIT TO PRINTER
REPORT FORM .\reportes\ticket1.frx ;
NOCONSOLE NOWAIT TO PRINTER
endif
sele pagos
endif
end trans
endif
if vrecuento then
sele recuento
endif
endif
esto esta en un timer, hecho en VFP 6

1 Respuesta

Respuesta
1
SET DEFAULT TO C:\PROYECTO
*// TODAS ALAS CARPETAS QUE ESTAN EL PROYECTO
SET PATH TO PROGS, FORMS, LIBS, MENUS, DATA
*if not used('okey')
use okey in 0 shared
*endif
sele okey
if okey.estoy then
*if not used('pagos')
use pagos in 0 shared
CURSORSETPROP('buffering', 3, 'pagos')
*endif
sele pagos
*if not used('colaimpre')
use colaimpre in 0 shared
*endif
sele colaimpre
count ALL to vCuenta
GO TOP
if vCuenta != 0 then
*begin trans
*go top
vEmple = colaimpre.empleado
vFecha1 = DATE() &&ctod(colaimpre.fecha)
vHora1 = allt(str(hour(datetime()))) + ":" + allt(str(minute(datetime()))) + ":" + allt(str(sec(datetime())))
*vHora1 = colaimpre.hora
vfichas = colaimpre.token
vserie_Maq = colaimpre.maquina && VERIFICA CON LOCATE
vPremia = colaimpre.valor
vCola = colaimpre.fincola
*if not used('ficheros')
use ficheros in 0 shared
*endif
sele ficheros
set order to tag cod_fiche &&
seek(alltrim(vEmple))
IF FOUND()
vNombre = ficheros.apellido
ELSE
WAIT WINDOW "NO ENCONTRO...?" &&
ENDIF
use
*if not used('maquinas')
use maquinas in 0 shared
*endif
sele maquinas
locate for serie_maqu = vserie_Maq &&SUPONGO QUE HAY VARIAS MAQUINAS PARA USAR ESTE COMNADO
if found() &&then
vmodelo = maquinas.descripcio
endif
sele colaimpre
dele && QUE BORRAS LA LINEA QUE EN CONTRO
go top
*ultimo nro de ticket disponible
sele dispone
go top
registro = dispone.nro
replace nro with registro + 1
tableupdate()
vticket = registro
sele pagos
append blank
******SI USAS LA TECNOLIGIA DE VFP ESTO ESTA DE MAS
*!* replace cod_pago with registro
*!* replace cod_turno with genero
*!* replace serie_maqu with vserie_Maq
*!* replace serie_cupo with registro
*!* replace fecha with vFecha1
*!* replace hora with vHora1
*!* replace fichas_pag with vfichas
*!* replace premio with vPremia
*!* replace pagador with vNombre
*!* replace cod_paga with val(vEmple)
&& USARIARS TABLAUPDATE(.T.)
=TABLEUPDATE(.T.)
*!* *******ESTO YA NO IRIA
*!* begin trans && YA NO IRIA
*!* lSuccess = TABLEUPDATE(.T.,.F.)
*!* IF lSuccess = .F.
*!* ROLLBACK
*!* messagebox ("no se pudo completar la transaccion, reintente", 0, "Mensaje")
*!* else
*!* *****
*if not used('impreso')
use impreso in 0 shared
*endif
sele impreso
append blank
replace serie_cupo with registro
replace impreso with .t.
cPrinter = set("printer",2)
set printer to name(cPrinter)
STORE PRINTSTATUS( ) TO glReady
IF NOT glReady
messagebox ("Asegúrese de que la impresora está conectada y encendida", 0, "Mensaje")
ELSE
REPORT FORM ticket.frx NOCONSOLE NOWAIT TO PRINTER
REPORT FORM .\reportes\ticket1.frx NOCONSOLE NOWAIT TO PRINTER
endif
sele pagos
endif
*!* end trans
*!* endif
if recuento then && ?????
sele recuento && ????
endif &&?
endif &&?
Si esto esta corriendo en un timer espero que lo sepas cronometrar para que la pc no se buelva muy lenta
cualquier duda me escribes
atte. Fitocava
mi mail
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Acceso a base de datos compartida

Disculpa, porque muchas veces cuando abrimos una base de datos con shared para que sea compartida sale, ¿Acceso denegado a la base de datos dbc? Después cambiando o quizás volviendo a poner lo mismo ese error desaparece y se ejecuta bien.. ¿Cuál es...
1 respuesta

Pasar datos de un form a un report..:?

Tengo una pequeña aplicación que estoy desarrollando, es para llevar el registro de los cambios de turno que los empleados realizan para luego imprimirlos, pero no se como tomar los datos desde el formulario y pasarlos al reporte para imprimirlos...!
1 respuesta

Error de Conectividad sql2000 server

Estimado amigo disculpa que te vuelva a molestar pero tengo este problema y espero que me ayudes. Sabes cuando intento grabar datos al servidor desde vfp me sale este mensajer: "ERROR DE CONECTIVIDAD: [MICROSOFT]...[SQL SERVER] Comilla no cerrada...
2 respuestas

Como saber si una tabla está abierta

Quisiera saber como puedo hacer para que un micro programa que estoy haciendo sepa si una tabla está siendo utilizada, es decir si está abierta para poder realizar los cambios que hace la aplicación... Espero haberme explicado bien. Lo que deseo es...
1 respuesta

Pasar dato especifico a un textbox de una tabla

Tengo una base de datos con información financiera, tiene indices por meses, años y numero de cuenta, y la información de una cuenta aun mes y año especifico la quiero cargar a un textbox en un formulario por medio de un botón de comando que haga la...
1 respuesta

Comparación de dos tablas en VFP 6.0

Quisiera que me pudiera ayudar con algún ejemplo o como le puedo hacer para realizar comparaciones de todos los registros de una tabla A los registros que estén en esa comparar con la tabla B si un campo del registro no es igual al de la tabla B...
1 respuesta

Problema al cerrar una tabla que no se cierra

Tengo una aplicación que utiliza tablas libres de otra aplicación sólo de lectura y una tabla libre que es la que genera la mía. Se abren en el Prg que hace de Principal para estar disponibles en todas las opciones. Estoy tratando de crear una rutina...
1 respuesta

Problema con VFP

Necesitaría saber como controlar si una ventana con un titulo determinado ya esta abierta. ¿Hay alguna API u otra forma de controlar esto?
1 respuesta

Trabajar en un form, con grid, botones y checkbox

Solicito de su amable colaboración con este tema que me tiene de pelos agarrados, por fa: Tengo un form, al cual le agregue un grid (enlazado con una tabla). Dentro del grid hay un checkbox (que corresponde a un campo logical de la tabla enlazada)....
2 respuestas