Combobox y GetEdit, Misma Columna XBROWSE
Posted: Fri Mar 14, 2025 6:50 pm
Existe la posibilidad de que en un Xbrowse y en una sola columna convivan los combobox y los get,, ejemplo
GET
GET
GET
COMBOBOX
GET
COMBOBOX
COMBOBOX
y asi sucesivamente en un xbrowse pero en una columna, estaba haciendo algo asi pero no funciona,, lleno un arreglo mixto con get y combobox, pero no resulta,, no se si se puede hacer
GET
GET
GET
COMBOBOX
GET
COMBOBOX
COMBOBOX
y asi sucesivamente en un xbrowse pero en una columna, estaba haciendo algo asi pero no funciona,, lleno un arreglo mixto con get y combobox, pero no resulta,, no se si se puede hacer
Code: Select all | Expand
do while .not. eof()
if (odbf1:calias)->tdbf
acentidad:={}
dbselectarea(odbf:calias)
set order to 1
go top
do while .not. eof()
aadd(acentidad,(odbf:calias)->nombre+"-"+(odbf:calias)->codigo)
skip
enddo
else
acentidad:=""
acentidad:=(odbf1:calias)->nombre
endif
ritem +=1
AADD(acItem,{ ritem, acentidad })
dbselectarea(odbf1:calias)
skip
next
REDEFINE XBROWSE oLbx1 ID 4001 OF oFld:aDialogs[2];
COLUMNS 1,2;
HEADERS "Item","Descripcion";
COLSIZES 40,360;
PICTURE "","";
ARRAY acItem UPDATE FOOTERS LINES AUTOCOLS CELL AUTOSORT