Как создать поле итоги для имеющейся колонки таблицы?
X

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

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

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

  1. #1
    Пришел за помощью

    Регистрация
    30.12.2009
    Адрес
    Ярославль
    Сообщений
    8
    Сказал(а) спасибо
    2
    Поблагодарили 6 раз(а) в 4 сообщениях

    По умолчанию

    Процедура Печать(СразуНаПринтер = 0,КолЭкз = 1)

    //*****************************************
    // вот сюда вставляем и определяем числовую переменную
    Перем СуммаОБ;
    СуммаОБ=0;
    //*****************************************

    //проверим полномочия печати непроведенных документов
    Если Проведен() = 0 Тогда
    Если глПривилегииПользователя(" РазрешитьПечатьНепроведен ныхДокументов") = 0 Тогда
    Предупреждение("Недостаточ но полномочий для печати непроведенного документа!", 60);
    Возврат;
    КонецЕсли;
    КонецЕсли;

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Табли� �а");
    Таб.ВывестиСекцию("Шапка|Об щая");
    Если ПустоеЗначение(Скидка) = 0 Тогда
    Таб.ПрисоединитьСекцию("Ша� �ка|Скидка");
    КонецЕсли;

    ИтогоБезСкидки = 0;

    ВыбратьСтроки();
    Пока ПолучитьСтроку() = 1 Цикл
    Таб.ВывестиСекцию("Строка|О бщая");
    Если ПустоеЗначение(Скидка) = 0 Тогда
    Таб.ПрисоединитьСекцию("Ст� �ока|Скидка");
    КонецЕсли;
    //*****************************************
    // вот сюда вставляете
    СуммаОБ=СуммаОБ+<идентифик� �тор реквизита, который описывает объем>
    //************************************************** *****

    ИтогоБезСкидки = ИтогоБезСкидки+Количество* Цена;
    КонецЦикла;

    Таб.ВывестиСекцию("Итоги|Об щая");
    // ********************************
    // В Секции "Итоги" у Вас должна быть ячейка , реквизит которой определен как выражение "СуммаОБ"
    //************************************************** *****

    Если ПустоеЗначение(Скидка) = 0 Тогда
    Таб.ПрисоединитьСекцию("Ит� �ги|Скидка");
    КонецЕсли;

  2. 2 пользователя(ей) сказали cпасибо:

    bestship (11.08.2014), randycouture (12.02.2014)

Метки этой темы

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

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

Ваши права

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