Есть маленькая проблема: хочу настроить в ТН (в печатной форме), чтобы в основании ставился счет на основании которого ее выписали, но при этом Договор: основной договор (чтобы удобнее было в оборотке) Возможно ли это без дополнительных обработок сделать?

Заведи ему доп свойства и пиши туда руками основание, в печатной форме тоже руками напишите основание - без доп. обработок и печ. форм.

А где нужно завести эти доп.свойства?

(2)Самое крутое можешь в комментах писать основание и потом в печ форме тоже руками написать основание.

Ну а если серьезно?

Я хочу понять можно ли это сделать самим или лучше поискать специалиста? На сколько это проблематично и трудоемко сделать?

Серьезно, ну не ломайся, измени документ, сделай на закладке дополнительно поле основание и переделай печ. форму во внешнюю. В чем проблемы? трудозатрат 1 час с перекурами.

Проблема в том, что я не умею. В закладке дополнительно счет на оплату:  счет №... от ....
А печатная форма: основной договор, а мне надо счет №... от...

Лучше вариант, без изменения конфы, сделай ВПФ с возможностью выбора документа заказа и там уже выводи всё что пожелает душа, минус в том, что не будет истории кому что основанием является в 1С, плюс - изменения конфы =0;

(7)Начнем с малого, что за конфа, на закладке дополнительно уже есть поле выбора?

1С:Предприятие 8.2 (8.2.18.102) Вот такая штука и есть обработка (писали нам ее) для автоматического выставления документов (счет, акт, счет-фактура)

(10)Там ниже шушуть написано "Конфигурация:....."

В закладке дополнительно есть граФА СЧЕТ НА оплату: там выскакивает счет на основании которого она выписана

Бухгалтерия предприятия, редакция 2.0 (2.0.46.7) (http://v8.1c.ru/buhv8/)
Copyright (С) ООО "1C", 2009 - 2013. Все права защищены
(http://www.1c.ru)

Тогда выложи обработку  на сюда rghost.ru

))) а как?

(14)В смысле печатную форму, которая надеюсь внешняя(Меню сервис-доплнительные отчеты и обработки-дополнительные внешние печатные формы) там ищи название своей печатной формы, есть что-нибудь?

ну есть же еще документы которые выписываю ручками

нету

(17)В этих документах можно поставить счет ручками, если его нет, тогда вариант (8)

Ручками это когда уже вывела форму на печать?! А мне надо автоматом!

Эх
Кароче, в конфигуратор заходить умеете?

да

(22)Входите!

=)

Слева дерево открыто?

нет

Меню конфигурация - открыть конфигурацию

открылось

Документы развернуть, найти ТребованиеНакладная

нашла

Правой кнопкой мыши, открыть модуль обжекта

открыла

Начнем с первой, Найти Функция ПечатьМ11() скопировать все что  между Функция ПечатьМ11() и КонецФункции

Вставить сюда

Функция ПечатьМ11()

    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДокумент.ИмяПараметровПечати = "ПараметрыПечати_ТребованиеНакладная_М11";

    Макет = ПолучитьОбщийМакет("М11");

    Область = Макет.ПолучитьОбласть("Шапка");
    Область.Параметры.Заголовок                = "ТРЕБОВАНИЕ-НАКЛАДНАЯ № " + Строка(Номер);
    Область.Параметры.КодОКПО                  = Организация.КодПоОКПО;
    СведенияОбОрганизации    = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Организация, Дата);
    ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");
    Область.Параметры.ПредставлениеОрганизации = ПредставлениеОрганизации;
    Область.Параметры.ДатаСоставления          = Формат( Дата, "ДФ=dd.MM.yy");
    Область.Параметры.Склад                    = Склад;
    Область.Параметры.КоррСчет                 = СчетЗатрат.Код;
    Область.Параметры.ПредставлениеПодразделения = ПодразделениеЗатрат.Наименование;
    ТабДокумент.Вывести(Область);

    СтруктураПолей = Новый Структура;
    СтруктураПолей.Вставить("Счет",                         "Счет");
    СтруктураПолей.Вставить("Материал",                     "Номенклатура");
    СтруктураПолей.Вставить("МатериалНаименование",         "Номенклатура.НаименованиеПолное");
    
    Если Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить() = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        СтруктураПолей.Вставить("НоменклатурныйНомер",          "Номенклатура.Артикул");
    Иначе
        СтруктураПолей.Вставить("НоменклатурныйНомер",          "Номенклатура.Код");
    КонецЕсли;
    
    СтруктураПолей.Вставить("ЕдиницаИзмеренияНаименование", "Номенклатура.БазоваяЕдиницаИзмерения");
    СтруктураПолей.Вставить("ЕдиницаИзмеренияКод",          "Номенклатура.БазоваяЕдиницаИзмерения.Код");
    СтруктураПолей.Вставить("Количество",                   "Количество");
                                          
    Область = Макет.ПолучитьОбласть("Строка");
    
    ТаблицаМатериалов = ОбщегоНазначения.СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "Материалы", СтруктураПолей).Выгрузить();
    ТаблицаМатериалов.Свернуть("Материал, МатериалНаименование, Счет, НоменклатурныйНомер,ЕдиницаИзмеренияКод,ЕдиницаИзмеренияНаименование", "Количество");

    // Поиск сумм списания активов для заполнения Цены и Суммы
    ТаблицаСуммСписания = БухгалтерскийУчет.ПолучитьСуммуСписанияАктивов(ЭтотОБъект);
    
    Для Каждого СтрокаТЧ Из ТаблицаМатериалов Цикл

        Область.Параметры.Заполнить(СтрокаТЧ);
        СтрокаСуммСписания =  ТаблицаСуммСписания.Найти(СтрокаТЧ.Материал, "Номенклатура");
        Если СтрокаСуммСписания = Неопределено Тогда
             Область.Параметры.Цена = 0;
             Область.Параметры.Сумма = 0;
         Иначе
             Цена = ?(СтрокаСуммСписания.Количество = 0, 0, СтрокаСуммСписания.Сумма / СтрокаСуммСписания.Количество);
             Область.Параметры.Цена  = Цена;
             Область.Параметры.Сумма = Цена * СтрокаТЧ.Количество;
         КонецЕсли;
        ТабДокумент.Вывести(Область);

    КонецЦикла;
    
    ТаблицаМатериалов = ОбщегоНазначения.СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "МатериалыЗаказчика", СтруктураПолей).Выгрузить();

    Для Каждого СтрокаТЧ Из ТаблицаМатериалов Цикл

        Область.Параметры.Заполнить(СтрокаТЧ);
        СтрокаСуммСписания =  ТаблицаСуммСписания.Найти(СтрокаТЧ.Материал, "Номенклатура");
        Если СтрокаСуммСписания = Неопределено Тогда
             Область.Параметры.Цена = 0;
             Область.Параметры.Сумма = 0;
         Иначе
             Цена = ?(СтрокаСуммСписания.Количество = 0, 0, СтрокаСуммСписания.Сумма / СтрокаСуммСписания.Количество);
             Область.Параметры.Цена  = Цена;
             Область.Параметры.Сумма = Цена * СтрокаТЧ.Количество;
         КонецЕсли;
        ТабДокумент.Вывести(Область);

    КонецЦикла;

    Область = Макет.ПолучитьОбласть("Подвал");

    ТабДокумент.Вывести(Область);

    Возврат ТабДокумент;

КонецФункции // ПечатьМ11()

Окей, следующую Функция ПечатьТребованиеНакладная()
Также сюда.

Функция ПечатьТребованиеНакладная()

    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        Колонка         = "Артикул";
        ТекстКодАртикул = "Артикул";
    Иначе
        Колонка         = "Код";
        ТекстКодАртикул = "Код";
    КонецЕсли;

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст ="
    |ВЫБРАТЬ
    |    Номер,
    |    Дата,
    |    Организация,
    |    Склад
    |ИЗ
    |    Документ.ТребованиеНакладная КАК ТребованиеНакладная
    |
    |ГДЕ
    |    ТребованиеНакладная.Ссылка = &ТекущийДокумент";

    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

    Запрос.Текст =
    "ВЫБРАТЬ
    |    ТребованиеНакладная.Номенклатура." + ТекстКодАртикул + " КАК Код,
    |    ТребованиеНакладная.Номенклатура.НаименованиеПолное КАК Имя,
    |    ТребованиеНакладная.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдИзм,
    |    ТребованиеНакладная.Количество КАК Количество,
    |    ТребованиеНакладная.ЕдиницаИзмерения КАК ЕдИзмМест,
    |    ТребованиеНакладная.КоличествоМест
    |ИЗ
    |    Документ.ТребованиеНакладная.Материалы КАК ТребованиеНакладная
    |ГДЕ
    |    ТребованиеНакладная.Ссылка = &ТекущийДокумент";

    ЗапросПоНоменклатуре = Запрос.Выполнить();

    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ТребованиеНакладная_ТН";
    
    // Вывод заголовка
    Макет = ПолучитьМакет("ТребованиеНакладная");
    Область = Макет.ПолучитьОбласть("Заголовок");
    
    Область.Параметры.ИмяКолонкиКодов = Колонка;
    
    Область.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Ссылка, "Требование-накладная");
    Область.Параметры.Заполнить(Шапка);
    СведенияОбОрганизации    = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);
    ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");
    Область.Параметры.Организация = ПредставлениеОрганизации;
    ТабДокумент.Вывести(Область);

    ВыборкаПоСтрокам = ЗапросПоНоменклатуре.Выгрузить();
    ВыборкаПоСтрокам.Свернуть("Код, Имя, ЕдИзм, ЕдИзмМест", "Количество,КоличествоМест");
    
    НомерТекущий = 1;
    Для Каждого СтрокаТЧ Из ВыборкаПоСтрокам Цикл

        Область = Макет.ПолучитьОбласть("Строка");
        Область.Параметры.Заполнить(СтрокаТЧ);
        Область.Параметры.НомерТекущий = НомерТекущий;
        ТабДокумент.Вывести(Область);
        НомерТекущий = НомерТекущий + 1;
    КонецЦикла;
    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

    Запрос.Текст =
    "ВЫБРАТЬ
    |    ТребованиеНакладная.Номенклатура." + ТекстКодАртикул + " КАК Код,
    |    ТребованиеНакладная.Номенклатура.НаименованиеПолное КАК Имя,
    |    ТребованиеНакладная.Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдИзм,
    |    ТребованиеНакладная.Количество КАК Количество,
    |    ТребованиеНакладная.ЕдиницаИзмерения КАК ЕдИзмМест,
    |    ТребованиеНакладная.КоличествоМест
    |ИЗ
    |    Документ.ТребованиеНакладная.МатериалыЗаказчика КАК ТребованиеНакладная
    |ГДЕ
    |    ТребованиеНакладная.Ссылка = &ТекущийДокумент";

    ЗапросПоНоменклатуре = Запрос.Выполнить();
    
    ВыборкаПоСтрокам = ЗапросПоНоменклатуре.Выгрузить();
    ВыборкаПоСтрокам.Свернуть("Код, Имя, ЕдИзм, ЕдИзмМест", "Количество,КоличествоМест");
    
    Для Каждого СтрокаТЧ Из ВыборкаПоСтрокам Цикл

        Область = Макет.ПолучитьОбласть("Строка");
        Область.Параметры.Заполнить(СтрокаТЧ);
        Область.Параметры.НомерТекущий = НомерТекущий;
        ТабДокумент.Вывести(Область);
        НомерТекущий = НомерТекущий + 1;

    КонецЦикла;

    // Вывод подвала
    Область = Макет.ПолучитьОбласть("Подписи");
    ТабДокумент.Вывести(Область);

    Возврат ТабДокумент;

КонецФункции // ПечатьТребованиеНакладная()

Окей обе типовые, в дополнительных печатных формах точно ничего нет? Печатную форму выведете на экран и сохраниет в эксель зайдите на rghost.ru и загрузите туда файл экселя, ссылку нам сюда.

Она стандартная. В формах ничего не меняли

в стандартной форме нет основания и догоора.

http://rghost.ru/50457763

Аха, класс))) Это печатная форма реализации, а я втупил про ТН))))

ага, это я не правильно написала (

а че теперь делать?

Функция ПечатьДокумента()
    
    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Номер,
    |    Дата,
    |    ДоговорКонтрагента,
    |    Контрагент КАК Получатель,
    |    Организация,
    |    Организация КАК Поставщик,
    |    СуммаДокумента,
    |    ВалютаДокумента,
    |    УчитыватьНДС,
    |    СуммаВключаетНДС,
    |    ОтпускПроизвел
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент";
    Шапка = Запрос.Выполнить().Выбрать();
    Шапка.Следующий();

    Запрос = Новый Запрос;
    Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
    
    ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("РеализацияТоваровУслуг");
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,
    |    Номенклатура.Код КАК Код,
    |    Номенклатура.Артикул КАК Артикул,
    |    Количество,
    |    КоличествоМест,
    |    ЕдиницаИзмерения КАК ЕдиницаИзмерения,
    |    Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаХранения,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    СтранаПроисхождения КАК СтранаПроисхождения,
    |    НомерГТД КАК НомерГТД,
    |   НомерСтроки,
    |    1 КАК ID
    |ИЗ
    |    (ВЫБРАТЬ
    |        Номенклатура         КАК Номенклатура,
    |        ЕдиницаИзмерения     КАК ЕдиницаИзмерения,
    |        Цена                 КАК Цена,
    |        СтавкаНДС            КАК СтавкаНДС,
    |        СтранаПроисхождения  КАК СтранаПроисхождения,
    |        НомерГТД             КАК НомерГТД,
    |        СУММА(Количество)    КАК Количество,
    |        СУММА(КоличествоМест)КАК КоличествоМест,
    |        СУММА(Сумма)         КАК Сумма,
    |        СУММА(СуммаНДС)      КАК СуммаНДС,
    |        МИНИМУМ(НомерСтроки) КАК НомерСтроки
    |    ИЗ
    |        Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
    |    ГДЕ
    |        РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |    СГРУППИРОВАТЬ ПО
    |        Номенклатура,
    |        ЕдиницаИзмерения,
    |        Цена,
    |        СтавкаНДС,
    |        СтранаПроисхождения,
    |        НомерГТД
    |    ) КАК ВложенныйЗапросПоТоварам
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    Номенклатура,
    |    ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК Строка(1000)),
    |    Номенклатура.Код КАК Код,
    |    Номенклатура.Артикул КАК Артикул,
    |    Количество,
    |    NULL,
    |    NULL,
    |    NULL,
    |    Цена,
    |    Сумма,
    |    0,
    |    NULL,
    |    NULL,
    |    НомерСтроки,
    |    2
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.ВозвратнаяТара КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
    |    " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
    |    Номенклатура.Код КАК Код,
    |    Номенклатура.Артикул КАК Артикул,
    |    Количество,
    |    NULL,
    |    NULL,
    |    Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаХранения,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    NULL,
    |    NULL,
    |    НомерСтроки,
    |    3
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |ОБЪЕДИНИТЬ ВСЕ
    |
    |ВЫБРАТЬ
    |    " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
    |    " + ЧастьЗапросаДляВыбораСодержанияУслуг + ",
    |    Номенклатура.Код КАК Код,
    |    Номенклатура.Артикул КАК Артикул,
    |    Количество,
    |    NULL,
    |    NULL,
    |    Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаХранения,
    |    Цена,
    |    Сумма,
    |    СуммаНДС,
    |    NULL,
    |    NULL,
    |    НомерСтроки,
    |    4
    |    
    |ИЗ
    |    Документ.РеализацияТоваровУслуг.АгентскиеУслуги КАК РеализацияТоваровУслуг
    |
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
    |
    |УПОРЯДОЧИТЬ ПО
    |    ID,
    |    НомерСтроки";
    ЗапросТовары = Запрос.Выполнить().Выгрузить();

    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Накладная";

    Макет = ПолучитьМакет("Накладная");

    // Выводим шапку накладной

    ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
    ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, "Расходная накладная");
    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
    СведенияОбОрганизации   = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);
    ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");
    ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;
    ОбластьМакета.Параметры.Поставщик                 = Шапка.Поставщик;
    ТабДокумент.Вывести(ОбластьМакета);

    ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
    СведенияОКонтрагенте    = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);
    ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");
    ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;
    ОбластьМакета.Параметры.Получатель = Шапка.Получатель;
    ТабДокумент.Вывести(ОбластьМакета);

    ЕстьСкидки = Ложь;

    ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
    Если ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
        ВыводитьКоды = Истина;
        Колонка = "Артикул";
    ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
        ВыводитьКоды = Истина;
        Колонка = "Код";
    Иначе
        ВыводитьКоды = Ложь;
    КонецЕсли;

    ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицы|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("ШапкаТаблицы|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицы|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("ШапкаТаблицы|Сумма");

    ТабДокумент.Вывести(ОбластьНомера);
    Если ВыводитьКоды Тогда
        ОбластьКодов.Параметры.ИмяКолонкиКодов = Колонка;
        ТабДокумент.Присоединить(ОбластьКодов);
    КонецЕсли;
    ТабДокумент.Присоединить(ОбластьДанных);
    ТабДокумент.Присоединить(ОбластьСуммы);

    ОбластьКолонкаТовар = Макет.Область("Товар");
    Если Не ВыводитьКоды Тогда
        ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки +
                                            Макет.Область("КолонкаКодов").ШиринаКолонки;
    КонецЕсли;
    Если НЕ ЕстьСкидки Тогда
        ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки +
                                            Макет.Область("СуммаБезСкидки").ШиринаКолонки +
                                            Макет.Область("СуммаСкидки").ШиринаКолонки;
    КонецЕсли;

    ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("Строка|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("Строка|Сумма");

    Сумма    = 0;
    СуммаНДС = 0;
    ВсегоСкидок    = 0;
    ВсегоБезСкидок = 0;

    Для каждого ВыборкаСтрокТовары из ЗапросТовары Цикл

        ОбластьНомера.Параметры.НомерСтроки = ЗапросТовары.Индекс(ВыборкаСтрокТовары) + 1;
        ТабДокумент.Вывести(ОбластьНомера);
        
        Если ВыводитьКоды Тогда
            Если Колонка = "Артикул" Тогда
                ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Артикул;
            Иначе
                ОбластьКодов.Параметры.Артикул = ВыборкаСтрокТовары.Код;
            КонецЕсли;
            ТабДокумент.Присоединить(ОбластьКодов);
        КонецЕсли;

        ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);
        ОбластьДанных.Параметры.Товар = СокрЛП(ВыборкаСтрокТовары.Товар);
        ТабДокумент.Присоединить(ОбластьДанных);

        Скидка = 0;
        
        ОбластьСуммы.Параметры.Заполнить(ВыборкаСтрокТовары);
        ТабДокумент.Присоединить(ОбластьСуммы);
        Сумма          = Сумма       + ВыборкаСтрокТовары.Сумма;
        СуммаНДС       = СуммаНДС    + ВыборкаСтрокТовары.СуммаНДС;
        ВсегоСкидок    = ВсегоСкидок + Скидка;
        ВсегоБезСкидок = Сумма       + ВсегоСкидок;

    КонецЦикла;

    // Вывести Итого
    ОбластьНомера = Макет.ПолучитьОбласть("Итого|НомерСтроки");
    ОбластьКодов  = Макет.ПолучитьОбласть("Итого|КолонкаКодов");
    ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");
    ОбластьСуммы  = Макет.ПолучитьОбласть("Итого|Сумма");

    ТабДокумент.Вывести(ОбластьНомера);
    Если ВыводитьКоды Тогда
        ТабДокумент.Присоединить(ОбластьКодов);
    КонецЕсли;
    ТабДокумент.Присоединить(ОбластьДанных);
    ОбластьСуммы.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
    ТабДокумент.Присоединить(ОбластьСуммы);

    // Вывести ИтогоНДС
    Если Шапка.УчитыватьНДС Тогда
        ОбластьНомера = Макет.ПолучитьОбласть("ИтогоНДС|НомерСтроки");
        ОбластьКодов  = Макет.ПолучитьОбласть("ИтогоНДС|КолонкаКодов");
        ОбластьДанных = Макет.ПолучитьОбласть("ИтогоНДС|Данные");
        ОбластьСуммы  = Макет.ПолучитьОбласть("ИтогоНДС|Сумма");

        ТабДокумент.Вывести(ОбластьНомера);
        Если ВыводитьКоды Тогда
            ТабДокумент.Присоединить(ОбластьКодов);
        КонецЕсли;
        
        Если ЗапросТовары.Итог("СуммаНДС") <> 0 Тогда
            ОбластьСуммы.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(ЗапросТовары.Итог("СуммаНДС"));
            ОбластьДанных.Параметры.НДС      = ?(Шапка.СуммаВключаетНДС, "В том числе НДС", " Сумма НДС");
        Иначе
            ОбластьСуммы.Параметры.ВсегоНДС = "-";
            ОбластьДанных.Параметры.НДС      = "Без налога (НДС)";
        КонецЕсли;
        
        ТабДокумент.Присоединить(ОбластьДанных);
        ТабДокумент.Присоединить(ОбластьСуммы);
    КонецЕсли;

    // Вывести Сумму прописью
    ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
    СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
    ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего наименований " + ЗапросТовары.Количество()
    + ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента);
    ОбластьМакета.Параметры.СуммаПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, Шапка.ВалютаДокумента);
    ТабДокумент.Вывести(ОбластьМакета);

    // Вывести подписи
    ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
    ОбластьМакета.Параметры.Заполнить(Шапка);
    
    Если ЗначениеЗаполнено(ОтпускПроизвел) Тогда
        ДанныеПодотчетногоЛица = ОбщегоНазначения.ДанныеФизЛица(Организация, ОтпускПроизвел, Дата);
        ФИОКладовщика = ОбщегоНазначения.ФамилияИнициалыФизЛица(ОтпускПроизвел);
        ОбластьМакета.Параметры.ОтветственныйПредставление = ФИОКладовщика;
    КонецЕсли;

    ТабДокумент.Вывести(ОбластьМакета);

    Возврат ТабДокумент;

КонецФункции // ПечатьДокумента()

Это лишнее, секунду подождите.

Вроде ни где не наипался, http://rghost.ru/50458104 держите, добавить во внешние печатные формы, которые в сервисе.

не в конфигурации???

нет, в режиме предприятия.

добавила. а что дальше?

ничего не произошло (

=)
http://rghost.ru/50458258
Скачайте еще раз.

http://screencast.com/t/umpaa2qW5p7O
Просмотреть.

ОГО!!!! Классно! Получилось!!! Спасибо!!!

А можно еще вопросик?

Ну хоть плюс в карму сегодня заработал, а не геморой как обычно))

Давайте.

Ну мне бы хотелось еще обработку сделать, чтобы выставлять счета на оплату (авансом)

т.е. у нас много клиентов, документы выставляем последним числом месяца. а иногда нужно выставить только счета на оплату

+)

а как это сделать? )

Подробнее и с документами, ничего не понял, вы меня просите предугадать кому вы счет выставить хотите?

У меня есть обработка, сервисы-дополнительные внешние обработки. Она мне автоматом формирует список клиентов, кол-во обслуживаемых машин, стоимость. Я нажимаю кнопку выписать, она выписывает реализацию. Нажимаю напечатать - печатает: счет, акт, счет-фактуру. Мне надо тоже самое, только с возможностью выставить только счет (типа авансовый на будущий месяц) а потом, на основании этого счета выписать закрывающие документы. О!

На rghost.ru

а что туда скинуть?

мне эту обработку вместе с конфигурацией сделали

Там нажмите изменить на обработке и "провалившись" в нее))) увидите кнопку "дискета", кароче сохраните ее сначала, потом на rghost.ru закиньте, ссылку сюда, позже сделаю.

http://screencast.com/t/vAfPcx1i

http://rghost.ru/50458685

Крутой код))) http://rghost.ru/50458786 Пробуйте

Можете ее просто файл-открыть сделать и проверить.

Потом заменить в доп.вн. обработках

не получилось. поставила галочку только счета и выписать... тишина

Забыл закоммитить транзакцию, http://rghost.ru/50459390

Ой, стойте, не там вкорячил код

Точнее не довкорячил на печать еще

Забирайте http://rghost.ru/50459503

Круто! Спасибо! Вы просто гений!!!
Счета выписались, только я теперь не пойму как на основании них сделать в конце месяца реализацию и можно ли их скопом напечатать?

(78)Пользуйтесь, http://rghost.ru/50467316

И эта не делает. Появляется 2 страничка и ничего не выставляется. Может я че не так делаю?

(80) Там галку видите "По счетам"? ее нажать, заполнить, выставить, напечатать.

+Если что-то еще не понятно пишите hlinesupport1c

(82)Это скайп)

(82) Пряма мушкетер))

(84) Не перевелись ещё бессеребренники, добрые люди на Руси xD

(85) Предлагаю жаловаться в ВТО - демпинг правилами это организации запрещен. Помог девушке без денег и даже без фотки, сжечь его !!!! :)

(86) Сжечь - это, конечно, хорошо... Но в ентих отсталых европах уже лет как 300 сожжение не практикуют -(

Вот единственный мужчина! Суперский и добрый! А вы вредничаете. И у самих фоток нет.