Функция RecodeReferences
Модераторы: m0p3e, edward_K, Модераторы
Функция RecodeReferences
Помогите разобратся как работает эта функция
Пример из help'а (1fnc.pdf) работает на ура с таблицей KATPARTY (1430), а с KATOS или KATMC не хочет (точнее результат =0 при успешном выполнении RES=true)
Фейс из хелпа
interface Test 'Example2'; create view;
var
OldNRec, NewNRec: comp;
aTableCode: word;
Count: longInt;
Res: boolean; handleEvent
cmInit:
begin
aTableCode := 1430; // Код таблицы KatParty
// (OldNRec = NewNRec) <> 0 - Exists Test
// (OldNRec <> NewNRec) <> 0 - Recode Test
OldNRec := 7;
NewNRec := 7;
Res := RecodeReferences
(aTableCode, OldNRec, NewNRec, Count);
if Res then
if (OldNRec <> NewNRec) then
// Recode Test
Message('Recode Test. References recoded = '
+ String(Count, 0, 0))
else
// Exist Test
Message('Exists Test. References exists = ' + String(Count, 0, 0))
else
Message('Error. Count = ' + String(Count, 0, 0), mfError);
Abort;
end;
end;
end.
// заранее спасибо
Пример из help'а (1fnc.pdf) работает на ура с таблицей KATPARTY (1430), а с KATOS или KATMC не хочет (точнее результат =0 при успешном выполнении RES=true)
Фейс из хелпа
interface Test 'Example2'; create view;
var
OldNRec, NewNRec: comp;
aTableCode: word;
Count: longInt;
Res: boolean; handleEvent
cmInit:
begin
aTableCode := 1430; // Код таблицы KatParty
// (OldNRec = NewNRec) <> 0 - Exists Test
// (OldNRec <> NewNRec) <> 0 - Recode Test
OldNRec := 7;
NewNRec := 7;
Res := RecodeReferences
(aTableCode, OldNRec, NewNRec, Count);
if Res then
if (OldNRec <> NewNRec) then
// Recode Test
Message('Recode Test. References recoded = '
+ String(Count, 0, 0))
else
// Exist Test
Message('Exists Test. References exists = ' + String(Count, 0, 0))
else
Message('Error. Count = ' + String(Count, 0, 0), mfError);
Abort;
end;
end;
end.
// заранее спасибо
-
- Местный житель
- Сообщения: 474
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Сибирь-матушка
- Контактная информация:
Re: Функция RecodeReferences
Вот когда в словаре пропишут ссылки на эти таблицы - тогда и будет работать c Katos и KatMC ...
Смотри в Support'е, модуль SQL, структура БД, карточка таблицы ... Там кнопка "Сссылки на таблицу "
Не знаю почему, но механизм ссылочной целостности для Атлантис-приложений, быстрый и простой, так редко пользуют в Галктике ...
Смотри в Support'е, модуль SQL, структура БД, карточка таблицы ... Там кнопка "Сссылки на таблицу "
Не знаю почему, но механизм ссылочной целостности для Атлантис-приложений, быстрый и простой, так редко пользуют в Галктике ...
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Re: Функция RecodeReferences
Просто жаль ...
Re: Функция RecodeReferences
Альтернативный вопрос: Возможно ли изменить nRec какой нибудь записи каталога, а затем автоматом про-update'ить ссылки на на эту запись других таблиц.
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Re: Функция RecodeReferences
Эту ветку можно спокойно перенести в Хотелки
Жду выхода Вселенная 2.12!
Re: Функция RecodeReferences
Я знаю, что данная операция решается с помощью неких скриптов, которые не входят в стандартную поставку Галки. Ни у кого их нет,
Re: Функция RecodeReferences
Кстати я напишу заявку на заполнение X$RELATE