como añadir una fila de totales al final de un grid

[Hitiel Hernández]

buen día compañeros, tengo un pequeño inconveniente, resulta que tengo un grid con las siguientes columnas:

CODIGO ------PRODUCTO-----ENTRADAS------SALIDAS------SALDO

Necesito hacer que al final del Grid me de los totales para las tres ultimas columnas; como hacer para que esto funcione?

gracias desde ya por su aporte!

--
Sabiduría ante todo; adquiere sabiduría

[Luis Maria Guayan]

Puedes totalizar las columnas en tres variables (con el comando SUM) o totalizar las tres columnas en un cursor (con una sentencia SELECT SUM(entradas), ...) y de allí mostrarlos en TextBoxes o una pequeña grilla de un registro en la parte inferior

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 
 

[Miguel Canchas]

Puedes poner el resultado directamente en la columna… thisfom.grid1.colum4.text.value = entradas – salidas

 

MK

--
 
 
 

[Mik]

Hola

Algunas veces he utilizado lo siguiente:

Si el cursor que muestras en la grilla es READWRITE puedes insertarle un ultimo registro con APPEND BLANK. El campo Producto lo reemplazas con el string "TOTAL" y los otros campos con los totales obtenidos con el comando SUM como te sugirio el señor Luis Maria. Luego puedes mostrar de otro color el ultimo registro de la grilla con lo siguiente:

Thisform.Grid1.SetAll("DynamicBackColor", "IIF(MiCursor.Producto="TOTAL", RGB(255,255,255) ;
   , RGB(0,255,0))", "Column") 

Espero te sirva.

Saludos

Miguel Herbias

Lima Peru

[Hitiel Hernández]

gracias compañeros, lo pondré en práctica y les aviso cómo me fue

--
 
 
 

[Rudolf Johann Heiner]

saludos amigos foxeros,

disculpen la molestia,

como hago para pintar una serie de filas de un grid,

osea intercalado una si una no,

gracias,

rudolf heiner.

[MILTON CACHIPUENDO]

Puedes utilizar la clase GridFooter.vcx (libre) que te ayuda de una manera facil a resolver este problema, es un objeto grid que se inserta en la ventana donde esta el grid, se configura que columnas se van a totalizar y listo, te da una apariencia profesional, ahí te envío la clase (renombrele el archivo a .ZIP)

Att.


ING. MILTON CACHIPUENDO
ServySistem Online
Ibarra - Ecuador

[Samuel San Miguel Hernández]

Hola Miltiño,, co abre tu clase... puedes enviar un ejemplo completo.

Gracias.

[Miltiño]

Tienes que renombrar el archivo adjunto gridfooter._zip a gridfooter.zip, lo descomprimes en un directorio, ahí hay un ejemplo, necesitas VFP 9.0

[Walter R. Ojeda Valiente]

1. Agrega tres textbox deshabilitados debajo de cada columna. Por ejemplo:
      - TotalEntradas
      - TotalSalidas
      - TotalSaldo

2. Agrega un método a tu formulario. Por ejemplo:
      - MostrarTotales

3. En el método MostrarTotales escribe:
      Local lnTotEntradas, lnTotSalidas, lnTotalSaldos
      SUM ENTRADAS, SALIDAS, SALDO TO lnTotalEntradas, lnTotalSalidas, lnTotalSaldo
      WITH ThisForm
          .TotalEntradas.Value = lnTotalEntradas
          .TotalSalidas.Value = lnTotalSalidas
          .TotalSaldo.Value = lnTotalSaldo
      ENDWITH

          Donde ENTRADAS, SALIDAS, SALDO son los nombres de tus campos

4. Cuando quieras ver los totales de esa columan simplemente invocas al método MostrarTotales(), por ejemplo:
      - ThisForm.MostrarTotales()

Saludos.

Walter.




Date: Thu, 19 Jul 2012 07:14:05 -0600

Subject: [vfp] como añadir una fila de totales al final de un grid
From: hiti...@gmail.com
To: publice...@googlegroups.com

--
 
 
 

[Jose Oscar Vogel]

buenas tardes

frmMyForm.grdGrid1.SetAll("DynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255), RGB(0,255,0))", "Column")  && Alternate white and green records

saludos oscar

--
 
 
 

--
Prof. Jose Oscar Vogel
Garuhapé - Misiones
CP 3334
Cel: 03743-15667526

MSN: oscar...@gmail.com
Twitter: @ovogel23
Facebook: oscarvogel

Mi Diario:  http://paper.li/ovogel23/1307458843

http://www.ferreteriaavenida.com.ar

[Armando Rodríguez Bermúdez]

Walter, me ha pasado que cuando utilizo SUM nativo de Fox, me lleva el apuntador de registros hasta el último registro. Y cuando obtiene el foco la grilla se coloca al final.  En su lugar hago selects sum(nombre_campo ) as campo, y luego asigno el resultado al value de los textboxes.

 

Saludos

Armando

--
 
 
 

[Luis Maria Guayan]

Mira este código de Carlos Alloatti

http://www.foxite.com/archives/alternate-row-color-0000288687.htm

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

--
 
 
 

[Nilton CPM]

1> Guarda o numero do ponteiro.

2> Executa o SUM.

3> Restaura o numero do ponteiro.

 

------------

select notas

nRecno = iif(!eof() and !bof(), recno(), 0)

...

sum ...

...

if nRecno <> 0

    go nRecno

endif

------------

--
 
 
 

[Walter R. Ojeda Valiente]

Hola Armando

Es cierto, el comando SUM mueve el puntero al final del archivo, pero lo solucionas fácil:
  lnNumReg = RecNo()
  && Aquí todas las otras instrucciones
  go lnNumReg

Saludos.

Walter.

---

From: armandor...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] como añadir una fila de totales al final de un grid
Date: Thu, 19 Jul 2012 15:31:30 -0500

--
 
 
 

[Armando Rodríguez Bermúdez]

Muito obrigado

 

Armando

--
 
 
 

[Armando Rodríguez Bermúdez]

Gracias

--
 
 
 

[Jairo]

Hago lo siguiente.

 

DIMENSION laArray[1]

     

SELECT SUM(detalle.monto) FROM detalle;

      WHERE detalle.id == ?Pedidos.id ;

      INTO ARRAY laArray

     

      if !empty(laArray[1])

            thisform.Gframes1.Page1.MONTO1.Value = laArray[1]

            thisform.Gframes1.Page1.Total1.Refresh()

      else

            thisform.Gframes1.Page1.MONTO1.Value = 0

            thisform.Gframes1.Page1.MONTO1.Refresh()

      ENDIF

 

JM

--
 
 
 

[Riago]

 Cuando se utiliza el RECNO() como referencia de registro, posiblemente tenga problemas para desplegar si tu archivo está indexado, pues la relación de la posición en el indice no será reacional y consecutiva con el RECNO(), por consiguiente si el archivo tiene indices esta opción no será viable, podrá desplegar colores, pero no intercalados en forma correcta.

Un abrazo.

      Saludos 

Ricardo González

 

--
 
 
 

[Daniel Sánchez]

Maestro Luis María me pareció interesante el link y lo copie el código a un prg y me bloqueo mi Visual FoxPro al ejecutarlo.

Windows 7 32bits y VFP 9 SP2

Saludos

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[Riago]

Yo también lo bajé y funciona excelente, solo que las lineas de colores intercaladas las despliega en los rows que están desplegados en pantalla, si utilizo el botón de desplazamiento lateral, ya no tienen colores.

La forma en que lo desarrollo, está muy buena.

      Saludos 

Ricardo González

[Daniel Sánchez]

Maestro Luis María, haciendo seguimiento al código esta línea es la que me deja colgado 

m.lRiid = 0hE03687613D3CCF11810C00AA00389B71

que esta en esta sección del código

Declare Integer AccessibleObjectFromWindow In oleacc.Dll ;
		Integer nhwnd, ;
		Integer dwObjectID, ;
		String riid, ;
		Object @ppvObject

	m.lHwnd = Thisform.HWnd
	m.ldwObjectID = OBJID_CLIENT
	m.lRiid = 0hE03687613D3CCF11810C00AA00389B71
	m.loxForm = 0

	AccessibleObjectFromWindow(m.lHwnd, m.ldwObjectID , m.lRiid, @m.loxForm)

Lo he colocado en la calculadora de windows y me lo recorta 0hE03687613D3CCF11 y eso que esta en la opción qword que es la mas alta de las otras que son dword, word y byte.

[Víctor Hugo Espínola Domínguez]

Hola Daniel

En XP funciona Ok. En W7 Home Premium 64 falla pero no cuelga.

Con algunas modificaciones lo convertí a puro Visual FoxPro, adjunto el programa modificado. Si alguien tiene tiempo y ganas lo puede convertir a clase y postearlo al grupo.

Saludos.

Víctor.

--
 
 
 

[Hitiel Hernández]

y dónde haces esto Jairo?,, es decir, en qué momento

--
 
 
 

[Víctor Hugo Espínola Domínguez]

Hola grupo VISUAL FOXPRO

Acá va otra modificación que sirve para tablas que tengan Clave Primaria, en este caso la primera columna.

Saludos.

Víctor.

[ZeRoberto]

El codigo de Carlos Alloatti solo funciona en numero x de registros
pero cuando vas bajando con el scrollbar se despintan los registros.

El 20/07/12, Víctor Hugo Espínola Domínguez <vich...@gmail.com> escribió:

> --
>
>
>
>

[HernanCano]

He ejecutado el código de Carlos Alloatti que nos expone Luis María, y funciona sin problemas.

Lo ejecuté y me desplacé con las flechas arriba y abajo, con página arriba y abajo, y con el scroll, con el mouse; es decir que los renglones se pintan uno sí y el sgte no, de acuerdo a lo que necesitamos, con cualq de los ordenamientos que da el ejemplo

WinXP, VFP9 sin Service Pack ( 09.00.0000.2412 ), Monitor AOC, Resolución 1024x768 .

Chao.

[HernanCano]

Perdón.

He ejecutado el código de Víctor Hugo, y funciona sin problemas.

Lo ejecuté y me desplacé con las flechas arriba y abajo, con página arriba y abajo, y con el scroll, con el mouse; es decir que los renglones se pintan uno sí y el sgte no, de acuerdo a lo que necesitamos, con cualq de los ordenamientos que da el ejemplo

WinXP, VFP9 sin Service Pack ( 09.00.0000.2412 ), Monitor AOC, Resolución 1024x768 .

Chao.

Por favor discupen el error.

Autorizo al administrador tachar el mensaje anterior (no exactamente suprimir, pero si se considera necesario, ok).

[Mario Oviedo]

en la cuarta columna y en lostfocus coloca

thisfom.grid1.colum4.text.value = entradas – salidas 
entradas=micursor.entradas

salidas=this.value

--