Página 1 de 1

Campo calculados en un DbfBrowse

Publicado: Mié Ene 02, 2008 7:11 pm
por soporte
Requiero en un DbfBrowse
Incluir un campo calculado por ejemplo:
CAMPO1+CAMPO2
Que el resultado se muestre en un campo del DbfBrowse, lo intenté pero no
muestra nada, que estoy haciendo mal.
Gracias
Ing. Guillermo Guevara C.
Grupo Computación 2000
Nuevo Mundo Nº 2821
Jardines de la Cruz
Guadalajara, Jal. 44950
(33) 1078-8363 / 1078-8364
www.pv2000.com.mx
soporte@pv2000.com.mx

Campo calculados en un DbfBrowse

Publicado: Jue Ene 03, 2008 1:38 am
por Rene Flores
Guillermo:
Tienes que usar el evento OnGetData del objeto columna que vas a usar:
WITH OBJECT ::oDbfBrowse
:aCols[<columna>]:OnGetData := {|oCol, cText, nImage| cText := <pon
aqui el campo calculado }
END
En el bloque de código que define cada columna, el parametro cText
define lo que quieres visualizar.
Saludos
Rene Flores
http://www.ciber-tec.com
Ing. Guillermo Guevara C. escribió:
> Requiero en un DbfBrowse
> Incluir un campo calculado por ejemplo:
>
> CAMPO1+CAMPO2
>
> Que el resultado se muestre en un campo del DbfBrowse, lo intenté pero no
> muestra nada, que estoy haciendo mal.
>
> Gracias
>
> Ing. Guillermo Guevara C.
> Grupo Computación 2000
> Nuevo Mundo Nº 2821
> Jardines de la Cruz
> Guadalajara, Jal. 44950
> (33) 1078-8363 / 1078-8364
> www.pv2000.com.mx
> soporte@pv2000.com.mx
>
>

Campo calculados en un DbfBrowse

Publicado: Jue Ene 03, 2008 10:49 am
por ignacio
Guillermo,
Ni siquiera muestra lo que está haciendo por lo que es muy difícil ayudarle.
Echele un vistazo al método TDataset:AddCalcField(). En el ejemplo
DatacontrolsDbfData1 la primer columna del browse es un campo calculado.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Ing. Guillermo Guevara C." <soporte@pv2000.com.mx> escribió en el mensaje
news:[email=477bd3b7@ozsrv2.ozlan.local...]477bd3b7@ozsrv2.ozlan.local...[/email]
> Requiero en un DbfBrowse
> Incluir un campo calculado por ejemplo:
>
> CAMPO1+CAMPO2
>
> Que el resultado se muestre en un campo del DbfBrowse, lo intenté pero no
> muestra nada, que estoy haciendo mal.
>
> Gracias
>
> Ing. Guillermo Guevara C.
> Grupo Computación 2000
> Nuevo Mundo Nº 2821
> Jardines de la Cruz
> Guadalajara, Jal. 44950
> (33) 1078-8363 / 1078-8364
> www.pv2000.com.mx
> soporte@pv2000.com.mx
>
>