для различения рабочей и тестовой базы данных

Автор:KaMPiLeR
Дата:14.01.2004
Просмотров:2143
Скачиваний:1901
Оценка:, Оценок - 7

Описание

Текст примера

 /*повесить лучше после реплицирования базы на тестовую*/

file t(typeac) write;

while(next(t))
  if(t.iNumType==22)
    t.Name_Type="-"+substr(t.Name_Type,1,15)+"-";
    update(t);
  end;
end;

Пользуйтесь.