-
Сообщение на форуме
21 октября 2015 в 11:43:53
Жду предложение
неужели нет желающих заработать :(
-
Сообщение на форуме
15 октября 2015 в 16:28:53
не получилось
Можно удалить свое кривое сообщение?
-
Сообщение на форуме
15 октября 2015 в 16:27:51
Попытка 2
Процедура КнопкаВыполнитьНажатие(Кнопка)
ОбработкаПрерыванияПользователя();
Попытка
УстановитьМонопольныйРежим(Истина);
Константы.ОшибкаПоследовательности.Установить(Ложь);
ТекГраница=Последовательности.ПартионныйУчет.ПолучитьГраницу();
ТекМомент = Строка(Последовательности.ПартионныйУчет.ПолучитьГраницу());
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПартионныйУчетГраницы.Регистратор,
| ПартионныйУчетГраницы.МоментВремени КАК МоментВремени
|ИЗ
| Последовательность.ПартионныйУчет КАК ПартионныйУчетГраницы
|ГДЕ
| ПартионныйУчетГраницы.МоментВремени >= &ТекГраница
|
|СГРУППИРОВАТЬ ПО
| ПартионныйУчетГраницы.МоментВремени,
| ПартионныйУчетГраницы.Регистратор
|
|УПОРЯДОЧИТЬ ПО
| МоментВремени";
Запрос.УстановитьПараметр("ТекГраница", ТекГраница);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Объект=ВыборкаДетальныеЗаписи.Регистратор.ПолучитьОбъект();
Если не Объект.Ссылка.Проведен Тогда
Сообщить(Объект);
Продолжить;
КонецЕсли;
Объект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
Если Константы.ОшибкаПоследовательности.Получить() Тогда
УстановитьМонопольныйРежим(Ложь);
Прервать;
КонецЕсли;
Последовательности.ПартионныйУчет.УстановитьГраницу(Объект.Ссылка.МоментВремени());
ВывТекГраница=Строка(Последовательности.ПартионныйУчет.ПолучитьГраницу());
КонецЦикла;
Исключение
Сообщить("Не удалось установить монопольный режим");
КонецПопытки;
УстановитьМонопольныйРежим(Ложь);
КонецПроцедуры
-
Сообщение на форуме
15 октября 2015 в 16:25:34
хороший получился код )))
-
Сообщение на форуме
15 октября 2015 в 16:09:54
Вот такой код я пока накодил, хочется более красивый и без изменения конфигурации.
Процедура КнопкаВыполнитьНажатие(Кнопка)
ОбработкаПрерыванияПользователя();
Попытка
УстановитьМонопольныйРежим(Истина);
Константы.ОшибкаПоследовательности.Установить(Ложь);
ТекГраница=Последовательности.ПартионныйУчет.ПолучитьГраницу();
ТекМомент = Строка(Последовательности.ПартионныйУчет.ПолучитьГраницу());
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПартионныйУчетГраницы.Регистратор,
| ПартионныйУчетГраницы.МоментВремени КАК МоментВремени
|ИЗ
| Последовательность.ПартионныйУчет КАК ПартионныйУчетГраницы
|ГДЕ
| ПартионныйУчетГраницы.МоментВремени >= &ТекГраница
|
|СГРУППИРОВАТЬ ПО
| ПартионныйУчетГраницы.МоментВремени,
| ПартионныйУчетГраницы.Регистратор
|
|УПОРЯДОЧИТЬ ПО
| МоментВремени";
Запрос.УстановитьПараметр("ТекГраница", ТекГраница);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Объект=ВыборкаДетальныеЗаписи.Регистратор.ПолучитьОбъект();
Если не Объект.Ссылка.Проведен Тогда
Сообщить(Объект);
Продолжить;
КонецЕсли;
Объект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
Если Константы.ОшибкаПоследовательности.Получить() Тогда
УстановитьМонопольныйРежим(Ложь);
Прервать;
КонецЕсли;
Последовательности.ПартионныйУчет.УстановитьГраницу(Объект.Ссылка.МоментВремени());
ВывТекГраница=Строка(Последовательности.ПартионныйУчет.ПолучитьГраницу());
КонецЦикла;
Исключение
Сообщить("Не удалось установить монопольный режим");
КонецПопытки;
УстановитьМонопольныйРежим(Ложь);
КонецПроцедуры