Lo que pretendía hacer era algo similiar a:
Código Delphi
[-]
(no hay etiquea de clipper...)
FUNCTION DB_LeeRegistro(cArea, lModif)
LOCAL aFich:=,; cAreaAc:=SELECT(),; nPuntero:= 0, ; nRegis, ; nI
SELECT(cArea)
nRegis := FCOUNT()
nPuntero:= RECNO()
IF !lModif GO BOTTOM
SKIP
ENDIF
FOR nI=1 to nRegis
AADD( aFich, FIELDGET(nI) )
NEXT
DBGOTO( nPuntero )
SELECT( cAreaAc )
RETURN (aFich)
Al final obtengo un array con los valores por defecto de la consulta, que me servira como base para realizar una insercción.
Pero la consulta no es actualizable, y quería que el método fuera "universal".
No obstante, muchas gracias.
Cita:
Empezado por roman
[modo=nostalgico]
Hace taaaaaaaanto tiempo que no veía algo así
[/modo]
|
¿Nostalgia?
Ponte a modificar, depurar, ... un programita de clipper ahora que estás acostumbrado a lo bueno.