Page 1 of 1

fiveweb: combobox seleccion

Posted: Tue Aug 09, 2016 12:42 pm
by silvinamazzaro
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

Re: fiveweb: combobox seleccion

Posted: Tue Aug 09, 2016 8:12 pm
by Antonio Linares
Silvina,

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

Re: fiveweb: combobox seleccion

Posted: Tue Aug 09, 2016 8:37 pm
by 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

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

Re: fiveweb: combobox seleccion

Posted: Wed Aug 10, 2016 12:33 pm
by 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>

Re: fiveweb: combobox seleccion

Posted: Thu Aug 11, 2016 9:25 am
by 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.

Re: fiveweb: combobox seleccion

Posted: Thu Aug 11, 2016 12:37 pm
by 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

Re: fiveweb: combobox seleccion

Posted: Fri Aug 12, 2016 6:38 am
by Antonio Linares

Re: fiveweb: combobox seleccion

Posted: Fri Aug 12, 2016 8:46 pm
by silvinamazzaro
Ok, vamos a ese ejemplo, yo quisiera que la primera vez que entra se posicione en "two", cómo tendría que hacer ?

Re: fiveweb: combobox seleccion

Posted: Sat Aug 13, 2016 8:32 am
by Antonio Linares
Silvina,

Code: Select all

#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

Re: fiveweb: combobox seleccion

Posted: Tue Aug 16, 2016 1:47 pm
by 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"...

Re: fiveweb: combobox seleccion

Posted: Tue Aug 16, 2016 1:50 pm
by 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>

Re: fiveweb: combobox seleccion

Posted: Tue Aug 16, 2016 3:40 pm
by 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>

Re: fiveweb: combobox seleccion

Posted: Tue Aug 16, 2016 6:59 pm
by silvinamazzaro
Ah ok, debe ser eso . Pruebo
sldos y gracias
Silvina

Re: fiveweb: combobox seleccion

Posted: Tue Aug 16, 2016 7:03 pm
by silvinamazzaro
sii, probado, era eso
muchas gracias !!
Silvina