Добрый день!
Подскажите пожалуйста где скачать карту бизнес регионов .geo? Я так понял раньше она шла вместе с конфигурацией ERP, пробовал вытащить из другой базы где она есть, из константы "ГеографическаяСхемаДляОтчетов" но в новую конфу загрузить ее не получилось, пишет неверный формат.
1С:ERP Управление предприятием 2 (2.5.5.104)
Подскажите пожалуйста где скачать карту бизнес регионов .geo? Я так понял раньше она шла вместе с конфигурацией ERP, пробовал вытащить из другой базы где она есть, из константы "ГеографическаяСхемаДляОтчетов" но в новую конфу загрузить ее не получилось, пишет неверный формат.
1С:ERP Управление предприятием 2 (2.5.5.104)
Прикрепленные файлы:
v8_422C_67.geo
По теме из базы знаний
Найденные решения
В общем удается загрузить ее програмно
ГеоСхема = Новый ГеографическаяСхема;
ГеоСхема.Прочитать("C:\Users\Администратор\Desktop\v8_422C_65.geo");
СтруктураХраненияСхемы = Новый Структура("Название, ГеоСхема");
СтруктураХраненияСхемы.Вставить("Название", "Карта");
СтруктураХраненияСхемы.Вставить("ГеоСхема", ГеоСхема);
Константы.ГеографическаяСхемаДляОтчетов.Установить(Новый ХранилищеЗначения(СтруктураХраненияСхемы));
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
В общем удается загрузить ее програмно
ГеоСхема = Новый ГеографическаяСхема;
ГеоСхема.Прочитать("C:\Users\Администратор\Desktop\v8_422C_65.geo");
СтруктураХраненияСхемы = Новый Структура("Название, ГеоСхема");
СтруктураХраненияСхемы.Вставить("Название", "Карта");
СтруктураХраненияСхемы.Вставить("ГеоСхема", ГеоСхема);
Константы.ГеографическаяСхемаДляОтчетов.Установить(Новый ХранилищеЗначения(СтруктураХраненияСхемы));
Показать
(4) Если быть точнее, должно быть так:
&НаКлиенте
Процедура Команда1(Команда)
Файл = Новый ДвоичныеДанные("C:\v8_422C_67.geo");
Адрес = ПоместитьВоВременноеХранилище(Файл);
Команда1НаСервере(Адрес);
КонецПроцедуры
&НаСервере
Процедура Команда1НаСервере(Адрес)
ИмяВременогоФайла = ПолучитьИмяВременногоФайла(".geo");
ПутьКФайлуПриемнику = ИмяВременогоФайла;
ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(Адрес);
ДвоичныеДанныеФайла.Записать(Строка(ПутьКФайлуПриемнику));
ГеоСхема = Новый ГеографическаяСхема;
ГеоСхема.Прочитать(ПутьКФайлуПриемнику);
СтруктураХраненияСхемы = Новый Структура("Название, ГеоСхема");
СтруктураХраненияСхемы.Вставить("Название", "Карта");
СтруктураХраненияСхемы.Вставить("ГеоСхема", ГеоСхема);
Константы.ГеографическаяСхемаДляОтчетов.Установить(Новый ХранилищеЗначения(СтруктураХраненияСхемы));
КонецПроцедуры
Показать
(6) Спасибо!
&НаКлиенте
Процедура Команда1(Команда)
Файл = Новый ДвоичныеДанные("C:\v8_422C_67.geo");
Адрес = ПоместитьВоВременноеХранилище(Файл);
Команда1НаСервере(Адрес);
КонецПроцедуры
&НаСервере
Процедура Команда1НаСервере(Адрес)
ИмяВременогоФайла = ПолучитьИмяВременногоФайла(".geo");
ПутьКФайлуПриемнику = ИмяВременогоФайла;
ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(Адрес);
ДвоичныеДанныеФайла.Записать(Строка(ПутьКФайлуПриемнику));
ГеоСхема = Новый ГеографическаяСхема;
ГеоСхема.Прочитать(ПутьКФайлуПриемнику);
СтруктураХраненияСхемы = Новый Структура("Название, ГеоСхема");
СтруктураХраненияСхемы.Вставить("Название", "Карта");
СтруктураХраненияСхемы.Вставить("ГеоСхема", ГеоСхема);
Константы.ГеографическаяСхемаДляОтчетов.Установить(Новый ХранилищеЗначения(СтруктураХраненияСхемы));
КонецПроцедуры
ПоказатьПроцедура Команда1(Команда)
Файл = Новый ДвоичныеДанные("C:\v8_422C_67.geo");
Адрес = ПоместитьВоВременноеХранилище(Файл);
Команда1НаСервере(Адрес);
КонецПроцедуры
&НаСервере
Процедура Команда1НаСервере(Адрес)
ИмяВременогоФайла = ПолучитьИмяВременногоФайла(".geo");
ПутьКФайлуПриемнику = ИмяВременогоФайла;
ДвоичныеДанныеФайла = ПолучитьИзВременногоХранилища(Адрес);
ДвоичныеДанныеФайла.Записать(Строка(ПутьКФайлуПриемнику));
ГеоСхема = Новый ГеографическаяСхема;
ГеоСхема.Прочитать(ПутьКФайлуПриемнику);
СтруктураХраненияСхемы = Новый Структура("Название, ГеоСхема");
СтруктураХраненияСхемы.Вставить("Название", "Карта");
СтруктураХраненияСхемы.Вставить("ГеоСхема", ГеоСхема);
Константы.ГеографическаяСхемаДляОтчетов.Установить(Новый ХранилищеЗначения(СтруктураХраненияСхемы));
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот