[giulichajari]

Buenas tardes! Les escribo porque un procedimiento asociado a un boton no da ningun resultado.

Es un formulario para cobrar una cuota, tiene un TEDit para poner DNI del alumno, un TBLookupcombobox para seleccionar meses, y un edit para el importe.
El codigo es el siguiente:

Código SQL [-]
Query2->Close();
      Query2->SQL->Text="SELECT DNI FROM Cuotas WHERE DNI LIKE "
      +QuotedStr("%"+ Edit2->Text+"%");
      Query2->Open();
      bool existente = !Query2->IsEmpty();

      if (existente) {
         Query3->Close();
         Query3->SQL->Text="SELECT Estado FROM Cuotas WHERE DNI LIKE "
         +QuotedStr ("%"+Edit2->Text+"%");
         Query3->Open();
         if (Text=="Pago"){
           ShowMessage("El alumno ingresado ya pago el mes especificado");
           }
           else{
             try{
               Table2->Append();
               Table2->FieldByName("DNI")->AsInteger = Edit2->Text.ToInt();
               Table2->FieldByName("Mes")->AsString = DBLookupCombo1->Text;
               Table2->FieldByName("Estado")->AsString = "Pago";
               Table2->FieldByName("Importe")->AsInteger = Edit3->Text.ToInt();
               Table2->Post();
               }
                catch (const Exception & E) {
        MessageBox(Handle,
          AnsiString(AnsiString(E.ClassName()) + ": " +E.Message).c_str(),
          "ERROR", MB_ICONERROR + MB_OK);
        Table2->Cancel();
      }
       }
       }

Con el Query2 me fijo si el dni existe, con el query3 si el mes esta pago, si no esta pago inserto un registro en otra tabla DNI mes estado e importe.

El caso es que no funciona y no da errores en tiempo de ejecucion. Muchas gracias.