Ver Mensaje Individual
  #5  
Antiguo 16-02-2005
jplj jplj is offline
Miembro
 
Registrado: oct 2003
Posts: 189
Reputación: 21
jplj Va por buen camino
Lo que pretendía hacer era algo similiar a:

Código Delphi [-]
(no hay etiquea de clipper...)

FUNCTION DB_LeeRegistro(cArea, lModif)

    LOCAL aFich:={},;           // Array que contiene los campos.
          cAreaAc:=SELECT(),;   // Area de trabajo anterior.
          nPuntero:= 0,     ;   // Puntero
          nRegis,           ;   // N£mero de campos del registro.
          nI                    // Contador de campos.

    SELECT(cArea)
    nRegis := FCOUNT()
    nPuntero:= RECNO()

    IF !lModif   // Inserci¢n.
      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.
__________________
Sonríe. Mañana puede ser peor.
Responder Con Cita