Читать курсовая по информационному обеспечению, программированию: "Автоматизированная система учета основной деятельности хлебопекарного завода" Страница 8

(Назад) (Cкачать работу)

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ

КонецПроцедуры //код кнопки подбор

Процедура КоманднаяПанель1ПодборДействие(Кнопка)

ФормаПодбора = Справочники.Номенклатура.ПолучитьФормуВыбора(,ЭтаФорма);

ФормаПодбора.ЗакрыватьПриВыборе = Ложь;

ФормаПодбора.Открыть();

КонецПроцедуры //код обработки кнопки подбор

Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)

Если ТипЗнч(ЗначениеВыбора) = Тип("СправочникСсылка.Номенклатура") Тогда

Строка = Продукция.Найти(ЗначениеВыбора,"Продукция");

Если Строка = Неопределено Тогда

Строка = Продукция.Добавить();

Строка.Продукция = ЗначениеВыбора;

Строка.Единица = Строка.Продукция.Единица;

Иначе

Если Вопрос("Такой товар уже есть (" + СокрЛП(ЗначениеВыбора) + ")! Добавить еще?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда

Строка = Продукция.Добавить();

Строка.Продукция = ЗначениеВыбора;

Строка.Единица = Строка.Продукция.Единица

КонецЕсли;

КонецЕсли;

КонецЕсли;

КонецПроцедуры Общий модуль ЦеныПериодические

Функция РозничнаяЦена (АктуальнаяДата, ЭлементНоменклатуры) Экспорт

// Создать вспомогательный объект Отбор

Отбор = Новый Структура ("Номенклатура", ЭлементНоменклатуры);

// Получить актуальные значения ресурсов регистра

ЗначенияРесурсов = РегистрыСведений.ЦеныНоменклатуры.ПолучитьПоследнее (АктуальнаяДата, Отбор);

Возврат ЗначенияРесурсов.Цена;

КонецФункции

Похожие работы