Изменить границу последовательности БЕЗ проведения документов

[gfulk]

Конфигурация Комплексная 7.7

Это невозможно. Даже если бы и было возможно, ничего хорошего это Вам бы не принесло. Лучше "обрезать базу" и начать все заново, регулярно восстанавливая последовательность

[ehoo]

Это невозможно. Даже если бы и было возможно, ничего хорошего это Вам бы не принесло. Лучше "обрезать базу" и начать все заново, регулярно восстанавливая последовательность

Нет ничего невозможного ;)

Процедура УстановитьГПнаДок()
Поз = Макс(ВыбраныйДокумент.Полу читьПозицию(), Последовательность.Основн� �яПоследовательность.Получ итьПозицию());
Последовательность.Основн� �яПоследовательность.Устан овить(Поз);
КонецПроцедуры

Поверьте, это гораздо менее болезненно, чем обрезание.

P.S. svetik_svetiko попутала ТА и ГП

[vovchicnn]

А зачем вообще ГП трогать? Тем более, что не все - программеры (мне показалось, что svetic svetico - бух, только хороший).
Если ты Админ - запрети User-ам ковыряться вне текущей даты, если ты User, то более подробно изучай возможности проги и НЕ ЛЕЗЬ С АДМИНСКИМИ ПРАВАМИ ТУДА, ГДЕ ЧЕГО-ТО НЕ ЗНАЕШЬ НА 100% !!!

[gfulk]

Нет ничего невозможного ;)

Процедура УстановитьГПнаДок()
Поз = Макс(ВыбраныйДокумент.Полу читьПозицию(), Последовательность.Основн� �яПоследовательность.Получ итьПозицию());
Последовательность.Основн� �яПоследовательность.Устан овить(Поз);
КонецПроцедуры

Поверьте, это гораздо менее болезненно, чем обрезание.

P.S. svetik_svetiko попутала ТА и ГП

Зря. Я же сказал, что это невозможно. После такого действия Вы проблем не оберетесь. Неправильные циферки в отчете о продажах - только верхушка айсберга. НЕЛЬЗЯ такое делать без четкого понимания, что такое последовательность, какие документы на нее влияют и какие проводки были сделаны задним числом. ТС, к сожалению, не создает впечатление человека, который это знает.

[Elric]

Зря. Я же сказал, что это невозможно. После такого действия Вы проблем не оберетесь. Неправильные циферки в отчете о продажах - только верхушка айсберга. НЕЛЬЗЯ такое делать без четкого понимания, что такое последовательность, какие документы на нее влияют и какие проводки были сделаны задним числом. ТС, к сожалению, не создает впечатление человека, который это знает.

Судя по ответу, Вы считаете себя умнее других - Вы знаете о возможных последствиях, а другие конечно же не знают.
И это "считание себя", вероятно, толкает Вас на обман - фраза "это невозможно" даже после того, как узнали что это действительно возможно.
Конкретная ситуация - мой клиент случайно перепровел документ задним числом - на 5 лет раньше. Извинился и попросил помочь. Цифры все остались те же (проверено тщательно), а восстанавливать последовательность за 5 лет КРАЙНЕ нежелательно.
ehoo реально помог советом, а Вы мало того что с толку сбиваете ложными утверждениями, так еще на давшего правильный совет бочку катите.
Фу Вам!

[Pudovan]

Нет ничего невозможного ;)
Процедура УстановитьГПнаДок()
Поз = Макс(ВыбраныйДокумент.Полу читьПозицию(), Последовательность.Основн� �яПоследовательность.Получ итьПозицию());
Последовательность.Основн� �яПоследовательность.Устан овить(Поз);
КонецПроцедуры
Поверьте, это гораздо менее болезненно, чем обрезание.
P.S. svetik_svetiko попутала ТА и ГП

Большое спасибо, мне очень даже помогло и избавило от геморного перепроведения данных за шесть лет!!!
Сделал внешнюю обработку со следующим кодом:
Процедура УстановитьГПнаДок()
Док = СоздатьОбъект("Документ");
Если Док.Выбран()=0 Тогда
Док.Выбрать("Выберите последний документ","Журнал.ЖурналОбщ ий",);
КонецЕсли;
Поз = Макс(Док.ПолучитьПозицию(),Последовательность.ОсновнаяПоследовательност ь.ПолучитьПозицию());
Сообщить("Выбраный документ: "+Док);
Сообщить("Документ куда станет позиция: "+Поз);
Последовательность.ОсновнаяПоследовательност ь.Установить(Поз);
КонецПроцедуры

[Разработчик]

Для чего этот кусок?
Поз = Макс(Док.ПолучитьПозицию(),� �оследовательность.Основна яПоследовательност ь.ПолучитьПозицию());

Если Последовательность позже документа, то зачем ее устанавливать, она и так установлена.
Если очень хочется поставь проверку
Если Док.ПолучитьПозицию() > Последовательност ь.ОсновнаяПоследовательно� �т ь.ПолучитьПозицию() Тогда
Последовательность.Основн� �яПоследовательност ь.Установить(Док.ПолучитьП� �зицию());
КонецЕсли;

[Pudovan]

Для чего этот кусок?
Поз = Макс(Док.ПолучитьПозицию(),� �оследовательность.Основна яПоследовательност ь.ПолучитьПозицию());

Краткость - сестра таланта! Правда авторство не моё, а того, кто первым её опубликовал...

---------- Post added at 00:52 ---------- Previous post was at 00:45 ----------

Нет ничего невозможного ;)
Процедура УстановитьГПнаДок()
Поз = Макс(ВыбраныйДокумент.Полу читьПозицию(), Последовательность.Основн� �яПоследовательность.Получ итьПозицию());
Последовательность.Основн� �яПоследовательность.Устан овить(Поз);
КонецПроцедуры
Поверьте, это гораздо менее болезненно, чем обрезание.
P.S. svetik_svetiko попутала ТА и ГП

Спасибо проверил, действительно очень эфективно работает, правда немного изменил код для работоспособности. Но идея действительно хорошая!!!