Имя: Пароль:
1C
1С v8
Редактировать форму Ведомость Доставки
0 slavrofuser
 
18.03.22
12:22
Добрый день! Имеется задача - редактировать печатную форму ведомости доставки (встроенная, как я понимаю), таким образом, чтобы ПочтовыйАдрес из шапки дублировался в подвале. Знаний синтаксиса и областей видимости нет никаких, подставление значений, запись в переменную и другие костыли результата не дают.

Функция ПолучитьПечатнуюФормуВедомостиДоставки(Контрагент, МассивДокументов) Экспорт
    ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("ВедомостьДоставки");

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


    ОбластьШапка.Параметры.ПочтовыйАдрес = ВернутьПочтовыйАдрес(Контрагент);

    СведенияКонтрагента = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Контрагент, ДатаЗакрытия);

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


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

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

    НомерПП = 0;
    ИтогоКоличество = 0;
    Для каждого Документ Из МассивДокументов Цикл
        НомерПП = НомерПП + 1;
        ОбластьСтрока.Параметры.НомерПП = НомерПП;
        ОбластьСтрока.Параметры.Документ = Строка(Документ);

        Кол = ВернутьКоличествоЭкземпляров(Документ, Истина);

        ОбластьСтрока.Параметры.Количество = Кол;
        ИтогоКоличество = ИтогоКоличество + Кол;

        Если Кол > 1 Тогда
            ОбластьСтрока.Параметры.Комментарий = "вернуть подписанный экземпляр";
        Иначе
            ОбластьСтрока.Параметры.Комментарий = "";
        КонецЕсли;

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

    Возврат ТабДок;
1 vicof
 
18.03.22
12:32
Как насчет нанять программиста?
2 Fish
 
гуру
18.03.22
12:33
Что значит, "результата не дают"? Ошибка появляется или что-то ещё?
3 d_monah
 
18.03.22
12:36
Фотки давай.И не свои,твои не интересны.Мониторные
4 slavrofuser
 
18.03.22
12:58
Ошибка не появляется, однако Адрес на печать не выводится. Не выводится, причем, именно из Подвала.
5 slavrofuser
 
18.03.22
13:04
6 slavrofuser
 
18.03.22
14:06
Проблему решил, редактировал код не там, всем спасибо!
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший