Обсуждение:В макросе "Пакетное открытие счетов" обнаружена ошибка - Измайлов

• Обсуждение:В макросе "Пакетное открытие счетов" обнаружена ошибка - Измайлов ( Обсуждение примера  01.04.2004 07:45 )
  Оценка:0(0)

  В макросе присутствует ошибка, причем серьезная. Не инициализируется поле Код_Валюты в файле accblnc$.dbt. Это может привести к расхождению валютного баланса. Кто уже воспользовался данным макросом и открыл счета, привожу текст макроса, который исправит нулевые поля Кода_Валюты. Так же выкладываю исправленный макрос.
  
  file acb("accblnc$.dbt") write;
  record acR("accblnc$.dbt");
  while(next(acb))
  if(acb.Code_Currency==0)
  CC=int(Substr(acb.Account,6,3));
  copy(acR,acb);
  delete(acb);
  acR.Code_Currency=CC;
  copy(acb,acR);
  insert(acb);
  [#################### ####](acb.Account,acb.Code_Currency);
  end;
  end;
  
  Посмотреть пример
  >> Ответить