Анализ и оценка надежности и эффективности АИС "Бюджет"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
();//:=(,0);//:=.;.(,Keys=30;30=30;=;default=false;insert=false);//.;;;//(:;:);,:;:=.(ID).;:=.(TypedForm).;.(AcceptDate).(,);.;.:=.(ID).;:=.(TypedForm).;.(AcceptDate).(,);.;;;;:;:;:;:=;:=..;.Active(.=0)();...:=...;(,);().;;(,);();.включить \Библиотеки\LibRu.lib; включить \Библиотеки\Forms.lib; включить \Библиотеки\ConsSupport.lib; включить \Библиотеки\Reports.lib; включить \Макросы\КИ\ПоддержкаФормВвода; включить project; константы НаборПолей = КонсолидацияДетализация.КодЗаписи,КонсолидацияДетализация.КодСтрокиЦелое,КонсолидацияДетализация.Код30,КонсолидацияДетализация.Сумма0, КонсолидацияДетализация.Сумма1,КонсолидацияДетализация.Сумма2,КонсолидацияДетализация.Сумма3,КонсолидацияДетализация.Сумма4, КонсолидацияДетализация.Сумма5,КонсолидацияДетализация.Сумма6,КонсолидацияДетализация.Сумма7,КонсолидацияДетализация.Сумма8, КонсолидацияДетализация.Сумма9,КонсолидацияДетализация.Сумма10,КонсолидацияДетализация.Сумма11,КонсолидацияДетализация.Сумма12, КонсолидацияДетализация.Сумма13,КонсолидацияДетализация.Сумма14,КонсолидацияДетализация.Сумма15; // функция СоздатьПредставление(КодДокумента: Целое; НомерДетализации: Целое): ПредставлениеДанных; переменные Раскладка: ITableInfoX; Ы: Целое; начало Раскладка := ПоддержкаКонсолидации.СоздатьРаскладку(НаборПолей); Раскладка.Columns(0).Group := grpGroup; от Ы := 1 до Раскладка.Count -1 делать Раскладка.Columns(Ы).Group := grpNone; результат := ПоддержкаКонсолидации.СоздатьПредставлениеДанных(Раскладка); р?/p>