Necesito crear un menú a partir del contenido de un array al que le cargo datos desde un archivo y también desde memoria. Por lo tanto el contenido del array puede variar.
No pude encontrar la forma de hacerlo y por eso pego parte (como ejemplo) del código que escribí y está comentado lo que pretendo lograr con la intención que Alguno de Uds. me pueda ayudar.
Desde ya, Gracias.
Rolando
- Code: Select all Expand view
- Static Function menuPlaXBR(oDlg,nRow,nCol)
local oMenu , oMenu2 , aAcombos:={} , aArray:={} , aSiglas:={}
aAcombos:=FileToArray(cCarpetaInstalacion+"\BIN\aCombos.mem")
aSiglas:=aAcombos[3]
for gh = 1 to len(aSiglas)
aadd(aArray,{aSiglas[gh,2]})
next // gh
aArray:=asort(aArray,,, { |x, y| x[1] < y[1] }) // ordeno el array por la sigla
// HASTA ACÁ CARGO EN aArray UN ARRAY QUE PUEDE VARIAR Y NECESITO PONER ESE ARRAY EN EL MENU
menu oMenu popup
menuitem 'Ir al Producto elegido' action MSGINFO("ITEM 1")
menuitem 'Listar solamente producto elegido'
MENU oMenu2
// ACÁ NECESITO CREAR EL MENÚ oMenu2 CON EL CONTENIDO DEL aArray Y ES LO QUE NO SÉ COMO HACER
ENDMENU
endmenu
activate popup oMenu of oDlg at nRow,nCol
Return nil