LOCAL lcMax AS STRING, ln, lnMax, lnR, lnQ AS NUMBER
LOCAL ARRAY laCampos[5], laDatos[5]
lcMax = '' && inicializa nombre campo
STORE -1 TO lnMax, lnR && Inicializa maximo y numero registro
* en laCampos enumera los campos que interesa comparar
lnQ = ALINES( laCampos, "campo1, campo2, campo3, campo4, campo5", .T., "," )
USE tuTabla IN 0
SELECT tuTabla
SCAN
* Solo recupera los campos que interesa comparar
SCATTER FIELDS campo1, campo2, campo3, campo4, campo5 TO laDatos
FOR ln=1 TO lnQ && busca en cada registro si encuentra el maximo
IF laDatos[ln]>lnMax
lnMax = laDatos[ln] && Guarda el maximo
lcMax = laCampos[ln] && Guarda el nombre del campo
lnR = RECNO() && Guarda el registro donde lo encontro
* aca se puede guarda el valor de clave primaria si la hubiere
ENDIF
ENDFOR
ENDSCAN
* al final del scan
* lnMax tiene el maximo encontrado
* lcMax tiene el nombre del campo
* lnR tiene el registro donde lo encontro
Saludos: Miguel, La Pampa (RA)
El 12/02/12, Viktor Velazquez <viv...@hotmail.com> escribió:
>
> si mira en un ciclo scan .. endscan
>
> deseo conocer el valor maximo de cierto campo.. y saber el nombre de ese
> campo que tiene el valor maximo
> saludos
>
>
>