Ubicar un registro en un Array

[acuellar]

Buenas estimados

Como se ubica un registro en un array, como hacer Seek

Gracias por la ayuda

[hmpaquito]

Fácil: Copiandolo y buscando

[Willi Quintana]

Hola,,

Code: Select all  Expand view  RUN

aTbs :=   es un arregl unidimensional
nPos := 0
nPos := ASCAN(aTbs, cDb)    // devuelve en nPos la ubicacion del valor de cDb en aTbs,  si no existe, devuelve 0
 

Code: Select all  Expand view  RUN

aProve := es un arreglo bidimensional, nRuc es el dato a buscar en la columna 2
nPos := ASCAN(aProve,{|xVal|xVal[2] = nRuc })     //devuelve en nPos la Ubicacion de valor de nRuc, el la columna 2, si no existe devuelve 0
 

[acuellar]

Gracias Willi

Funcionó perfecto.