Estimados Consultores:
Diseñe un Dbfbrowse con 8 columnas, la columna 8 quiero asignarle en el
proceso de ejecución el valor de un campo o ponerla no visible, el código
que uso el el siguiente:
WITH OBJECT ::oDbfBrowseInfAct
SWITCH ::nComDat
CASE 1
:aCols[8]:lVisible := .F.
EXIT
CASE 2
WITH OBJECT :aCols[8]
:lVisible := .T.
:cHeader := "Uni.Med."
:nAlignment := taRIGHT
:nWidth := 70
:cFieldName := UNIDAD
END
EXIT
CASE 3
WITH OBJECT :aCols[8]
:lVisible := .T.
:cHeader := "Valor"
:nAlignment := taRIGHT
:nWidth := 90
:cFieldName := VALOR
END
END
Al ejecutarce el programa si selecciono opcion 1, se hace invisible la
columna ocho, con la opcion 2 y 3 se ejecutan:
lVisible, cHeader, nAlignment y nWidth correctamente, sin embargo el valor
del campo que deseo desplegar en la columna no se visualiza, que se necesita
hacer para que lo despliegue en función a la seleccion. Por su ayuda.
Gracias.
--
Ing. Francisco González Herrera
Comunicaciones Satelitales y Redes, S.A. de C.V.
56-78-16-66
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Asignar Valores a Columna
Asignar Valores a Columna
Buenos días,
Sólo puede asignar a la propiedad TBrwColumn:cFieldName antes de hacer la
llamada a TDbfBrowse:SetDbf() que es cuando se resuelve el nombre. En el
resto de los casos deberá usar el evento TBrwColumn:OnGetData.
Un saludo,
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=4a5d036b@svctag-j7w3v3j....]4a5d036b@svctag-j7w3v3j....[/email]
> Estimados Consultores:
>
> Diseñe un Dbfbrowse con 8 columnas, la columna 8 quiero asignarle en el
> proceso de ejecución el valor de un campo o ponerla no visible, el código
> que uso el el siguiente:
>
> WITH OBJECT ::oDbfBrowseInfAct
> SWITCH ::nComDat
> CASE 1
> :aCols[8]:lVisible := .F.
> EXIT
> CASE 2
> WITH OBJECT :aCols[8]
> :lVisible := .T.
> :cHeader := "Uni.Med."
> :nAlignment := taRIGHT
> :nWidth := 70
> :cFieldName := UNIDAD
> END
> EXIT
> CASE 3
> WITH OBJECT :aCols[8]
> :lVisible := .T.
> :cHeader := "Valor"
> :nAlignment := taRIGHT
> :nWidth := 90
> :cFieldName := VALOR
> END
> END
>
> Al ejecutarce el programa si selecciono opcion 1, se hace invisible la
> columna ocho, con la opcion 2 y 3 se ejecutan:
> lVisible, cHeader, nAlignment y nWidth correctamente, sin embargo el valor
> del campo que deseo desplegar en la columna no se visualiza, que se
> necesita hacer para que lo despliegue en función a la seleccion. Por su
> ayuda. Gracias.
>
> --
> Ing. Francisco González Herrera
> Comunicaciones Satelitales y Redes, S.A. de C.V.
> 56-78-16-66
>
Sólo puede asignar a la propiedad TBrwColumn:cFieldName antes de hacer la
llamada a TDbfBrowse:SetDbf() que es cuando se resuelve el nombre. En el
resto de los casos deberá usar el evento TBrwColumn:OnGetData.
Un saludo,
"Ing. Francisco Gonzälez Herrera" <fglez@csyredes.com> escribió en el
mensaje news:[email=4a5d036b@svctag-j7w3v3j....]4a5d036b@svctag-j7w3v3j....[/email]
> Estimados Consultores:
>
> Diseñe un Dbfbrowse con 8 columnas, la columna 8 quiero asignarle en el
> proceso de ejecución el valor de un campo o ponerla no visible, el código
> que uso el el siguiente:
>
> WITH OBJECT ::oDbfBrowseInfAct
> SWITCH ::nComDat
> CASE 1
> :aCols[8]:lVisible := .F.
> EXIT
> CASE 2
> WITH OBJECT :aCols[8]
> :lVisible := .T.
> :cHeader := "Uni.Med."
> :nAlignment := taRIGHT
> :nWidth := 70
> :cFieldName := UNIDAD
> END
> EXIT
> CASE 3
> WITH OBJECT :aCols[8]
> :lVisible := .T.
> :cHeader := "Valor"
> :nAlignment := taRIGHT
> :nWidth := 90
> :cFieldName := VALOR
> END
> END
>
> Al ejecutarce el programa si selecciono opcion 1, se hace invisible la
> columna ocho, con la opcion 2 y 3 se ejecutan:
> lVisible, cHeader, nAlignment y nWidth correctamente, sin embargo el valor
> del campo que deseo desplegar en la columna no se visualiza, que se
> necesita hacer para que lo despliegue en función a la seleccion. Por su
> ayuda. Gracias.
>
> --
> Ing. Francisco González Herrera
> Comunicaciones Satelitales y Redes, S.A. de C.V.
> 56-78-16-66
>