Suma de dos Campos en un BDGrid

[esimon]

Hola......!

Tengo en una forma un DBGrid, con una tabla detalle el cual tiene dos campos uno Credito y otrdo Debito y lo que quiero hacer es sumar el contenido del Credito en un Campo llamado TotalCredito, igual mente con el Debito, mi Query eria haci.

select sum(credito)as Total_Credito, sum(Debito)as Total_Debito From Detalle

hago esto por que el DBGrid tiene que permitirme digital diferentes tipos de Cuentas.

mil Gracias

[vtdeleon]

Saludos

Cual es la duda?

[el_barto]

Si lo que quieres es sumar los campos y guardarlos en la base de datos lo que tendrias que hacer es lo siguiente:

Código Delphi [-]
procedure TForm1.IBDataSet1BeforePost(DataSet: TDataSet);
begin
with IBdataset1 do begin
     FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger*FieldByName('campo3').AsInteger;
end;
end;

despues usas un boton para hacer un apllyupdate y un commit.

PDT: si me salio vt , te acuerdas

[vtdeleon]

Saludos

Empezado por el_barto

PDT: si me salio vt , te acuerdas

Claro, Que bueno que te resulto
====
Lo que no entiendo es laduda de este hilo:-S, ya que la sentencia que esta puesta hace exactamente lo que pide: Dar la sumatoria de los campos

[el_barto]

Pues es muy probablemente un problema similar al que me paso a mi:

y es que no guarda en la base de datos, por lo menos eso me paso a mi.

Ademas este amigo, no no has dicho mucho de lo que quiere hacer si no da mas detalles ni modo, verdad???

[esimon]

Gracias muevamente por su preocupación para ayudarme a entender el manejo de la programación delphi.

en una tabla de Detalle con lo siguiente Campos
EN DELPHI 7 Y ACCESS
*Codigo (Autonumerico)
Numero_Documento (Numerico)
Numero_Cuenta (Numerico)
Debito (Moneda)
Credito (Moneda)
TDebito (Moneda)
TCredito (Moneda)

en un DBGrid tengo Numero_Cuenta, Credito y Debito, los cuales son los campos que el DBGrid me deja digitar, el cual me tiene que dejar instroducir diferentes tipos de cuenta, Credito y Debito, lo que quiero hacer es sumar la columna de Credito y el Resultado guardalo en TCredito, igual con el Debito.

para incrementa el DBGrid estoy usando este godio en el evento OnNewRecord de la Tabla Detalle.

 
if Tbl_DetalleCheque.State = dsInsert then
begin
Tbl_DetalleChequeCodigo_ChequeDetalle.value := Qry_Inserta.fields[0].asInteger + 1;
Qry_Inserta.Close;
end;

por famor coregirme lo que estoy hacinedo mal.

mil gracias