Обработка для универсальной выгрузки данных из конфигурации 7.7 в JSON. Может быть полезна для задач переноса данных из различных конфигураций в другие конфигурации, для перехода на другие версии 1С, для перехода на 8.3, для переноса данных в другие системы учета, для организации онлайн выгрузки с целью синхронизации разных систем учета. Выгрузка справочников, документов, результатов запросов, остатков по планам счетов.
Файлы
ВНИМАНИЕ:
Файлы из Базы знаний - это исходный код разработки.
Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы.
Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных.
Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже
заказов».
0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.
Универсальная выгрузка данных из конфигурации 7.7 в JSON, формат, который делает тривиальным процесс переноса данных в 1с 8.3 с его встроенной поддержкой.
Использовалась в процессе перехода на 8.3 с самописной конфигурации. Все реквизиты из метаданных. Этот факт предполагает возможность использования на любых конфигурациях, типовых, модифицированных, самописных. Протестирована на типовой Бухгалтерский учет, редакция 4.5, 7.70.641, работает.
Реквизиты в справочниках и документах не примитивных типов выгружаются отдельным объектом с кодом, видом, уидом и т.д., что достаточно для полной синхронизации.
В один файл можно выгрузить объекты разных типов, справочники, документы.
Возможна выгрузка объектов сложных типов, где в качестве реквизитов выступают документы, справочники, таблицы значений, которые могут также содержать эти типы.
Использовалась в автоматическом режиме для онлайн выгрузки по регистрации изменений в базе. Прикрутил интерфейс для ручной выгрузки.
Обработки обмена номенклатурой (SKU), дополнительными штрихкодами (AltSku), приемкой (AdvancedShipNotice), подтверждением приема (ASNClosed), выдачей (ShipmentOrder), подтверждением выдачи (CustomerOrderLoaded) для учетной системы 1С 7.7. Здесь выгрузка и загрузка для 1C 7.7.
Обработка выгружает данные контрагентов и создает два файла: один текстовый со всеми данными, другой формата vcards.vcf для загрузки контактных данных в андроид.
&Насервере
процедура ЗагрузитьНаСервере (таб)
Для каждого стр из таб Цикл
если стр.свойство("ссылка") тогда // справочники
если стр.ссылка.TYPE="СправочникСсылка.НормыСписания" тогда
ЗагрузитьНормыСписанияСервер(стр);
иначеесли стр.ссылка.TYPE="СправочникСсылка.Местахранения" тогда
ЗагрузитьМестаХраненияСервер(стр);
//и т.д. для каждого вида, либо если только код+наименование +родитель - одной процедурой
конецесли;
иначеесли стр.свойство("TYPE") тогда // документы
если стр.TYPE="ДокументСсылка.ПриходнаяНакладная" тогда
ЗагрузитьДокументПриходнаяНакладная(стр, "ПриходнаяНакладная");
иначеесли стр.TYPE="ДокументСсылка.РасходнаяНакладная" тогда
// и т.д.
конецесли;
конеццикла;
конецпроцедуры
&Насервере
процедура ЗагрузитьДокументПриходнаяНакладная(стр, вид)
док="";
если не НайтиИЗаполнитьДокумент(стр, вид, док) тогда возврат; конецесли; // тут поиск. По номеру/уиду/как угодно.
шапка = стр.шапка[0];
док.Склад = Справочники.МестаХранения.НайтиПоКоду(шапка.Склад.код);
док.Клиент = Справочники.Контрагенты.НайтиПоКоду(шапка.клиент.код);
док.товары.очистить();
для каждого строка из стр.табличнаячасть цикл
товары = док.товары.Добавить();
товары.товар = справочники.Номенклатура.НайтиПоКоду(строка.Товар.код);
товары.Количество = строка.Количество;
товары.Цена = строка.цена;
товары.Сумма = строка.Сумма;
товары.НДС = строка.НДС;
конеццикла;
ЗаписатьДокумент(стр, док);
конецпроцедуры
(5) хорошо, конечно, на на 8-ке кодя не пишу, к сожалению. Поэтому приходится пользоваться штатными инструментами. Или инструментами более продвинутыми, но без кодирования на 8-ке.
Спасибо.
Попутный вопрос, немножко в сторону
в 77 у меня все ключевые справочники имеют GUID
можно ли выгрузив например инфу по товарам в плоский список, и воспользовавшись штатной загрузкой из табличного документа в 8-ке, загрузить так, чтобы в 8-ке у обьектов были эти же ГУИДЫ? Или как-то иначе, без программирования?
ожно ли выгрузив например инфу по товарам в плоский список, и воспользовавшись штатной загрузкой из табличного документа в 8-ке, загрузить так, чтобы в 8-ке у обьектов были эти же ГУИДЫ? Или как-то иначе, без программиров
(8)
В 7-ке и 8-ке формат uid-ов разный. Я делал 2-мя способами:
1. добавлял новый общий реквизит к объектам в 8-ке, в него писал uid7, по нему синхронизировал
2. писал uid7 в комментарий к объекту, по нему поиск при загрузке.
Без программирования как раз запись в комментарий подойдет.
Нужны не для редактирования, а для проверки, что файл валидируется. Помогают при отладке, поиске ошибок. По практике - проблемы бывают из-за символов, переносимых в реквизиты копированием - табуляции, ентеры и проч. Для решения этого добавлена галка на форме - удаляет эти символы из текстовых реквизитов. Немного замедляет выгрузку (процентов на 10), если такой проблемы нет, то можно без нее.
(3) Типовая конвертация не работает с самописными конфигурациями. Документов было много, более 3т в сутки. Из типовых конфигураций выгрузить штатно тоже не вышло.. Висит по 2 дня, потом падает с ошибкой. Здесь формат компактнее, запись в файл через Scripting.FileSystemObject - быстрее, нет проблем с длинными строками.
(7)
В принципе, можно. Алгоритм там такой:
1. Запускаем обработчик ожидания - форма.ОбработкаОжидания("Выгрузка",60*2);
2. В нем - получить список изменений - запрос к таблице 1SUPDTS
3. Вызов этой обработки с передачей списка - открытьформумодально("Отчет",список, каталогИб()+"extforms\ВыгрузитьJson.ert");
4. Удаление изменившихся объектов из списка - - запрос к таблице 1SUPDTS
5. В 8-ке по регламенту запускается обработка с загрузкой из каталога.
На больших оборотах подглючивает. 1SUPDTS фиксирует только факт изменения, не соблюдается порядок. Иногда это критично.
В результате от онлайн отказались, выгрузили/загрузили всё 1 раз.
Конфигурация ТиС 7.7 (7.70.974)
1) При попытке выгрузки Остатков пишет ошибку {UBID_1133149-ВЫГРУЗИТЬ1С77JSON.ERT(299)}: Группировка Товар <<?>> без групп;
Запрос[8] : Переменная 'Товар' не опеределена
2) При попытке выгрузки контрагентов
file.WriteLine("""Код"":"""+значение.код+"""");
{\PUBID_1133149-ВЫГРУЗИТЬ1С77JSON.ERT(124)}: Не задан вид.
(15) 1. Т.к. выгрузка универсальная, для выгрузки остатков надо модифицировать запрос под конфигурацию. Свести к группировкам Склад, Товар и Остаток. Примерно так:
