PARAMETER cursoraconvertir
if pcount()<>1
messagebox("Error en el parametro",48,"ATENCION")
return .F.
endif
local AliasAnterior,AliasNuevo
AliasNuevo="nombreauxiliar"
************************************************************************
*** Uso: Crea un cursor de escritura a partir de uno abierto
*** El original se cierra y queda abierto el de escritura
*** con el mismo alias.
***
*** Nota: No se fija si es un cursor o una tabla
***
*** Parametros: Alias del cursor a convertir en forma de cadena de texto
***
*** Retorna: Verdadero si pudo convertir, caso contrario falso
************************************************************************
*** Selecciona el cursor
IF USED(cursoraconvertir)
select (cursoraconvertir)
else
return .F.
ENDIF
*** recupera el alias
AliasAnterior=ALIAS()
*** recupera el nombre del archivo
Archivo=DBF(AliasAnterior)
USE (Archivo) AGAIN ALIAS (AliasNuevo) IN 0
USE IN (AliasAnterior)
USE (dbf(AliasNuevo)) AGAIN ALIAS (AliasAnterior) IN 0
USE IN (AliasNuevo)
SELE (AliasAnterior)
RETURN .T.
Convierte cursor de lectura en cursor de escritura
Crea un cursor de escritura a partir de uno abierto
El original se cierra y queda abierto el de escritura con el mismo alias. Es para visual fox 6.
Descargar adjuntos
COMPARTE ESTE TUTORIAL
COMPARTIR EN FACEBOOK
COMPARTIR EN TWITTER
COMPARTIR EN LINKEDIN
COMPARTIR EN WHATSAPP