1С Режим Конфигуратор


Дополнение


Изделие

С.Изделия

Кол

Число 5.0

+

В журнал добавим графу "Сборщик". Создаем форму документа.

Поля Валюта, ДатаКурса, Курс удаляем. Поле АвторДокумента делаем недоступным. Добавляем кнопку [Заявка] с формулой Заявка(), по этой кнопке мы будем распечатывать перечень входящих в изделия комплектующих, с указанием общего количества.

В табличную часть добавим поле текст с функцией Ост(Склад,Изделие), эта колонка будет показывать, для какого количества изделий хватит комплектующих (но, эта функция будет показывать только возможное количество, она, разумеется, не учитывает возможность участия комплектующего в разных изделиях). В поле табличной части Кол добавляем процедуру Кол(), эта процедура будет проверять, не превышает ли указанное количество изделий возможное, исходя из запасов на складе. Еще раз подобную проверку мы будем делать в модуле проведения.


В модуле формы документа пишем:

Процедура ВводНового()

  АвторДокумента=СокрЛП(ИмяПользователя());

  ФирмаДокумента=Константа.ОснФирма;

  Валюта=Константа.ОснВалюта;

  ДатаКурса=ДатаДок;

  Курс=1;

КонецПроцедуры

//==========================================================

Процедура ПриОткрытии()

  ПриЗаписиПерепроводить(1);

КонецПроцедуры

//==========================================================

Процедура Заявка()

// Печать спецификации

  ТабЗн=СоздатьОбъект("ТаблицаЗначений");

  ТабЗн.НоваяКолонка("Ком","Справочник.Комплектующие");

  ТабЗн.НоваяКолонка("Кол","Число",12,0);

  СпрКом=СоздатьОбъект("Справочник.Комплектация");

// Подчиненный справочнику Изделия справочник Комплектация

  ВыбратьСтроки();

// Обходим строки документа

  Пока ПолучитьСтроку()=1 Цикл

    СпрКом.ИспользоватьВладельца(Изделие);

// Выбираем комплектующие по изделию

    СпрКом.ВыбратьЭлементы();

// Обходим справочник с составом комплектов




- Начало -  - Назад -  - Вперед -