Ventas por mes

[Jorge Orozco]

Utilizo el Embarcadero RAD Studio 2010. Nunca he utilizado el DBGrid. Y en este caso no se como cargarlo.

[ecfisa]

Empezado por Jorge Orozco

Utilizo el Embarcadero RAD Studio 2010. Nunca he utilizado el DBGrid. Y en este caso no se como cargarlo.

Hola Jorge.

1. Agrega un TDBGrid (pestaña Data Controls).
2. Agrega un componente TDataSource (pestaña Data Access) y en su propiedad DataSet seleccióna "IBQuery4".
3. En la propiedad DataSource del DBGrid selecciona el nombre del DataSource anterior.

Y listo. Si "IBQuery4" está abierto, ya tendrías que estar viendo los datos en el TDBGrid .

Saludos

[Jorge Orozco]

Amigos he intentado todo para poder mostrar las ventas por mes y año y no me lo muestra. Aquí les dejo el procedimiento completo, para ver en que me pueden ayudar. Se los agradezco, ya que he hecho lo que esta a mi alcance y no he podido.


procedure TMovimiento_Pedidos.desglose_articulo_ventas;
var conte, i, c1 : integer;
compras3, estado1 : string;
fecha1, fecha2 : string; //TdateTime;
begin
estado1 := 'ANULADO';
fecha1 := datetostr(fechaini.DateTime);
fecha2 := datetostr(fechafin.DateTime);
c1 := 0;

IBQuery4.Close;
IBQuery4.SQL.Clear;
IBQuery4.SQL.Add('select count(*) as entradas from ARTICULOS a inner join FACTURADT b on (b.FAARID = a.ARID) '+
'inner join FACTURAS c on (c.FAID = b.FAID) and (c.FAESTADO <> '''+estado1+''') and (c.FAFCH between '''+fecha1+''' and '''+fecha2+''') '+
' where a.ARCODIGO = '''+Codigo_Prod.Text+'''');

IBQuery4.Prepare;
IBQuery4.Open;
begin
conte := IBQuery4.FieldByName('entradas').AsInteger;


IBQuery4.Close;
IBQuery4.SQL.Clear;
IBQuery4.SQL.Add('select extract(year from fafch) anio1, extract(month from fafch) meses1, sum(facantidad) as ventas_mes'+
'from ARTICULOS a inner join FACTURADT b on (b.FAARID = a.ARID) '+
'inner join FACTURAS c on (c.FAID = b.FAID) and (c.FAESTADO <> '''+estado1+''') and (c.FAFCH between '''+fecha1+''' and '''+fecha2+''') '+
'where a.ARCODIGO = '''+Codigo_Prod.Text+''' group by 1, 2'+
'order by 1, 2');

IBQuery4.Prepare;
IBQuery4.Open;
end;

for i := 1 to conte do
begin
begin
sg1.Cells[1+c1,3] := IBQuery4.FieldByName('meses1').AsString+'-'+IBQuery4.FieldByName('anio1').AsString;
sg1.Cells[2+c1,3] := IBQuery4.FieldByName('ventas_mes').AsString;

c1 := c1+2;
end;
IBQuery4.Next;
end;

end;

[look]

Empezado por Jorge Orozco

Amigos he intentado todo para poder mostrar las ventas por mes y año y no me lo muestra. Aquí les dejo el procedimiento completo, para ver en que me pueden ayudar. Se los agradezco, ya que he hecho lo que esta a mi alcance y no he podido.


procedure TMovimiento_Pedidos.desglose_articulo_ventas;
var conte, i, c1 : integer;
compras3, estado1 : string;
fecha1, fecha2 : string; //TdateTime;
begin
estado1 := 'ANULADO';
fecha1 := datetostr(fechaini.DateTime);
fecha2 := datetostr(fechafin.DateTime);
c1 := 0;

IBQuery4.Close;
IBQuery4.SQL.Clear;
IBQuery4.SQL.Add('select count(*) as entradas from ARTICULOS a inner join FACTURADT b on (b.FAARID = a.ARID) '+
'inner join FACTURAS c on (c.FAID = b.FAID) and (c.FAESTADO <> '''+estado1+''') and (c.FAFCH between '''+fecha1+''' and '''+fecha2+''') '+
' where a.ARCODIGO = '''+Codigo_Prod.Text+'''');

IBQuery4.Prepare;
IBQuery4.Open;
begin
conte := IBQuery4.FieldByName('entradas').AsInteger;


IBQuery4.Close;
IBQuery4.SQL.Clear;
IBQuery4.SQL.Add('select extract(year from fafch) anio1, extract(month from fafch) meses1, sum(facantidad) as ventas_mes'+
'from ARTICULOS a inner join FACTURADT b on (b.FAARID = a.ARID) '+
'inner join FACTURAS c on (c.FAID = b.FAID) and (c.FAESTADO <> '''+estado1+''') and (c.FAFCH between '''+fecha1+''' and '''+fecha2+''') '+
'where a.ARCODIGO = '''+Codigo_Prod.Text+''' group by 1, 2'+
'order by 1, 2');

IBQuery4.Prepare;
IBQuery4.Open;
end;

for i := 1 to conte do
begin
begin
sg1.Cells[1+c1,3] := IBQuery4.FieldByName('meses1').AsString+'-'+IBQuery4.FieldByName('anio1').AsString;
sg1.Cells[2+c1,3] := IBQuery4.FieldByName('ventas_mes').AsString;

c1 := c1+2;
end;
IBQuery4.Next;
end;

end;

No veo nada de lo que te recomendamos aqui.... ¡facepalm!

[Jorge Orozco]

Amigo si lo hice, pero tampoco me funciono, entonces le estoy pasando el procedimiento desde el principio. Inente hacerlo en DBGrid, pero es lo mismo, no me carga las celdas ono se sihice algo malo. La base de datos que uso es SQL Server 2008, y la comunicación con la base de datos lo hago por medio del IBQuery y el IBTransaction.

Gracias

[look]

Empezado por Jorge Orozco

Amigo si lo hice, pero tampoco me funciono, entonces le estoy pasando el procedimiento desde el principio. Inente hacerlo en DBGrid, pero es lo mismo, no me carga las celdas ono se sihice algo malo. La base de datos que uso es SQL Server 2008, y la comunicación con la base de datos lo hago por medio del IBQuery y el IBTransaction.

Gracias

IBQuery, IBTransaction, SQL Server 2008?, creo que estas algo confundido, si no me equivoco esos son componentes para Firebird o Interbase

[Jorge Orozco]

Correcto son para Firebird, la base de datos esta en otro lado.

[Jorge Orozco]

Amigo si lo hice, pero tampoco me funciono, entonces le estoy pasando el procedimiento desde el principio. Intente hacerlo en el DBGrid, pero es lo mismo, no me carga las celdas pero no se si hice algo malo. La base de datos que uso es SQL Server 2008, y la comunicación con la base de datos lo hago por medio del IBQuery y el IBTransaction.

Gracias