Estimados:
Una consulta, 驴es posible crear un Combobox, de forma que de acuerdo a una condici贸n previa, cambie la seleccionabilidad de algunos de los elementos a mostrarse en la lista de selecci贸n (los oCbx:aItems), es decir la lista no cambiar铆a, pero si la seleccionabilidad de algunos de los elementos, de esta forma se los saltar谩 con el recorrido del cursor y no se los puede seleccionar?.
Saludos
Fernando Espinoza A.
REDEFINE COMBOBOX oCbx1 VAR nSect ID 103 OF oDlgD ITEMS aSect ON CHANGE (lugar(nSect),oCbx2:SetItems( aLugar ), oCbx2:refresh())
REDEFINE COMBOBOX oCbx2 VAR nLug ID 104 OF oDlgD ITEMS aLugar UPDATEEstimado ACuellar:
Gracias por su respuesta, la parte que me indica ya la tengo conocida; lo que quiero es que al abrirse la lista de opciones del combobox, supongamos que son 10, se muestren las 10, pero que algunas no sean elegibles, es decir est茅n en un modo Disable(), por tanto, no se puedan seleccionar.
Saludos
Fernando Espinoza A.
Estimados:
Alguien con alguna experiencia en este tema que pueda ayudar.
Saludos
Fernando Espinoza A.
Fernando, lo de no permitir elegir un determinado item, basado en una condici贸n, no es dif铆cil, si cuando estableces la condici贸n, creas un array con el mismo n煤mero de elementos que el array que vas a mostrar en el combo, y en la cla煤sula ON CHANGE valoras si el array de "condiciones" tiene .T. en esa posici贸n ( aCondiciones[ oCbx:nAt ] ), y si est谩 a falso te vas al siguiente ( oCbx:nAt++, aunque tendr谩s que controlar que no se pase del Len() del array que hay en el combobox )
Por ah铆 van los tiros, pienso yo
En cuanto a que aparezca en disable, lo veo m谩s complicado, y habr铆a que intentar implementarlo en la cla煤sula ON DRAWITEM del combo, pienso yo
Por ello, yo para eso, pondr铆a un boton de action en un get y mostrar铆a un menu POPUP, creo que te dar铆a m谩s facilidad de controlar lo que pretendes
REDEFINE GET oGet Var oDBF:ITEM ID 103 OF oDlg PICTURE "@!" BITMAP "BUSCAR";
ACTION ( BuscaITEM(oGet,oDlg) )
....
FUNCTION BuscaITEM(oGet,oDlg)
definir el xbrowse
Return Nil
#xcommand REDEFINE DBCOMBO [ <oCbx> VAR ] <cVar> ;
聽 聽 聽 聽 聽 聽 聽[ <items: ITEMS> <aItems> ] ;
聽 聽 聽 聽 聽 聽 聽[ ID <nId> ] ;
聽 聽 聽 聽 聽 聽 聽[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
聽 聽 聽 聽 聽 聽 聽[ <help:HELPID, HELP ID> <nHelpId> ] ;
聽 聽 聽 聽 聽 聽 聽[ ON CHANGE <uChange> ] ;
聽 聽 聽 聽 聽[ CONDICION <uCondicion> ] ;
聽 聽 聽 聽 聽[ FINCONDICION <uEndCondicion> ] ;
聽 聽 聽 聽 聽[ FOR <uFor> ] ;
聽 聽 聽 聽 聽[ <lnoblank: NOBLANK> ] ;
聽 聽 聽 聽 聽 聽 聽[ VALID 聽 <uValid> ] ;
聽 聽 聽 聽 聽 聽 聽[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
聽 聽 聽 聽 聽 聽 聽[ <update: UPDATE> ] ;
聽 聽 聽 聽 聽 聽 聽[ MESSAGE <cMsg> ] ;
聽 聽 聽 聽 聽 聽 聽[ WHEN <uWhen> ] ;
聽 聽 聽 聽 聽 聽 聽[ BITMAPS <acBitmaps> ] ;
聽 聽 聽 聽 聽 聽 聽[ ON DRAWITEM <uBmpSelect> ] ;
聽 聽 聽 聽 聽 聽 聽[ ALIAS <cAlias> ] ;
聽 聽 聽 聽 聽 聽 聽[ ITEMFIELD <cFldItem> ] ;
聽 聽 聽 聽 聽 聽 聽[ LISTFIELD <cFldList> ] ;
聽 聽 聽 聽 聽 聽 聽[ <list: LIST, PROMPTS> <aList> ] ;
聽 聽 聽 聽=> ;
聽 聽 聽 聽 聽 [ <oCbx> := ] TDBCombo():ReDefine( <nId>, bSETGET(<cVar>),;
聽 聽 聽 聽 聽 聽 聽<aItems>, <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],;
聽 聽 聽 聽 聽 聽 聽<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
聽 聽 聽 聽 聽 聽 聽<acBitmaps>, [{|nItem|<uBmpSelect>}], ;
聽 聽 聽 聽 聽 聽 聽<cAlias>, <(cFldItem)>, <(cFldList)>, <aList>, <{uCondicion}>, <{uEndCondicion}>, <{uFor}>, <.lnoblank.> )REDEFINE DBCOMBO oCombo VAR dbPAR2:sucursal聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 ID 21聽 聽OF oDlg UPDATE聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 ALIAS "TABLAS" 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 ITEMFIELD "COD_TABLA" 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 LISTFIELD "NOM_TABLA" 聽 聽 聽 聽 聽 聽 聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 COLOR CLR_BLACK, RGB(255,255,200)聽 聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 CONDICION ( Tablas->( OrdScope( 0, "SUC" ) ), Tablas->( OrdScope( 1, "SUC" ) ) ) ;
聽 聽 FINCONDICION ( Tablas->( OrdScope( 0, NIL ) ), Tablas->( OrdScope( 1, NIL ) ) );
聽 聽 FOR Tablas->cod_tabla <> "00000";
聽 聽 ON CHANGE (dbPAr2:Seek( dbPAR2:Sucursal ), dbPAR2:Load(), oDlg:Update());
聽 聽 NOBLANK