fiveweb: combobox seleccion

[silvinamazzaro]

Hola Antonio, estamos usando fiveweb muy entusiasmada por lo rapido que programo
Tenemos 2 problemas:
1) el combobox no pone el selected . segun lo que vi en la clase ....(no se posiciona en el ítem que yo asigno como predeterminado)

for n = 1 to Len( aItems )
if ValType( aItems[ n ] ) == "A"
? '<option value="' + aItems[ n ][ 1 ] + '">' + aItems[ n ][ 1 ] + "</option>"
else
? '<option value="' + aItems[ n ] + '"' + ;
If( AScan( aItems, uVar ) == n, " selected ", "" ) + '>' + aItems[ n ] + "</option>" ---->esto es lo que no me anda
endif
next

...deberia hacerlo pero no lo hace
. en el codigo fuente de la pagina no lo veo tampoco

mi código es
cValor:=aObras [len(aObras) ]
oGet:= TComboBox():New( 42 , 250 , , , oDlg , aObras , "oGet1", cValor , )

2) me cierra las pantallas cuando presiono escape, alguna forma de anularlo (esto lo habían hablado con mi compañero Hugo de incorporarlo a fiveweb )
sldos
Gracias
Silvina

[Antonio Linares]

Silvina,

Por favor muéstrame el código HTML que se genera para el combobox en la página

[Antonio Linares]

> 2) me cierra las pantallas cuando presiono escape, alguna forma de anularlo (esto lo habían hablado con mi compañero Hugo de incorporarlo a fiveweb )

Prueba a modificar este método de FiveWeb asi:

Code: Select all  Expand view  RUN

METHOD Activate( lModal ) CLASS TDialog

   local oControl

   DEFAULT lModal := .T.

   ::lModal = lModal

   ? "</div>"
   ? "<script>"
   ? '$( "#oDlg" ).dialog( { width: ' + AllTrim( Str( ::nWidth ) ) + ;
     ", height: " + AllTrim( Str( ::nHeight ) ) + ;
     ", modal:" + If( ::lModal ,"true" , "false"  ) + " } );"
   ? '$( "#oDlg" ).dialog({ closeOnEscape: false });'
   ? "</script>"
   
   for each oControl in ::aControls
      oControl:Activate()
   next  
   
return nil

[silvinamazzaro]

Antonio:
Con este código intento que se posicione en el ultimo valor y se posiciona siempre en el primero. luego quiero consultar con un botón el valor de la práctica y que al volver conserve la obra social elegida , igual siempre queda en la primera posición . sldos gracias. Silvina
ESTE ES MI CODIGO
if len(aParams)=4 // LA PRIMERA VEZ ASIGNA EL ULTIMO, UNA VEZ ELEGIDA LA OS ASIGNO LA QUE DEVUELVO AL VOLVER DE LA CONSULTA
(OSO)->(dbseek(aParams[3]))
cValor:=(OSO)->descrip+' ['+(OSO)->cod_osoc+']' // PARA HACER N CONSULTAS CONSERVANDO LA OBRA SOCIAL ELEGIDA
else // NO VEO NUNCA QUE ME PONGA UN "SELECTED" EN EL CODIGO FUENTE
cValor :=aObras[ len(aObras) ]
endif

cValor :=aObras[ len(aObras) ]
*
DEFINE DIALOG oDlg TITLE "Consultar el valor de una práctica" SIZE 550 , 300

@ 42 , 130 SAY "Obra Social :" OF oDlg

TComboBox():New( 42 , 250 , , , oDlg , aObras , "oGet1", cValor , )

ESTE ES EL CODIGO FUENTE DE LA PAGINA
<select id="oGet1">
<option value="A. y E. [ 34]">A. y E. [ 34]</option>
<option value="A.M.E.P. [ 8]">A.M.E.P. [ 8]</option>
<option value="ACA SALUD [ 70]">ACA SALUD [ 70]</option>
<option value="OSPLAD [ 37]">OSPLAD [ 37]</option>
<option value="OSPPCyQ [ 17]">OSPPCyQ [ 17]</option>
<option value="OSPRByL [ 88]">OSPRByL [ 88]</option>
<option value="OSPRERA [ 26]">OSPRERA [ 26]</option>
<option value="OSPSA-APE [ 30]">OSPSA-APE [ 30]</option>
<option value="VISITAR/P [132]">VISITAR/P [132]</option>
.
.
.
</select>

[Antonio Linares]

En vez de:

@ 42 , 130 SAY "Obra Social :" OF oDlg

escribe:

@ 42 , 130 SAY cValor OF oDlg

y compara con los valores que tiene el combobox. Debe haber alguna diferencia y por eso no lo encuentra.

[silvinamazzaro]

hice esa prueba, elegí la posición y esto salió por SI
// Aviso( IIF(cValor=aObras[2],'SI','NO') , MenuIngreso )
Ademas cuando entro asigno directamente la ultima posición asi que no puede haber diferencia...
tal vez si me pasas un ejemplo que te esté funcionando asi compraro
muchas gracias
Silvina

[Antonio Linares]

https://bitbucket.org/fivetech/fiveweb/wiki/testcomb_prg

[silvinamazzaro]

Ok, vamos a ese ejemplo, yo quisiera que la primera vez que entra se posicione en "two", cómo tendría que hacer ?

[Antonio Linares]

Silvina,

Code: Select all  Expand view  RUN

#include "FiveWeb.ch"

function Main()

   local oDlg, oCbx, cValue := "two"

   DEFINE DIALOG oDlg TITLE "Using a combobox"

   @ 30, 30 COMBOBOX oCbx VAR cValue ITEMS "one", "two", "three" ;
      OF oDlg

   @ 120, 120 BUTTON "Ok" OF oDlg ;
      ACTION alert( oCbx.value )

   ACTIVATE DIALOG oDlg NOWAIT

return nil

[silvinamazzaro]

Antonio, tal vez se trate que no tengo la ultima versión pero lo pruebo asi tal cual me lo mandaste al ejemplo y sigue posicionándose en "one"...

[silvinamazzaro]

Este el el código fuente de la pagina, sigue sin estar el "seleted"
<div id="oDlg" class="dialog_window" title="Uddddsing a combobox">
<div id="combobox" class="ui.widget" style="position: absolute; top: 30px; left: 30px;" >
<select id="oCbx">
<option value="one">one</option>
<option value="two">two</option>
<option value="three">three</option>
</select>

[Antonio Linares]

Silvina,

Necesitas la versión más reciente de FiveWeb:
https://bitbucket.org/fivetech/fiveweb

Aqui genera bien el código:

<select id="oCbx">
<option value="one">one</option>
<option value="two" selected >two</option>
<option value="three">three</option>
</select>

[silvinamazzaro]

Ah ok, debe ser eso . Pruebo
sldos y gracias
Silvina

[silvinamazzaro]

sii, probado, era eso
muchas gracias !!
Silvina