[[Ivanzinho]]

Empezado por memehua

con lo que me pusistes me sigue poniendo unicamente el ultimo resultado para todos los campos..

Es que lo que te puse es exactamete lo mismo que lo que tu hacías, lo que pasa que te lo puse así para que vieras mas claro donde tenías el problema.

Lo que tienes que hacer es basicamente lo siguente :

1.- Consultar los distintos importes de la base de datos de nóminas :

Código Delphi [-]
consulta := 'Select dictinct importe from nominas';
query1.Close;
query1.SQL.Clear;
query1.SQL.Add(consulta);
query1.Open;

2.- Pasar los distintos importes a letra y modifcar la base de datos

Código Delphi [-]
query1.first;
while not query1.eof do
   begin
      ImporteLetra := PasarALetra(query1Importe.Value);
      
      consulta := 'Update nominas set importe_letra = ' + QuotedStr(ImporteLetra);
      consulta := consulta + ' where importe = ' + FloatToStr(query1Importe.value);
      
      query2.Close;
      query2.SQL.Clear;
      query2.SQL.Add(Consulta);
      query2.ExecSQL;

      query1.Next;
    end;

Espero que te sirva

Un saúdo