7.7 Как добавить сумму прописью?

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем spartak_lp, 1 дек 2011.

  1. TopicStarter Overlay
    spartak_lp
    Offline

    spartak_lp Опытный в 1С

    Регистрация:
    3 окт 2011
    Сообщения:
    201
    Симпатии:
    0
    Баллы:
    26
    Здраствуйте, имеется обработка (прикрепил), в шапке печатной формы нужно после слов "на сумму:" (прикрепл. рис.) выходила итоговая сумма из таблицы в виде цифр, а в скобках прописью.
    Подскажите пожалуйста, как это можно сделать?
  2. n.s.gnedash
    Offline

    n.s.gnedash Опытный в 1С Команда форума

    Регистрация:
    15 авг 2010
    Сообщения:
    1.359
    Симпатии:
    5
    Баллы:
    29
    Пропись(<?>);
    Синтаксис:
    Пропись(<Параметр>)
    Назначение:
    Задать образец вывода чисел прописью.
    Параметры:
    <Параметр> - строка, содержащая имя файла с прописью (если в параметре передано '''' (пустая строка), то устанавливается пропись по умолчанию) или объект типа ''СписокЗначений'', в котором лежат строки, структура которых совпадает со структурой файла прописей - там тоже двухуровневая структура, порядок строк тоже такой же.
    Подробнее см. в документации, глава ''Системные процедуры и функции''
  3. Requin
    Offline

    Requin Опытный в 1С

    Регистрация:
    10 май 2010
    Сообщения:
    1.911
    Симпатии:
    2
    Баллы:
    29
    После "на сумму:" пишете [Формат(печСуммаитого, "Ч015.2.'")] ([Формат(печСуммаитого, "ЧПД")]) (то что выделено один в один - вместе со скобками и т.п.).
    И нужно немного изменить процедуру Сформировать (начиная с 28 строки):
    Код:
            //-------------------------------       
    Запрос = СоздатьОбъект("Запрос");
    тзЗапроса = СоздатьОбъект("ТаблицаЗначений");
    
    ТекстЗапроса = "
    |Период С ДатаС по ДатаПо;
    |Счет         = Операция.Кредит.Счет.ТекущийСчет;
    |КоррСчет    = Операция.Дебет.Счет.ТекущийСчет;
    |зСклад        = Операция.Кредит.МестаХранения.ТекущийЭлемент;
    |Материал    = Операция.Кредит.Материалы.ТекущийЭлемент;
    |зКол        = Операция.Количество;
    |зСумма        = Операция.Сумма;   
    |
    |Группировка Материал Без Групп;
    |
    |Функция Количество    = КО(зКол);
    |Функция Сумма        = КО(зСумма);
    |
    |Условие (Счет в сзСчета);
    |Условие (зСклад = Склад); 
    |Условие (сзСчета.НайтиЗначение(КоррСчет) = 0);
    |";
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
    Возврат;
    КонецЕсли;
    
    Запрос.Выгрузить(тзЗапроса,0 ,0);
    
    печКоличествоИтого     = тзЗапроса.Итог("Количество");
    печСуммаитого        = тзЗапроса.Итог("Сумма");        
    
    Таб.ВывестиСекцию("Заголовок");  
    Таб.ВывестиСекцию("Шапка");
    Таб.ВывестиСекцию("Склад");
    
    тзЗапроса.ВыбратьСтроки();
    Пока тзЗапроса.ПолучитьСтроку() = 1 Цикл
    печНомер = тзЗапроса.НомерСтроки;
    печМатериал = тзЗапроса.Материал;
    печКоличество = тзЗапроса.Количество;
    печСумма = тзЗапроса.Сумма;
    печУчЦена = Окр(тзЗапроса.Сумма / тзЗапроса.Количество, 2);
    
    Таб.ВывестиСекцию("Строка");
    КонецЦикла;
    Таб.ВывестиСекцию("Подвал");
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Акт списания материалов");
    
    
  4. TopicStarter Overlay
    spartak_lp
    Offline

    spartak_lp Опытный в 1С

    Регистрация:
    3 окт 2011
    Сообщения:
    201
    Симпатии:
    0
    Баллы:
    26
    Сделал как написал, но после "суммы:" в печатной форме пусто.
  5. Requin
    Offline

    Requin Опытный в 1С

    Регистрация:
    10 май 2010
    Сообщения:
    1.911
    Симпатии:
    2
    Баллы:
    29
    Посмотреть вложение 9236

    Вложения:

  6. TopicStarter Overlay
    spartak_lp
    Offline

    spartak_lp Опытный в 1С

    Регистрация:
    3 окт 2011
    Сообщения:
    201
    Симпатии:
    0
    Баллы:
    26
  7. Requin
    Offline

    Requin Опытный в 1С

    Регистрация:
    10 май 2010
    Сообщения:
    1.911
    Симпатии:
    2
    Баллы:
    29
    В форматной строке вместо "ЧПД" напишите "ЧПДС" ([off]у нас копеек нету - запамятовал[/off]).
  8. TopicStarter Overlay
    spartak_lp
    Offline

    spartak_lp Опытный в 1С

    Регистрация:
    3 окт 2011
    Сообщения:
    201
    Симпатии:
    0
    Баллы:
    26
    Все, теперь как надо, спасибо за помощь!

Поделиться этой страницей