5. «1С: Бухгалтерия», Настольная книга пользователя М - 1999.
6 Описание типовой конфигурации "1С:Бухгалтерия 7.7". - М.: ЗАО "1С", 2005. Интернет-ресурс БУХ.1С
7. Харитонов С.А. Гибкая автоматизация бухгалтерского учета и отчетности: вопросы теории и практики. - М.: Издательство «Бухгалтерский учет», 2003.
Приложение А
Листинг программы
Процедура При Открытии()
табл. Новая Колонка(«ФИО»,,,, «ФИО»,20);
табл. Новая Колонка(«стаж»,,,, «стаж»,20);
табл. Новая Колонка(«выдачаНа50»,,,, «выдача на 50 лет»,20);
табл. Новая Колонка(«выдачаНа55»,,,, «выдача на 55 лет»,20);
табл. Новая Колонка(«выдачаНа60»,,,, «выдача на 60 лет»,20);
конец процедуры
процедура Заполнить()
сотр=СоздатьОбъект(«Справочник.Сотрудники»);
дат=ТекущаяДата();
сотр.ВыбратьЭлементы();
если (юбилей <>50) и (юбилей <>55) и (юбилей <>60) тогда Предупреждение(«Это не юбилей!») конецесли;
Пока сотр.ПолучитьЭлемент() > 0 Цикл
если (юбилей=50) или (юбилей=55) или (юбилей=60) тогда
если (ДатаГод(дат)-ДатаГод(сотр.принят)) <10 тогда
табл.новаястрока();
табл.фио=сотр.фио;
табл.стаж=число((ДатаГод(дат)-ДатаГод(сотр.принят)));
табл.выдачаНа50=1000;
конецесли;
Продолжение приложения А
если ((ДатаГод(дат)-ДатаГод(сотр.принят))>10) и ((ДатаГод(дат)-ДатаГод(сотр.принят))<15) тогда
табл.новаястрока();
табл.фио=сотр.фио;
табл.стаж=(ДатаГод(дат)-ДатаГод(сотр.принят));
табл.выдачаНа50=1500;
конецесли;
если ((ДатаГод(дат)-ДатаГод(сотр.принят))>15) и ((ДатаГод(дат)-ДатаГод(сотр.принят))<20) тогда
табл.новаястрока();
табл.фио=сотр.фио;
табл.стаж=(ДатаГод(дат)-ДатаГод(сотр.принят));
табл.выдачаНа50=2000;
конец если;
конец если;
конец цикла;
конец процедуры
Процедура ПриОткрытии()
таблЛьгот.НоваяКолонка(«ФИО»,,,, «ФИО»,20);
таблЛьгот.НоваяКолонка(«ВозрастРебенка»,,, «ВозрастРебенка»,2);
таблЛьгот.НоваяКолонка(«Лагерь»,,,, «Лагерь»,10);
таблЛьгот.НоваяКолонка(«НГ»,,,, «НГ»,10);
конецпроцедуры
процедура Заполнить()
Продолжение приложения А
сотр=СоздатьОбъект(«Справочник.Сотрудники»);
дат=ТекущаяДата();
сотр.ВыбратьЭлементы();
Пока сотр.ПолучитьЭлемент() > 0 Цикл
если ((ДатаГод(дат)-ДатаГод(сотр.ДатаРожденияРебенка)) <14) и ((ДатаГод(дат)-ДатаГод(сотр.ДатаРожденияРебенка)) >6) тогда
таблЛьгот.новаястрока();
таблЛьгот.фио=сотр.фио;
таблЛьгот.ВозрастРебенка=(ДатаГод(дат)-ДатаГод(сотр.ДатаРожденияРебенка));
если ФНГ>0 тогда
таблЛьгот.НГ= «да»;
конецесли;
если ФЛагерь>0 тогда
таблЛьгот.Лагерь= «да»;
конецесли;
конецесли;
конеццикла;
конецпроцедуры
процедура Заполнить()
сотр=СоздатьОбъект("Справочник.Сотрудники");
дат=ТекущаяДата();
сотр.ВыбратьЭлементы();
Пока сотр.ПолучитьЭлемент() > 0 Цикл
если сотр.площадьЖилья<=12 тогда
новаястрока();
фио=сотр.фио;
Окончание приложение А
Площадь=сотр.площадьЖилья;
АктивизироватьСтроку();
конецесли;
конеццикла;
конецпроцедуры