Цитата:
Сообщение от bizisoft
Здраствуйте.
Пробую запустить данную обработку на 1С 7,7 УТ+Склад
КаталогОтчета=КаталогИБ()+"ExtForms\"+глПолучитьАк туальныйКаталогРегОтчетов<<?>>()+"\";
{D:\ÁÀÇÀ 2012\EXTFORMS\NAL\ÝÊÑÏÎÐÒÍÀËÎÃÎÂÛÕ.ERT(3303)}: Функция не обнаружена (лПолучитьАктуальныйКаталогРегОтчетов)
Что можно сделать в моем случае.
Спасибо.
С Уважением, Дмитрий.
|
Вот функция, которую нужно вставить в глобальный модуль:
Функция глПолучитьАктуальныйКаталогРегОтчетов(АктуальныйРе лизРегОтчетов = "") Экспорт
КаталогВнешнихФорм = КаталогИБ()+"ExtForms\";
Текст = СоздатьОбъект("Текст");
// Ищем самый актуальный комплект регламентированных отчетов
АктуальныйРелизРегОтчетов = "";
АктуальныйКаталогРегОтчетов = "";
КаталогРегОтчетов = ФС.НайтиПервыйФайл(КаталогВнешнихФорм+"rp*.grp");
Пока ПустаяСтрока(КаталогРегОтчетов) = 0 Цикл
// 1С-Звит введен в эксплуалтацию с 2 квартала 2011 выпуск №1
Если Нрег(КаталогРегОтчетов) < "rp11q2" Тогда
КаталогРегОтчетов = ФС.НайтиСледующийФайл();
Продолжить;
КонецЕсли;
// Определим полную версию рег.отчетов
ИмяФайлаОписанияВерсии = КаталогВнешнихФорм+КаталогРегОтчетов+"\ver.id";
Если ФС.СуществуетФайл(ИмяФайлаОписанияВерсии) = 0 Тогда
КаталогРегОтчетов = ФС.НайтиСледующийФайл();
Продолжить;
КонецЕсли;
Текст.Открыть(ИмяФайлаОписанияВерсии);
ТекущийРелизРегОтчетов = Нрег(Текст.ПолучитьСтроку(1));
// 1С-Звит введен в эксплуалтацию с 2 квартала 2011, выпуск №1
Если ТекущийРелизРегОтчетов < "11q2001" Тогда
КаталогРегОтчетов = ФС.НайтиСледующийФайл();
Продолжить;
КонецЕсли;
Если ТекущийРелизРегОтчетов > АктуальныйРелизРегОтчетов Тогда
АктуальныйРелизРегОтчетов = ТекущийРелизРегОтчетов;
АктуальныйКаталогРегОтчетов = КаталогРегОтчетов;
КонецЕсли;
КаталогРегОтчетов = ФС.НайтиСледующийФайл();
КонецЦикла;
Возврат АктуальныйКаталогРегОтчетов;
КонецФункции
Но не факт, что на этом всё и закончится ...