Consulta, para poder sumar monto

[maxzama]

Hola.

Tengo dos tabla o base de dato, que tienen los mismo campo.

1) tabla: es donde se va guardando los datos de las personas que no tienen numero de cuenta.

2) Tabla(tabla temporal): (asistencia de la semana a pagar)

1)tabla: esta conectado a un mysql(REPORTE_COBRADO)

2)tabla: esta conectado a un mysql(ASISTENCIA_COBRAR)


Función: Que al presionar el botón, haga una consulta de que la cédula de la tabla 2 es igual a la tabla 1. Si son iguales, que me sume el monto cuanta veces aparezca la cédula registrada en la tabla 1.

Tabla 1: esta registrado 3 veces la misma cédula con el siguiente monto (95134)...

Problema: Que al correr el código, me suma una sola vez y después no sigue.

Codigo DELPHI:

Código Delphi [-]
var
  monto2:String;  //  Reporte_Corado
  monto3:String;  //  Reporte_Corado
  Monto:String;
  J,k,l:real;
  m,n,o:real;
begin
  M:=0;
  Dmodulo.REPORTE_COBRADO.Active:=false;
  Dmodulo.REPORTE_COBRADO.Active:=true;
  Dmodulo.ASISTENCIA_COBRAR.First;
  while not Dmodulo.ASISTENCIA_COBRAR.Eof do
  begin
    Dmodulo.REPORTE_COBRADO.First;
    while not Dmodulo.REPORTE_COBRADO.Eof do
    begin
      if DMODULO.ASISTENCIA_COBRAR.FieldByName('cedula').AsString = DMODULO.REPORTE_COBRADO.FieldByName('CEDULA').AsString  then
      begin
        Monto2:=DMODULO.REPORTE_COBRADO.FieldByName('Monto').AsString;
        Monto:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Monto').AsString;
        J:=StrToint(monto2);
        K:=StrToInt(monto);
        L:= J + K ;
        Monto:= FloatToStr(L);
        monto:= Copy('00000000000', 1, 11 - Length(monto)) + monto;
      end;
      Dmodulo.REPORTE_COBRADO.Next;
      Edit49.Text:=Monto;
    end;
    Dmodulo.ASISTENCIA_COBRAR.Next;
  end;

Espero sus respuesta por favor y gracias...