Как из таблицы значений внешней обработки передать значения в строки документа 1С Предприятие 7.7

Как из таблицы значений внешней обработки передать значения в строки документа 1С Предприятие 7.7 Как из таблицы значений внешней обработки передать значения в строки документа, откуда вызвана эта обработка.

В модуле формы обработки пишем:

Процедура Загрузка()

    сзПараметр = СоздатьОбъект("СписокЗначений");
    сзПараметр.Установить("ТЗ",тзТовары);
    Если Конт.Выбран() = 1 Тогда
        ОткрытьФорму(Конт.ТекущийДокумент(),сзПараметр);
    КонецЕсли;

    Форма.Закрыть();

КонецПроцедуры // Загрузка()

В модуле формы документа добавляем предопределенную процедуру "ПриПовторномОткрытии()" примерно следующего содержания:

Процедура ПриПовторномОткрытии()

    сзПараметр = Форма.Параметр;
    Если ТипЗначенияСтр(сзПараметр) = "СписокЗначений" Тогда

        ТЗ = сзПараметр.Получить("ТЗ");

        ТЗ.ВыбратьСтроки();
        Пока ТЗ.ПолучитьСтроку() = 1 Цикл

            Если ПустоеЗначение(ТЗ.Товар) = 1 Тогда
                Предупреждение("Имеется пустой товар !");
                СтатусВозврата(0);
                Возврат;
            КонецЕсли;

            НоваяСтрока();
            Товар      = ТЗ.Товар;
            Количество = ТЗ.Количество;
            Цена       = ТЗ.Цена;
            Сумма      = ТЗ.Сумма;
            Всего      = ТЗ.Всего;
            НДС        = ТЗ.НДС;
            НП         = ТЗ.НП;

            АктивизироватьСтроку();

        КонецЦикла;

    КонецЕсли;

КонецПроцедуры // ПриПовторномОткрытии()

Беляков Михаил Антонович, 2009 год

На главную страницу - http://autokadry.narod.ru - DebetKredit

Хостинг от uCoz