Дублирование данных из одной формы в другую
Есть данные которые уже переносятся,но не могу понять где? из справочника ШаблоныУпаковок в справочник Упаковки.
Переносится номенклатура и тч составляющие,мне надо переносить длину,высоту и тд.
Помогите пожалуйста разобраться...
ERP дописаная
-модуль формы шаблоны упаковок
-модуль формы справочника Упаковки
-общий модуль кастомизация
Переносится номенклатура и тч составляющие,мне надо переносить длину,высоту и тд.
Помогите пожалуйста разобраться...
ERP дописаная
Перем мфИД Экспорт; // идентификатор формы для настройки доступов к элементам формы
//==================== ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ ==============================
// Предопределенный обработчик интерфейса подключаемых обработок (экспорт нужен для проверки существования)
//
Процедура ВнешняяОбработкаОбъекта(Кнопка) Экспорт // Подключение данной процедуры-обработчика выполняется из кода конфигурации
глВнешняяОбработкаОбъекта(ЭтаФорма, Кнопка.Имя);
КонецПроцедуры
//==================== ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ ========================================
// Обработчик события формы ПередОткрытием.
//
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Если НЕ глСправочники_ПередОткрытием(ЭтаФорма, Отказ, СтандартнаяОбработка) Тогда
Возврат;
КонецЕсли;
Если Отказ Тогда
Возврат;
КонецЕсли;
//--------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ПередОткрытием", ЭтаФорма, Отказ, СтандартнаяОбработка);
КонецПроцедуры
// Обработчик события формы ПриОткрытии.
//
Процедура ПриОткрытии()
//--------------------------------------------------------------------------------------
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ПриОткрытии", ЭтаФорма);
КонецПроцедуры
// Обработчик события формы ОбновлениеОтображения.
//
Процедура ОбновлениеОтображения()
ПроверитьЗависимыеРеквизиты();
//--------------------------------------------------------------------------------------
НоменклатураШаблонаСхемы = Владелец.Владелец;
//--------------------------------------------------------------------------------------
ДоступыКФормам.ОбновлениеОтображения(ЭтаФорма);
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ОбновлениеОтображения", ЭтаФорма);
КонецПроцедуры
// Обработчик события формы ОбработкаОповещения.
//
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ОбработкаОповещения", ЭтаФорма, ИмяСобытия, Параметр, Источник);
КонецПроцедуры
//==================== ОСНОВНЫЕ ДЕЙСТВИЯ ФОРМЫ ==========================================
//==================== ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ ==============================
//==================== ИНИЦИАЛИЗАЦИЯ ====================================================
мфИД = "Справочники.ШаблоныУпаковок.ФормаЭлемента";
Показать
Перем мфИД Экспорт; // идентификатор формы для настройки доступов к элементам формы
//==================== ВСПОМОГАТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ ==============================
// Предопределенный обработчик интерфейса подключаемых обработок (экспорт нужен для проверки существования)
//
Процедура ВнешняяОбработкаОбъекта(Кнопка) Экспорт // Подключение данной процедуры-обработчика выполняется из кода конфигурации
глВнешняяОбработкаОбъекта(ЭтаФорма, Кнопка.Имя);
КонецПроцедуры
//==================== ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ ========================================
// Обработчик события формы ПередОткрытием.
//
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Если НЕ глСправочники_ПередОткрытием(ЭтаФорма, Отказ, СтандартнаяОбработка) Тогда
Возврат;
КонецЕсли;
Если Отказ Тогда
Возврат;
КонецЕсли;
//--------------------------------------------------------------------------------------
//--------------------------------------------------------------------------------------
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ПередОткрытием", ЭтаФорма, Отказ, СтандартнаяОбработка);
КонецПроцедуры
// Обработчик события формы ПриОткрытии.
//
Процедура ПриОткрытии()
//--------------------------------------------------------------------------------------
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ПриОткрытии", ЭтаФорма);
КонецПроцедуры
// Обработчик события формы ОбновлениеОтображения.
//
Процедура ОбновлениеОтображения()
ПроверитьЗависимыеРеквизиты();
//--------------------------------------------------------------------------------------
// установка состояния кнопки "Активность":
ЭлементыФормы.ДействияФормы.Кнопки.КнАктивность.Пометка = Активность;
ВариантИсполнения = Владелец.Владелец;
Номенклатура = ВариантИсполнения.Владелец;
//--------------------------------------------------------------------------------------
ДоступыКФормам.ОбновлениеОтображения(ЭтаФорма);
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ОбновлениеОтображения", ЭтаФорма);
КонецПроцедуры
// Обработчик события формы ОбработкаОповещения.
//
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ОбработкаОповещения", ЭтаФорма, ИмяСобытия, Параметр, Источник);
КонецПроцедуры
//==================== ОСНОВНЫЕ ДЕЙСТВИЯ ФОРМЫ ==========================================
// Устанавливает флаг активности спецификации.
//
Процедура ДействияФормыКнАктивность(Кнопка)
Активность = НЕ Активность;
Если ТолькоПросмотр Тогда
ЭтотОбъект.Записать();
КонецЕсли;
КонецПроцедуры
//==================== ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ ==============================
//==================== ИНИЦИАЛИЗАЦИЯ ====================================================
мфИД = "Справочники.Упаковки.ФормаЭлемента";
ПоказатьФункция НужноВызватьИсключение(ВхИмяМетода, ВхКонтекст, ВхОписаниеОшибки)
Если Найти(ВхОписаниеОшибки, "ОбщийМодуль.Кастомизация.Модуль(") > 0
И ( Найти(ВхОписаниеОшибки, "Метод объекта не обнаружен (" + ВхИмяМетода + ")") > 0
ИЛИ Найти(ВхОписаниеОшибки, "Object method not found (" + ВхИмяМетода + ")") > 0
ИЛИ Найти(ВхОписаниеОшибки, "Метод об`єкту не виявлено (" + ВхИмяМетода + ")") > 0
) Тогда
//Это не ошибка - просто не потребовался обработчик по кастомизации
Возврат Ложь;
Иначе// все остальное - ошибки, возникшие в самом обработчике кастомизации
глСообщить(ВхКонтекст, ВхОписаниеОшибки, СтатусСообщения.Внимание, "Ошибка выполнения " + ВхИмяМетода + "()");
Возврат Истина;
КонецЕсли;
КонецФункции
Функция ВыполнитьПроцедуруФункцию( ВхИмяПроцедурыФункции, ВхКонтекст,
ВхПарам1 = Неопределено,
ВхПарам2 = Неопределено,
ВхПарам3 = Неопределено,
ВхПарам4 = Неопределено,
ВхПарам5 = Неопределено,
ВхПарам6 = Неопределено,
ВхПарам7 = Неопределено) Экспорт
Попытка
// ======== КОНТЕКСТ: ФОРМА =======================================
Если ВхИмяПроцедурыФункции = "ПС_ПередОткрытием" Тогда
ВхКонтекст.ПС_ПередОткрытием(ВхПарам1, ВхПарам2);
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ПриОткрытии" Тогда
ВхКонтекст.ПС_ПриОткрытии();
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ОбновлениеОтображения" Тогда
ВхКонтекст.ПС_ОбновлениеОтображения();
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ОбработкаВыбора" Тогда
//ВхПарам1 - ЗначениеВыбора
//ВхПарам2 - Источник
ВхКонтекст.ПС_ОбработкаВыбора(ВхПарам1, ВхПарам2);
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ОбработкаОповещения" Тогда
//ВхПарам1 - ИмяСобытия
//ВхПарам2 - Параметр
//ВхПарам3 - Источник
ВхКонтекст.ПС_ОбработкаОповещения(ВхПарам1, ВхПарам2, ВхПарам3);
// ======== КОНТЕКСТ: ОБЪЕКТ ======================================
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ПроверитьЗависимыеРеквизиты" Тогда
ВхКонтекст.ПС_ПроверитьЗависимыеРеквизиты();
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ПроверитьОбъект" Тогда
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(ВхКонтекст.Ссылка)) Тогда
Попытка
_флОК = ВхКонтекст.ПС_ПроверитьОбъект();
Возврат _флОК;
Исключение
Возврат Истина;
КонецПопытки;
ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(ВхКонтекст.Ссылка)) Тогда
//ВхПарам1 - стру_ДанныеДокумента
Попытка
_флОК = ВхКонтекст.ПС_ПроверитьОбъект(ВхПарам1);
Возврат _флОК;
Исключение
Возврат Истина;
КонецПопытки;
КонецЕсли;
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ПередЗаписьюДвиженийСПроверкой" Тогда
//ВхПарам1 - стру_ДанныеДокумента
//ВхПарам2 - Отказ. Состояние флага отказа
//ВхПарам3 - Режим. Режим проведения
ВхКонтекст.ПС_ПередЗаписьюДвиженийСПроверкой(ВхПарам1, ВхПарам2, ВхПарам3);
ИначеЕсли ВхИмяПроцедурыФункции = "ПС_ОбработкаЗаполнения_ПередЗаполнениемДанными" Тогда
//ВхПарам1 - ДанныеЗаполнения
//ВхПарам2 - СтандартнаяОбработка
//ВхПарам3 - ПродолжитьТиповоеЗаполнение.
ВхКонтекст.ПС_ОбработкаЗаполнения_ПередЗаполнениемДанными(ВхПарам1, ВхПарам2, ВхПарам3);
Иначе
ВызватьИсключение("Неподдерживаемая пользовательская процедура/функция <" + ВхИмяПроцедурыФункции + ">");
КонецЕсли;
Исключение
_ОписаниеОшибки = ОписаниеОшибки();
Если НужноВызватьИсключение(ВхИмяПроцедурыФункции, ВхКонтекст, _ОписаниеОшибки) Тогда
ВызватьИсключение(ИнформацияОбОшибке().Описание);
КонецЕсли;
КонецПопытки;
КонецФункции
ПоказатьПо теме из базы знаний
- Перенос данных из БП 3.0 / БП 2.0 в УПП 1.3 / КА 1.1. Переносятся документы, остатки и справочники
- Неполадки в работе функционала конфигурации "Бухгалтерия предприятия 3.0" после переноса данных из одной конфигурации в другую через XML
- Управление состоянием для шаблона MVC и работы с данными объекта
- Открыть форму внутри другой формы - наконец-то возможно!
- Расширение для интеграции с маркетплейсами из одного окна: Озон, ВБ, Яндекс, Сбер, Али, ЛаМода для 1С:УНФ, УТ, КА, ERP
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(2)Сейчас мне объяснили как это работает.
В справочнике СхемаПакования Нажимаешь на кнопку Заполнить по шаблону и тогда все переносится.
Вот
куда мне надо прописать мои данные?
В справочнике СхемаПакования Нажимаешь на кнопку Заполнить по шаблону и тогда все переносится.
Вот
Процедура ДействияФормыЗаполнитьПоШаблону(Кнопка)
_Отбор = Новый Структура;
_Отбор.Вставить("Владелец", Номенклатура);
_ФормаВыбора = Справочники.ШаблоныСхемПакования.ПолучитьФормуВыбора();
_ШаблонСхемыПакования = глВыборИзСправочника(_ФормаВыбора, _Отбор, Истина);
Если _ШаблонСхемыПакования = Неопределено Тогда
Возврат;
КонецЕсли;
Заполнить(_ШаблонСхемыПакования);
КонецПроцедуры
//==================== ОБРАБОТЧИКИ СОБЫТИЙ ЭЛЕМЕНТОВ ФОРМЫ ==============================
Процедура ТЧСоставПередНачаломДобавления(Элемент, Отказ, Копирование)
Если ЭтоНовый() Тогда
ЭтотОбъект.ОбменДанными.Загрузка = Истина;
Записать();
ЭтотОбъект.ОбменДанными.Загрузка = Ложь;
КонецЕсли;
КонецПроцедуры
Показатькуда мне надо прописать мои данные?
(4)
Вот,с помощью отладки нашла куда уходит заполнить
Вот,с помощью отладки нашла куда уходит заполнить
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
ДополнительныеСвойства.Вставить("ЕстьОшибкиПриОбработкеЗаполнения", Ложь);
//////////////////////////////////////////////////////////// //////////////////
// Заполнение значениями по умолчанию
Автонаименование = Истина;
//////////////////////////////////////////////////////////// //////////////////
// Очистка табличных частей
ТЧСостав.Очистить();
//////////////////////////////////////////////////////////// //////////////////
//Заполнение переданными данными
ПродолжитьТиповоеЗаполнение = Истина;
Кастомизация.ВыполнитьПроцедуруФункцию("ПС_ОбработкаЗаполнения_ПередЗаполнениемДанными", ЭтотОбъект, ДанныеЗаполнения, СтандартнаяОбработка, ПродолжитьТиповоеЗаполнение);
Если НЕ ПродолжитьТиповоеЗаполнение Тогда
Возврат;
КонецЕсли;
Если ДанныеЗаполнения = Неопределено Тогда
ДанныеЗаполнения = Новый Структура;
КонецЕсли;
Тип_ДанныеЗаполнения = ТипЗнч(ДанныеЗаполнения);
Если Тип_ДанныеЗаполнения = Тип("Структура") Тогда //значение отборов(на равенство) из списков или создана вручную
ЗаполнитьЗначенияСвойств(ЭтотОбъект, ДанныеЗаполнения);
ИначеЕсли Тип_ДанныеЗаполнения = Тип("СправочникСсылка.ШаблоныСхемПакования") Тогда
//ВНИМАНИЕ. НОВЫЙ ОБЪЕКТ ГАРАНТИРОВАННО БУДЕТ ЗАПИСАН (нужна ссылка для упаковок)
Если ЭтоНовый() Тогда
Если глПустоеЗначение(Код) Тогда
УстановитьНовыйКод();
КонецЕсли;
_ОбменДаннымиЗагрузка = ОбменДанными.Загрузка;
ОбменДанными.Загрузка = Истина;
Записать();
ОбменДанными.Загрузка = _ОбменДаннымиЗагрузка;
КонецЕсли;
Для Каждого строка_ШаблонТЧСостав Из ДанныеЗаполнения.ТЧСостав Цикл
_ШаблонНаименованияУпаковки = "%] " + строка_ШаблонТЧСостав.ШаблонУпаковки.Наименование + "";
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Упаковки.Ссылка
|ИЗ
| Справочник.Упаковки КАК Упаковки
|ГДЕ
| Упаковки.Владелец = &Владелец
| И Упаковки.Наименование Подобно &ШаблонНаименованияУпаковки
| И Упаковки.ПометкаУдаления = ЛОЖЬ"
;
Запрос.УстановитьПараметр("Владелец", Ссылка);
Запрос.УстановитьПараметр("ШаблонНаименованияУпаковки", _ШаблонНаименованияУпаковки);
Выборка = Запрос.Выполнить().Выбрать();
_Упаковка = ?(Выборка.Следующий(), Выборка.Ссылка, Неопределено);
Если глПустоеЗначение(_Упаковка) Тогда
_Упаковка = Справочники.Упаковки.СоздатьЭлемент();
_Упаковка.Владелец = Ссылка;
ДанныеЗаполнения_Упаковка = Новый Структура;
ДанныеЗаполнения_Упаковка.Вставить("Владелец", Ссылка);
_Упаковка.Заполнить(ДанныеЗаполнения_Упаковка);
_Упаковка.Наименование = "[" + глПолучитьКод_ИерархияВладельцев (_Упаковка) + "] " + строка_ШаблонТЧСостав.ШаблонУпаковки.Наименование;
_Упаковка.Комментарий = строка_ШаблонТЧСостав.ШаблонУпаковки.Комментарий;
//ПС_СоколВВ 20180220
_Упаковка.ПС_ВидДопЭтикетки = строка_ШаблонТЧСостав.ШаблонУпаковки.ПС_ВидДопЭтикетки;
//ПС__ 2018-05-16 Помогайленко С.В.
Для Каждого строка_ШаблонУпаковкиТЧСоставляющие Из строка_ШаблонТЧСостав.ШаблонУпаковки.ПС_ТЧСоставляющие Цикл
_строка_ТЧСоставляющие = _Упаковка.ПС_ТЧСоставляющие.Добавить();
ЗаполнитьЗначенияСвойств(_строка_ТЧСоставляющие, строка_ШаблонУпаковкиТЧСоставляющие);
КонецЦикла;
//__ПС 2018-05-16 Помогайленко С.В.
_Упаковка.Записать();
_Упаковка = _Упаковка.Ссылка;
КонецЕсли;
строка_ТЧСостав = ТЧСостав.Добавить();
строка_ТЧСостав.Упаковка = _Упаковка;
строка_ТЧСостав.Кол = строка_ШаблонТЧСостав.Кол;
КонецЦикла;
ИначеЕсли Тип_ДанныеЗаполнения = Тип("СправочникСсылка.ВариантыИсполнения") Тогда
//ВНИМАНИЕ. НОВЫЙ ОБЪЕКТ ГАРАНТИРОВАННО БУДЕТ ЗАПИСАН (нужна ссылка для упаковок)
Если ЭтоНовый() Тогда
Если глПустоеЗначение(Код) Тогда
УстановитьНовыйКод();
КонецЕсли;
_ОбменДаннымиЗагрузка = ОбменДанными.Загрузка;
ОбменДанными.Загрузка = Истина;
Записать();
ОбменДанными.Загрузка = _ОбменДаннымиЗагрузка;
КонецЕсли;
_Упаковка = Справочники.Упаковки.СоздатьЭлемент();
_Упаковка.Владелец = Ссылка;
ДанныеЗаполнения_Упаковка = Новый Структура;
ДанныеЗаполнения_Упаковка.Вставить("Владелец", Ссылка);
_Упаковка.Заполнить(ДанныеЗаполнения_Упаковка);
_Упаковка.Наименование = "[" + глПолучитьКод_ИерархияВладельцев (_Упаковка) + "] 1к1 ВИ <" + ДанныеЗаполнения.Наименование + ">";
_Упаковка.Записать();
_Упаковка = _Упаковка.Ссылка;
строка_ТЧСостав = ТЧСостав.Добавить();
строка_ТЧСостав.Упаковка = _Упаковка;
строка_ТЧСостав.Кол = 1;
Иначе
глСообщить(ЭтотОбъект, "ЗаполнениеНаОсновании: неподдерживаемый тип данных заполнения - <" + Тип_ДанныеЗаполнения + ">.", СтатусСообщения.Важное);
ДополнительныеСвойства.Вставить("ЕстьОшибкиПриОбработкеЗаполнения", Истина);
КонецЕсли;
//////////////////////////////////////////////////////////// //////////////////
//Обработка реквизитов
Если глПустоеЗначение(Код) Тогда
УстановитьНовыйКод();
КонецЕсли;
ПроверитьЗависимыеРеквизиты();
КонецПроцедуры
Показать
Вакансии
Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)