Cita:
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