Автоматизация расчета заработной платы сотрудников магазина

41. Пропись("");

42. ДатаПрописью=Формат(Дат_Дог,"Д(0)ДДММММГГГГ");

43. Таб.ВывестиСекцию("Акт");

44. Таб.ПараметрыСтраницы(2,,,,,0,0,,,1);

45. Таб.ТолькоПросмотр(1);

46. Таб.Показать("Печатьактавыполненныхработ","");

47. КонецЕсли;

48. КонецПроцедуры

Код модуля документа

1. Процедура ОбработкаПроведения()

2. Если Пустоезначение(договор) = 1 тогда

3. Сообщить("Выберите номер договора! Документ не проведен!");

4. НеПроводитьДокумент();

5. Возврат;

6. ИначеЕсли Пустоезначение(Номер_акта) = 1 тогда

7. Сообщить("Выберите номер акта! Документ не проведен!");

8. НеПроводитьДокумент();

9. Возврат;

10. ИначеЕсли КоличествоСтрок() <> 1 тогда

11. Сообщить("Предмет счета может быть только один!Документ не проведен!");

12. НеПроводитьДокумент();

13. Возврат;

14. КонецЕсли;

15. Регистр.Продажа.Привязыватьстроку(1);

16. Выбратьстроки();

17. Пока Получитьстроку() = 1 Цикл

18. Регистр.Продажа.Цена = Цена;

19. Регистр.Продажа.ДвижениеПриходВыполнить();

20. КонецЦикла;

21. КонецПроцедуры

Приложение 3

Отчет по заключенным договорам за период (Статистика).

Рис. 24 Внешний вид печатной формы отчета.

Код модуля

1. // Процедура генерации запроса Сформировать.

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

3. Перем Запрос, ТекстЗапроса, Таб;

4. если пустоезначение(ВыбНачПериода)=1 тогда

5. сообщить("Выберете начальную дату формирования отчета!");

6. возврат;

7. конецесли;

8. если пустоезначение(ВыбКонПериода)=1 тогда

9. сообщить("Выберете конечную дату формирования отчета!");

10. возврат;

11. конецесли;

12. если(ВыбКонПериода)<(ВыбНачПериода) тогда

13. сообщить("Неправельный диапазон дат!");

14. возврат;

15. конецесли;

16. //Создание объекта типа Запрос

17. Запрос = СоздатьОбъект("Запрос");

18. ТекстЗапроса =

19. "//{{ЗАПРОС(Сформировать)

20. |Период с ВыбНачПериода по ВыбКонПериода;

21. |Обрабатывать НеПомеченныеНаУдаление;

22. |Договор = Документ.Договор.ТекущийДокумент;

23. |Номер_дог = Документ.Договор.Номер_дог;

24. |ДатаДок = Документ.Договор.ДатаДок;

25. |Функция ДоговорЦена_договораСумма = Сумма(Договор.Цена_договора);

26. |Группировка Договор упорядочить по Договор.Курорт, Договор.Номер_дог, Договор.ДатаДок без групп все ВошедшиеВЗапрос;

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

28. ;

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

30. Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

31. Возврат;

32. КонецЕсли;

33. // Подготовка к заполнению выходных форм данными запроса

34. Таб = СоздатьОбъект("Таблица");

35. Таб.ИсходнаяТаблица("Сформировать");

36. // Заполнение полей "Заголовок"

37. Таб.ВывестиСекцию("Заголовок");

38. Состояние("Заполнение выходной таблицы...");

39. Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

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

41. // Заполнение полей Договор

42. Таб.ВывестиСекцию("Договор");

43. КонецЦикла;

44. // Заполнение полей "Итого"

45. Таб.ВывестиСекцию("Итого");

46. // Вывод заполненной формы

47. Таб.ТолькоПросмотр(1);

48. Таб.Показать("Сформировать", "");

49. КонецПроцедуры

Суммы заключенных договоров (Отчет по клиентам)

Рис. 25 Внешний вид печатной формы отчета

Код модуля

1. Процедура ПриОткрытии()

2. ВТип = Перечисление.Тип_клиента.Физ_лицо;

3. КонецПроцедуры

4. Процедура ВалидацияДат()

5. Если ВыбНачПериода > ВыбКонПериода Тогда

6. ВыбКонПериода = ВыбНачПериода;

7. ИначеЕсли ВыбНачПериода < ТекущаяДата() тогда

8. ВыбНачПериода = ТекущаяДата();

9. КонецЕсли

10. КонецПроцедуры

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

12. Таб = СоздатьОбъект("Таблица");

13. Таб.ИсходнаяТаблица("Сформировать");

14. Таб.ВывестиСекцию("Шапка");

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

16. Таб.ТолькоПросмотр(1);

17. Таб.Показать("Сформировать","");

18. КонецПроцедуры

19. // Процедура генерации запроса Сформиро.

20. Процедура Сформиро()

21. Перем Запрос, ТекстЗапроса, Таб;

22. //Создание объекта типа Запрос

23. Запрос = СоздатьОбъект("Запрос");

24. Если ВТип = Перечисление.Тип_Клиента.Физ_лицо тогда

25. Текстзапроса = "

26. |Период с ВыбНачПериода по ВыбКонПериода;

27. |Договор = Документ.Договор.ТекущийДокумент;

28. |Наименование_Клиента = Документ.Договор.Наименование_Клиента;

29. |Тип = Документ.Договор.Тип;

30. |Функция ДоговорЦена_договораСумма = Сумма(Договор.Цена_договора);

31. |Группировка Договор упорядочить по Договор.Наименование_Клиента;

32. |Условие(Тип = ВТип);";

33. Иначе

34. Текстзапроса = "

35. |Период с ВыбНачПериода по ВыбКонПериода;

36. |Договор = Документ.Договор.ТекущийДокумент;

37. |Юр_орг = Документ.Договор.Юр_орг;

38. |Тип = Документ.Договор.Тип;

39. |Функция ДоговорЦена_договораСумма = Сумма(Договор.Цена_договора);

40. |Группировка Юр_орг упорядочить по Юр_орг.Наименование все ВошедшиеВЗапрос;

41. |Условие(Тип = ВТип);";

42. КонецЕсли;

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

44. Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

45. Возврат;

46. КонецЕсли;

47. // Подготовка к заполнению выходных форм данными запроса

48. Таб = СоздатьОбъект("Таблица");

49. Таб.ИсходнаяТаблица("Сформиро");

50. // Заполнение полей "Заголовок"

51. Таб.ВывестиСекцию("Заголовок");

52. Состояние("Заполнение выходной таблицы...");

53. Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

54. Если ВТип = Перечисление.Тип_Клиента.Физ_лицо тогда

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

56. // Заполнение полей Физ_лица

57. Таб.ВывестиСекцию("Физ_лица");

58. КонецЦикла;

59. ИначеЕсли ВТип = Перечисление.Тип_Клиента.Юр_лицо тогда

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

61. // Заполнение полей Юр_орг

62. Таб.ВывестиСекцию("Юр_орг");

63. КонецЦикла;

64. КонецЕсли;

65. // Заполнение полей "Итого"

66. Таб.ВывестиСекцию("Итого");

67. // Вывод заполненной формы

68. Таб.ТолькоПросмотр(1);

69. Таб.Показать("Отчет по клиентам", "");

70. КонецПроцедуры

Информация о путешествиях

Рис. 26 Внешний вид печатной формы отчета

Код модуля

1. Процедура Переключать()

2. //переключатель слоя в зависимости от типа клиента

3. Если ВыбТип_клиента = Перечисление.Тип_Клиента.Физ_лицо Тогда

4. Форма.в_орг.Видимость(0);

5. Форма.ВыбЮрЛица.Видимость(0);

6. Форма.ВыбФизЛица.Видимость(1);

7. Форма.В_к.Видимость(1);

8. Форма.отчет_ю.Видимость(0);

9. Форма.отчет_ф.Видимость(1);

10. Иначе

11. ВыбТип_клиента = Перечисление.Тип_Клиента.Юр_лицо;

12. Форма.в_орг.Видимость(1);

13. Форма.ВыбЮрЛица.Видимость(1);

14. Форма.ВыбФизЛица.Видимость(0);

15. Форма.В_к.Видимость(0);

16. Форма.отчет_ю.Видимость(1);

17. Форма.отчет_ф.Видимость(0);

18. КонецЕсли;

19. КонецПроцедуры

20. Процедура ПриОткрытии()

21. ВыбТип_клиента = Перечисление.Тип_Клиента.Физ_лицо;

22. Переключать()

23. КонецПроцедуры

24. Процедура ВалидацияДат()

25. Если ВыбНачПериода > ВыбКонПериода Тогда

26. ВыбКонПериода = ВыбНачПериода;

27. ИначеЕсли ВыбНачПериода < ТекущаяДата() тогда

28. ВыбНачПериода = ТекущаяДата();

29. КонецЕсли

30. КонецПроцедуры

31. //

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

33. Перем Запрос, ТекстЗапроса, Таб;

34. //Создание объекта типа Запрос

35. Если ВыбЮрЛица.выбран()=0 тогда

36. сообщить("Выберите клиента!");

37. Возврат;

38. КонецЕсли;

39. Запрос = СоздатьОбъект("Запрос");

40. ТекстЗапроса =

41. "//{{ЗАПРОС(отчет)

42. |Период с ВыбНачПериода по ВыбКонПериода;

43. |Обрабатывать НеПомеченныеНаУдаление;

44. |Курорт = Документ.Договор.Курорт;

45. |Цена_договора = Документ.Договор.Цена_договора;

46. |ДатаДок = Документ.Договор.ДатаДок;

47. |Номер_дог = Документ.Договор.Номер_дог;

48. |Юр_орг = Документ.Договор.Юр_орг;

49. |Тип = Документ.Договор.Тип;

50. |Группировка Юр_орг без групп все ВошедшиеВЗапрос;

51. |Группировка Курорт без групп;

52. |Группировка Номер_дог;

53. |Группировка ДатаДок;

54. |Группировка Цена_договора;

55. |Условие(Юр_орг = ВыбЮрЛица);

56. |Условие(Тип = ВыбТип_клиента);

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

58. ;

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

60. Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

61. Возврат;

62. КонецЕсли;

63. // Подготовка к заполнению выходных форм данными запроса

64. Таб = СоздатьОбъект("Таблица");

65. Таб.ИсходнаяТаблица("отчет");

66. // Заполнение полей "Заголовок"

67. Таб.ВывестиСекцию("Заголовок");

68. Состояние("Заполнение выходной таблицы...");

69. Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

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

71. // Заполнение полей Юр_орг

72. //Таб.ВывестиСекцию("Юр_орг");

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

74. // Заполнение полей Курорт

75. //Таб.ВывестиСекцию("Курорт");

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

77. // Заполнение полей Номер_дог

78. //Таб.ВывестиСекцию("Номер_дог");

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

80. // Заполнение полей ДатаДок

81. //Таб.ВывестиСекцию("ДатаДок");

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

83. // Заполнение полей Цена_договора

84. Таб.ВывестиСекцию("Цена_договора");

85. КонецЦикла;

86. КонецЦикла;

87. КонецЦикла;

88. КонецЦикла;

89. КонецЦикла;

90. // Вывод заполненной формы

91. Таб.ТолькоПросмотр(1);

92. Таб.Показать("Отчет по Юр.лицам", "");

93. КонецПроцедуры

94. //*******************************************

95. // Процедура генерации запроса Физлица.

96. //

97. Процедура Физлица()

98. Перем Запрос, ТекстЗапроса, Таб;

99. //Создание объекта типа Запрос

100. Если ВыбФизЛица.выбран()=0 тогда

101. сообщить("Выберите клиента!");

102. Возврат;

103. КонецЕсли;

104. Запрос = СоздатьОбъект("Запрос");

105. ТекстЗапроса =

106. "//{{ЗАПРОС(Физлица)

107. |Период с ВыбНачПериода по ВыбКонПериода;

108. |Обрабатывать НеПомеченныеНаУдаление;

109. |Курорт = Документ.Договор.Курорт;

110. |Наименование_Клиента = Документ.Договор.Наименование_Клиента;

111. |ДатаДок = Документ.Договор.ДатаДок;

112. |Номер_дог = Документ.Договор.Номер_дог;

113. |Тип = Документ.Договор.Тип;

114. |Цена_договора = Документ.Договор.Цена_договора;

115. |Группировка Наименование_Клиента;

116. |Группировка Курорт;

117. |Группировка Номер_дог;

118. |Группировка ДатаДок;

119. |Группировка Цена_договора;

120. |Условие(Тип = ВыбТип_клиента);

121. |Условие(Наименование_Клиента = ВыбФизЛица);

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

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

124. Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

125. Возврат;

126. КонецЕсли;

127. // Подготовка к заполнению выходных форм данными запроса

128. Таб = СоздатьОбъект("Таблица");

129. Таб.ИсходнаяТаблица("Физлица");

130. // Заполнение полей "Заголовок"

131. Таб.ВывестиСекцию("Заголовок");

132. Состояние("Заполнение выходной таблицы...");

133. Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);

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

135. // Заполнение полей Наименование_Клиента

136. //Таб.ВывестиСекцию("Наименование_Клиента");

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

138. // Заполнение полей Курорт

139. //Таб.ВывестиСекцию("Курорт");

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

141. // Заполнение полей Номер_дог

142. //Таб.ВывестиСекцию("Номер_дог");

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

144. // Заполнение полей ДатаДок

145. //Таб.ВывестиСекцию("ДатаДок");

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

147. // Заполнение полей Цена_договора

148. Таб.ВывестиСекцию("Цена_договора");

149. КонецЦикла;

150. КонецЦикла;

151. КонецЦикла;

152. КонецЦикла;

153. КонецЦикла;

154. // Вывод заполненной формы

155. Таб.ТолькоПросмотр(1);

156. Таб.Показать("Отчет по физ.лицам", "");

157. КонецПроцедуры

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