ProbaSP
Я так понял, что нужно смотреть в сторону среднего значения. И забыть про

Аспид
Непонятная_логика

правильно?

ssa
Зная запись, перед/после которой надо вставить новую, таки не трудно найти вторую для определения между какими записями вставлять и какие значения использовать для расчета.

ssa
а если уж так невтерпеж пользоваться именно целыми числами

ssa
Зная запись, перед/после которой надо вставить новую

ssa
таки не трудно найти вторую

ProbaSP

ssa
Зная запись, перед/после которой надо вставить новую

это понятно.

ssa
таки не трудно найти вторую

эмм... какую вторую?

ssa
И опять завернутость на ЦЕЛЫЕ числа. Как среднее двух чисел может быть равно одному из них, если эти два числа не равны друг другу и НЕ (ЦЕЛЫЕ/НАТУРАЛЬНЫЕ)?

CLEAR
CREATE CURSOR test (ID I, ordinal_number B(18))
INDEX ON ordinal_number TAG ON CANDIDATE
LOCAL lnFirst
lnFirst = 0 && 0 gives maximum "division count" before underflow occured.
INSERT INTO test (ID, ordinal_number) VALUES (0, m.lnFirst)
LOCAL ln1, lnPrev, lnNext, lnInserted
FOR ln1 = 1 TO 100
 LOCATE FOR ordinal_number = m.lnFirst
 lnPrev = test.ordinal_number
 SKIP 1
 IF !EOF("test")
  lnInserted = (test.ordinal_number+m.lnPrev)/2
  lnNext = test.ordinal_number
 ELSE
  lnInserted = m.lnPrev + 1
  lnNext = .NULL.
 ENDIF
 TRY
  INSERT INTO test (ID, ordinal_number) VALUES (m.ln1, m.lnInserted)
 CATCH
  ? "No more doubles fit between 0x" + STRCONV(BINTOC(m.lnPrev, "BR"), 15) + ;
   " AND 0x" + STRCONV(BINTOC(m.lnNext, "BR"), 15) + " at step " + STR(m.ln1, 2)
  ln1 = 1e10 && to exit loop
 ENDTRY
ENDFOR

ssa

Simple777
Тут вот какое дело. Прежде чем вставлять номер между двумя записями ( взяв средне значение ), надо проверить, не получилось ли это среднее значение равным уже существующему номеру (выше или ниже).

И опять завернутость на ЦЕЛЫЕ числа. Как среднее двух чисел может быть равно одному из них, если эти два числа не равны друг другу и НЕ (ЦЕЛЫЕ/НАТУРАЛЬНЫЕ)?
Остальное совершенно неоригинально и проистекает из самой завернутости на целых числах.

Simple777
Положим, есть две соседние записи. У одной внутренний номер (не RECNO()!) равен 999, а у второй 1000. Внутренний номер имеет разрядность N(10). Находим среднее значение:
(1000+999)=999,5

При округлении до целого получаем 1000. Таким образом, среднее значение равно значению в одной из записей. При появлении такой ситуации перенумеровываем во всех таблицах внутренние номера с нужным шагом.

Надеюсь, теперь шериф сменит гнев на милость?

ssa

Simple777
Положим, есть две соседние записи. У одной внутренний номер (не RECNO()!) равен 999, а у второй 1000. Внутренний номер имеет разрядность N(10). Находим среднее значение:
(1000+999)=999,5

При округлении до целого получаем 1000. Таким образом, среднее значение равно значению в одной из записей. При появлении такой ситуации перенумеровываем во всех таблицах внутренние номера с нужным шагом.

Надеюсь, теперь шериф сменит гнев на милость?

НЕТ. Округление и N(10) и есть демонстрация зацикленности на целых числах.
Горбатый "пример"...

ssa
Округление и N(10) и есть демонстрация зацикленности на целых числах.
Горбатый "пример"...

ProbaSP
в таблице bd пока 40 тыс. записей.
этим кодом изменяет примерно записей 200.
но процесс занимает примерно 4-5 секунд.
как-то долго...

Igor Korolyov
Это даст оптимизацию запроса (update в варианте Владимира aka Аспид).

Igor Korolyov
А ты положи табличку на слабый сервер...

Аспид
update bd set pn=pn+1 where mod = m.lcStr AND pn >= kolzap
INSERT INTO bd (pn,ns,mod,tdata) ;
VALUES (m.tekpn,0,m.lcStr,DATE())

ProbaSP
доли секунды!это просто бомба...
а мне больше и не надо