Разработка программного обеспечения для автоматизации документооборота в фонде жилого дома - Дипломная работа

Городской житель должен всегда быть обеспечен водой, газом, канализацией, теплом и т.д. Услуги, оказываемые ЖКХ (жилищно-коммунальное хозяйство), важный фактор поддержания и развития не только дома, но и двора, дорог, окрестных улиц. Учет услуг оказываемых ЖКХ, является неотъемлемой частью их деятельности. Принятие заявок от жильцов, составление заданий для ремонтных бригад, учет хозяйственной части, оплата услуг ЖКХ - все эти и другие операции нуждаются в автоматизации. Цель дипломной работы состоит в разработке программного обеспечения для автоматизации документооборота в фонде жилого дом.«1С:Предприятие 7.7» может быть использована для автоматизации самых различных отраслей. Программа «1С:Предприятие 7.7» как учетная система имеет четыре компонента: · систему хранения, поиска и редактирования информации, которая изменяется достаточно редко (справочники). В дальнейшем на основе информации, хранящейся в системе, пользователь получает разносторонние отчеты за любой период времени. Программные продукты, создаваемые на «1С:Предприятие 7.7», могут быть адаптированы к любым особенностям учета и к конкретной сфере деятельности предприятия. Содержание жилищного фонда включает в себя комплекс работ и услуг по содержанию общего имущества жилого дома и техническому обслуживанию общих коммуникаций, технических устройств и технических коммуникаций жилого дома, выполняемых в течение всего жизненного цикла здания постоянно или с установленной нормативными документами периодичностью с целью поддержания его сохранности и надлежащего санитарно-гигиенического состояния: а) технический надзор за состоянием общего имущества жилого дома (конструктивных элементов, общих коммуникаций, технических устройств и технических помещений) путем проведения плановых общих и частичных осмотров, технического обследования, приборной диагностики и испытаний;Ниже приведена структура данной конфигурации, состоящая из справочников, документов, а так же ее описание, описание форм и отчетов, необходимых пользователю. Далее приведена структура данной конфигурации, состоящая из справочников, документов, а так же ее описание, описание форм и отчетов, необходимых пользователю. «Оплата» - документ производит расчет счетчиков и списание денег по лицевым счетам жильцов. Хотя программа прошла тестирование успешно, в ней, тем не менее, могут содержаться ошибки, появление которых зависит от обрабатываемых данных (т.е. на одних исходных данных программа работает правильно, а на других - с ошибкой). Программа позволяет выводить на экран информацию о жильцах и их лицевых счетах, производить расчет стоимости коммунальных услуг, осуществлять поиск информации по различным критериям, выводить на печать отчеты по ремонтным работам и жилому фонду за любой период времени, а также редактировать введенные данные.Вступление в действие Жилищного Кодекса Российской Федерации коренным образом изменило систему правоотношений между органами власти, населением и поставщиками жилищно-коммунальных услуг. Ранее все ответственные решения, связанные с жилищно-коммунальным хозяйством, принимали органы власти. Целью написания данной работы было разработать программу для автоматизации документооборота и учета услуг в фонде жилого дома.

Городской житель должен всегда быть обеспечен водой, газом, канализацией, теплом и т.д. Услуги, оказываемые ЖКХ (жилищно-коммунальное хозяйство), важный фактор поддержания и развития не только дома, но и двора, дорог, окрестных улиц.

Учет услуг оказываемых ЖКХ, является неотъемлемой частью их деятельности. Принятие заявок от жильцов, составление заданий для ремонтных бригад, учет хозяйственной части, оплата услуг ЖКХ - все эти и другие операции нуждаются в автоматизации. Ручное ведение документации занимает очень много времени. Необходимо систематизировать данные для быстрого ввода и поиска, хранения и обработки.

Цель дипломной работы состоит в разработке программного обеспечения для автоматизации документооборота в фонде жилого дом.

Исходя из этого, выстраивается ряд задач, а именно: - изучить теоретические аспекты АС, понятия и специфику;

- ознакомиться со спецификой работы фонда жилого дома;

- рассмотреть методику разработки программ;

- произвести программирование, тестирование и отладку;

- произвести внедрение АС в работу фонда жилого дома ;

- проанализировать результаты внедрения.

Предметом исследования является изучение возможностей системы программирования программы 1С: Предприятие, использующей объектно-ориентированный язык 1С.

Объектом исследования является процесс автоматизации учета услуг в фонде жилого дома.

Структурно выпускная квалификационная работа состоит из введения, двух глав и заключения.

В первой главе рассматриваются теоретические аспекты внедрения автоматизированных систем в работу предприятия.

Во второй главе рассматривается методика и разработка программного обеспечения, выполнение тестирования и отладки, и внедрение на действующее предприятие.

Источниками для написания работы послужили работы таких авторов как Нуралиев С. В., Федоров Б. Н., Филиппов В. Байдаков С.Н. Нуралиев С.В Брага В.В., Левкин А.А. Михайлов C., Черков А.Сергеева К.

Сегодня ЖКХ - это новый перспективный рынок. Ниша, которая до недавнего времени не использовалась для коммерческих инвестиций. При соответствующем нормативно-правовом обеспечении отрасль способна стать одной из самых стабильных, с низким уровнем риска и относительно высокой рентабельностью. В связи с реализацией реформы ЖКХ появилась надежда на позитивные перемены.

Вступление в действие Жилищного Кодекса Российской Федерации коренным образом изменило систему правоотношений между органами власти, населением и поставщиками жилищно-коммунальных услуг. Ранее все ответственные решения, связанные с жилищно-коммунальным хозяйством, принимали органы власти. Сегодня появились такие институты как институт собственников помещений, управляющих компаний. Возникли и новые экономические взаимоотношения между ними

Целью написания данной работы было разработать программу для автоматизации документооборота и учета услуг в фонде жилого дома.

В ходе решения поставленной цели были решены следующие задачи: - рассмотрены теоретические аспекты АС, понятия и специфика;

- рассмотрена методику разработки программ;

- разработана программа для автоматизации, произведено тестирование и отладка;

- произведено внедрение АС в работу фонда жилого дома;

- проанализированы результаты внедрения.

На основании проведенного исследования были сделаны следующие выводы: 1. Программа «1С:Предприятие 7.7» является универсальной системой автоматизации бизнес-процессов предприятия, например учет товарных и материальных средств, взаиморасчеты с контрагентами, расчет заработной платы и т. п. «1С:Предприятие 7.7» может быть использована для автоматизации самых различных отраслей. Этому свидетельствует большая популярность данного программного продукта.

2.Программа не содержит ограничений по услугам, поставщикам услуг и прочим параметрам. Анализ быстродействия показал максимально возможный уровень скорости для программных продуктов данного уровня сложности и пользования.

3.Данный пакет после реконфигурации может быть использован на любом предприятии оказывающем коммунальные услуги. Все параметры системы могут изменяться, что предоставляет пользователям и организациям максимальные возможности.

4. Представленный программный продукт вполне подходит для реализации поставленной задачи. Приложение во многом облегчит работу сотрудника, занимающегося заполнением справочников, связанных с оплатой, и непосредственно самим приемом оплаты за коммунальные услуги с юридических лиц.

В выпускной квалификационной работе был разработан программный продукт для автоматизированного учета оказанных услуг жилищно-коммунального хозяйства. Программа разработана при помощи программного продукта 1С:Предприятие версии 7.7 фирмы 1. Достоинством данной программы является то, что она доступна в освоении и понимании для любого человека, который даже не имеет понятий о жилищно-коммунальном хозяйстве.

По результатам экономической оценки данная конфигурация может успешно эксплуатироваться в компаниях ЖКХ. Срок окупаемости затрат на автоматизацию приемлемый.

1. Нуралиев С.В., Федоров Б.Н., Филиппов В.С. 1С:Предприятие версия 7.7 /С.В. Нуралиев, Б.Н. Федоров, В.С. Филиппов// Конфигурирование и администрирование:- Москва - 2009г, С - 654.

2. Официальный сайт компании 1С

3. Байдаков С.Н. Нуралиев С.В. Введение в конфигурирование 1С:Бухгалтерия 7.7./ С.В. Байдаков, С.Н. Нуралиев/:- Москва - 2011г, C - 309.

4. Брага В.В., Левкин А.А. Компьютерные технологии в бухгалтерском учете на базе автоматизированных систем. Практикум./ В.В. Брага, A.A Левкин/ М.: ЗАО «Финстатинформ», 2010.C - 220.

5. Ивлиев М.К. Пошаговая методика обучения автоматизации бухгалтерского учета/ М.К. Ивлиев/М.: Интеллект-Сервис, 2010. C - 123

6. Михайлов C., Черков А., Цветков И. 1С:Бухгалтерия 7.7. Решение типичных проблем пользователя/ С. Михайлов, А. Черков, И. Цветков/ БХВ-Петербург - 2008. C - 731.

7. Сергеева К. 1С:Предприятие 7.7. Конфигурация «Бухгалтерия для бюджетных учреждений»./ К. Сергеева/ Фирма 1С - 2012. С - 731.

8. Рязанцева Н., Рязанцев Д. 1С:Предприятие. Зарплата и кадры. Секреты работы/Н. Рязанцева, Д. Рязанцев/ СПБ.: БХВ-Петербург - 2012. С - 304.

9. Митичкин С. Практика программирования в среде 1С: Предприятие 7.7/ С. Митичкин / КОМБУК - 2010. С - 272.

10. Фирма 1С 1С: Предприятие версия 7.7 Конфигурация “Торговля склад” Редакция 9.2 Описание/ Фирма 1С - 2011. С - 607. автоматизация программа тестирование

Приложение № 1

Документ “Ввод начального сальдо”

1. Перем ЖРННАЧИСЛЕНИЯ;

2. Функция ЗАГОЛОВОКФОРМЫ()

3. Перем Заголовок, Название;

4. Заголовок= "Ввод начального сальдо";

5. Название = Заголовок " №";

6. Если Выбран() = 1 Тогда 7. Если Проведен() = 1 Тогда 8. Заголовок = Заголовок ". Проведен";

9. Иначе 10. Заголовок = Заголовок ". Не проведен";

11. КОНЕЦЕСЛИ;

12. Иначе 13. Заголовок = Заголовок ". Новый";

14. КОНЕЦЕСЛИ;

15. Форма.Заголовок(Заголовок);

16. Возврат Название;

17. КОНЕЦФУНКЦИИ

18. //*******************************************************

19. Процедура Заполнить()

20. УДАЛИТЬСТРОКИ();

21. СПРЖИЛЬЦОВ = СОЗДАТЬОБЪЕКТ("Справочник.Жильцы");

22. СПРЛИЦСЧЕТ = СОЗДАТЬОБЪЕКТ("Справочник.Лицсчет");

23. СПРЛИЦСЧЕТ.НАЙТИПОКОДУ("Работа",0);//в группу "Рабочие записи"

24. Род=СПРЛИЦСЧЕТ.ТЕКУЩИЙЭЛЕМЕНТ();

25. СПРЛИЦСЧЕТ.ИСПОЛЬЗОВАТЬРОДИТЕЛЯ(Род);

26. СПРЛИЦСЧЕТ.ВЫБРАТЬЭЛЕМЕНТЫ();

27. Состояние("Заполнение документа лицевыми счетами...");

28. Пока СПРЛИЦСЧЕТ.ПОЛУЧИТЬЭЛЕМЕНТ()=1 Цикл

29. Если СПРЛИЦСЧЕТ.ПОМЕТКАУДАЛЕНИЯ() =0 Тогда//все кроме помеченных на удаление

30. Если СПРЛИЦСЧЕТ.ЭТОГРУППА()=0 Тогда 31. НОВАЯСТРОКА();

32. ЛИЦСЧЕТДОК=СПРЛИЦСЧЕТ.ТЕКУЩИЙЭЛЕМЕНТ();

33. СПРЖИЛЬЦОВ.ИСПОЛЬЗОВАТЬВЛАДЕЛЬЦА(СПРЛИЦСЧЕТ.ТЕКУЩИЙЭЛЕМЕНТ());

34. //воборка только в подчиненном

35. СПРЖИЛЬЦОВ.ВЫБРАТЬЭЛЕМЕНТЫ();

36. Пока СПРЖИЛЬЦОВ.ПОЛУЧИТЬЭЛЕМЕНТ()=1 Цикл

37. Если СПРЖИЛЬЦОВ.РОДСТВОТНОШЕНИЕ = Перечисление.Родственники.Наниматель Тогда 38. квартиросъемщик = СПРЖИЛЬЦОВ.Наименование;

39. КОНЕЦЕСЛИ;

40. КОНЕЦЦИКЛА;

41. Адрес = "улица: " СПРЛИЦСЧЕТ.улица.Наименование " дом: " Строка(СПРЛИЦСЧЕТ.дом) " " СПРЛИЦСЧЕТ.корпус " квартира: " Строка(СПРЛИЦСЧЕТ.квартира);

42. КОНЕЦЕСЛИ;

43. КОНЕЦЕСЛИ;

44. КОНЕЦЦИКЛА;

45. СПРЖИЛЬЦОВ = 0;

46. СПРЛИЦСЧЕТ=0;

47. КОНЕЦПРОЦЕДУРЫ

48. //*******************************************************

49. //удаление лишних строк

50. Процедура УДАЛИТЬЛИШНЕЕ()

51. Если ВЫБРАТЬСТРОКИ()=1 Тогда 52. ПОЛУЧИТЬСТРОКУ();

53. Пока 1=1 Цикл

54. Если Сумма=0 Тогда //удаление строк с 0 суммами

55. УДАЛИТЬСТРОКУ();

56. Иначе 57. Если ПОЛУЧИТЬСТРОКУ()=0 Тогда 58. Прервать

59. КОНЕЦЕСЛИ;

60. КОНЕЦЕСЛИ;

61. КОНЕЦЦИКЛА;

62. КОНЕЦЕСЛИ;

63. КОНЕЦПРОЦЕДУРЫ

64. //*******************************************************

65. // ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ

66. //******************************************************

67. Процедура ПРИОТКРЫТИИ()

68. Форма.ДАТАДОК.Доступность(0);

69. КОНЕЦПРОЦЕДУРЫ

70. //*******************************************************

71. Процедура ПРИЗАПИСИ()

72. УДАЛИТЬЛИШНЕЕ();

73. Автор=Константа.Пользователь;

74. АВТОВРЕМЯТЕКУЩЕЕ();

75. КОНЕЦПРОЦЕДУРЫ

Приложение № 2

Документ “Заявка мастеру”

1. Процедура ПРИОТКРЫТИИ()

2. ДАТАДОК=ТЕКУЩАЯДАТА();

3. ПРИЗАПИСИПЕРЕПРОВОДИТЬ(1);

4. КОНЕЦПРОЦЕДУРЫ

5. //*********************************************

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

7. Таблица = СОЗДАТЬОБЪЕКТ("Таблица");

8. Таблица.ИСХОДНАЯТАБЛИЦА("Таблица");

9. Таблица.Опции(0,0,,0);

10. Датадок=датадок;

11. Выдан=Выдан;

12. выдал=выдал;

13. времянач=времянач;

14. времякон=времякон;

15. статус=статус;

16. Таблица.ВЫВЕСТИСЕКЦИЮ("Шапка");

17. ВЫБРАТЬСТРОКИ();

18. Пока ПОЛУЧИТЬСТРОКУ() = 1 Цикл

19. Задание = Наименование;

20. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка");

21. КОНЕЦЦИКЛА;

22. Таблица.ВЫВЕСТИСЕКЦИЮ("Шапка2");

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

24. КОНЕЦПРОЦЕДУРЫ

25. //*********************************************

26. Процедура пересчет()

27. ЕДИЗМ=Наименование.ЕДИЗМ;

28. КОНЕЦПРОЦЕДУРЫ

29. //**********************************************

30. Процедура ПРИВЫБОРЕСЧЕТА(Откуда)

31. Если Откуда=0 Тогда 32. //документ новый из журнала

33. Иначе 34. ЛИЦСЧЕТДОК = Откуда //новый документ из справочника

35. КОНЕЦЕСЛИ;

36. Если ЛИЦСЧЕТДОК.Выбран()=1 Тогда 37. СПРЖИЛЬЦОВ = СОЗДАТЬОБЪЕКТ("Справочник.Жильцы");

38. СПРЖИЛЬЦОВ.ИСПОЛЬЗОВАТЬВЛАДЕЛЬЦА(ЛИЦСЧЕТДОК.ТЕКУЩИЙЭЛЕМЕНТ());

39. //выборка только в подчиненном

40. Жильцы = 0;

41. СПРЖИЛЬЦОВ.ВЫБРАТЬЭЛЕМЕНТЫ();

42. Пока СПРЖИЛЬЦОВ.ПОЛУЧИТЬЭЛЕМЕНТ()=1 Цикл

43. Жильцы = Жильцы 1;

44. Если СПРЖИЛЬЦОВ.РОДСТВОТНОШЕНИЕ = Перечисление.Родственники.Наниматель Тогда 45. квартиросъемщик = СПРЖИЛЬЦОВ.Наименование;

46. КОНЕЦЕСЛИ;

47. КОНЕЦЦИКЛА;

48. Адрес = "улица: " ЛИЦСЧЕТДОК.улица.Наименование " дом: " Строка(ЛИЦСЧЕТДОК.дом) " " ЛИЦСЧЕТДОК.корпус " квартира: " Строка(ЛИЦСЧЕТДОК.квартира);

49. СПРЖИЛЬЦОВ =0;

50. КОНЕЦЕСЛИ;

51. КОНЕЦПРОЦЕДУРЫ

Приложение № 3

Документ “Начальное показание”

1. Перем ЖРННАЧИСЛЕНИЯ,ТЕКСТЗАПРОСАДОКУМЕНТЫ;

2. //**********************************************************

3. Процедура ПРИВВОДЕСЧЕТА()

4. Если ЛИЦСЧЕТДОК.Выбран() = 1 Тогда 5. Адрес = "улица: " ЛИЦСЧЕТДОК.улица.Наименование " дом: " Строка(ЛИЦСЧЕТДОК.Дом) " " ЛИЦСЧЕТДОК.корпус " квартира: " Строка(ЛИЦСЧЕТДОК.квартира);

6. Квартиросъемщик = ЛИЦСЧЕТДОК.квартиросъемщик;

7. КОНЕЦЕСЛИ;

8. КОНЕЦПРОЦЕДУРЫ

9. //**********************************************************

10. Функция ПОЛУЧИТЬПОКАЗАНИЕСЧЕТЧИКА(ЛИЦЕВОЙСЧЕТ)

11. Запрос = СОЗДАТЬОБЪЕКТ("Запрос");

12. ТЕКУЩЕЕЭ = "";

13. ПРЕДЫДУЩЕЕЭ = "";

14. ТЕКУЩЕЕГ = "";

15. ПРЕДЫДУЩЕЕГ = "";

16. ТЕКУЩЕЕХ = "";

17. ПРЕДЫДУЩЕЕХ = "";

18. Если Запрос.Выполнить(ТЕКСТЗАПРОСАДОКУМЕНТЫ) = 0 Тогда 19. Предупреждение("Ошибка в выполнении запроса",3);

20. Запрос = 0;

21. Возврат 0;

22. Иначе //запрос выполнен

23. Пока Запрос.Группировка(1) = 1 Цикл

24. Пока Запрос.Группировка(2) = 1 Цикл

25. Дока = Запрос.ТЕКУЩИЙДОКУМЕНТ;

26. Дока.ВЫБРАТЬСТРОКИ();

27. Пока Дока.ПОЛУЧИТЬСТРОКУ() > 0 Цикл

28. Если ЛИЦЕВОЙСЧЕТ.Электросчетчик = 1 Тогда //"Электросчетчик"

29. Если ПУСТОЕЗНАЧЕНИЕ(Дока.ПРЕДЫДУЩЕЕЭ) = 0 Тогда 30. ПРЕДЫДУЩЕЕЭ = Дока.ПРЕДЫДУЩЕЕЭ;

31. КОНЕЦЕСЛИ;

32. Если ПУСТОЕЗНАЧЕНИЕ(Дока.ПОКАЗАНИЯСЧЕТЧИКАЭ) = 0 Тогда 33. ТЕКУЩЕЕЭ = Дока.ПОКАЗАНИЯСЧЕТЧИКАЭ;

34. КОНЕЦЕСЛИ;

35. КОНЕЦЕСЛИ;

36. Если ЛИЦЕВОЙСЧЕТ.ВОДОСЧЕТЧИКГ = 1 Тогда //ВОДОСЧЕТЧИКГ

37. Если ПУСТОЕЗНАЧЕНИЕ(Дока.ПРЕДЫДУЩЕЕГ) = 0 Тогда 38. ПРЕДЫДУЩЕЕГ = Дока.ПРЕДЫДУЩЕЕГ;

39. КОНЕЦЕСЛИ;

40. Если ПУСТОЕЗНАЧЕНИЕ(Дока.ПОКАЗАНИЕСЧЕТЧИКАВОДЫГ) = 0 Тогда 41. ТЕКУЩЕЕГ = Дока.ПОКАЗАНИЕСЧЕТЧИКАВОДЫГ;

42. КОНЕЦЕСЛИ;

43. КОНЕЦЕСЛИ;

44. Если ЛИЦЕВОЙСЧЕТ.ВОДОСЧЕТЧИКХ = 1 Тогда //ВОДОСЧЕТЧИКХ

45. Если ПУСТОЕЗНАЧЕНИЕ(Дока.ПРЕДЫДУЩЕЕХ) = 0 Тогда 46. ПРЕДЫДУЩЕЕХ = Дока.ПРЕДЫДУЩЕЕХ;

47. КОНЕЦЕСЛИ;

48. Если ПУСТОЕЗНАЧЕНИЕ(Дока.ПОКАЗАНИЕСЧЕТЧИКАВОДЫХ) = 0 Тогда 49. ТЕКУЩЕЕХ = Дока.ПОКАЗАНИЕСЧЕТЧИКАВОДЫХ;

50. КОНЕЦЕСЛИ;

51. КОНЕЦЕСЛИ;

52. КОНЕЦЦИКЛА;

53. КОНЕЦЦИКЛА;

54. КОНЕЦЦИКЛА;

55. КОНЕЦЕСЛИ;

56. Запрос = 0;

57. Если ПУСТОЕЗНАЧЕНИЕ(ТЕКУЩЕЕЭ) = 1 Тогда 58. ТЕКУЩЕЕЭ = ПРЕДЫДУЩЕЕЭ;

59. КОНЕЦЕСЛИ;

60. Если ПУСТОЕЗНАЧЕНИЕ(ТЕКУЩЕЕГ) = 1 Тогда 61. ТЕКУЩЕЕГ = ПРЕДЫДУЩЕЕГ;

62. КОНЕЦЕСЛИ;

63. Если ПУСТОЕЗНАЧЕНИЕ(ТЕКУЩЕЕХ) = 1 Тогда 64. ТЕКУЩЕЕХ = ПРЕДЫДУЩЕЕХ;

65. КОНЕЦЕСЛИ;

66. СОХРАНИТЬЗНАЧЕНИЕ("ТЕКУЩЕЕЭ",ТЕКУЩЕЕЭ);

67. СОХРАНИТЬЗНАЧЕНИЕ("ТЕКУЩЕЕГ",ТЕКУЩЕЕГ);

68. СОХРАНИТЬЗНАЧЕНИЕ("ТЕКУЩЕЕХ",ТЕКУЩЕЕХ);

69. Возврат 1;

70. КОНЕЦФУНКЦИИ

71. //**********************************************************

72. Процедура Заполнить()

73. ТЕКСТЗАПРОСА =

74. "//{{ЗАПРОС(Заполнить)

75. |Обрабатывать НЕПОМЕЧЕННЫЕНАУДАЛЕНИЕ;

76. |Без итогов;

77. |ЛИЦСЧЕТ = Справочник.Лицсчет.ТЕКУЩИЙЭЛЕМЕНТ;

78. |ЛИЦСЧЕТКВАРТИРОСЪЕМЩИК = Справочник.Лицсчет.квартиросъемщик;

79. |ЛИЦСЧЕТУЛИЦА = Справочник.Лицсчет.улица;

80. |ЛИЦСЧЕТДОМ = Справочник.Лицсчет.дом;

81. |ЛИЦСЧЕТКВ = Справочник.Лицсчет.квартира;

82. |ЛИЦСЧЕТДАТАЗАКРЫТИЯ = Справочник.Лицсчет.датазакрытия;

83. |Группировка ЛИЦСЧЕТ Без Групп Упорядочить по ЛИЦСЧЕТ.Код;

84. |Условие ((ПУСТОЕЗНАЧЕНИЕ(ЛИЦСЧЕТДАТАЗАКРЫТИЯ) = 1) ИЛИ (ЛИЦСЧЕТДАТАЗАКРЫТИЯ > НАЧМЕСЯЦА(РАБОЧАЯДАТА())));

85. |"//}}ЗАПРОС;

86. Если (Улица.Выбран()=1) И (ПУСТОЕЗНАЧЕНИЕ(дом) = 0) Тогда //улица и дом выбрана

87. ТЕКСТЗАПРОСА01 = ТЕКСТЗАПРОСА "Условие (ЛИЦСЧЕТУЛИЦА = Улица);";

88. ТЕКСТЗАПРОСА01 = ТЕКСТЗАПРОСА01 "Условие (ЛИЦСЧЕТДОМ = дом);";

89. Если ПУСТОЕЗНАЧЕНИЕ(квартира) = 0 Тогда 90. ТЕКСТЗАПРОСА01 = ТЕКСТЗАПРОСА01 "Условие (ЛИЦСЧЕТКВ = квартира);";

91. КОНЕЦЕСЛИ;

92. ИНАЧЕЕСЛИ Улица.Выбран()=1 Тогда //улица выбрана

93. ТЕКСТЗАПРОСА01 = ТЕКСТЗАПРОСА "Условие (ЛИЦСЧЕТУЛИЦА = Улица);";

94. КОНЕЦЕСЛИ;

95. Если ПУСТОЕЗНАЧЕНИЕ(ТЕКСТЗАПРОСА01) = 1 Тогда 96. ТЕКСТЗАПРОСА01 = ТЕКСТЗАПРОСА;

97. КОНЕЦЕСЛИ;

98. Запрос = СОЗДАТЬОБЪЕКТ("Запрос");

99. Если Запрос.Выполнить(ТЕКСТЗАПРОСА01) = 0 Тогда 100. Предупреждение("Ошибка в выполнении запроса",3);

101. Запрос = 0;

102. Возврат;

103. Иначе //запрос выполнен

104. //УДАЛИТЬСТРОКИ();

105. Пока Запрос.Группировка() = 1 Цикл //группировака по лицевым счетам

106. НОВАЯСТРОКА();

107. ЛИЦСЧЕТДОК = Запрос.ЛИЦСЧЕТ;

108. Адрес = "улица: " Запрос.ЛИЦСЧЕТУЛИЦА.Наименование " дом: " Строка(Запрос.ЛИЦСЧЕТДОМ) " " Запрос.ЛИЦСЧЕТ.корпус " квартира: " Строка(Запрос.ЛИЦСЧЕТ.квартира);

109. Квартиросъемщик = Запрос.ЛИЦСЧЕТКВАРТИРОСЪЕМЩИК;

110. Если ПОЛУЧИТЬПОКАЗАНИЕСЧЕТЧИКА(Запрос.ЛИЦСЧЕТ) = 1 Тогда 111. Электросчетчик = ВОССТАНОВИТЬЗНАЧЕНИЕ("ТЕКУЩЕЕЭ");

112. ВОДОСЧЕТЧИКГ = ВОССТАНОВИТЬЗНАЧЕНИЕ("ТЕКУЩЕЕГ");

113. ВОДОСЧЕТЧИКХ = ВОССТАНОВИТЬЗНАЧЕНИЕ("ТЕКУЩЕЕХ");

114. Иначе 115. Электросчетчик = "";

116. ВОДОСЧЕТЧИКГ = "";

117. ВОДОСЧЕТЧИКХ = "";

118. КОНЕЦЕСЛИ;

119. КОНЕЦЦИКЛА;

120. КОНЕЦЕСЛИ;

121. Запрос = 0;

122. КОНЕЦПРОЦЕДУРЫ

123. //******************************************************

124. // ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ

125. //******************************************************

126. Процедура ПРИОТКРЫТИИ()

127. Форма.ДАТАДОК.Доступность(0);

128. Форма.Улица.ВЫБОРГРУППЫ(1);//в графе "Улица" выбор с учетом групп

129. КОНЕЦПРОЦЕДУРЫ

130. //******************************************************

131. Процедура ПРИЗАПИСИ()

132. //если документ введен в прошлом периоде

133. Если ДАТАДОК < ЖРННАЧИСЛЕНИЯ.НАЧАЛОТЕКУЩЕГОПЕРИОДА() Тогда 134. Предупреждение(" Документ прошлого месяца!

135. |Перезапись и проводка невозможна!",3);

136. СТАТУСВОЗВРАТА(0);

137. Возврат;

138. КОНЕЦЕСЛИ;

139. Автор = Константа.Пользователь;

140. АВТОВРЕМЯПОСЛЕТА();

141. ЖРННАЧИСЛЕНИЯ = 0;

142. КОНЕЦПРОЦЕДУРЫ

143. //******************************************************

144. Процедура ВВОДНОВОГО()

145. ДАТАДОК = ЖРННАЧИСЛЕНИЯ.НАЧАЛОТЕКУЩЕГОПЕРИОДА();

146. КОНЕЦПРОЦЕДУРЫ

147. //******************************************************

148. Процедура ПРИЗАКРЫТИИ()

149. //ОТКРЫТЬФОРМУ("Обработка.ПРОВЕСТИНАЧАЛЬНЫЕПОКАЗАНИЯ");

150. КОНЕЦПРОЦЕДУРЫ

151. //*******************************************************

152. ЖРННАЧИСЛЕНИЯ = СОЗДАТЬОБЪЕКТ("ЖУРНАЛРАСЧЕТОВ.Начисления");

153. ДАТАНАЧАЛА = "01.01.2000";

154. ДАТАКОНЦА = ЖРННАЧИСЛЕНИЯ.НАЧАЛОТЕКУЩЕГОПЕРИОДА()-1;//до начала расчетного месяца

155. ТЕКСТЗАПРОСАДОКУМЕНТЫ =

156. "//{{ЗАПРОС(ЗАПОЛНИТЬДОКУМЕНТЫ)

157. |Обрабатывать НЕПОМЕЧЕННЫЕНАУДАЛЕНИЕ;

158. |С (ДАТАНАЧАЛА) По (ДАТАКОНЦА);

159. |ЛИЦСЧЕТ = Документ.Оплата.ЛИЦСЧЕТДОК;

160. |ТЕКУЩИЙДОКУМЕНТ = Документ.Оплата.ТЕКУЩИЙДОКУМЕНТ;

161. |Группировка ЛИЦСЧЕТ Без Групп Упорядочить по ЛИЦСЧЕТ.Код;

162. |Группировка ТЕКУЩИЙДОКУМЕНТ;

163. |Условие (ЛИЦСЧЕТ = ЛИЦЕВОЙСЧЕТ);

164. |"//}}ЗАПРОС;

Приложение № 4

Документ “Оплата”

1. Перем ЖРННАЧИСЛЕНИЯ,Новый;

2. //*******************************************************

3. Функция ПОЛУЧИТЬПОСЛЕДНИЕПОКАЗАНИЯ(ЛИЦЕВОЙСЧЕТ,Счетчик)

4. Показание = 0;

5. Рег = СОЗДАТЬОБЪЕКТ("Регистр.ПОКАЗАНИЯСЧЕТЧИКОВ");

6. Рег.УСТАНОВИТЬФИЛЬТР(ЛИЦЕВОЙСЧЕТ);

7. Рег.ОБРАТНЫЙПОРЯДОК(1);

8. Рег.ВЫБРАТЬДВИЖЕНИЯ(,ЖРННАЧИСЛЕНИЯ.КОНЕЦТЕКУЩЕГОПЕРИОДА());

9. Послед = 0;

10. Пока Рег.ПОЛУЧИТЬДВИЖЕНИЕ() > 0 Цикл

11. Если Счетчик = "Электросчетчик" Тогда 12. Показание = Рег.ПОКАЗАНИЕЭЛСЧЕТЧИКА;

13. ИНАЧЕЕСЛИ Счетчик = "ВОДОСЧЕТЧИКХ" Тогда 14. Показание = Рег.ПОКАЗАНИЕСЧЕТЧИКАХ;

15. ИНАЧЕЕСЛИ Счетчик = "ВОДОСЧЕТЧИКГ" Тогда 16. Показание = Рег.ПОКАЗАНИЕСЧЕТЧИКАГ;

17. КОНЕЦЕСЛИ;

18. Прервать;

19. КОНЕЦЦИКЛА;

20. Рег = 0;

21. Возврат Показание;

22. КОНЕЦФУНКЦИИ

23. //*******************************************************

24. // ЗАГОЛОВОКФОРМЫ()

25. Функция ЗАГОЛОВОКФОРМЫ()

26. Перем Заголовок, Название;

27. Заголовок= "Оплата начисленных расчетов";

28. Название = Заголовок " №";

29. Если Выбран() = 1 Тогда 30. Если Проведен() = 1 Тогда 31. Заголовок = Заголовок ". Проведен";

32. Иначе 33. Заголовок = Заголовок ". Не проведен";

34. КОНЕЦЕСЛИ;

35. Иначе 36. Заголовок = Заголовок ". Новый";

37. КОНЕЦЕСЛИ;

38. Форма.Заголовок(Заголовок);

39. Возврат Название;

40. КОНЕЦФУНКЦИИ

41. //ЗАГОЛОВОКФОРМЫ()

42. //*******************************************************

43. Процедура ПРИВЫБОРЕСЧЕТА(Откуда)

44. Если Откуда = 0 Тогда 45. Иначе 46. НОВАЯСТРОКА();

47. ЛИЦСЧЕТДОК = Откуда;

48. КОНЕЦЕСЛИ;

49. ВИДОПЛАТЫ = Перечисление.ВИДОПЛАТ.Касса;

50. Если ЛИЦСЧЕТДОК.Выбран()=1 Тогда 51. СПРЖИЛЬЦОВ = СОЗДАТЬОБЪЕКТ("Справочник.Жильцы");

52. СПРЖИЛЬЦОВ.ИСПОЛЬЗОВАТЬВЛАДЕЛЬЦА(ЛИЦСЧЕТДОК.ТЕКУЩИЙЭЛЕМЕНТ()); //воборка только в подчиненном

53. СПРЖИЛЬЦОВ.ВЫБРАТЬЭЛЕМЕНТЫ();

54. Пока СПРЖИЛЬЦОВ.ПОЛУЧИТЬЭЛЕМЕНТ()=1 Цикл

55. Если СПРЖИЛЬЦОВ.РОДСТВОТНОШЕНИЕ = Перечисление.Родственники.Наниматель Тогда 56. квартиросъемщик = СПРЖИЛЬЦОВ.Наименование;

57. КОНЕЦЕСЛИ;

58. КОНЕЦЦИКЛА;

59. Адрес = "улица: " ЛИЦСЧЕТДОК.улица.Наименование " дом: " Строка(ЛИЦСЧЕТДОК.дом) " " ЛИЦСЧЕТДОК.корпус " квартира: " Строка(ЛИЦСЧЕТДОК.квартира);

60. СПРЖИЛЬЦОВ =0;

61. Если ПУСТОЕЗНАЧЕНИЕ(ЛИЦСЧЕТДОК.Электросчетчик) = 0 Тогда 62. ПРЕДЫДУЩЕЕЭ = Число(ПОЛУЧИТЬПОСЛЕДНИЕПОКАЗАНИЯ(ЛИЦСЧЕТДОК.ТЕКУЩИЙЭЛЕМЕНТ(),"Электросчетчик"));

63. КОНЕЦЕСЛИ;

64. Если ПУСТОЕЗНАЧЕНИЕ(ЛИЦСЧЕТДОК.ВОДОСЧЕТЧИКХ) = 0 Тогда 65. ПРЕДЫДУЩЕЕХ = Число(ПОЛУЧИТЬПОСЛЕДНИЕПОКАЗАНИЯ(ЛИЦСЧЕТДОК.ТЕКУЩИЙЭЛЕМЕНТ(),"ВОДОСЧЕТЧИКХ"));

66. КОНЕЦЕСЛИ;

67. Если ПУСТОЕЗНАЧЕНИЕ(ЛИЦСЧЕТДОК.ВОДОСЧЕТЧИКГ) = 0 Тогда 68. ПРЕДЫДУЩЕЕГ = Число(ПОЛУЧИТЬПОСЛЕДНИЕПОКАЗАНИЯ(ЛИЦСЧЕТДОК.ТЕКУЩИЙЭЛЕМЕНТ(),"ВОДОСЧЕТЧИКГ"));

69. КОНЕЦЕСЛИ;

70. КОНЕЦЕСЛИ;

71. Форма.Обновить();

72. КОНЕЦПРОЦЕДУРЫ

73. //*******************************************************

74. Процедура ВЫВЕСТИКВИТОК()

75. Спр=СОЗДАТЬОБЪЕКТ("Справочник.ЛИЦСЧЕТ");

76. Таблица = СОЗДАТЬОБЪЕКТ("Таблица");

77. Таблица.ИСХОДНАЯТАБЛИЦА("Таблица");

78. Таблица.Опции(0,0);

79. Д=Формат(датадок,"ДММММГГГГ");

80. Адрес=Адрес;

81. лс=ЛИЦСЧЕТДОК;

82. ДАТАДОК=ДАТАДОК;

83. Квартиросъемщик=Квартиросъемщик;

84. Организация=Константа.Организация;

85. ЮРАДРЕС=Константа.ЮРАДРЕС;

86. ИННОРГАНИЗАЦИИ=Константа.ИННОРГАНИЗАЦИИ;

87. Телефон=Константа.Телефон;

88. площадь=ЛИЦСЧЕТДОК.жилаяплощадь;

89. Если ЛИЦСЧЕТДОК.Выбран()=1 Тогда 90. СПРЖИЛЬЦОВ = СОЗДАТЬОБЪЕКТ("Справочник.Жильцы");

91. СПРЖИЛЬЦОВ.ИСПОЛЬЗОВАТЬВЛАДЕЛЬЦА(ЛИЦСЧЕТДОК.ТЕКУЩИЙЭЛЕМЕНТ());//выборка только в подчиненном

92. Жильцы = 0;

93. СПРЖИЛЬЦОВ.ВЫБРАТЬЭЛЕМЕНТЫ();

94. Пока СПРЖИЛЬЦОВ.ПОЛУЧИТЬЭЛЕМЕНТ()=1 Цикл

95. Жильцы = Жильцы 1;

96. КОНЕЦЦИКЛА;

97. КОНЕЦЕСЛИ;

98. Таблица.ВЫВЕСТИСЕКЦИЮ("шапка");

99. СУММАОПЛАТЫ=Константа.ТАРИФЭЛЕКТРО*площадь;

100. ПОКАЗАНИЕСЧ = ПОКАЗАНИЯСЧЕТЧИКАЭ;

101. СУММАОПЛАТЫ=СУММАОПЛАТЫ;

102. дд= Формат(датадок,"ДММММ");

103. Таблица.ВЫВЕСТИСЕКЦИЮ("шапка2");

104. тариф=Константа.ТАРИФЭЛЕКТРО;

105. площадь=ЛИЦСЧЕТДОК.жилаяплощадь;

106. Если жильцы=1 тогда 107. норма=константа.НОРМАКВТЧ1;

108. иначеесли жильцы=2 тогда 109. норма=константа.НОРМАКВТЧ2;

110. иначеесли жильцы=3 тогда 111. норма=константа.НОРМАКВТЧ3;

112. иначеесли жильцы=4 тогда 113. норма=константа.НОРМАКВТЧ4;

114. иначеесли жильцы=5 тогда 115. норма=константа.НОРМАКВТЧ5;

116. КОНЕЦЕСЛИ;

117. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка");

118. Таблица.ВЫВЕСТИСЕКЦИЮ("Подвал");

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

120. КОНЕЦПРОЦЕДУРЫ

121. //*******************************************************

122. // ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ

123. //*******************************************************

124. Процедура ПРИОТКРЫТИИ()

125. Если Новый = 1 Тогда 126. Форма.ДАТАДОК.Доступность(1);

127. Иначе 128. Форма.ДАТАДОК.Доступность(0);

129. КОНЕЦЕСЛИ;

130. СПИСОКПАРАМЕТРОВ = Форма.Параметр;

131. Если ТИПЗНАЧЕНИЯСТР(СПИСОКПАРАМЕТРОВ)="СПИСОКЗНАЧЕНИЙ"

132. Тогда 133. Счет = СПИСОКПАРАМЕТРОВ.Получить("Хозяин");

134. Если ПУСТОЕЗНАЧЕНИЕ(Счет.Электросчетчик) = 0 Тогда 135. Форма.Электросчетчик.Видимость(1);

136. КОНЕЦЕСЛИ;

137. Если ПУСТОЕЗНАЧЕНИЕ(Счет.ВОДОСЧЕТЧИКХ) = 0 Тогда 138. Форма.Вода_холодная.Видимость(1);

139. КОНЕЦЕСЛИ;

140. Если ПУСТОЕЗНАЧЕНИЕ(Счет.ВОДОСЧЕТЧИКГ) = 0 Тогда 141. Форма.Вода_горячая.Видимость(1);

142. КОНЕЦЕСЛИ;

143. Иначе 144. Форма.Электросчетчик.Видимость(1);

145. Форма.Вода_холодная.Видимость(1);

146. Форма.Вода_горячая.Видимость(1);

147. КОНЕЦЕСЛИ;

148. КОНЕЦПРОЦЕДУРЫ

149. //*******************************************************

150. Процедура ПРИЗАПИСИ()

151. //если документ введен в прошлом периоде

152. Если ДАТАДОК < ЖРННАЧИСЛЕНИЯ.НАЧАЛОТЕКУЩЕГОПЕРИОДА() Тогда 153. Предупреждение(" Документ прошлого месяца!

154. |Перезапись и проводка невозможна!",3);

155. СТАТУСВОЗВРАТА(0);

156. Возврат;

157. КОНЕЦЕСЛИ;

158. ВЫБРАТЬСТРОКИ();//открыть перебор по документу

159. Пока ПОЛУЧИТЬСТРОКУ()=1 Цикл

160. Если (ПУСТОЕЗНАЧЕНИЕ(ПРЕДЫДУЩЕЕЭ) = 0) И (ПУСТОЕЗНАЧЕНИЕ(ПОКАЗАНИЯСЧЕТЧИКАЭ) = 1) Тогда 161. ПОКАЗАНИЯСЧЕТЧИКАЭ = ПРЕДЫДУЩЕЕЭ;

162. КОНЕЦЕСЛИ;

163. Если (ПУСТОЕЗНАЧЕНИЕ(ПРЕДЫДУЩЕЕХ) = 0) И (ПУСТОЕЗНАЧЕНИЕ(ПОКАЗАНИЕСЧЕТЧИКАВОДЫХ) = 1) Тогда 164. ПОКАЗАНИЕСЧЕТЧИКАВОДЫХ = ПРЕДЫДУЩЕЕХ;

165. КОНЕЦЕСЛИ;

166. Если (ПУСТОЕЗНАЧЕНИЕ(ПРЕДЫДУЩЕЕГ) = 0) И (ПУСТОЕЗНАЧЕНИЕ(ПОКАЗАНИЕСЧЕТЧИКАВОДЫГ) = 1) Тогда 167. ПОКАЗАНИЕСЧЕТЧИКАВОДЫГ = ПРЕДЫДУЩЕЕГ;

168. КОНЕЦЕСЛИ;

169. КОНЕЦЦИКЛА;

170. Автор = Константа.Пользователь;

171. АВТОВРЕМЯПОСЛЕТА();

172. ЖРННАЧИСЛЕНИЯ = 0;

173. КОНЕЦПРОЦЕДУРЫ

174. //*******************************************************

175. Процедура ВВОДНОВОГО()

176. СПИСОКПАРАМЕТРОВ = Форма.Параметр;

177. Если ТИПЗНАЧЕНИЯСТР(СПИСОКПАРАМЕТРОВ)="СПИСОКЗНАЧЕНИЙ"

178. Тогда 179. ПРИВЫБОРЕСЧЕТА(СПИСОКПАРАМЕТРОВ.Получить("Хозяин"));

180. КОНЕЦЕСЛИ;

181. Если ТИПЗНАЧЕНИЯСТР(Форма.Параметр) = "Справочник" Тогда 182. ПРИВЫБОРЕСЧЕТА(СПИСОКПАРАМЕТРОВ);

183. КОНЕЦЕСЛИ;

184. ДАТАДОК = РАБОЧАЯДАТА();

185. Новый = 1;

186. КОНЕЦПРОЦЕДУРЫ

187. ////////////////////////////////////////////////////////////

188. //********************************************************

189. ////////////////////////////////////////////////////////////

190. ЖРННАЧИСЛЕНИЯ = СОЗДАТЬОБЪЕКТ("ЖУРНАЛРАСЧЕТОВ.Начисления");

191. Новый = 0;

Приложение № 5

Документ “Отчет мастера”

1. Процедура ПРИОТКРЫТИИ()

2. ПРИЗАПИСИПЕРЕПРОВОДИТЬ(1);

3. // Инициализируем

4. Форма.ИСПОЛЬЗОВАТЬЗАКЛАДКИ(1);

5. Форма.Закладки.ДОБАВИТЬЗНАЧЕНИЕ(1,"Основной");

6. Форма.Закладки.ДОБАВИТЬЗНАЧЕНИЕ(2,"ХОДРАБОТЫ");

7. Форма.ИСПОЛЬЗОВАТЬСЛОЙ("Основной,Шапка",2);

8. КОНЕЦПРОЦЕДУРЫ

9. //******************************************************

10. Процедура ПРИВЫБОРЕЗАКЛАДКИ(НОМЕРЗАКЛАДКИ, ЗНАЧЕНИЕЗАКЛАДКИ)

11. Если НОМЕРЗАКЛАДКИ = 1 Тогда 12. Форма.ИСПОЛЬЗОВАТЬСЛОЙ("Основной");

13. Иначе 14. Форма.ИСПОЛЬЗОВАТЬСЛОЙ("ХОДРАБОТЫ");

15. КОНЕЦЕСЛИ;

16. КОНЕЦПРОЦЕДУРЫ

17. //******************************************************

18. Процедура ВВОДНАОСНОВАНИИ(ДОКОСНОВАНИЕ)

19. //{{ВВОД_НА_ОСНОВАНИИ

20. //Данный фрагмент построен конструктором.

21. //При повторном использовании конструктора, внесенные вручную изменения будут потеряны!!!

22. Если ДОКОСНОВАНИЕ.Вид() = "ЗАЯВКАМАСТЕРУ" Тогда 23. Адрес = ДОКОСНОВАНИЕ.Адрес;

24. Выдал = ДОКОСНОВАНИЕ.Выдал;

25. Выдан = ДОКОСНОВАНИЕ.Выдан;

26. Выдан2 = ДОКОСНОВАНИЕ.Выдан2;

27. Выдан3 = ДОКОСНОВАНИЕ.Выдан3;

28. Выдан4 = ДОКОСНОВАНИЕ.Выдан4;

29. ЛИЦСЧЕТ = ДОКОСНОВАНИЕ.ЛИЦСЧЕТДОК;

30. КОНЕЦЕСЛИ;

31. //}}ВВОД_НА_ОСНОВАНИИ

32. КОНЕЦПРОЦЕДУРЫ

33. //******************************************************

34. процедура пересчет()

35. ЕДИЗМ=НАИМЕНОВАНИЕ.ЕДИЗМ;

36. конецпроцедуры

Приложение № 6 - отчет “Жилой фонд”

1. Перем ЖРННАЧИСЛЕНИЯ;

2. Перем ДАТААКТУАЛЬНОСТИ;

3. //*******************************************************

4. Процедура СФОРМИРОВАТЬОТЧЕТ()

5. ТЕКСТЗАПРОСАЖФ =

6. "//{{ЗАПРОС(ЖИЛОЙФОНД)

7. |Обрабатывать НЕПОМЕЧЕННЫЕНАУДАЛЕНИЕ;

8. |ЛИЦСЧЕТ = Справочник.Лицсчет.ТЕКУЩИЙЭЛЕМЕНТ;

9. |ЛИЦСЧЕТУЛИЦА = Справочник.Лицсчет.улица;

10. |ЛИЦСЧЕТДОМ = Справочник.Лицсчет.дом;

11. |ЛИЦСЧЕТКОРПУС = Справочник.Лицсчет.корпус;

12. |ЛИЦСЧЕТКВАРТИРА = Справочник.Лицсчет.квартира;

13. |ЛИЦСЧЕТДАТАЗАКРЫТИЯ = Справочник.Лицсчет.датазакрытия;

14. |ЛИЦСЧЕТКОМНАТ = Справочник.Лицсчет.количествокомнат;

15. |ЛИЦСЧЕТОБПЛОЩАДЬ = Справочник.Лицсчет.общаяплощадь;

16. |ЛИЦСЧЕТЖИЛАЯ = Справочник.Лицсчет.жилаяплощадь;

17. |ЛИЦСЧЕТДОПОЛНИТЕЛЬНАЯ = Справочник.Лицсчет.дополнительнаяплощадь;

18. |ЛИЦСЧЕТСОБСТВЕННОСТЬ = Справочник.Лицсчет.типсобственности;

19. |Условие (ЛИЦСЧЕТ.Родитель.Код ""Архив"");

20. |Группировка ЛИЦСЧЕТУЛИЦА Без Групп;

21. |Группировка ЛИЦСЧЕТДОМ Без Групп;

22. |Группировка ЛИЦСЧЕТКОРПУС Без Групп;

23. |Группировка ЛИЦСЧЕТКВАРТИРА Без Групп;

24. |Группировка ЛИЦСЧЕТ Без Групп;

25. |"//}}ЗАПРОС;

26. ЗАПРОСЖИЛЬЦЫ = СОЗДАТЬОБЪЕКТ("Запрос");

27. СПРЖИЛЬЦОВ = СОЗДАТЬОБЪЕКТ("Справочник.Жильцы");

28. ТЕКСТЗАПРОСАЖФ01 = ТЕКСТЗАПРОСАЖФ;

29. ЗАПРОСЖФ = СОЗДАТЬОБЪЕКТ("Запрос");

30. Если ЗАПРОСЖФ.Выполнить(ТЕКСТЗАПРОСАЖФ01) = 0 Тогда 31. Состояние("Ошибка запроса");

32. ЗАПРОСЖФ = 0;

33. Возврат;

34. Иначе 35. Таблица = СОЗДАТЬОБЪЕКТ("Таблица");

36. Таблица.ИСХОДНАЯТАБЛИЦА("Свод");

37. Организация=Константа.Организация;

38. ЮРАДРЕС=Константа.ЮРАДРЕС;

39. Таблица.ВЫВЕСТИСЕКЦИЮ("Шапка|Жилье");

40. пп = 0;

41. ДОМОВИТОГО = 0;

42. КВАРТИРИТОГО = 0;

43. СЧЕТОВИТОГО = 0;

44. КОМНАТИТОГО = 0;

45. ОБЩАЯИТОГО = 0;

46. ПРОПИСАНОИТОГО = 0;

47. Льгота1Итого = 0;

48. Льгота2Итого = 0;

49. НОРМАИТОГО = 0;

50. СВЕРХНОРМЫИТОГО = 0;

51. Пока ЗАПРОСЖФ.Группировка(1) = 1 Цикл //группировка по улицам

52. ДОМОВУЛИЦА = 0;

53. КВАРТИРУЛИЦА = 0;

54. СЧЕТОВУЛИЦА = 0;

55. КОМНАТУЛИЦА = 0;

56. ОБЩАЯУЛИЦА = 0;

57. ПРОПИСАНОУЛИЦА = 0;

58. Льгота1Улица = 0;

59. Льгота2Улица = 0;

60. НОРМАУЛИЦА = 0;

61. СВЕРХНОРМЫУЛИЦА = 0;

62. пп = пп 1;

63. Пока ЗАПРОСЖФ.Группировка(2) = 1 Цикл //группировка по домам

64. КВАРТИРДОМ = 0;

65. СЧЕТОВДОМ = 0;

66. КОМНАТДОМ = 0;

67. ОБЩАЯДОМ = 0;

68. ПРОПИСАНОДОМ = 0;

69. Льгота1Дом = 0;

70. Льгота2Дом = 0;

71. НОРМАДОМ = 0;

72. СВЕРХНОРМЫДОМ = 0;

73. ДОМОВУЛИЦА = ДОМОВУЛИЦА 1;

74. ДОМОВИТОГО = ДОМОВИТОГО 1;

75. Пока ЗАПРОСЖФ.Группировка(3) = 1 Цикл //группировка по корпусам

76. Пока ЗАПРОСЖФ.Группировка(4) = 1 Цикл //группировка по квартирам

77. ПРОПИСАНОКВАРТИРА = 0;

78. Льгота1Квартира = 0;

79. Льгота2Квартира = 0;

80. НОРМАКВАРТИРА = 0;

81. СВЕРХНОРМЫКВАРТИРА = 0;

82. КВАРТИРДОМ = КВАРТИРДОМ 1;

83. КВАРТИРУЛИЦА = КВАРТИРУЛИЦА 1;

84. КВАРТИРИТОГО = КВАРТИРИТОГО 1;

85. КОМНАТДОМ = КОМНАТДОМ ЗАПРОСЖФ.ЛИЦСЧЕТКОМНАТ;

86. КОМНАТУЛИЦА = КОМНАТУЛИЦА ЗАПРОСЖФ.ЛИЦСЧЕТКОМНАТ;

87. КОМНАТИТОГО = КОМНАТИТОГО ЗАПРОСЖФ.ЛИЦСЧЕТКОМНАТ;

88. Пока ЗАПРОСЖФ.Группировка(5) = 1 Цикл //группировка по счетам

89. Счет = ЗАПРОСЖФ.ЛИЦСЧЕТ;

90. СЧЕТОВДОМ = СЧЕТОВДОМ 1;

91. СЧЕТОВУЛИЦА = СЧЕТОВУЛИЦА 1;

92. СЧЕТОВИТОГО = СЧЕТОВИТОГО 1;

93. Прописано = КОЛВОПРОПИСАННЫХИБЕЗРЕГИСТРАЦИИ(ЗАПРОСЖФ.ЛИЦСЧЕТ);

94. ПРОПИСАНОКВАРТИРА = ПРОПИСАНОКВАРТИРА Прописано;

95. ПРОПИСАНОДОМ = ПРОПИСАНОДОМ ПРОПИСАНОКВАРТИРА;

96. ПРОПИСАНОУЛИЦА = ПРОПИСАНОУЛИЦА ПРОПИСАНОКВАРТИРА;

97. ПРОПИСАНОИТОГО = ПРОПИСАНОИТОГО ПРОПИСАНОКВАРТИРА;

98. СПРЖИЛЬЦОВ.ИСПОЛЬЗОВАТЬВЛАДЕЛЬЦА(ЗАПРОСЖФ.ЛИЦСЧЕТ);//выборка только в одном счете

99. СПРЖИЛЬЦОВ.ВЫБРАТЬЭЛЕМЕНТЫ();

100. Если Прописано = 1 Тогда //если количество комнат в квартире =1

101. Если ЗАПРОСЖФ.ЛИЦСЧЕТКОМНАТ = 1 Тогда //если в 1 комнате прописан 1 человек то свя площадь по соц норме

102. Норма = ЗАПРОСЖФ.ЛИЦСЧЕТОБПЛОЩАДЬ;

103. Иначе //комнат больше 1 для 1 человека

104. Норма = Константа.Норма1.Получить(ДАТААКТУАЛЬНОСТИ);//получили

105. количество площади по соц норме для 1 человека

106. КОНЕЦЕСЛИ;

107. ИНАЧЕЕСЛИ Прописано > 1 Тогда //количество прописанных более 1

108. Если Прописано = 2 Тогда 109. Норма = Константа.Норма2.Получить(ДАТААКТУАЛЬНОСТИ);//получили количество площади по соц норме для 2 человек

110. Иначе 111. Норма = Константа.Норма3.Получить(ДАТААКТУАЛЬНОСТИ);//получили количество площади по соц норме для 3 и более человек

112. КОНЕЦЕСЛИ;

113. Иначе //прописано 0

114. Норма = 0;

115. КОНЕЦЕСЛИ;

116. Льгота1Дом = Льгота1Дом Льгота1Квартира;

117. Льгота1Улица = Льгота1Улица Льгота1Квартира;

118. Льгота1Итого = Льгота1Итого Льгота1Квартира;

119. Льгота2Дом = Льгота2Дом Льгота2Квартира;

120. Льгота2Улица = Льгота2Улица Льгота2Квартира;

121. Льгота2Итого = Льгота2Итого Льгота2Квартира;

122. НОРМАЖИЛЬЯ = Мин((Норма * Прописано),ЗАПРОСЖФ.ЛИЦСЧЕТОБПЛОЩАДЬ);

123. НОРМАКВАРТИРА = НОРМАКВАРТИРА НОРМАЖИЛЬЯ;

124. НОРМАДОМ = НОРМАДОМ НОРМАКВАРТИРА;

125. НОРМАУЛИЦА = НОРМАУЛИЦА НОРМАКВАРТИРА;

126. НОРМАИТОГО = НОРМАИТОГО НОРМАКВАРТИРА;

127. НОРМАСВЕРХ = Макс((ЗАПРОСЖФ.ЛИЦСЧЕТОБПЛОЩАДЬ - НОРМАЖИЛЬЯ),0);

128. СВЕРХНОРМЫКВАРТИРА = СВЕРХНОРМЫКВАРТИРА НОРМАСВЕРХ;

129. СВЕРХНОРМЫДОМ = СВЕРХНОРМЫДОМ СВЕРХНОРМЫКВАРТИРА;

130. СВЕРХНОРМЫУЛИЦА = СВЕРХНОРМЫУЛИЦА СВЕРХНОРМЫКВАРТИРА;

131. СВЕРХНОРМЫИТОГО = СВЕРХНОРМЫИТОГО СВЕРХНОРМЫКВАРТИРА;

132. ОБЩАЯДОМ = ОБЩАЯДОМ ЗАПРОСЖФ.ЛИЦСЧЕТОБПЛОЩАДЬ;

133. ОБЩАЯУЛИЦА = ОБЩАЯУЛИЦА ЗАПРОСЖФ.ЛИЦСЧЕТОБПЛОЩАДЬ;

134. ОБЩАЯИТОГО = ОБЩАЯИТОГО ЗАПРОСЖФ.ЛИЦСЧЕТОБПЛОЩАДЬ;

135. КОНЕЦЦИКЛА;// Группировка по счетам

136. Если ПУСТОЕЗНАЧЕНИЕ(ПОКАЗК) = 0 Тогда 137. Таблица.ВЫВЕСТИСЕКЦИЮ("СТРОКАКВАРТИРА|Жилье");

138. КОНЕЦЕСЛИ;

139. КОНЕЦЦИКЛА;// Группировка по квартирам

140. КОНЕЦЦИКЛА;// Группировка по корпусам

141. Если ПУСТОЕЗНАЧЕНИЕ(ПОКАЗД) = 0 Тогда 142. Таблица.ВЫВЕСТИСЕКЦИЮ("СТРОКАДОМ|Жилье");

143. КОНЕЦЕСЛИ;

144. КОНЕЦЦИКЛА;// Группировка по домам

145. Таблица.ВЫВЕСТИСЕКЦИЮ("СТРОКАУЛИЦ|Жилье");

146. КОНЕЦЦИКЛА;// Группировка по улицам

147. Таблица.ВЫВЕСТИСЕКЦИЮ("Подвал|Жилье");

148. Таблица.ТОЛЬКОПРОСМОТР(1);

149. Таблица.Опции(0,0,10,0,"_ПАРАМЕТРЫ_ПЕЧАТИ_СЖ_");

150. Таблица.ПАРАМЕТРЫСТРАНИЦЫ(2,,,0,0,0,0,0,0,1,1,);

151. Таблица.Показать("Свод по жилому фонду за " ЖРННАЧИСЛЕНИЯ.ОПИСАТЕЛЬПЕРИОДА(ДАТААКТУАЛЬНОСТИ));

152. Таблица = 0;

153. КОНЕЦЕСЛИ;

154. СПРЖИЛЬЦОВ = 0;

155. ЗАПРОСЖФ = 0;

156. КОНЕЦПРОЦЕДУРЫ

157. //******************************************************

158. // ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ

159. //******************************************************

160. Процедура ПРИОТКРЫТИИ()

161. Форма.КННАЗАД.Видимость(1);

162. Форма.КНВПЕРЕД.Видимость(1);

163. КОНЕЦПРОЦЕДУРЫ

164. //*******************************************************

165. Процедура ПРИЗАКРЫТИИ()

166. ЖРННАЧИСЛЕНИЯ = 0;

167. ДАТААКТУАЛЬНОСТИ = 0;

168. КОНЕЦПРОЦЕДУРЫ

169. //******************************************************

170. ЖРННАЧИСЛЕНИЯ = СОЗДАТЬОБЪЕКТ("ЖУРНАЛРАСЧЕТОВ.Начисления");

171. ДАТААКТУАЛЬНОСТИ = ЖРННАЧИСЛЕНИЯ.НАЧАЛОТЕКУЩЕГОПЕРИОДА();

Приложение № 7

Отчет “Отчет по заявкам”

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

2. Если ПУСТОЕЗНАЧЕНИЕ(НАЧДАТА) = 1 Тогда 3. Сообщить("Укажите начальную дату формирования отчета!");

4. Возврат;

5. КОНЕЦЕСЛИ;

6. Если ПУСТОЕЗНАЧЕНИЕ(кондата) = 1 Тогда 7. Сообщить("Укажите конечную дату формирования отчета!");

8. Возврат;

9. КОНЕЦЕСЛИ;

10. Если кондата < начдата Тогда 11. Сообщить("Неправельный диапазон дат!");

12. Возврат;

13. КОНЕЦЕСЛИ;

14. Запрос = СОЗДАТЬОБЪЕКТ("Запрос");

15. ТЕКСТЗАПРОСА="

16. |Период с НАЧДАТА по КОНДАТА;

17. |ОБРАБАТЫВАТЬДОКУМЕНТЫ Проведенные;

18. |Д=Документ.ОТЧЕТМАСТЕРА.ДАТАДОК;

19. |Адрес=Документ.ОТЧЕТМАСТЕРА.Адрес;

20. |ВРЕМЯНАЧ=Документ.ОТЧЕТМАСТЕРА.ВРЕМЯНАЧ;

21. |ВРЕМЯКОН=Документ.ОТЧЕТМАСТЕРА.ВРЕМЯКОН;

22. |выдал=Документ.ОТЧЕТМАСТЕРА.Выдал;

23. |выдан=Документ.ОТЧЕТМАСТЕРА.Выдан;

24. |выдан2=Документ.ОТЧЕТМАСТЕРА.Выдан2;

25. |выдан3=Документ.ОТЧЕТМАСТЕРА.Выдан3;

26. |выдан4=Документ.ОТЧЕТМАСТЕРА.Выдан4;

27. |ход=Документ.ОТЧЕТМАСТЕРА.текст;

28. |Документы=Документ.ОТЧЕТМАСТЕРА.ТЕКУЩИЙДОКУМЕНТ;

29. |Группировка Документы;

30. |"//}}ЗАПРОС

31. ;

32. Запрос.Выполнить(ТЕКСТЗАПРОСА);

33. Если Запрос.Выполнить(ТЕКСТЗАПРОСА) = 0 Тогда 34. Возврат;

35. КОНЕЦЕСЛИ;

36. Таблица = СОЗДАТЬОБЪЕКТ("Таблица");

37. Таблица.ИСХОДНАЯТАБЛИЦА("Таблица");

38. Таблица.ВЫВЕСТИСЕКЦИЮ("Шапка");

39. Таблица.Опции(0,0,Таблица.ВЫСОТАТАБЛИЦЫ(),0);

40. пп=0;

41. Пока Запрос.Группировка(1) = 1 Цикл

42. Д=Запрос.Д;

43. Адрес = Запрос.Адрес;

44. ВРЕМЯНАЧ = Запрос.ВРЕМЯНАЧ;

45. ВРЕМЯКОН = Запрос.ВРЕМЯКОН;

46. выдал = Запрос.выдал;

47. выдан = Запрос.выдан;

48. выдан2 = Запрос.выдан2;

49. выдан3 = Запрос.выдан3;

50. выдан4 = Запрос.выдан4;

51. ход=Запрос.ход;

52. //наим=Запрос.наим;

53. пп=пп 1;

54. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка");

55. КОНЕЦЦИКЛА;

56. Запрос.Документы.ВЫБРАТЬСТРОКИ();

57. Пока Запрос.Документы.ПОЛУЧИТЬСТРОКУ() = 1 Цикл

58. наим = наим Запрос.Документы.Наименование;

59. Сообщить(Запрос.Документы.Наименовани);

60. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка1");

61. КОНЕЦЦИКЛА;

62. Таблица.ПАРАМЕТРЫСТРАНИЦЫ(2);

63. Таблица.ТОЛЬКОПРОСМОТР(1);

64. Таблица.Показать("Взаиморасчеты с контрагентами.Приход","");

65. КОНЕЦПРОЦЕДУРЫ

Приложение № 8

Отчет “Прейскурант”

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

2. Спр=СОЗДАТЬОБЪЕКТ("Справочник.САНТЕХУСЛУГИ");

3. Таблица = СОЗДАТЬОБЪЕКТ("Таблица");

4. Таблица.ИСХОДНАЯТАБЛИЦА("Таблица");

5. Организация=Константа.Организация;

6. ЮРАДРЕС=Константа.ЮРАДРЕС;

7. Дат=ТЕКУЩАЯДАТА();

8. ГЕНДИР=Константа.ГЕНДИР;

9. Таблица.ВЫВЕСТИСЕКЦИЮ("Шапка");

10. Спр.ВЫБРАТЬЭЛЕМЕНТЫ();

11. ном=0;

12. Пока Спр.ПОЛУЧИТЬЭЛЕМЕНТ()=1 Цикл

13. Если Спр.ЭТОГРУППА()=1 Тогда 14. Наименование=Спр.Наименование;

15. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка1");

16. Иначе 17. ном=ном 1;

18. пп=ном;

19. Наименование=Спр.Наименование;

20. ЕДИЗМ=Спр.ЕДИЗМ;

21. Цена=Спр.Тариф;

22. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка");

23. КОНЕЦЕСЛИ;

24. КОНЕЦЦИКЛА;

25. ГЛЭКОНОМИСТ=Константа.ГЛЭКОНОМИСТ;

26. Таблица.ВЫВЕСТИСЕКЦИЮ("Подвал");

27. Таблица.Опции(0,0,,0);

28. Таблица.Показать("Прейскурант");

29. КОНЕЦПРОЦЕДУРЫ

Приложение № 9

Отчет “Реестр оплаты”

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

2. //формируем запрос

3. //проверка данных

4. Если ПУСТОЕЗНАЧЕНИЕ(ДАТАНАЧАЛА) = 1 Тогда 5. ДАТАНАЧАЛА = РАБОЧАЯДАТА()

6. КОНЕЦЕСЛИ;

7. Если ПУСТОЕЗНАЧЕНИЕ(ДАТАОКОНЧАНИЯ) = 1 Тогда 8. ДАТАОКОНЧАНИЯ = РАБОЧАЯДАТА()

9. КОНЕЦЕСЛИ;

10. Если ВЫБВИДОПЛАТ.Выбран() = 0 Тогда 11. Предупреждение("Выберите вид оплаты");

12. Возврат;

13. КОНЕЦЕСЛИ;

14. ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ = СОЗДАТЬОБЪЕКТ("Запрос");

15. ТЕКСТЗАПРОСА = "//{{ЗАПРОС(Сформировать)

16. |Период с ДАТАНАЧАЛА по ДАТАОКОНЧАНИЯ;

17. |ОБРАБАТЫВАТЬДОКУМЕНТЫ Проведенные;

18. |ДОКОПЛАТЫ = Документ.Оплата.ТЕКУЩИЙДОКУМЕНТ;

19. |СУММАОПЛАТЫ = Документ.Оплата.СУММАОПЛАТЫ;

20. |СЧЕТЛИЦЕВОЙ = Документ.Оплата.ЛИЦСЧЕТДОК;

21. |СЧЕТАДРЕС = Документ.Оплата.Адрес;

22. |СЧЕТКВАРТИРОСЪЕМЩИК = Документ.Оплата.Квартиросъемщик;

23. |ВИДОПЛАТЫ = Документ.Оплата.ВИДОПЛАТЫ;

24. |Группировка СЧЕТЛИЦЕВОЙ Без Групп;

25. |Группировка ДОКОПЛАТЫ;

26. |Функция Итого = Сумма(СУММАОПЛАТЫ);

27. |Условие (ВИДОПЛАТЫ = ВЫБВИДОПЛАТ);

28. |"//}}ЗАПРОС

29. ;

30. // Если ошибка в запросе, то выход из процедуры

31. Если ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Выполнить(ТЕКСТЗАПРОСА) = 0 Тогда 32. ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ = 0;

33. Сообщить("Ошибка выполнения запроса");

34. Возврат;

35. Иначе //запрос выполнен

36. //ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Выгрузить(ТАБЛЗНАЧ);

37. Если ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Итого = 0 Тогда 38. Предупреждение ("Нет данных за выбранный период по выбранному виду оплаты");

39. ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ = 0;

40. Возврат;

41. КОНЕЦЕСЛИ;

42. // описание таблицы

43. Таблица = СОЗДАТЬОБЪЕКТ("Таблица");

44. Таблица.ИСХОДНАЯТАБЛИЦА("Таблица");

45. Таблица.ВЫВЕСТИСЕКЦИЮ("Шапка");

46. ИТОГИСТРОКОЙ = Формат(ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Итого,"ЧПДС");

47. Итого = Формат(ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Итого,"Ч10.2");

48. Таблица.ВЫВЕСТИСЕКЦИЮ("Итоги");

49. Пока ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Группировка(1)=1 Цикл //по лицевым счетам

50. Пока ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Группировка(2)=1 Цикл //по документам лицевого счета

51. ЛИЦЕВОЙСЧЕТ = ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.СЧЕТЛИЦЕВОЙ;

52. Адрес = ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.СЧЕТАДРЕС;

53. Квартиросъемщик = ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.СЧЕТКВАРТИРОСЪЕМЩИК;

54. СУММАОПЛАТЫ = Формат(ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.Итого,"Ч10.2");

55. //ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ.СЧЕТЛИЦЕВОЙ

56. Таблица.ВЫВЕСТИСЕКЦИЮ("Строка");

57. КОНЕЦЦИКЛА;//конец

58. КОНЕЦЦИКЛА;//конец Группировкапо лицевым счетам

59. Таблица.ВЫВЕСТИСЕКЦИЮ("Подвал");

60. ////показ таблицы

61. Таблица.ТОЛЬКОПРОСМОТР(1);

62. Таблица.ПОВТОРЯТЬПРИПЕЧАТИСТРОКИ(9,9);

63. Таблица.Опции(0,0,0,0,"_ПАРАМЕТРЫ_ПЕЧАТИ_СВОДНАЯ_ВЕДОМОСТЬ_");

64. Таблица.ПАРАМЕТРЫСТРАНИЦЫ(1,,,10,0,0,0,0,0,1,1,);

65. Таблица.Показать("Сводная ведомость платежей за " ДАТАНАЧАЛА);

66. Таблица = 0;

67. КОНЕЦЕСЛИ;

68. ЗАПРОСОТБОРСЧЕТОВОПЛАЧЕННЫХ = 0;

69. КОНЕЦПРОЦЕДУРЫ

70. //*******************************************************

71. // ПРЕДОПРЕДЕЛЕННЫЕ ПРОЦЕДУРЫ

72. //******************************************************

73. Процедура ПРИОТКРЫТИИ()

74. ДАТАНАЧАЛА = РАБОЧАЯДАТА();

75. ДАТАОКОНЧАНИЯ = РАБОЧАЯДАТА();

76. КОНЕЦПРОЦЕДУРЫ

77. //*******************************************************

78. Процедура ПРИЗАКРЫТИИ()

79. КОНЕЦПРОЦЕДУРЫ

80. //******************************************************

81. Процедура ОБРАБОТКАЯЧЕЙКИТАБЛИЦЫ(Расшифровка,ФЛАГОБРАБОТКИ)

82. Если ТИПЗНАЧЕНИЯСТР(Расшифровка)="Справочник" Тогда 83. ФЛАГОБРАБОТКИ = 0;//обрабатываем сами

84. СПРЛИЦСЧЕТ = СОЗДАТЬОБЪЕКТ("Справочник.Лицсчет");

85. Если СПРЛИЦСЧЕТ.НАЙТИПОКОДУ(Расшифровка.Код,0)=1 Тогда 86. Параметр = СПРЛИЦСЧЕТ.ТЕКУЩИЙЭЛЕМЕНТ();

87. ОТКРЫТЬФОРМУ("Справочник.Лицсчет",Параметр);

88. КОНЕЦЕСЛИ;

89. СПРЛИЦСЧЕТ = 0;

90. ИНАЧЕЕСЛИ ТИПЗНАЧЕНИЯСТР(Расшифровка)="Документ" Тогда 91. ФЛАГОБРАБОТКИ = 1;

92. КОНЕЦЕСЛИ;

93. КОНЕЦПРОЦЕДУРЫ

Размещено на .ru