Browse - Combobox

[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

[salamandra]

Hola Mario

Modifique tu ejemplo y ahora parece funcionar correctamente.
Fijate si es eso lo que precisas.

Combo2.rar

(874.05 KiB) Downloaded 542 times

[]´s Salamandra

[danielmaximiliano]

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 4661 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 4661 times

[danielmaximiliano]

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

[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. */

[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