¿es posible darle a un edit lo que dice en una fila de un dbgrid?

[jirbert]

bueno aqui tratandito de hacer un programa de facturacion tengo edit's para agregar en la base de datos con la que trabaja el dbgrid bueno quiero que en un label en la parte de afuera del form que me indique el total de los productos que se han agregado en esa base de datos. me esplico? tengo una base de datos en table dbaseIV

[*Caro*]

Hola Eduardo y jirbert, como te dice eduardo debes recorrer tu DataSet para hacer el calculo de la suma o hacer una consulta utilizando un Query.

Ej. para hacer una suma recorriendo un DataSet, aquí debes tomar en cuenta dos cosas, al recorrer tu DataSet veraz como todos los componentes que estan asociados a tu dataSet iran mostrando los registros a medida que los recorres, para evitar esto puedes utilizar DisableControls para desabilitar dichos componentes hasta que termines de recorrer tu DataSet. Y también talvez ponerte un marcador (BookMark) para que una vez terminado de recorrer regreses al registro donde estaba incialmente.

Código Delphi [-]
var
 Precio : Currency;
 Marca : TBookMarkStr;
begin
    precio := 0;
    Marca := MiTabla.Bookmark;
    MiTabla.DisableControls;
    try
     MiTabla.First;
      While Not MiTabla.Eof do
      begin
       Precio := Precio + MiTabla.FieldbyName('MiCampo').ASCurrency;
 
       MiTabla.Next;
      end;
      Label1.Caption := CurrToStr(Precio);
    finally
     MiTabla.EnableControls;
     MiTabla.Bookmark := Marca;
    end;

y si lo quieres hacer con una consulta, es suficiente que pongas "Select Sum(MiCampo) From MiTabla".

Saluditos

[jirbert]

hola a todos, gracias caro el codigo me me funciono de maravilla hasta los momentos ningun problema!!! espero que se quede asi lo mejor fue que no me enrede mucho gracias!!!

[jirbert]

bueno, tengo otro problemita!! se recuerdan que estoy sumando la columna del dbgrid verdad ese resultado lo coloque en un edit!!! tengo otro edit para el 9% y otro para la suma de ambos!!

algo asi

- subtotal = resultado de la suma de la columna del dbgrid
- iva 9% =

Código Delphi [-]
var
iva,total:double;
begin
 total:=strtofloat(edit7.text);
  iva:=total*0.09;
  edit8.Text:=format('%f',[iva]);
 end;

- total =

Código Delphi [-]
var 
n1,n2,nt:integer;
begin
  n1:=strtoint(edit7.text);
  n2:=strtoint(Edit8.text);
  nt:=n1+n2;
  edit9.Text:=format('%f',[nt]); //tengo esta opcion 
  edit9.text:=inttostr(nt); // y esta!!!

pero me da un error

Código PHP:

project project1.exe raised exception class EConvertError with message "100,80' is not a valid integer value'. process stopped. use step or run to continue. 


bueno se que es algo referente a que el iva es float y lo tengo como integer pero si el mismo es el que hace la transformacion como hago para yo modificar ese error!!

gracias espero y me puedan ayudar..

[*Caro*]

Hola, tienes que usar también en tu procedimiento de abajo el tipo double, ya que los resultados que tienes en tus edit son de ese tipo.

Código Delphi [-]
var 
n1,n2,nt:double;
begin
  n1:=strtofloat(edit7.text);
  n2:=strtofloat(Edit8.text);
  nt:=n1+n2;
  edit9.text:=floattostr(nt);

Saluditos

[jirbert]

gracias caro nuevamente, listo mil gracias!! todo perfect...