8.х печать документа.

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Денис Лунёв, 28 окт 2009.

  1. TopicStarter Overlay
    Денис Лунёв
    Offline

    Денис Лунёв

    Регистрация:
    14 окт 2009
    Сообщения:
    21
    Симпатии:
    0
    Баллы:
    1
    Создаю документ РКО в "Рознице".

    Теперь его необходимо распечатать. Как это сделать?

    Код:
    НовыйДокРКО = Документы.РасходныйКассовыйОрдер.СоздатьДокумент();
    НовыйДокРКО.Дата = ТекущаяДата();
    НовыйДокРКО.ВидОперации = Перечисления.ВидыОперацийРКО.РасходДенежныхСредствПрочее;
    НовыйДокРКО.Касса = ОтчетОРозничныхПродажах.КассаККМ;
    НовыйДокРКО.СуммаДокумента = ОтчетОРозничныхПродажах.Товары.Итог("Сумма")-
    (ОтчетОРозничныхПродажах.ОплатаПлатежнымиКартами.Итог("Сумма")+ОтчетОРозничныхПродажах.ВозвращенныеТовары.Итог("Сумма"));
    //добавление расшифровки платежа
    НоваяСтрокаТЧ = НовыйДокРКО.РасшифровкаПлатежа.Добавить();
    НоваяСтрокаТЧ.ДокументРасчетовСКонтрагентом=НовыйДокРКО.Ссылка;
    НоваяСтрокаТЧ.СуммаПлатежа=НовыйДокРКО.СуммаДокумента;
    
    НовыйДокРКО.Ответственный = ОтчетОРозничныхПродажах.Ответственный;
    НовыйДокРКО.Комментарий = "Инкассация. (создан автоматически)";
    НовыйДокРКО.Записать(РежимЗаписиДокумента.Запись);
    НовыйДокРКО.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Оперативный);
    //Вопрос для пользователя о необходимости печати созданного РКО
    Режим = РежимДиалогаВопрос.ДаНет;
    Ответ = Вопрос("Напечатать документ РКО?",Режим,0);
    Если Ответ = КодВозвратаДиалога.Да Тогда
    //печатаем документ
    ???????????????????????????????????
    КонецЕсли;
    
    
  2. BabySG
    Offline

    BabySG Администраторы Команда форума Администратор

    Регистрация:
    10 июн 2007
    Сообщения:
    11.853
    Симпатии:
    12
    Баллы:
    29
    Посмотрите, как в типовых сделано и просто повторите.
    Там же напрямую процедура вызывается.

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