Ayuda con TSBROWSE

Ayuda con TSBROWSE

Postby Armando » Sat Mar 01, 2008 3: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
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Ayuda con TSBROWSE

Postby mmercado » Sat Mar 01, 2008 7: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
Code: Select all  Expand view  RUN
   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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby Armando » Sat Mar 01, 2008 8: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
User avatar
Armando
 
Posts: 3239
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 31 guests