Обмен УТ-БП (не перезагружаемые документы)


При перезагрузке документов из УТ в БП иногда требуется не перегружать некоторые документы. Данная обработка позволяет указать такие документы.
!Создавалась и тестировалась для 1С Предприятие 8.2  (обмен УТ 10.3 -> <БП 2.0), но если подрихтовать я думаю подойдет и для 8.1

При перезагрузке документов из УТ в БП иногда требуется не перегружать некоторые документы. Данная обработка позволяет указать такие документы. Потребуются незначительные изменения конфигурации. Для того чтобы все заработало надо сделать следующее:

  1. Добавить из файла Конф.cf регистр сведений «НеЗамещаемыеДокументыПриОбмене».

  2. Добавить Следующий код в начало процедуры «ПередЗаписьюДокументаДляОбменаТорговляБухгалтерияКОРППередЗаписью», которая находится в общем модуле «ПроцедурыОбменаТорговляБухгалтерияКОРП»  :

Запрос1 = Новый Запрос;
Запрос1.Текст = "ВЫБРАТЬ
| НеЗамещаемыеДокументыПриОбменеСрезПоследних.Документ
|ИЗ
| РегистрСведений.НеЗамещаемыеДокументыПриОбмене.СрезПоследних КАК НеЗамещаемыеДокументыПриОбменеСрезПоследних
|ГДЕ
| НеЗамещаемыеДокументыПриОбменеСрезПоследних.НеЗамещать = ИСТИНА
| И НеЗамещаемыеДокументыПриОбменеСрезПоследних.Документ = &Документ";

Запрос1.УстановитьПараметр("Документ", Источник.Ссылка);
Кол=Запрос1.Выполнить().Выгрузить().Количество();
Если Кол <> 0 тогда
    Возврат;
КонецЕсли;
  1. Запускаем обработку НеЗамещаемыеДокументы.epf  и работаем с ней. Все документы, которые не будут выгружаться в БП, будут видны в таблице. Существует возможность просмотреть эти документы за произвольный период. Также существует возможность группового добавления таких документов.

При добавлении в список документа (если он был изменен, но ещё не был выгружен ), он уже не будет выгружаться при последующей выгрузке.

При удалении документа из списка, он будет принудительно перезагружен при следующей выгрузке.

4 Comments

  1. Поручик
    Кол=Запрос1.Выполнить().Выгрузить().Количество();
    Если кол<>0 тогда
    Возврат;
    КонецЕсли;

    Поржало вхлам.

    РезультатЗапроса = Запрос1.Выполнить();
    Если Не РезультатЗапроса.Пустой() тогда
    Возврат;
    КонецЕсли;
    Reply
  2. Поручик

    Это во первых.

    А во вторых, чем не устроила регистрация изменений для обмена?

    Reply
  3. gusinea

    (2)Ну и какая разница? Постебаться охота или несколько миллисекунд жизни жалко?

    Стандартная, увы, не для всех пользователей подходит… А лично меня более чем устроила.

    И вообще, выложил просто от нечего делать, посмотрю недельку, если никому не нужна будет — удалю нафиг

    Reply
  4. Elina_Muhamedzyanova

    спасибо, в свое время скачала и воспользовалась, помогла.

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *