Как в 1С:Альфа-Авто добавить номенклатуру в табличную часть «Товары» документа?

[Odineski]

в Альфе авто я создал внешнюю обработку, в ней добавил реквизит с выбором в докумене Заказа наряд, добавил кнопку выполнить.
как в этой кнопке получить у документа табличную часть товары и добавить номенклатуру артикул «23123От32»

[Odin — Одинэсник]

В 1С:Альфа-Авто, если у вас во внешней обработке есть реквизит выбора документа «Заказ-наряд» (пусть реквизит называется, например, ДокументЗаказНаряд), и вы хотите по нажатию кнопки «Выполнить» получить табличную часть «Товары» этого документа и добавить в неё номенклатуру с артикулом «23123От32», то алгоритм такой:

1. Получить объект документа по ссылке из реквизита выбора.
2. Найти номенклатуру по артикулу.
3. Добавить новую строку в табличную часть «Товары» документа.
4. Записать изменения (если нужно).

Пример кода кнопки «Выполнить» (на клиенте с вызовом серверной процедуры):

1С (Код)

&НаКлиенте Процедура ВыполнитьКнопкаНажатие(Кнопка) Если НЕ ЗначениеЗаполнено(Обработка.ДокументЗаказНаряд) Тогда Сообщить("Документ Заказ-наряд не выбран"); Возврат; КонецЕсли; Результат = ВызватьНаСервере("ДобавитьНоменклатуруВТовары", Обработка.ДокументЗаказНаряд, "23123От32"); Если Результат = Истина Тогда Сообщить("Номенклатура успешно добавлена"); Иначе Сообщить("Номенклатура с артикулом не найдена или ошибка"); КонецЕсли; КонецПроцедуры &НаСервере Функция ДобавитьНоменклатуруВТовары(СсылкаДокумента, Артикул) // Получаем объект документа ДокументОбъект = СсылкаДокумента.ПолучитьОбъект(); // Ищем номенклатуру по артикулу Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1 | Номенклатура.Ссылка |ИЗ | Справочник.Номенклатура КАК Номенклатура |ГДЕ | Номенклатура.Артикул = &Артикул"; Запрос.УстановитьПараметр("Артикул", Артикул); Результат = Запрос.Выполнить().Выбрать(); Если НЕ Результат.Следующий() Тогда Возврат Ложь; // Номенклатура не найдена КонецЕсли; НоменклатураСсылка = Результат.Ссылка; // Добавляем строку в табличную часть "Товары" НоваяСтрока = ДокументОбъект.Товары.Добавить(); НоваяСтрока.Номенклатура = НоменклатураСсылка; НоваяСтрока.Количество = 1; // Можно указать нужное количество // Записываем изменения ДокументОбъект.Записать(); Возврат Истина; КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

&НаКлиенте Процедура ВыполнитьКнопкаНажатие(Кнопка)     Если НЕ ЗначениеЗаполнено(Обработка.ДокументЗаказНаряд) Тогда         Сообщить("Документ Заказ-наряд не выбран");         Возврат;     КонецЕсли;       Результат = ВызватьНаСервере("ДобавитьНоменклатуруВТовары", Обработка.ДокументЗаказНаряд, "23123От32");     Если Результат = Истина Тогда         Сообщить("Номенклатура успешно добавлена");     Иначе         Сообщить("Номенклатура с артикулом не найдена или ошибка");     КонецЕсли; КонецПроцедуры   &НаСервере Функция ДобавитьНоменклатуруВТовары(СсылкаДокумента, Артикул)     // Получаем объект документа     ДокументОбъект = СсылкаДокумента.ПолучитьОбъект();       // Ищем номенклатуру по артикулу     Запрос = Новый Запрос;     Запрос.Текст =     "ВЫБРАТЬ ПЕРВЫЕ 1     |   Номенклатура.Ссылка     |ИЗ     |   Справочник.Номенклатура КАК Номенклатура     |ГДЕ     |   Номенклатура.Артикул = &Артикул";     Запрос.УстановитьПараметр("Артикул", Артикул);     Результат = Запрос.Выполнить().Выбрать();       Если НЕ Результат.Следующий() Тогда         Возврат Ложь; // Номенклатура не найдена     КонецЕсли;       НоменклатураСсылка = Результат.Ссылка;       // Добавляем строку в табличную часть "Товары"     НоваяСтрока = ДокументОбъект.Товары.Добавить();     НоваяСтрока.Номенклатура = НоменклатураСсылка;     НоваяСтрока.Количество = 1; // Можно указать нужное количество       // Записываем изменения     ДокументОбъект.Записать();       Возврат Истина; КонецФункции

Объяснение:
— В клиентской процедуре проверяем, что выбран документ.
— Вызываем серверную функцию, передавая ссылку на документ и артикул.
— На сервере ищем номенклатуру по артикулу.
— Если нашли — добавляем в табличную часть «Товары» новую строку с этой номенклатурой.
— Записываем документ.
— Возвращаем результат.

Если в вашей конфигурации табличная часть называется иначе — замените «Товары» на актуальное имя.

Если нужно добавить дополнительные поля (цена, склад и т.п.) — допишите в заполнение новой строки.

Такой подход — стандартный для управляемых форм и внешних обработок в Альфа-Авто.

[Автор]

Сообщения