Список литературы

1. Автоматизированные информационные технологии в экономике: Учебник/Под ред. проф. Г.А. Титоренко. – М.: Компьютер, ЮИНИТИ, 2009

2. Атре Ш. Структурный подход к организации баз данных. – М.: Финансы и статистика, 2008.

3. Баронов В.В., Калянов Г.Н., Попов Ю.И. и др. Автоматизация управления предприятием – М.: ИНФРА-М, 2008. (Серия «Секреты менеджмента»);

4. Вендров А.М. CASE – технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 2008.

5. Вендров А.М. Проектирование программного обеспечения экономических информационных систем.- М.: Финансы и статистика, 2007.

6. Гультяев А. К., «Microsoft Office Project 2007. Управление проектами: практическое пособие. » - СПб.: КОРОНА-Век, 2008 – 480с, ил.

7. Интернет – маркетинг: Учебник. Успенский И.В. - СПб.: Изд-во СПГУЭиФ, 2009.

8. Ипатова Э.Р., Ипатов Ю.В. Методологии и технологии системного проектирования информационных систем: учебник/ - М.: Флинта: МПСИ, 2008.-256 с.

9. Калянов Г.Н. Консалтинг при автоматизации предприятий (подходы, методы, средства) // М.: СИНТЕГ, 1997

10. Маклаков С. В. Моделирование бизнес-процессов с AllFusion Process Modeler (BPwin 4.1). М., 2003

11. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suite. – М.: ДИАЛОГ-МИФИ, 2008

12. Маклаков С.В. BPwin и Erwin. CASE-средства разработки информационных систем. — М.: ДИАЛОГ–МИФИ, 2000

13. Марка Д. А., МакГоуэн К. Методология структурного анализа и проектирования SADT.

14. Петров Ю.А., Шлимович Е.Л., Ирюпин Ю.В. Комплексная автоматизация управления предприятием: Информационные технологии - теория и практика. - М.: Финансы и статистика, 2001

15. Проектирование экономических информационных систем: учеб. / под ред. Ю. Ф. Тельнова. М., 2005

16. «Управление информационными ресурсами» А. В. Хорошилов, С. Н. Селетков, Н. В. Днепровская ., 2006

17. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Издательский дом «Вильямс», 2004.

18. Фаулер М. UML в кратком изложении: применение стандартного языка объектного моделирования: пер. с англ. / М. Фаулер, К. Скотт. М., 2001

19. Фаулер М. UML – основы. Руководство по стандартному языку объектного моделирования.: Пер. с англ. – СПб.: Символ, 2008

20. Шафер Д.Ф., Фартрел Т., Шафер Л.И. Управление программными проектами: достижение оптимального качества при минимуме затрат.: Пер. с англ. – М.: Вильямс, 2004.

21. Экономическая информатика: Введение в экономический анализ информационных систем: Учебник. – М.: ИНФРА-М, 2005.

22. ГОСТ 34.602-89 «Информационная технология. Комплекс стандартов на автоматизированные системы. Техническое задание на создание автоматизированной системы»;

23. ГОСТ 34.601-90 «Информационная технология. Комплекс стандартов на автоматизированные системы. Автоматизированные системы. Стадии создания».

Приложение 1

// Сформировать строку с параметрами по умолчанию

!DefParams = Format('%s|%s||||'; ArrayOf(BeginOfPeriod(); EndOfPeriod()))

// Загрузитьстрокилокализации

!DateFromStr = LoadString('DIRSTR_DATE_BEGIN'; 'COMMON') // Датаначала

!DateToStr = LoadString('DIRSTR_DATE_END'; 'COMMON') // Датаконца

!CategoryStr = LoadString('DIRREQ_F4CBE77A-2A56-4E7C-85CF-69DF8BDBA2B4'; 'EDM') // Категориядоговора

!OFStr = LoadString('DIRSTR_OUR_FIRM'; 'COMMON') // Нашаорганизация

!DepartStr = LoadString('DIRSTR_SUBDIVISION'; 'COMMON') // Подразделение

!RespStr = LoadString('REQ_Д000249'; 'EDM') // Ответственный

!CaptionStr = LoadString('DIRSTR_768'; 'EDM') // Параметры

!ParamsStr = Format('*%s|*%s|%s|%s|%s|%s'; ArrayOf(!DateFromStr; !DateToStr;

!CategoryStr; !OFStr; !DepartStr; !RespStr))

// Запросить у пользователя данные для формирования отчёта

!InpStr = InputDialog(!ParamsStr; !DefParams;

'Дата|Дата|Аналитика:КДГ|Аналитика:НОР|Аналитика:ПОД|Аналитика:РАБ';

!CaptionStr)

// Выделить введенные параметры

!DateFrom = SubString(!InpStr; '|'; 1)

!DateTo = SubString(!InpStr; '|'; 2)

!Category = SubString(!InpStr; '|'; 3)

!OurFirm = SubString(!InpStr; '|'; 4)

!Depart = SubString(!InpStr; '|'; 5)

!Respon = SubString(!InpStr; '|'; 6)

// Проверить правильность указания дат

ifDateDiff('D'; !DateFrom; !DateTo) < 0

// Сгенерировать исключение

!Msg = LoadString('DIRSTR_304'; 'COMMON') // Дата конца должна быть больше даты начала!

!Except = CreateException(''; !Msg; ecInformation)

Raise(!Except)

endif

// Получить справочник Договоры

!ContractRef = CreateReference('ДГВ'; ArrayOf('ДатОткр'; 'ДатЗакр'; 'Работник';

'Дата'; 'Дата2'; 'КатегорияДоговора'; 'НашаОрг2'; 'Организация'; 'Подразделение';

'Реквизит'; 'Реквизит2'; 'Содержание'; SYSREQ_NAME; 'Примечание'))

!ContractRefDS = !ContractRef.DataSet

// Ограничить выборку по заданным параметрам

!AddWID1 = -1

if !DateFrom<<>> ''

!AddWhere = Format("(%0:s.%1:s >= '%2:s' or %0:s.%1:s is null)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('ДатЗакр').SQLFieldName;

!DateFrom))

!AddWID1 = !ContractRefDS.AddWhere(!AddWhere)

endif

!AddWID2 = -1

if !DateTo<<>> ''

!AddWhere = Format("(%0:s.%1:s <= '%2:s' or %0:s.%1:s is null)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('ДатОткр').SQLFieldName;

!DateTo))

!AddWID2 = !ContractRefDS.AddWhere(!AddWhere)

endif

!AddWID25 = -1

!AddWhere = Format("not (%0:s.%1:s is null and %0:s.%2:s is null)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('ДатОткр').SQLFieldName;

!ContractRefDS.Requisites('ДатЗакр').SQLFieldName;))

!AddWID26 = !ContractRefDS.AddWhere(!AddWhere)

!AddWID3 = -1

if !Category <<>> ''

!CategoryID = GetReferenceRecord('КДГ'; !Category).Requisites(SYSREQ_ID).AsString

!AddWhere = Format("(%0:s.%1:s = %2:s)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('КатегорияДоговора').SQLFieldName;

!CategoryID))

!AddWID3 = !ContractRefDS.AddWhere(!AddWhere)

endif

!AddWID4 = -1

if !OurFirm<<>> ''

!OurFirmID = GetReferenceRecord('НОР'; !OurFirm).Requisites(SYSREQ_ID).AsString

!AddWhere = Format("(%0:s.%1:s = %2:s)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('НашаОрг2').SQLFieldName;

!OurFirmID))

!AddWID4 = !ContractRefDS.AddWhere(!AddWhere)

endif

!AddWID5 = -1

if !Depart <<>> ''

!DepartID = GetReferenceRecord('ПОД'; !Depart).Requisites(SYSREQ_ID).AsString

!AddWhere = Format("(%0:s.%1:s = %2:s)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('Подразделение').SQLFieldName;

!DepartID))

!AddWID5 = !ContractRefDS.AddWhere(!AddWhere)

endif

!AddWID6 = -1

if !Respon<<>> ''

!ResponID = GetReferenceRecord('РАБ'; !Respon).Requisites(SYSREQ_ID).AsString

!AddWhere = Format("(%0:s.%1:s = %2:s)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites('Работник').SQLFieldName;

!ResponID))

!AddWID6 = !ContractRefDS.AddWhere(!AddWhere)

endif

// Добавить ограничение по утверженным записям

!AddWID7 = -1

!AddWhere = Format("(%0:s.%1:s = %2:s)";

ArrayOf(!ContractRefDS.TableName; !ContractRefDS.Requisites(SYSREQ_RECORD_STATUS).SQLFieldName;

"'+'"))

!AddWID7 = !ContractRefDS.AddWhere(!AddWhere)

// Добавитьразделгруппировки

!OrderBy = Format('%0:s.%1:s, %0:s.%2:s'; ArrayOf(!ContractRefDS.TableName;

!ContractRefDS.Requisites('НашаОрг2').SQLFieldName;

!ContractRefDS.Requisites('Реквизит2').SQLFieldName))

!AddOBID1 = !ContractRefDS.AddOrderBy(!OrderBy)

!ContractRefDS.Open

if !ContractRefDS.RecordCount< 1

!Msg = LoadString('DIRSTR_769'; 'EDM') // Нетданныхдляформированияотчета.

Raise(CreateException(''; !Msg; ecInformation))

endif