SOLUCIONADO Algo raro con un array
Posted: Mon Jan 04, 2016 4:15 pm
Hola amigos... en una función, lleno un array unidimensional con datos de un producto, luego modifico algunos registros con nuevos valores, dentro de la función el array esta modificado, pero al retornar a la función que lo llamo, el array aparece como si no se hubiera modificado... Estoy cometiendo algún error??
- Code: Select all Expand view
Function CargaDatos()
aDesPro := RelProductos(oMySQL, aDesPro, "QAZ123")
? aDesPro[ 2] // muestra "01" // los datos no cambiaron luego del AADD()
? aDesPro[12] // muestra "UNIDAD"
...
..
.
Function RelProductos(oMySQL, aDesPro, cCodi)
aDesPro := {}
oDatos := DatosProducto(oMySQL, cCodi) // aquí recabamos los datos de una tabla en MySQL
nLen := oDatos:RecCount()
FOR nCont := 1 TO nLen // 77 campos
AADD(aDesPro, oDatos:FieldGet(nCont) // llenamos el array con los datos en forma unidimencional
NEXT nCont
? aDesPro[ 2] // muestra "01"
? aDesPro[12] // muestra "UNIDAD"
// realizo un cambio
aDesPro[ 2] := "12"
aDesPro[12] := "DOCENA"
? aDesPro[ 2] // muestra "12"
? aDesPro[12] // muestra "DOCENA"
Return(aDesPro) // retorno el array con datos