Sincronizar 2 DBGrid

[[gluglu]]

Pienso que tu primera consulta que expones sería correcto para el fin que propones :

Código SQL [-]
Select a.categoria,
  (Select sum(debe) from caja t1
   where t1.categoria = a.categoria and year(t1.fecha) = 2008) as egreso,
  (Select sum(haber) from caja t2
   where t2.categoria = a.categoria and year(t2.fecha) = 2008) as ingreso
from parapersonales a

Entonces .... por qué no planteas tu segunda consulta de la misma manera ? , es decir, no creo que hiciera falta ningún Join

Código SQL [-]
Select a.categoria,
  (Select sum(debe) from caja t1
   where t1.categoria = a.categoria and year(t1.fecha) = 2008) as egreso2008,
  (Select sum(haber) from caja t2
   where t2.categoria = a.categoria and year(t2.fecha) = 2008) as ingreso2008,
  (Select sum(debe) from caja u1
   where u1.categoria = a.categoria and year(u1.fecha) = 2007) as egreso2007,
  (Select sum(haber) from caja u2
   where u2.categoria = a.categoria and year(u2.fecha) = 2007) as ingreso2007
from parapersonales a

Bastará que ahora tengas un único DataSource para tus dos DBGrid's, y que en uno de los DBGrid uses las columnas de los campos de un año, y en el otro DBGrid las columnas de los campos del otro año. Cuando te muevas en uno de los Grid, automáticamente el otro también se moverá a la posición correspondiente del otro año por estar apuntando al mismo DataSource

[*Caro*]

Hola Mamu, para la parte de sincronización talvez te sirva utilizar la propiedad RecNo de cada uno de tus dataSet.

Lo que haría primero es ponerle a las propiedades dgRowSelect->True y dgAlwaysShowSelection->True.

Digamos que el Query1(DataSource) esta enlazado a tu DBGrid1, entonces obtienes la fila Activa con RecNo y le dices que esa fila también sea activa para tu Query2 que estara enlazado a tu otro BDGrid.

Código Delphi [-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
 Fila : Integer;
begin
 Fila := Query1.RecNo;
 Query2.RecNo := Fila;
end;

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 Fila : Integer;
begin
 if (Key=vk_Up) or (Key=vk_Down) then
  begin
   Fila := Query1.RecNo;
   Query2.RecNo := Fila;
  end;
end;

Saluditos

[keyboy]

La consulta que pone gluglu es perfecta. Pero ya teniendo los datos en una sóla consulta, yo me olvidaría de los dos DBGrids y usaría uno sólo.

Bye

[keyboy]

Creo que podemos utilizar una consulta menos complicada y más eficiente al no usar tantas subconsultas:

Código SQL [-]
select
  categoria,
  sum(if(year(fecha)=2007, debe, 0)) as egreso2007,
  sum(if(year(fecha)=2007, haber, 0)) as ingreso2007,
  sum(if(year(fecha)=2008, debe, 0)) as egreso2008,
  sum(if(year(fecha)=2008, haber, 0)) as ingreso2008
from caja
group by categoria

Al final de cuentas, no requerimos enlazar a la tabla parapersonales. Lo único que necesitamos es que nuestro motor acepte algún tipo de condicional. En el ejemplo uso el IF de MySQL.

Bye

[MaMu]

Empezado por keyboy

Creo que podemos utilizar una consulta menos complicada y más eficiente al no usar tantas subconsultas:


Código SQL [-]
select
categoria,
sum(if(year(fecha)=2007, debe, 0)) as egreso2007,
sum(if(year(fecha)=2007, haber, 0)) as ingreso2007,
sum(if(year(fecha)=2008, debe, 0)) as egreso2008,
sum(if(year(fecha)=2008, haber, 0)) as ingreso2008
from caja
group by categoria





Al final de cuentas, no requerimos enlazar a la tabla parapersonales. Lo único que necesitamos es que nuestro motor acepte algún tipo de condicional. En el ejemplo uso el IF de MySQL.

Bye

Si, tenes toda la razón, no lo habia pensado de esa forma.

[MaMu]

Empezado por keyboy

Creo que podemos utilizar una consulta menos complicada y más eficiente al no usar tantas subconsultas:


Código SQL [-]
select
categoria,
sum(if(year(fecha)=2007, debe, 0)) as egreso2007,
sum(if(year(fecha)=2007, haber, 0)) as ingreso2007,
sum(if(year(fecha)=2008, debe, 0)) as egreso2008,
sum(if(year(fecha)=2008, haber, 0)) as ingreso2008
from caja
group by categoria




Al final de cuentas, no requerimos enlazar a la tabla parapersonales. Lo único que necesitamos es que nuestro motor acepte algún tipo de condicional. En el ejemplo uso el IF de MySQL.



Bye

De todas maneras me encuentro con otro problema, porque la consulta me devolvería ambos resultados agrupados, es decir:

Año 2008---------Año 2007
categoria1 2008 categoria1 2008
categoria2 2008 categoria2 2008
categoria3 2008 categoria3 2008
categoria4 2007 categoria4 2007

y yo solo quiero encolumnar donde hubiese resultado ya que es para hacer una comparación paralela, asi:

Año 2008---------Año 2007
categoria1 2008 categoria1 ----
categoria2 2008 categoria2 ----
categoria3 2008 categoria3 ----
categoria4 ---- categoria4 2007

lo que agrego es la fecha, para poder mostrarla

Código SQL [-]
 
select
categoria, fecha,
sum(if(year(fecha)=2007, debe, 0)) as egreso2007,
sum(if(year(fecha)=2007, haber, 0)) as ingreso2007,
sum(if(year(fecha)=2008, debe, 0)) as egreso2008,
sum(if(year(fecha)=2008, haber, 0)) as ingreso2008 
from caja
group by categoria

y en cuyo caso en que en ambos años haya resultados, me repetiria la categoria, asi:

Año 2008---------Año 2007
categoria5 2008 categoria5 2008
categoria5 2007 categoria5 2007

lo que me complica la visualización para comparar.

[MaMu]

En fin, lo solucionaré con campos calculados y veré que pasa.

[keyboy]

No entiendo lo que quieres decir en tu penúltimo mensaje. ¿Para qué quieres agregar la fecha?

Vamos a ver, si tienes la tabla caja

+------------+---------+-------+-------+
|categoria   |  fecha  | debe  | haber |
+------------+---------+-------+-------+
|A           |   2007  | 100   |  50   |
|B           |   2007  | 150   | 200   |
|A           |   2007  |  50   | 100   |
|A           |   2007  |  10   |   0   |
|C           |   2007  | 200   |  50   |
|B           |   2008  | 100   | 150   |
|A           |   2008  |  50   | 100   |
|A           |   2008  | 100   | 200   |
|C           |   2008  |  50   |  50   |
|D           |   2008  | 100   |  10   |
+------------+---------+-------+-------+

y aplicas la consulta que te puse, obtienes

+------------+----------------+---------------+--------------+---------------+
|categoria   |   egreso2007   |  ingreso2007  |  egreso2008  |   ingreso2008 |
+------------+----------------+---------------+--------------+---------------+
|A           |   160          |  150          |  150         |   300         |
+------------+----------------+---------------+--------------+---------------+
|B           |   150          |  200          |  100         |   150         |
+------------+----------------+---------------+--------------+---------------+
|C           |   200          |   50          |   50         |    50         |
+------------+----------------+---------------+--------------+---------------+
|D           |     0          |    0          |  100         |    10         |
+------------+----------------+---------------+--------------+---------------+

y, de hecho, con la consulta de gluglu obtienes lo mismo, excepto que en lugar de ceros en los ejercicios en los que no hubo movimiento en alguna categoría, obtienes NULL.

Pero no entiendo entonces cuál es el problema para comparar. Según se entendía de la primera consulta SQL que escribiste, quieres comparar los egresos e ingresos, por categoría, de dos ejercicios distintos. Y eso lo puedes hacer con el tipo de resultado que te muestro: cada renglón es una categoría y puedes ver una columna por ejercicio.

En todo caso, puedes basarte en los datos de ejemplo que pongo para explicar con más detalle lo que buscas.

Bye