Здравствуйте!
Пользуемся программой Альфа-Авто: автосалон+автосервис+автозапчасти проф, ред 5.
Подскажите, пожалуйста, код, которым можно на печать во внешней форме вывести сумму списания.
Спасибо.
---
AndrewUs, В БП 2.0: Вашу конфигурацию не знаю, но возможно поможет, если там есть такое же:

```1c
    БухгалтерскийУчет.ПолучитьСуммуСписанияАктивов(СсылкаНаОбъект);
```

Содержимое таково:

```1c
    Функция ПолучитьСуммуСписанияАктивов(ТекДокумент) Экспорт

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

    Запрос = Новый Запрос;
    Запрос.Текст = ТекстЗапроса;
    Запрос.УстановитьПараметр("ДатаНач", ТекДокумент.Дата);
    Запрос.УстановитьПараметр("ДатаКон", ТекДокумент.Дата);
    Запрос.УстановитьПараметр("Регистратор", ТекДокумент.Ссылка);
    Запрос.УстановитьПараметр("СчетГТД", ПланыСчетов.Хозрасчетный.ГТД);

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

    Возврат ТаблицаСуммСписания;

    КонецФункции
```
---
Тема еще актуальна.
---
Добрый день! Для редакции Альфа-Авто: Автосалон+Автосервис+Автозапчасти ПРОФ. Редакция 5 (5.0.10.02) - она установлена - "Сумма списания" настраивается в подменю "Настройка списка", данная колонка рассчитывается без дописок конфигурации. Необходимо включить право "Показывать себестоимость проведения" - этого будет достаточно.
---
VITO_FPI, Это я уже сделал, но как вывести эту "Сумму списания" на печать внешней печатной формы, чтобы кладовщик на бумаге смог увидеть эту сумму?
---
AndrewUs, Печатная форма "Перемещение товаров"? ПО умолчанию никак, только вносить изменения в макет печатной формы, а так же дописывать изменения в сам модуль документа
---
VITO_FPI, а зачем в модуле документа менять, если у меня ВНЕШНЯЯ печатная форма. Как мне известно, внешние печатные формы на то и рассчитаны, чтобы не вносить изменения в типовой функционал хотя бы печатных форм конфигурации?
---
AndrewUs, В БП 2.0: Вашу конфигурацию не знаю, но возможно поможет, если там есть такое же:

```1c
    БухгалтерскийУчет.ПолучитьСуммуСписанияАктивов(СсылкаНаОбъект);
```

Содержимое таково:

```1c
    Функция ПолучитьСуммуСписанияАктивов(ТекДокумент) Экспорт

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

    Запрос = Новый Запрос;
    Запрос.Текст = ТекстЗапроса;
    Запрос.УстановитьПараметр("ДатаНач", ТекДокумент.Дата);
    Запрос.УстановитьПараметр("ДатаКон", ТекДокумент.Дата);
    Запрос.УстановитьПараметр("Регистратор", ТекДокумент.Ссылка);
    Запрос.УстановитьПараметр("СчетГТД", ПланыСчетов.Хозрасчетный.ГТД);

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

    Возврат ТаблицаСуммСписания;

    КонецФункции
```