FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ayuda con TSBROWSE
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Ayuda con TSBROWSE
Posted: Sat Mar 01, 2008 03:57 AM

Amigos del foro, en especial Manuel Mercado:

Hasta ahora he usado TSbrowse con campos alfanúmericos en un ComboBox, por ejemplo:

acParent := {"Esposa(o)","Hija(o)","Padre","Madre"}

Y como el campo que recibe la información es alfanumerico de un caracter de longitud pues solo se guarda la E, H, P ó M según la elección del usuario, pero ahora necesito, con la misma TSbrowse, guardar un valor númerico, por ejemplo

Pongamos el caso de unas cuentas bancarias

12345 NOMBRE DE LA CUENTA A
67890 NOMBRE DE LA CUENTA B
65425 NOMBRE DE LA CUENTA C
etc

Necesito que el combobox muestra los nombres de las cuentas y que cuando el usuario seleccione alguna se guarde el número de la cuenta, si el usuario selecciona NOMBRE DE LA CUENTA B que se guarde en el campo de la DBF el número de la cuenta 67890

Espero haberme explicado y gracias por el apoyo.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Ayuda con TSBROWSE
Posted: Sat Mar 01, 2008 07:12 PM
Armando wrote:Necesito que el combobox muestra los nombres de las cuentas y que cuando el usuario seleccione alguna se guarde el número de la cuenta, si el usuario selecciona NOMBRE DE LA CUENTA B que se guarde en el campo de la DBF el número de la cuenta 67890
   Local aNombres := { "Nombre de la cuenta A", "Nombre de la cuenta B", "Nombre de la cuenta C" }, ;
         aCuentas := { 12345, 67890, 65425 }, ;
         nColumn  := 1, ;     // numero de la columna con el control COMBOBOX dentro de oBrw
         cField   := "CUENUM" // nombre del campo que guarda el dato
         
   @  0,  0 BROWSE oBrw ALIAS "CUENTAS" ..........
   
   ADD COLUMN TO oBrw TITLE "Cuenta Bancaria" SIZE 100 PIXEL ;
       COMBOBOX DATA ComboWBlock( oBrw, cField, nColumn, { aNombres, aCuentas } )

Saludos.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Ayuda con TSBROWSE
Posted: Sat Mar 01, 2008 08:09 PM

Maestro:

PERFECTO !, como siempre.

Muy agradecido

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion