Columnas de Totales en un Grid...!!!

Hola José Ramón:

Eso no lo consigues con el grid de form nativa. El grid te ofrece los datos
que tienes en algún alias (tabla, vista, cursor) y en ningún caso tienes un
registro que totalice.

Lo tienes que "pintar" con cuadros de texto o tener un segundo grid sin
encabezados que contenga, por ejemplo un cursor que creas con una select
donde están los totales.

Yo prefiero tratarlos con textbos, eso sí, si el grid es ancho y se desplaza
se te desconfigura todo.


Saludos,

Ana
www.amby.net

"José Ramón Saboria S." escribió en el mensaje
news:

Hola... estoy tratando de pasar un viejo sistema de inventarios que tengo
en Clipper a Visual FoxPro tengo la version 6 de este y tengo la siguiente
duda... aver si me pueden hechar la mano ya que no tengo mucha experiencia
en vFox...

En una parte de mi programa necesito capturar en un Grid informacion en
una tabla X (que contiene bastantes columnas) y deseo poner una columna
que me totalice por renglon y si se puede un renglon que me totalice por
columna, pero ademas si es posible fijar dicha columna para que no se
mueva cuando el usuario se desplace por el resto de las culmnas... y
siempre este visible.

Espero sus comentarios

gracias...




PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Puedes crear un metodo llamado SumColumn y usar el siguiente codigo

*(c) NickSoft Corporation 2003

*-- Este metodo es usado para sumar columnasen el grid y guardar el
resultado
*-- Solamente funciona para una columna a la vez

IF EMPTY(this.cFieldToSum)
RETURN
ENDIF

LOCAL lnOldArea, ;
lnOldRecNo, ;
luKey, ;
lcFieldToSum, ;
lcOrder

lnOldArea = SELECT()
this.nColumnSum = 0
lcFieldToSum = ""

IF EMPTY(this.RecordSource)
RETURN
ENDIF

*-- Seleccionar el alias specifico en la propiedad RecordSource
SELECT (this.RecordSource)

lcOrder = ORDER()
*-- Usar la cadenaregresada por ORDER() como parametro
*-- para la funcion EVAL() para regresar el valor
*-- del Id actual ID, el cual usaremos posteriormente para el SEEk() en la
tabla
luKey = IIF(!EMPTY(lcOrder), EVAL(lcOrder), "")
lnOldRecNo = IIF(EOF(), 0, RECNO())
lcFieldToSum = this.cFieldToSum

*-- Sumariza la columna y guuarda el resultado en la propiedad nColumnSum
IF !EMPTY(lcOrder) AND SEEK(luKey)
SUM &lcFieldToSum. ;
WHILE luKey = EVAL(lcOrder) ;
TO this.nColumnSum
ELSE
IF CURSORGETPROP("SOURCETYPE") = DB_SRCLOCALVIEW OR ;
CURSORGETPROP("SOURCETYPE") = DB_SRCREMOTEVIEW
*--Grid refleja el resultado
SUM &lcFieldToSum. ;
TO this.nColumnSum
ENDIF
ENDIF

IF lnOldRecNo <> 0
GO lnOldRecNo
ENDIF

SELECT (lnOldArea)


[quote][B]José Ramón Saboria S. Escribió:[/b]

<pre>
Hola... estoy tratando de pasar un viejo sistema de inventarios que tengo
en Clipper a Visual FoxPro tengo la version 6 de este y tengo la siguiente
duda... aver si me pueden hechar la mano ya que no tengo mucha experiencia
en vFox...

En una parte de mi programa necesito capturar en un Grid informacion en
una tabla X (que contiene bastantes columnas) y deseo poner una columna
que me totalice por renglon y si se puede un renglon que me totalice por
columna, pero ademas si es posible fijar dicha columna para que no se
mueva cuando el usuario se desplace por el resto de las culmnas... y
siempre este visible.

Espero sus comentarios

gracias...




PortalFox :: Nada corre como un zorro
[link]http://www.portalfox.com[/link]

PortalFox - NNTP Forum Gateway

</pre>
[/quote]

" El que come del fruto del árbol del conocimiento, siempre es arrojado de
algún paraíso"

WebsurferMX


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway