Problemas con registros
Publicado por Loly (103 intervenciones) el 09/10/2008 21:24:32
Hola a todos.. distinguidos programadores...
tengo un formset con 4 formularios en cada formulario tengo 4 pages y lo que pasa es que tengo botones de avance para presenciar los registros de la tabla de vehiculos.dbf,
en esta tabla tengo un total de 17 registros pero al cargar el formulario de buscar y oprimir los botones de avance "primero, anterior, siguiente, ultimo". me presente en la barra de estado que solo tengo 2 registros y eso no es cierto... que es lo que pasa...??
por ahi me comentaron que al parecer estan bloqueados ... pero como le hago para que inicie la tabla con registros DESbloqueados...??
Btn. de primer
sele VEHICULO
SET ORDER to V_NO_CONSE && V_NO_CONSE
go top
mtpaccid=V_ACCIDENT
mfaccid=V_FECH_ACC
ThisForm.PageFrame1.page1.Refresh
btn de Ant
sele VEHICULO
SET ORDER to V_NO_CONSE && V_NO_CONSE
If Bof()
Thisform.command4.enabled=.f.
Thisform.command3.enabled=.f.
MessageBox("ESTE ES EL PRIMER REGISTRO..")
Else
Thisform.command5.enabled=.t.
Thisform.command6.enabled=.t.
Skip -1
mtpaccid=V_ACCIDENT
mfaccid=V_FECH_ACC
ThisForm.PageFrame1.page1.Refresh
btn siguiente
sele VEHICULO
SET ORDER to V_NO_CONSE && V_NO_CONSE
If Eof()
Thisform.command5.enabled=.f.
Thisform.command6.enabled=.f.
MessageBox("ESTE ES EL ULTIMO REGISTRO..")
Else
Thisform.command4.enabled=.t.
Thisform.command3.enabled=.t.
Skip 1
mtpaccid=V_ACCIDENT
mfaccid=V_FECH_ACC
ThisForm.PageFrame1.page1.Refresh
saludos...
tengo un formset con 4 formularios en cada formulario tengo 4 pages y lo que pasa es que tengo botones de avance para presenciar los registros de la tabla de vehiculos.dbf,
en esta tabla tengo un total de 17 registros pero al cargar el formulario de buscar y oprimir los botones de avance "primero, anterior, siguiente, ultimo". me presente en la barra de estado que solo tengo 2 registros y eso no es cierto... que es lo que pasa...??
por ahi me comentaron que al parecer estan bloqueados ... pero como le hago para que inicie la tabla con registros DESbloqueados...??
Btn. de primer
sele VEHICULO
SET ORDER to V_NO_CONSE && V_NO_CONSE
go top
mtpaccid=V_ACCIDENT
mfaccid=V_FECH_ACC
ThisForm.PageFrame1.page1.Refresh
btn de Ant
sele VEHICULO
SET ORDER to V_NO_CONSE && V_NO_CONSE
If Bof()
Thisform.command4.enabled=.f.
Thisform.command3.enabled=.f.
MessageBox("ESTE ES EL PRIMER REGISTRO..")
Else
Thisform.command5.enabled=.t.
Thisform.command6.enabled=.t.
Skip -1
mtpaccid=V_ACCIDENT
mfaccid=V_FECH_ACC
ThisForm.PageFrame1.page1.Refresh
btn siguiente
sele VEHICULO
SET ORDER to V_NO_CONSE && V_NO_CONSE
If Eof()
Thisform.command5.enabled=.f.
Thisform.command6.enabled=.f.
MessageBox("ESTE ES EL ULTIMO REGISTRO..")
Else
Thisform.command4.enabled=.t.
Thisform.command3.enabled=.t.
Skip 1
mtpaccid=V_ACCIDENT
mfaccid=V_FECH_ACC
ThisForm.PageFrame1.page1.Refresh
saludos...
Valora esta pregunta
0