Разработка конфигурации информационной системы

 

Приложение 1

Модули конфигурации

 

Справочник «Недвижимость»

//*******************************************

Процедура Печать()

СпрПодр=СоздатьОбъект ("Справочник.Недвижимость");

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

Таб.ИсходнаяТаблица ("Недвижимость");

Таб.ВывестиСекцию ("Шапка");

Если СпрПодр.ВыбратьЭлементы()=1 Тогда

Пока СпрПодр.ПолучитьЭлемент()=1 Цикл

Наименов=СпрПодр.ТекущийЭлемент();

Номер=Наименов.Код;

Адрес=Наименов.Наименование;

ОбщаяПлощадь=Наименов.ОбщаяПлощадь;

Участок=Наименов.Участок;

Этаж=Наименов.Этаж;

Материал=Наименов.Материал;

Цена=Наименов.Цена;       

//получаем значения атрибутов  справочника

Таб.ВывестиСекцию("Строка");

КонецЦикла;

КонецЕсли;

Таб.ТолькоПросмотр(1);

Таб.Показать ("Недвижимость","");

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

 

Справочник «Клиенты»

//*******************************************

Процедура Печать()

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

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

Таб.ИсходнаяТаблица ("Клиенты");

Таб.ВывестиСекцию ("Шапка");

Если СпрПодр.ВыбратьЭлементы()=1 Тогда

Пока СпрПодр.ПолучитьЭлемент()=1 Цикл

Наименов=СпрПодр.ТекущийЭлемент();

Номер=Наименов.Код;

Фамилия=Наименов.Фамилия;

Имя=Наименов.Имя;

Отчество=Наименов.Отчество;

ДатаРождения=Наименов.ДатаРождения;

Адрес=Наименов.Адрес;

Телефон=Наименов.Телефон;

Счет=Наименов.Счет;    

Таб.ВывестиСекцию("Строка");

КонецЦикла;

КонецЕсли;

Таб.ТолькоПросмотр(1);

Таб.Показать ("Клиенты","");

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

 

Справочник «Сделки»

//*******************************************

Процедура Печать()

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

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

Таб.ИсходнаяТаблица ("Сделки");

Таб.ВывестиСекцию ("Шапка");

Если СпрПодр.ВыбратьЭлементы()=1 Тогда

Пока СпрПодр.ПолучитьЭлемент()=1 Цикл

Наименов=СпрПодр.ТекущийЭлемент();

Номер=Наименов.Код;

ОбщаяПлощадь=Наименов.Наименование;

Клиент=Наименов.Клиент;

ДатаПокупки=Наименов.ДатаПокупки;

Адрес=Наименов.Адрес;

Цена=Наименов.Цена; 

Таб.ВывестиСекцию("Строка");

КонецЦикла;

КонецЕсли;

Таб.ТолькоПросмотр(1);

Таб.Показать ("Сделки","");

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

 

Документ «Заявка»

//*******************************************

Процедура ОбработкаПроведения()

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

СпрКлиенты.Новый();

СпрКлиенты.Наименование = Фамилия;

СпрКлиенты.Имя=Имя;

СпрКлиенты.Отчество = Отчество;

СпрКлиенты.ДатаРождения = ДатаРождения;

СпрКлиенты.Адрес = Адрес;

СпрКлиенты.Телефон = Телефон;

СпрКлиенты.Записать();

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

 

Документ «Договор купли-продажи»

//*******************************************

Процедура ОбработкаПроведения()

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

СпрСделки.Новый();

СпрСделки.Код = ТабНом;

СпрСделки.Клиент = Клиент;

СпрСделки.Наименование=ОбщаяПлощадь;

СпрСделки.Адрес = Адрес;

СпрСделки.Цена = Цена;   

СпрСделки.Записать();

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

 

Отчет по виду материала

//*******************************************

Процедура Сформировать()

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

Таб.ИсходнаяТаблица("Таблица");

Таб.ВывестиСекцию("Шапка");

Недвижимость = СоздатьОбъект("Справочник.Недвижимость");

Недвижимость.ВыбратьЭлементы();

НомерСтроки = 0;

Пока Недвижимость.ПолучитьЭлемент() = 1 Цикл

Если Недвижимость.Материал = Материал Тогда

НомерСтроки = НомерСтроки +1;

Таб.ВывестиСекцию("Строка");

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Раздел");

Таб.ВывестиСекцию("Подвал");

Таб.ТолькоПросмотр(1);

Таб.Показать("Таблица");

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