descontar saldo a credito

[ferglo]

buen dia.

tengo una cnsulta para ustedes.

como puedo restar el saldo de un cliente de varias ventas.
ejemplo:
saldo 1811 abono 1600 saldo nuevo 211


primer factura pendiete 1500 abono 1600 se liquida la factura y quedan 100 buenos.
segunda factura pendiente 311 menos los 100 de la factura anteior saldo nuevo 211 y queda 0

como lo puedo hacer a codigo?

los saldos vienen de dos tablas cliente para el saldo y factura para el pendiente

agradeceria su ayuda.

[ecfisa]

Hola ferglo y bienvenido a Club Delphi .

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Sería importante que nos dieras mas detalles, como por ejemplo que DBMS estas usando y con que componentes te estas conectando con ella.

Saludos.

[ferglo]

Empezado por ferglo

buen dia.

tengo una cnsulta para ustedes.

como puedo restar el saldo de un cliente de varias ventas.
ejemplo:
saldo 1811 abono 1600 saldo nuevo 211


primer factura pendiete 1500 abono 1600 se liquida la factura y quedan 100 buenos.
segunda factura pendiente 311 menos los 100 de la factura anteior saldo nuevo 211 y queda 0

como lo puedo hacer a codigo?

los saldos vienen de dos tablas cliente para el saldo y factura para el pendiente

agradeceria su ayuda.

utilizo delphi 2010 base de datos en acces para la conectarma la la base de datos utilizo un adoconecction y para las consultas adoquery.

ecfisa perdon por lo antrior pense que con lo que puse era suficiente y muchas gracias por la bienvenida.

de nuevo muchas gracias por la ayuda que me puedan dar.

[Casimiro Notevi]

No sé si con access puedes usar "stored procedures", supongo que no, así que tendrás que hacerlo desde delphi.
Un query que retorne todo los registros en los que debe el cliente, por ejemplo, ordenado por importe.
Recorrer e ir editando cada registro hasta que se acabe el importe pagado.

[ferglo]

buen dia ya encontre la solucion que fue esta

var
C,A,res,x, Valor:REAL;
 flg : boolean;

begin
a:=StrToFloat(cantidad);
  flg := False;

   ADOQuery1.First;
    While not adoquery1.eof do
     begin
      b:=StrToFloat(ADOQUERY1.FieldByName('pendiente').Value);
      if (a > b) then
       Valor := 0
      else
       if a>0 then
        begin
         Valor := b-a;
         flg := True;
        end;
      a := a-b;

      ABONO.Close;
      ABONO.SQL.Clear;
      ABONO.SQL.Add('UPDATE FACTURA SET PENDIENTE=:VALOR WHERE NUMVENTA=:NUMVENTA');
      ABONO.Parameters.ParamByName('NUMVENTA').Value:=ADOQuery1.Fields.FieldByNumber(1).Value;
      ABONO.Parameters.ParamByName('valor').Value:=valor;
      ABONO.ExecSQL;

      if Not flg then
       adoquery1.next
      else
       break;
     end;
end;

el codigo lo saque de este post

clubdelphi.com/foros/showthread.php?t=74911

muchas gracias por su ayuda
espero no romper alguna regla del foro.

[Casimiro Notevi]

Estupendo