Проведение номенклатуры
Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Прошу помощи переношу данные из розница 2.0 в ут 10.3
перенёс номенклатуру и единицу измерения, только базовую, единица для отчётов и хранения остатков как я понимаю переносить не обязательно достаточно лишь провести карточку номенклатуры и они заполнятся автоматом.
Вопрос какой код прописать в пко номенклатуры после выгрузки чтобы элементы номенклатуры все провелись? или может как то по другому это можно сделать?
перенёс номенклатуру и единицу измерения, только базовую, единица для отчётов и хранения остатков как я понимаю переносить не обязательно достаточно лишь провести карточку номенклатуры и они заполнятся автоматом.
Вопрос какой код прописать в пко номенклатуры после выгрузки чтобы элементы номенклатуры все провелись? или может как то по другому это можно сделать?
По теме из базы знаний
- Опыт проведения сложных переносов данных на 1С
- Перепроведение документов по номенклатуре / контрагентам для БП 3.0 с отбором
- Доработка проведения в ERP 2.5. (Регистры накопления, Регистры сведений)
- Система автоматической загрузки номенклатуры, картинок (несколько потоков одновременно) и связанных данных из различных источников (E-MAIL, HTTP, FTP, КАТАЛОГИ) (расширение + конфигурация, 8.3.14+, для УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница
- Интеграция 6 поставщиков в КА 2.5 на базе HTTP Connector (API, XML, YML) (Загрузка номенклатуры, установка цен роботами по расписанию)
Найденные решения
Переносить обязательно. И ЕХО, и ЕДО. Автоматом они заполняется только при интерактивной записи элемента справочника.
Дабы таки решить Вашу задачу, заглянем в правила конвертации БУХ3.0-УТ10.3. Там, в обработчике "ПослеЗагрузки" ПКО "Номенклатура" многа букв...
Выбираем нужные - получаем след код:
Прекращаем пытаться "провести" элементы справочника...
вносим те самые буквы, переносим элементы, благодарим 1С за проделанную работу! ))
Дабы таки решить Вашу задачу, заглянем в правила конвертации БУХ3.0-УТ10.3. Там, в обработчике "ПослеЗагрузки" ПКО "Номенклатура" многа букв...
Выбираем нужные - получаем след код:
Если Объект.ЭтоНовый() Тогда
ЗаписатьОбъектВИБ(Объект, Тип("СправочникСсылка.Номенклатура"));
КонецЕсли;
Если НЕ Объект.ЭтоГруппа И НЕ (Объект.Услуга И НЕ ЗначениеЗаполнено(Объект.БазоваяЕдиницаИзмерения)) Тогда
Если НЕ ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков) И НЕ Объект.ЭтоГруппа Тогда
ВыборкаЕдиниц = Справочники.ЕдиницыИзмерения.Выбрать(, Объект.Ссылка);
Если ВыборкаЕдиниц.Следующий() Тогда
НайденнаяЕдиница = ВыборкаЕдиниц.Ссылка;
Иначе
НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(Объект.БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = Объект.БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = Объект.Ссылка;
НайденнаяЕдиницаОбъект.УстановитьНовыйКод();
//НайденнаяЕдиницаОбъект.Записать();
ЗаписатьОбъектВИБ(НайденнаяЕдиницаОбъект, Тип("СправочникСсылка.ЕдиницыИзмерения"));
НайденнаяЕдиница = НайденнаяЕдиницаОбъект.Ссылка;
КонецЕсли;
Объект.ЕдиницаХраненияОстатков = НайденнаяЕдиница;
Если НЕ ЗначениеЗаполнено(Объект.ЕдиницаДляОтчетов) Тогда
Объект.ЕдиницаДляОтчетов = НайденнаяЕдиница;
КонецЕсли;
ИначеЕсли ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков)
И НЕ ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков.Наименование) Тогда
НайденнаяЕдиницаОбъект = Объект.ЕдиницаХраненияОстатков.ПолучитьОбъект();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(Объект.БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = Объект.БазоваяЕдиницаИзмерения;
ЗаписатьОбъектВИБ(НайденнаяЕдиницаОбъект, Тип("СправочникСсылка.ЕдиницыИзмерения"));
КонецЕсли;
КонецЕсли;
ПоказатьПрекращаем пытаться "провести" элементы справочника...
вносим те самые буквы, переносим элементы, благодарим 1С за проделанную работу! ))
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2) Xershi, можно пожалуйста по подробней как это сделать там много всего написано не могу найти нужного
вот что нашёл но не работает
Процедура КнопкаВыполнитьНажатие(Кнопка)
мВопросыПриЗакрытии = Ложь;
ВладелецФормы.СохранитьНастройкуАвтоматически();
Закрыть(Истина);
КонецПроцедуры // КнопкаВыполнитьНажатие()
вот что нашёл но не работает
Процедура КнопкаВыполнитьНажатие(Кнопка)
мВопросыПриЗакрытии = Ложь;
ВладелецФормы.СохранитьНастройкуАвтоматически();
Закрыть(Истина);
КонецПроцедуры // КнопкаВыполнитьНажатие()
Всем доброе утро!
Ну что никто не поможет разобраться с этим вопросом, что нет специалистов в этой области?
Или всем просто наплевать на проблемы чужие. Что так трудно написать код для программиста со стажем, или здесь нет таких?
Вот так и получается что не хотим мы друг другу помогать для чего же вообще на форум тогда регистрироваться вам так просто? то что вы есть здесь?
Ну что никто не поможет разобраться с этим вопросом, что нет специалистов в этой области?
Или всем просто наплевать на проблемы чужие. Что так трудно написать код для программиста со стажем, или здесь нет таких?
Вот так и получается что не хотим мы друг другу помогать для чего же вообще на форум тогда регистрироваться вам так просто? то что вы есть здесь?
Переносить обязательно. И ЕХО, и ЕДО. Автоматом они заполняется только при интерактивной записи элемента справочника.
Дабы таки решить Вашу задачу, заглянем в правила конвертации БУХ3.0-УТ10.3. Там, в обработчике "ПослеЗагрузки" ПКО "Номенклатура" многа букв...
Выбираем нужные - получаем след код:
Прекращаем пытаться "провести" элементы справочника...
вносим те самые буквы, переносим элементы, благодарим 1С за проделанную работу! ))
Дабы таки решить Вашу задачу, заглянем в правила конвертации БУХ3.0-УТ10.3. Там, в обработчике "ПослеЗагрузки" ПКО "Номенклатура" многа букв...
Выбираем нужные - получаем след код:
Если Объект.ЭтоНовый() Тогда
ЗаписатьОбъектВИБ(Объект, Тип("СправочникСсылка.Номенклатура"));
КонецЕсли;
Если НЕ Объект.ЭтоГруппа И НЕ (Объект.Услуга И НЕ ЗначениеЗаполнено(Объект.БазоваяЕдиницаИзмерения)) Тогда
Если НЕ ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков) И НЕ Объект.ЭтоГруппа Тогда
ВыборкаЕдиниц = Справочники.ЕдиницыИзмерения.Выбрать(, Объект.Ссылка);
Если ВыборкаЕдиниц.Следующий() Тогда
НайденнаяЕдиница = ВыборкаЕдиниц.Ссылка;
Иначе
НайденнаяЕдиницаОбъект = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(Объект.БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = Объект.БазоваяЕдиницаИзмерения;
НайденнаяЕдиницаОбъект.Коэффициент = 1;
НайденнаяЕдиницаОбъект.Владелец = Объект.Ссылка;
НайденнаяЕдиницаОбъект.УстановитьНовыйКод();
//НайденнаяЕдиницаОбъект.Записать();
ЗаписатьОбъектВИБ(НайденнаяЕдиницаОбъект, Тип("СправочникСсылка.ЕдиницыИзмерения"));
НайденнаяЕдиница = НайденнаяЕдиницаОбъект.Ссылка;
КонецЕсли;
Объект.ЕдиницаХраненияОстатков = НайденнаяЕдиница;
Если НЕ ЗначениеЗаполнено(Объект.ЕдиницаДляОтчетов) Тогда
Объект.ЕдиницаДляОтчетов = НайденнаяЕдиница;
КонецЕсли;
ИначеЕсли ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков)
И НЕ ЗначениеЗаполнено(Объект.ЕдиницаХраненияОстатков.Наименование) Тогда
НайденнаяЕдиницаОбъект = Объект.ЕдиницаХраненияОстатков.ПолучитьОбъект();
НайденнаяЕдиницаОбъект.Наименование = СокрЛП(Объект.БазоваяЕдиницаИзмерения);
НайденнаяЕдиницаОбъект.ЕдиницаПоКлассификатору = Объект.БазоваяЕдиницаИзмерения;
ЗаписатьОбъектВИБ(НайденнаяЕдиницаОбъект, Тип("СправочникСсылка.ЕдиницыИзмерения"));
КонецЕсли;
КонецЕсли;
ПоказатьПрекращаем пытаться "провести" элементы справочника...
вносим те самые буквы, переносим элементы, благодарим 1С за проделанную работу! ))
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот