Файл: Разработка регламента выполнения процесса «Расчет заработной платы».pdf

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

1. Процедура ОбработкаПроведения()
2. Если (Номер_дог = " - / ") или (Номер_дог = " ") тогда
3. сообщить("Введите номер договора! Документ не проведен.");
4. непроводитьдокумент();
5. возврат;
6. конецесли;
7. Если Серия = " № " тогда
8. сообщить("Введите серию и номер путевки! Документ не проведен.");
9. непроводитьдокумент();
10. возврат;
11. конецесли;
12. Если Тип = Перечисление.Тип_клиента.Физ_лицо тогда
13. Если Наименование_Клиента.выбран()=0 тогда
14. сообщить("Выберите клиента! Документ не проведен.");
15. непроводитьдокумент();
16. возврат;
17. конецесли;
18. ИначеЕсли Тип = Перечисление.Тип_клиента.Юр_лицо тогда
19. Если Юр_орг.выбран()=0 тогда
20. сообщить("Выберите клиента! Документ не проведен.");
21. непроводитьдокумент();
22. возврат;
23. конецесли;
24. Конецесли;
25. Если Цена_договора=0 тогда
26. сообщить("Не указана цена договора! Документ не проведен.");
27. непроводитьдокумент();
28. возврат;
29. конецесли;
30. Если Наим_туро.выбран()=0 тогда
31. сообщить("Выберите туроператора! Документ не проведен.");
32. непроводитьдокумент();
33. возврат;
34. конецесли;
35. Если курорт.выбран()=0 тогда
36. сообщить("Выберите куророт! Документ не проведен.");
37. непроводитьдокумент();
38. возврат;
39. конецесли;
40. Если Пансион.выбран()=0 тогда
41. сообщить("Выберите пансион! Документ не проведен.");
42. непроводитьдокумент();
43. возврат;
44. конецесли;
45. Если Номер.выбран()=0 тогда
46. сообщить("Выберите номер! Документ не проведен.");
47. непроводитьдокумент();
48. возврат;
49. конецесли;
50. Если Мед_Страх.выбран()=0 тогда
51. сообщить("Выберите значение Мед.страх! Документ не проведен.");
52. непроводитьдокумент();
53. возврат;
54. конецесли;
55. Если ПустоеЗначение(Прибытие)=1 тогда
56. сообщить("Введите дату прибытия! Документ не проведен.");
57. непроводитьдокумент();
58. возврат;
59. конецесли;
60. Если ПустоеЗначение(Отъезд)=1 тогда
61. сообщить("Введите дату отъезда! Документ не проведен.");
62. непроводитьдокумент();
63. возврат;
64. конецесли;
65. Если Самолет_туда.выбран()=0 тогда
66. сообщить("Выберите вид самолета! Документ не проведен.");
67. непроводитьдокумент();
68. возврат;
69. конецесли;
70. Если Самолет_обр.выбран()=0 тогда
71. сообщить("Выберите вид самолета! Документ не проведен.");
72. непроводитьдокумент();
73. возврат;
74. конецесли;
75. Если Вылет_туда.выбран()=0 тогда
76. сообщить("Выберите аэропорт вылета! Документ не проведен.");
77. непроводитьдокумент();
78. возврат;
79. конецесли;
80. Если ПустоеЗначение(Прибытие_туда)=1 тогда
81. сообщить("Выберите значение Мед.страх! Документ не проведен.");
82. непроводитьдокумент();
83. возврат;
84. конецесли;
85. Если ПустоеЗначение(Рейс_туда)=1 тогда
86. сообщить("Введите номер рейса! Документ не проведен.");
87. непроводитьдокумент();
88. возврат;
89. конецесли;
90. Если ПустоеЗначение(Рейс_обр)=1 тогда
91. сообщить("Введите номер рейса! Документ не проведен.");
92. непроводитьдокумент();
93. возврат;
94. конецесли;
95. Если Рук_группы.выбран()=0 тогда
96. сообщить("Выберите значение: Наличие руководителя группы! Документ не проведен.");
97. непроводитьдокумент();
98. возврат;
99. конецесли;
100. Если Леч.выбран()=0 тогда
101. сообщить("Выберите значение: наличие лечения! Документ не проведен.");
102. непроводитьдокумент();
103. возврат;
104. конецесли;
105. Если Пустоезначение(Экс)=1 тогда
106. сообщить("Введите значение в поле Дополнительные экскурсии или поставьте нет! Документ не проведен.");
107. непроводитьдокумент();
108. возврат;
109. конецесли;
110. Если Пустоезначение(Доп)=1 тогда
111. сообщить("Выберите значение: Дополнительные оплаченные услуги или поставьте нет ! Документ не проведен.");
112. непроводитьдокумент();
113. возврат;
114. конецесли;
115. Если ФИО_Сотр.выбран()=0 тогда
116. сообщить("Выберите сотрудника, заключившего договор! Документ не проведен.");
117. непроводитьдокумент();
118. возврат;
119. конецесли;
120. Регистр.Продажа.Привязыватьстроку(1);
121. Выбратьстроки();
122. Пока Получитьстроку() = 1 Цикл
123. Регистр.Продажа.Курорт = Курорт;
124. Регистр.Продажа.Страна = Страна;
125. Регистр.Продажа.Цена = Цена_договора;
126. Регистр.Продажа.ДвижениеПриходВыполнить();
127. КонецЦикла;
128. КонецПроцедуры

---

Документ « Акт выполненных работ».

Код модуля формы:

1. ПроцедураПриОткрытии()
2. ПриЗаписиПерепроводить(1);
3. Исполнитель="НОфондМониторинг";
4. Адрес_исп="249038г.Обнинскул.Гурьяновад.19";
5. КонецПроцедуры
6. ПроцедураАвт()
7. Цена=Договор.Цена_договора;
8. Ед_изм="шт";
9. Колво="1";
10. Сумма=Цена;
11. Предмет_счета="Предоставлениеуслугпоорганизациисанаторно-курортноголечениясотрудниковпредприятия"
12. КонецПроцедуры
13. ПроцедураАвтоподстановка()
14. Еслидоговор.тип=перечисление.тип_клиента.физ_лицотогда
15. Сообщить("ДанныйтипдокументаимеетсмыслтолькодляЮридическихлиц!Выберитедругойдоговор!");
16. Договор="";
17. Возврат;
18. Иначе
19. Клиент=Договор.Юр_орг;
20. Адрес=Клиент.Юр_адрес;
21. Дат_Дог=ДатаДок;
22. Номер_дог=Договор.Номер_дог;
23. Авт();
24. КонецЕсли
25. КонецПроцедуры
26. ПроцедураПечать()
27. Таб=СоздатьОбъект("Таблица");
28. Таб.ИсходнаяТаблица("Таблица");
29. ЕслиПустоезначение(договор)=1тогда
30. Сообщить("Выберитеномердоговора!Печатьневозможна!");
31. Возврат;
32. ИначеЕслиПустоезначение(Номер_акта)=1тогда
33. Сообщить("Выберитеномеракта!Печатьневозможна!");
34. Возврат;
35. ИначеЕслиКоличествоСтрок()<>1тогда
36. Сообщить("Предметсчетаможетбытьтолькоодин!Печатьневозможна!");
37. НеПроводитьДокумент();
38. Возврат;
39. Иначе
40. СуммаПрописью=Формат(Цена,"ЧПДС");
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. КонецПроцедуры

Отчеты.

Код модуля:

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

---

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

Код модуля:

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

---