Приватное сообщение
Персональный проект
Внести в черный список
qazseqazse
редактировать метку- 3
- 1
муж.
8 лет 11 мес. 11 дней
30 октября 2015 в 08:22:17(8 лет 25 недель 4 дня 21 час 6 минут назад)
2000
Яндекс-директ
Отзывы (1)
-
Принято/Оплачено - моментально.SK14 мая 2015 в 12:37:075
Задания и вакансии
-
ЗаказчикЗадание430р2015-10-13 09:30:17
- 3
-
ЗаказчикЗадание700 р680р2015-10-12 13:23:56
- 3
-
Заказчик(+2000)Задание2000 р1750р2015-05-13 17:10:23
- 5
Активность на сайте
Последние сообщения пользователя
-
Сообщение на форуме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Вот такой код я пока накодил, хочется более красивый и без изменения конфигурации.
Процедура КнопкаВыполнитьНажатие(Кнопка)
ОбработкаПрерыванияПользователя();
Попытка
УстановитьМонопольныйРежим(Истина);
Константы.ОшибкаПоследовательности.Установить(Ложь);
ТекГраница=Последовательности.ПартионныйУчет.ПолучитьГраницу();
ТекМомент = Строка(Последовательности.ПартионныйУчет.ПолучитьГраницу());
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПартионныйУчетГраницы.Регистратор,
| ПартионныйУчетГраницы.МоментВремени КАК МоментВремени
|ИЗ
| Последовательность.ПартионныйУчет КАК ПартионныйУчетГраницы
|ГДЕ
| ПартионныйУчетГраницы.МоментВремени >= &ТекГраница
|
|СГРУППИРОВАТЬ ПО
| ПартионныйУчетГраницы.МоментВремени,
| ПартионныйУчетГраницы.Регистратор
|
|УПОРЯДОЧИТЬ ПО
| МоментВремени";
Запрос.УстановитьПараметр("ТекГраница", ТекГраница);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбработкаПрерыванияПользователя();
Объект=ВыборкаДетальныеЗаписи.Регистратор.ПолучитьОбъект();
Если не Объект.Ссылка.Проведен Тогда
Сообщить(Объект);
Продолжить;
КонецЕсли;
Объект.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
Если Константы.ОшибкаПоследовательности.Получить() Тогда
УстановитьМонопольныйРежим(Ложь);
Прервать;
КонецЕсли;
Последовательности.ПартионныйУчет.УстановитьГраницу(Объект.Ссылка.МоментВремени());
ВывТекГраница=Строка(Последовательности.ПартионныйУчет.ПолучитьГраницу());
КонецЦикла;
Исключение
Сообщить("Не удалось установить монопольный режим");
КонецПопытки;
УстановитьМонопольныйРежим(Ложь);
КонецПроцедуры
На главную страницу заданий 1с
