Функция RecodeReferences
Добавлено: 27 авг 2004, 04:07
Помогите разобратся как работает эта функция
Пример из 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.
// заранее спасибо