FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour fiveweb: combobox seleccion
Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
fiveweb: combobox seleccion
Posted: Tue Aug 09, 2016 12:42 PM

Hola Antonio, estamos usando fiveweb muy entusiasmada por lo rapido que programo :D
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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 09, 2016 08:12 PM

Silvina,

Por favor mu茅strame el c贸digo HTML que se genera para el combobox en la p谩gina

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 09, 2016 08:37 PM
> 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 (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Wed Aug 10, 2016 12:33 PM

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>

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: fiveweb: combobox seleccion
Posted: Thu Aug 11, 2016 09:25 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Thu Aug 11, 2016 12:37 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: fiveweb: combobox seleccion
Posted: Fri Aug 12, 2016 06:38 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Fri Aug 12, 2016 08:46 PM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: fiveweb: combobox seleccion
Posted: Sat Aug 13, 2016 08:32 AM
Silvina,

Code (fw): Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 16, 2016 01:47 PM

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"...

Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 16, 2016 01:50 PM

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>

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 16, 2016 03:40 PM
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>
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 16, 2016 06:59 PM

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

Posts: 61
Joined: Tue Nov 19, 2013 02:13 PM
Re: fiveweb: combobox seleccion
Posted: Tue Aug 16, 2016 07:03 PM

sii, probado, era eso
muchas gracias !!
Silvina

Continue the discussion