sumar columnas en un dbgrid

[Choclito]

hola amigos del foro comentarles q queria editar datos (que esten en un dbgrid) de un query eso lo hice con un query y update hasta ahi todo bien
el problema es q ahi tengo dos columnas una del debe y haber y cuando el usuario registre solo una de ellas tiene q ser mayor a cero y la otra cero

Como controlo para q solo una de ellas sea mayor a cero cuando se registre?

Otra consulta es que quiera q mientras vaya registrando las cantidades tanto en el debe y haber en el dbgrid me muestre una sumatoria en edit q esten abajo del dbgrid tanto del debe y haber
Muchas gracias por la ayuda que me brinden

[marcoszorrilla]

Respondiendo a la primera. En el evento AfterPost, de ambos campos compruebas no que son mayor a 0, que también hay números negativos,

If MiCampo <> 0 then
MiOtroCampo = 0

Un Saludo.

[celades1]

Hola

Yo no trabajo con query sino con tfibdataset pero para el caso creo sera lo mismo.

Para lo primero i lo segundo tienes el evento onsettext de los field del query
Suponiendo que debe1,haber1,edit1 son los tdbedit donde enseñas el sumatorio del debe,haber y saldo

Código Delphi [-]
procedure TForm1.queryDEbeSetText(Sender: TField;const Text: String);
var valor,valor1,old_debe : double;
begin
  if (trim(text)<>'') and (queryhaber.asfloat<>0) then
  raise Exception.Create( 'Haber no es 0 ' ) 
  else begin
  old_debe:= sender.asfloat;
  sender.asfloat:=strtofloat(text);
  valor:=strtofloat(edit1.text);
  valor1:=strtofloat(debe1.text);
  valor:=valor+sender.asfloat-old_debe;
  valor1:=valor1+sender.asfloat-old_debe;
  edit1.text:=formatflot('0.##',valor);
  debe1.text:=formatflot('0.##',valor1);
  end;
end;
 
procedure TForm1.queryghaberSetText(Sender: TField;const Text: String);
var valor,valor1,old_haber : double;
begin
  if (trim(text)<>'') and (querydebe.asfloat<>0) then
  raise Exception.Create( 'El Debe no es 0 ' ) 
  else begin
  old_haber:=sender.asfloat;
  sender.asfloat:=strtofloat(text);
  valor:=strtofloat(edit1.text);
  valor1:=strtofloat(haber1.text);
  valor:=valor-sender.asfloat+old_haber;
  valor1:=valor1+sender.asfloat-old_haber;
  edit1.text:=formatflot('0.##',valor);
  haber1.text:=formatflot('0.##',valor1);
  end;
end;

o bien otra manera de hacer seria esta

Código Delphi [-]
procedure TForm1.queryDEbeSetText(Sender: TField;const Text: String);
var valor,valor1,valor2,old_debe : double;
begin
   if (trim(text)<>'')  then begin
   old_debe:=sender.asfloat;
   sender.asfloat:=strtofloat(text);
   valor:=strtofloat(edit1.text);
   valor1:=strtofloat(debe1.text);
   valor:=valor+sender.asfloat-old_debe;
   valor1:=valor1+sender.asfloat-old_debe;
   debe1.text:=formatflot('0.##',valor1);
         if (queryhaber.asfloat<>0) then begin
         valor2:=strtofloat(haber1.text);
         valor:=valor+queryhaber.asfloat;
         valor2:=valor2-queryhaber.asfloat;
         queryhaber.asfloat:=0;
        haber1.text:=formatflot('0.##',valor2);
         end;
   edit1.text:=formatflot('0.##',valor);
   end;
end;
 
 
procedure TForm1.queryHaberSetText(Sender: TField;const Text: String);
var valor,valor1,valor2,old_haber : double;
begin
   if (trim(text)<>'')  then begin
   old_haber:= sender.asfloat;
   sender.asfloat:=strtofloat(text);
   valor:=strtofloat(edit1.text);
   valor1:=strtofloat(haber1.text);
   valor:=valor-sender.asfloat+old_haber;
   valor1:=valor1+sender.asfloat-old_haber;
   haber1.text:=formatflot('0.##',valor1);
         if (querydebe.asfloat<>0) then begin
         valor2:=strtofloat(debe1.text);
         valor:=valor-querydebe.asfloat;
         valor2:=valor2-querydebe.asfloat;
         querydebe.asfloat:=0;
         debe1.text:=formatflot('0.##',valor2);
         end;
   edit1.text:=formatflot('0.##',valor);
   end;
end;

Creo que deberia funcionar pero no lo he probado, supongo abra errores de sintaxis y algun signo erroneo ya que lo he escrito sobre la marcha.
Sino tambien tienes el evento on change de los fields o el oncalcfields del query

Saludos