1С Режим Конфигуратор




Дополнение - часть 4


  Таб.ИсходнаяТаблица("Таблица ");

  Таб.ВывестиСекцию("Шапка");

  ВыбратьСтроки();

  Пока ПолучитьСтроку()=1 Цикл

    НС=НомерСтроки;

// атрибут НомерСтроки возвращает номер текущей строки

// табличной части

    Таб.ВывестиСекцию("Строка");

  КонецЦикла;

  ИтогПр=Формат(Итог("Сумма"),"ЧПДС");

// В переменную ИтогПр мы выведем сумму прописью

  Таб.ВывестиСекцию("Подвал");

  Таб.ТолькоПросмотр(1);

  Таб.ПараметрыСтраницы(1,100,1);

  Таб.Показать("");

КонецПроцедуры

  • Перейдем на закладку "Таблица" формы документа;
  • Создадим шаблон таблицы такого, примерно, вида:

  • Строка 10 – Тип "Выражение", Строки 1, 3-6, 13, 14 – Тип "Шаблон";
  • Перейдем в модуль документа;
  • Напишем процедуру проведения документа:
  • Процедура ОбработкаПроведения()

    // Долг за поставленный нам товар возрос

      Регистр.Взаиморасчеты.Контрагент = Поставщик;

      Регистр.Взаиморасчеты.Договор = Договор;

      Регистр.Взаиморасчеты.Сумма = Итог("Сумма");

      Регистр.Взаиморасчеты.ФлагДвижения = 1;

      Регистр.Взаиморасчеты.ДвижениеПриходВыполнить();

    // по каждой строке

      ВыбратьСтроки();

      Пока ПолучитьСтроку() = 1 Цикл

    // Увеличиваем количество товара на складе

        Регистр.ОстаткиТоваров.Склад = Склад;

        Регистр.ОстаткиТоваров.Товар = Товар;

        Регистр.ОстаткиТоваров.Сорт = Сорт;

        Регистр.ОстаткиТоваров.Партия = ТекущийДокумент();

        Регистр.ОстаткиТоваров.Количество = КолО;

        Регистр.ОстаткиТоваров.СуммаП = Сумма;

        Регистр.ОстаткиТоваров.СуммаД = Сумма;

        Регистр.ОстаткиТоваров.ФлагДвижения = 1;

        Регистр.ОстаткиТоваров.ПривязыватьСтроку(НомерСтроки);

    // Указав команду ПривязыватьСтроку() мы к каждой записи по движению

    // регистра укажем – какая конкретно строка документа произвела это движение




    Содержание  Назад  Вперед