Page 1 of 1
Browse - Combobox
Posted: Fri Jul 20, 2012 2:33 pm
by Mario Mansilla
Hola :
Tengo un problema que no puedo solucionar .
Les envio el ejemplo . Este ejemplo muestra una base de datos (dpto) en un browse y utilizo un combobox para mostrar un campo que esta ligado a otra base de datos (tasa) .
Problema : El campo dpto 1 tiene tasa (0) lo cual lo muestra bien al ingresar al ejemplo . Ahora bien cuando muevo el browse al dpto 2 y regreso al dpto 1 no me actualiza correctamente .
En el ejemplo para modifico la tasa con el combobox y luego aceptar
Espero puedan ayudarme
Saludos cordiales
Mario Mansilla
Hi
I have a problem I can not solve.
I send you the example. This example shows a database (dpto) in a browse and use a combobox to display a field that is linked to another database (tasa).
Problem: The field dept 1 has tasa (0) which shows it well to enter the sample. But when I move the browse by dept dept 2 and 1 does not return to me properly updated.
In the example to modify the fee to the combobox and then accept
I hope you can help
Best Regards
Mario Mansilla
Re: Browse - Combobox
Posted: Fri Jul 20, 2012 6:09 pm
by salamandra
Hola Mario
Modifique tu ejemplo y ahora parece funcionar correctamente.
Fijate si es eso lo que precisas.
[]´s Salamandra
Re: Browse - Combobox
Posted: Fri Jul 20, 2012 6:48 pm
by danielmaximiliano
salamandra wrote:Hola Mario
Modifique tu ejemplo y ahora parece funcionar correctamente.
Fijate si es eso lo que precisas.
The attachment Combo2.rar is no longer available
[]´s Salamandra
Hola Salamandra :
por aqui sigue sin funciona:
al seleccionar dentro del Browse el puntero dentro de Dpto.dbf se mueve porque tiene SET Browse Sync en ON.
Code: Select all
--------------------------
PROCEDURE Actualizar()
*--------------------------
Local cTasa
Sele 1
cTasa := Dpto->Tasa
Sele 2
Tasa->(DbSeek(cTasa))
Msginfo ("Tasa Codigo :" +Ctasa + CHR(10)+;
"Registro :" +STR(Recno()))
If Tasa->(Eof())
Main.Combo_1.Value := 1
MSGINFO("Final")
Else
Main.Combo_1.Value := Tasa->(Recno())
Main.Combo_1.Refresh
Endif

- tasa 1.jpg (24.63 KiB) Viewed 5122 times
si Elije Dpto 2 en el Browse el Combo_1 refleja su verdadera Tasa que es el 21%, pero al retornar o elegir otro Deptos este combo no refleja su real TASA.

- tasa 2.jpg (25.13 KiB) Viewed 5122 times
Re: Browse - Combobox
Posted: Fri Jul 20, 2012 6:50 pm
by danielmaximiliano
danielmaximiliano wrote:salamandra wrote:Hola Mario
Modifique tu ejemplo y ahora parece funcionar correctamente.
Fijate si es eso lo que precisas.
Combo2.rar
[]´s Salamandra
Hola Salamandra :
por aqui sigue sin funciona:
al seleccionar dentro del Browse el puntero dentro de Dpto.dbf se mueve porque tiene SET Browse Sync en ON.
Code: Select all
--------------------------
PROCEDURE Actualizar()
*--------------------------
Local cTasa
Sele 1
cTasa := Dpto->Tasa
Sele 2
Tasa->(DbSeek(cTasa))
Msginfo ("Tasa Codigo :" +Ctasa + CHR(10)+;
"Registro :" +STR(Recno()))
If Tasa->(Eof())
Main.Combo_1.Value := 1
MSGINFO("Final")
Else
Main.Combo_1.Value := Tasa->(Recno())
Main.Combo_1.Refresh
Endif
tasa 1.jpg
si Elije Dpto 2 en el Browse el Combo_1 refleja su verdadera Tasa que es el 21%, pero al retornar o elegir otro Deptos este combo no refleja su real TASA.
tasa 2.jpg
DPTO.DBF
CODIGO :1 Nombre : Dpto 1 Tasa : 0
CODIGO :2 Nombre : Dpto 2 Tasa : 1
Tasa.DBF
Codigo : 0 Tasa 0.00
Codigo : 1 tasa 21.00
Re: Browse - Combobox
Posted: Fri Jul 20, 2012 7:03 pm
by danielmaximiliano
Hola :
Encontre el Error, esta en el Form
esta asi :
Code: Select all
VALUESOURCE Tasa->(Val(Codigo))
ITEMSOURCE Tasa->(Str(Tasa,5,2))
y la corrección es :
Code: Select all
VALUESOURCE Tasa->Codigo
ITEMSOURCE Tasa->(Str(Tasa,5,2))
Mirando HMG Refrence me encontre con esto
/* - When used in control definition, ITEM property must be a character array.
- When ITEMSOURCE property is set to a fieldname, 'Value' property
uses the physical record number, as in browse.
- If you set the VALUESOURCE property to a fieldname, its content is
returned instead the physical record number. */
Re: Browse - Combobox
Posted: Fri Jul 20, 2012 7:11 pm
by Mario Mansilla
Hola Daniel :
Ahora si perfecto

.
Hasta ahora siempre pense que el itemsource era texto (de lo contrario no lo muestra) y el valuesource deberia ser numerico en correspondencia con el value

.
Muchas gracias Daniel y salamandra
Saludos Cordiales
Mario Mansilla