Дополнение - часть 4
ВыбСтрока=1;
Если ТабЗн2.ВыбратьСтроку(ВыбСтрока,
СокрЛП(ВыбТов.Код)+" ("
+СокрЛП(ВыбТов.Наименование)+")")=1 Тогда
// Выберем строку с нужным сортом
НоваяСтрока();
// создаем в документе новую строку
Товар=ВыбТов;
// заполняем поле "Товар"
СортВыб=ТабЗн2.ПолучитьЗначение(ВыбСтрока,"Сорт");
// по выбранной строке получаем сорт
КолОст=ТабЗн2.ПолучитьЗначение(ВыбСтрока,"Остаток");
// и остаток
Сорт=СортВыб;
СпрЕд=СоздатьОбъект("Справочник.Единицы");
СпрЕд.ИспользоватьВладельца(Товар);
СпрЕд.ВыбратьЭлементы();
Пока СпрЕд.ПолучитьЭлемент()=1 Цикл
Если СпрЕд.Ед=Товар.ЕдИзм Тогда
Ед=СпрЕд.ТекущийЭлемент();
Прервать;
КонецЕсли;
КонецЦикла;
// это уже было...
Цена=Окр(Товар.ЦенаР.Получить(ДатаДок)*(Сорт.Процент/100),2,1);
КолВыб=0;
Если ВвестиЧисло(КолВыб,СокрЛП(ВыбТов.Код)
+"/"+СокрЛП(Строка(СортВыб)+" кол:"
+Строка(КолОст)),8,2,0)=1 Тогда
// Введем нужное нам количество
Если КолВыб>КолОст Тогда
// сравним введенное нами количество с остатком
КолВыб=КолОст;
КонецЕсли;
Кол=КолВыб;
КолО=Окр(Кол*(Ед.Коэффициент),2,1);
Сумма=Окр(КолО*Цена,2,1);
КонецЕсли;
АктивизироватьСтроку();
// установим курсор в документе на строку, которую мы ввели
КонецЕсли;
КонецПроцедуры
Процедура ОбработкаПроведения()
РегОст=СоздатьОбъект("Регистр.ОстаткиТоваров");