Cursor READWRITE

http://www.portalfox.com/article.php?sidA9
Como hacer de un cursor una vista actualizable - por Harold_Godefroy


Como hacer un cursor modificable (2)
Enviado por: Luis Maria Guayán el 07 Mar 2000 - 12:00
http://www.portalfox.com/article.php?sid(

Si es VFP6 el cursor es readonly (es decir, no modificable).

Yo uso la siguiente funcion para "convertirlo a modificable":

Antes del zap podrias llamar asi:

=HazModificable("curadh")



Proc HazModificable
Lparameters m.elalias
If empty(m.elalias)
m.elalias=alias()
Endi
lcAliasTmp = sys(2015)
Use dbf(m.elalias) in 0 share again alias (lcAliasTmp)
Use dbf(lcAliasTmp) in (m.elalias) shared again alias (m.elalias)
Use in (lcAliasTmp)

> Que es esa cláusula READWRITE? es nueva en VFP7 o en VFP8?
Fue introducida en VFP7, con ella ya no es necesario hacer el cursor
modificable con el viejo truco de

USE DBF(tcAlias) IN 0 SHARE AGAIN ALIAS (lcAliasTmp)
USE DBF(lcAliasTmp) IN (tcAlias) SHARE AGAIN ALIAS (tcAlias)
USE IN (lcAliasTmp)

Como hago para que un cursor creado de la manera como indico en el ejemplo
de abajo, me pueda dejar ejecutar el comando pack para eliminar los
registros marcados como eliminado?

CREATE CURSOR tmp_pddo_dspcho_prd(;
cdgo_plu n(10),;
producto c(50),;
presentacion c(20),;
cntdad_pzas_pd n(15),;
cntdad_pdda n(15,3),;
observacion c(50))