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

В макросе присутствует ошибка, причем серьезная. Не инициализируется поле Код_Валюты в файле 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;