Здравствуйте.В собственной конфе 1С 8.3 есть документ
"ОбъектныйГрафик" с ТЧ
"Задания". Также есть документ
"ИнформационныйЛистокОвыдачеЗадания" с реквизитами:
График - ссылка на график.;
ВыдающийОтдел, ПринимающийОтдел - СправочникСсылка.Подразделения;
Задание -справочникссылка.задания;
СрокФактический - Дата....В ТЧ
"Задания" документа
"ОбъектныйГрафик" те же реквизиты. Мне нужно сделать следующее: при выполнении команды
"ПринятьЗадание" формы документа
| C++ |
1
| "ИнформационныйЛистокОвыдачеЗадания" |
|
найти в ТЧ графика задание, указанное в документе для выбранных выдающего и принимающего отдела и заполнить реквизиты найденной строки ТЧ графика реквизитами документа
"ИнформационныйЛистокОвыдачеЗадания", затем конечно записать изменения в графике. Для этого сделал следующее в форме документа
"ИнформационныйЛистокОвыдачеЗадания":
| 1C |
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
| &НаСервере
Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
// Вставить содержимое обработчика.
ЗапросНомераЗадания=Новый Запрос; //получение номера строки ТЧ графика с нужным заданием
ЗапросНомераЗадания.Текст="ВЫБРАТЬ
| ОбъектныйГрафикЗадания.НомерСтроки КАК НомерЗадания
|ИЗ
| Документ.ОбъектныйГрафик.Задания КАК ОбъектныйГрафикЗадания
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.ОбъектныйГрафик КАК ОбъектныйГрафик
| ПО ОбъектныйГрафикЗадания.Ссылка = ОбъектныйГрафик.Ссылка
|ГДЕ
| ОбъектныйГрафик.Ссылка = &График
| И ОбъектныйГрафикЗадания.ВыдающийОтдел.Ссылка = &ВыдающийОтдел
| И ОбъектныйГрафикЗадания.Задание.Ссылка = &Задание
| И ОбъектныйГрафикЗадания.ПринимающийОтдел.Ссылка = &ПринимающийОтдел";
ЗапросНомераЗадания.УстановитьПараметр("График",ТекущийОбъект.ОбъектныйГрафик.Ссылка);
ЗапросНомераЗадания.УстановитьПараметр("ВыдающийОтдел",ТекущийОбъект.ГруппаВыдающаяЗадание.Ссылка);
ЗапросНомераЗадания.УстановитьПараметр("Задание",ТекущийОбъект.Задание.Ссылка);
ЗапросНомераЗадания.УстановитьПараметр("ПринимающийОтдел",ТекущийОбъект.ГруппаПолучающаяЗадание.Ссылка);
Результат=ЗапросНомераЗадания.Выполнить().Выбрать();
Пока Результат.Следующий() Цикл
НомерЗадания=Результат.НомерЗадания;
КонецЦикла;
График=Документы.ОбъектныйГрафик.НайтиПоНомеру(ТекущийОбъект.ОбъектныйГрафик.Номер).ПолучитьОбъект();
СтрокаТЧ = График.Задания[НомерЗадания - 1];
СтрокаТЧ.ХарактеристикаЗадания=ТекущийОбъект.ХарактеристикаПолнотыЗаданияПринимающейГруппы;
Если ТекущийОбъект.Статус=Перечисления.СтатусФормыВыдачиЗадания.Утверждена Тогда
СтрокаТЧ.СтепеньВыполнения=ТекущийОбъект.ОценкаПолнотыЗаданияПринимающейГруппы;
СтрокаТЧ.ДатаВыдачиФакт=ТекущийОбъект.СрокФактический;
СтрокаТЧ.СостояниеЗадания=Перечисления.СостояниеЗадания.Выдано;
СтрокаТЧ.Примечание=ТекущийОбъект.Ссылка;
КонецЕсли;
График.Записать();
Если ТекущийОбъект.ГруппаВыдающаяЗадание=Параметрысеанса.Сотрудник.Подразделение И ЗаполненыПоляВыдающейСтороны()=ложь и Не ЗначениеЗаполнено(Объект.ФайлЗадания) тогда
Сообщить("Проверьте заполнение оценки и характеристики полноты задания,комментария выдающей стороны и указание файла задания");
Отказ=Истина;
КонецЕсли;
Если ТекущийОбъект.ГруппаПолучающаяЗадание=Параметрысеанса.Сотрудник.Подразделение И ЗаполненыПоляПринимающейСтороны()=ложь тогда
Сообщить("Проверьте заполнение оценки и характеристики полноты задания и комментария принимающей стороны");
Отказ=Истина;
КонецЕсли;
КонецПроцедуры |
|
команда
"ПринятьЗадание":
| 1C |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| &НаСервере
Процедура ПринятьЗаданиеНаСервере()
// Вставить содержимое обработчика.
Формазадания=Объект.ссылка.ПолучитьОбъект();
Формазадания.ОценкаПолнотыЗаданияПринимающейГруппы=100;
Формазадания.ХарактеристикаПолнотыЗаданияПринимающейГруппы=Перечисления.ХарактеристикаПолнотыЗадания.ВыданоВПолномОбъеме;
Формазадания.СрокФактический=ТекущаяДата();
//Формазадания.ГлавныйСпециалистПринимающейГруппы=Параметрысеанса.Сотрудник;
Формазадания.Статус=Перечисления.СтатусФормыВыдачиЗадания.Утверждена;
//ПриЗаписиНаСервере(Ложь,Формазадания,);
ФормаЗадания.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
ОтправитьСообщениеОПринятииЗадания();
КонецПроцедуры
&НаКлиенте
Процедура ПринятьЗадание(Команда)
ПринятьЗаданиеНаСервере();
ЭтаФорма.Закрыть();
КонецПроцедуры |
|
Если пользователь выполняет команду
"ПринятьЗадание", система ругается: Данные были изменены.Сохранить изменения?(да/нет)[/B][/I]. Если нажимаешь "Да", следующее ругательство:
"Данные были изменены или удалены другим пользователем." Что не так? как правильно сделать?
(
Сообщение было отмечено GreenkA как решение
