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

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. КонецПроцедуры

Размещено на Allbest.ru