Анализ и оценка надежности и эффективности АИС "Бюджет"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
µзультат.Параметр(КонсолидацияЗаголовки.КодДокумента) := КодДокумента; результат.Параметр(КонсолидацияДетализация.НомерДетализации) := НомерДетализации; результат.Открыть; конец; // функция ПолучитьМатрицуДоходов(КодФормы: Целое): СтатическиеДанные; переменные ОписаниеФормы: ITypedForm; ФормаВвода: IBaseForm; начало ОписаниеФормы := МенеджерФормВвода.ФормаПоКоду(КодФормы); ФормаВвода := ПостроительФормВвода.BuildInputForm(-1, КодФормы); результат := ФормаВвода.StaticSets(0); конец; // функция ОбновитьЗаголовок(КодДокумента, КодФормы: Целое); переменные Детализация: ПредставлениеДанных; Доходы: СтатическиеДанные; Данные: СтатическиеДанные; начало если (КодФормы = 36100704) или (КодФормы = 36100706) или (КодФормы = 36101704) или (КодФормы = 36101404) или (КодФормы = 36100404) или (КодФормы = 36100406) тогда начало // получаем текущую матрицу доходов (по которой будем определять соответствие КД и кода листа Доходы := ПолучитьМатрицуДоходов(КодФормы); // создаем представление для обновления данных в БД Детализация := СоздатьПредставление(КодДокумента, 0); // меняем коды листа Данные := Детализация.Данные; Данные.Группировать(Доходы, Keys=Код30;Код30=Код30;КодСтрокиЦелое=КодСтрокиЦелое;default=false;insert=false); // сохраняем изменения Детализация.СохранитьИзменения; конец; конец; // функция ОбновитьЗаголовки(Заголовки: СтатическиеДанные; ТолькоТекущая: Целое); переменные Код, КодФормы: Целое; начало если ТолькоТекущая тогда начало Код := Заголовки.Поле(ID).КакЦелое; КодФормы := Заголовки.Поле(TypedForm).КакЦелое; если Заголовки.Поле(AcceptDate).Пустое тогда ОбновитьЗаголовок(Код, КодФормы); конец иначе начало Заголовки.ВНачало; пока не Заголовки.ВКонце делать начало Код := Заголовки.Поле(ID).КакЦелое; КодФормы := Заголовки.Поле(TypedForm).КакЦелое; если Заголовки.Поле(AcceptDate).Пустое тогда ОбновитьЗаголовок(Код, КодФормы); Заголовки.Следующая; конец; конец; конец; переменные ф: ФормаВвода; Заголовки: СтатическиеДанные; Выделенные: СтатическиеДанные; начало ф := ПолучитьФормуВвода; Заголовки := ф.Заголовки.Таблица; если не Заголовки.Active или (Заголовки.ЧислоЗаписей = 0) тогда ВызватьОшибку(В заголовке нет данных); если ф.Заголовки.Сетка.ЕстьВыделенныеСтроки тогда начало Выделенные := ф.Заголовки.Сетка.ПолучитьВыделенныеСтроки; попытка ОбновитьЗаголовки(Выделенные, нет); обязательно Интерфейс(Выделенные).Освободить; конец; конец иначе ОбновитьЗаголовки(Заголовки, да); Сообщение(Обновление завершено); конец.
"\\LibRu.lib";"\\ABLTools.lib";"project";:;:;//(:;:):;.(.ColumnByFieldName(AcceptDate)).ColumnByFieldName(AcceptDate).CheckState:=0;:=;;:=;...=0(".");.("..");:=..;..ForSelection(,(),Null)(-1,Null);.;.включить "\Библиотеки\LibRu.lib"; включить "\Библиотеки\ABLTools.lib"; включить "project"; переменные ф: ФормаВвода; Сетка: СеткаДанных; // функция ?/p>