Автоматизированная информационная система "Справочная служба магазина"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?в.Количество;
ТекСтрока = 0;
КонецЕсли;
КонецЦикла;
КонецПроцедуры // ЗаполнитьПоСкладам()
Процедура ЗаполнитьСтрокиТаблицы()
ТаблицаФормы.УдалитьСтроки();
Если ПустоеЗначение(ОбъектАнализа) = 0 Тогда
СпособПоказа = ОстаткиПо.ПолучитьЗначение(ОстаткиПо.ТекущаяСтрока());
Если СпособПоказа = "магазинам" Тогда
ЗаполнитьПоМагазинам();
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ЗаполнитьСтрокиТаблицы()
Функция СформироватьИнформационнуюСтроку()
Перем ИнфСтрока;
Если ТипЗначения(КонтСправочника) = 100 Тогда
ТекЭлемент = КонтСправочника.ТекущийЭлемент();
Если ТекЭлемент <> ОбъектАнализа Тогда
ОбъектАнализа = ТекЭлемент;
ЗаполнитьСтрокиТаблицы();
КонецЕсли;
Если ПустоеЗначение(ОбъектАнализа) = 1 Тогда
ИнфСтрока = "";
Иначе
Если ОбъектАнализа.ЭтоГруппа() = 0 Тогда
ИнфСтрока = СокрЛП(ОбъектАнализа.Наименование);
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат ИнфСтрока;
КонецФункции // СформироватьИнформационнуюСтроку()
Процедура ПриДвойномЩелчкеНаТаблице()
Перем Конт;
Позиция= ТаблицаФормы.ТекущаяСтрока();
Если Позиция= 0 Тогда
Возврат
КонецЕсли;
Попытка
Конт = ТаблицаФормы.ПолучитьЗначение(Позиция, "Объект");
Исключение КонецПопытки;
ОткрытьФормуМодально(Конт);
// Могли поменять отображаемую информацию
ОбъектАнализа = "";
СформироватьИнформационнуюСтроку();
ТаблицаФормы.ТекущаяСтрока(Позиция);
КонецПроцедуры // ПриДвойномЩелчкеНаТаблице()
Процедура ПриИзмененииОстаткиПо()
ЗаполнитьКолонкиТаблицы();
ЗаполнитьСтрокиТаблицы();
КонецПроцедуры // ПриИзмененииОстаткиПо()
Процедура ПриОткрытии()
КонтСправочника = Форма.Параметр;
Если ПустоеЗначение(КонтСправочника) = 1 Тогда
Предупреждение("Данная обработка вызывается из других модулей конфигурации",60);
СтатусВозврата(0);
Возврат;
КонецЕсли;
ОстаткиПо.УдалитьВсе();
ОстаткиПо.ДобавитьЗначение("магазинам");
ТекСтрока = ВосстановитьЗначение("СпособПоказаОстатков");
ОстаткиПо.ТекущаяСтрока(Макс(1,ТекСтрока));
// Заполним таблицу значений формы
ПриИзмененииОстаткиПо();
КонецПроцедуры // ПриОткрытии()
Процедура ПриЗакрытии ()
СохранитьЗначение("СпособПоказаОстатков", ОстаткиПо.ТекущаяСтрока());
КонецПроцедуры // ПриЗакрытии ()
Приложение 2
Логическая схема данных
Приложение 3