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

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 10 из 18

Комбинированный просмотр

  1. #1
    Гость форума

    Регистрация
    05.01.2012
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию

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

  2. #2
    Помогает людям

    Регистрация
    24.01.2010
    Адрес
    Киров
    Сообщений
    0
    Сказал(а) спасибо
    239
    Поблагодарили 12 раз(а) в 11 сообщениях

    По умолчанию

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

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

  3. #3
    Гость форума

    Регистрация
    05.01.2012
    Сообщений
    2
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию

    Цитата Сообщение от Разработчик Посмотреть сообщение
    Для чего этот кусок?
    Поз = Макс(Док.ПолучитьПозицию(),� �оследовательность.Основна яПоследовательност ь.ПолучитьПозицию());
    Краткость - сестра таланта! Правда авторство не моё, а того, кто первым её опубликовал...

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

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

Похожие темы

  1. как изменить физический адрес компа?
    от tishcus в разделе Андеграунд
    Ответов: 12
    Последнее сообщение: 21.10.2011, 19:59
  2. Как изменить название форума Ip.Board 3.0.5
    от HAKER в разделе В помощь вебмастеру
    Ответов: 0
    Последнее сообщение: 23.04.2010, 21:35

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •