[[poliburro]]

Código Delphi [-]
 
With modifventa do 
  Begin
     // Si cod_venta es alfanumérico debes agregar comilla doble
    SQL. text := 'update venta set procesado=1 where cod_venta='''+ventas.Fields[0].AsString + '''';
   ExecSQL;
   f_menu.conex.Commit;
try 
   letras.Numero:=ventas.Fields[5].AsFloat;
   letras.Moneda:='Guaranies'; 
   letras.Centavos:='Centimos'; 
   letras.Masculino:=true;
   texto:=letras.AsString; 
finally 
   letras.Free; 
end ;