Duda en Cursor
Publicado por Ramon (81 intervenciones) el 13/10/2009 17:39:11
Hola... buenos dias... tengan todos ustedes amigos...
Disculpen mi ignorancia pero deseo hacer una pregunta relacionada con un cursor en un form... pero primero voy a mostrar lo que hago en la captura...
Abro un form y en el init se crea un cursor llamado MICURSOR asi...
create cursor mycursor(clave n(5), nombre c(40), domicilio c(40)...etc.)
Capturo datos y al guardar los bajo primero a un Grid1... asi
With thisform.Grid1.
.RecordSource='mycursor'
.RecordSourceType=6
.Column1.ControlSource=mycursor.clave'
.Column1.Width=63
.Column1.Header1.Caption='Clave'
ETC....
ETC...
EndWith
Si esta todo correcto... los bajo a la tabla asi...
select empleados
append from dbf('mycursor')
thisform.Release &&&CERRAR EL FORM
Set procedure to prgs
=Imprime()
MI PREGUNTA ES LA SIGUIENTE.....
¿Puedo ocupar el MYCURSOR en otra parte...del programa ya sea cuando se manda imprimir ... o en otro FORM.. o se destruye el Cerrar el formulario con Thisform.Release
¿Si el Cursor Permanece Vivo.. Será en todo el programa y podra invocarse desde cualquier otro form...
Gracias....
Disculpen mi ignorancia pero deseo hacer una pregunta relacionada con un cursor en un form... pero primero voy a mostrar lo que hago en la captura...
Abro un form y en el init se crea un cursor llamado MICURSOR asi...
create cursor mycursor(clave n(5), nombre c(40), domicilio c(40)...etc.)
Capturo datos y al guardar los bajo primero a un Grid1... asi
With thisform.Grid1.
.RecordSource='mycursor'
.RecordSourceType=6
.Column1.ControlSource=mycursor.clave'
.Column1.Width=63
.Column1.Header1.Caption='Clave'
ETC....
ETC...
EndWith
Si esta todo correcto... los bajo a la tabla asi...
select empleados
append from dbf('mycursor')
thisform.Release &&&CERRAR EL FORM
Set procedure to prgs
=Imprime()
MI PREGUNTA ES LA SIGUIENTE.....
¿Puedo ocupar el MYCURSOR en otra parte...del programa ya sea cuando se manda imprimir ... o en otro FORM.. o se destruye el Cerrar el formulario con Thisform.Release
¿Si el Cursor Permanece Vivo.. Será en todo el programa y podra invocarse desde cualquier otro form...
Gracias....
Valora esta pregunta


0