Народ помогите упростить внешний отчет, понимаю что сделала неправильно и иррационально с точки зрения программирования.
Процедура Сформировать()  
   
   Перем Запрос, ТекстЗапроса, Таб;

   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |ОбрабатыватьДокументы НеПроведенные;
   |Обрабатывать НеПомеченныеНаУдаление;
   |Без итогов;
   |АктТранспортный = Документ.АктТранспортный.ТекущийДокумент;
   |Фирма = Документ.АктТранспортный.Фирма;
   |Группировка АктТранспортный;
   |Условие (Фирма в ВыбФирма);  
   |";
   
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;  
   
   Док = СоздатьОбъект("Документ.АктТранспортный");
   СпрК = СоздатьОбъект("Справочник.Клиенты");
   Клиент=СпрК;      
   
   Док.ВыбратьДокументы(ВыбНачПериода, ВыбКонПериода);  
   Таб = СоздатьОбъект("Таблица");  
       Таб.ИсходнаяТаблица("Печать_Акта");
       Таб.ПараметрыСтраницы(2);
   Пока Запрос.Группировка() = 1 Цикл
       Док.НайтиДокумент(Запрос.АктТранспортный);    
       
       
       Если СпрК.НайтиПоКоду(65481) = 1 Тогда
           Клиент = СпрК.ТекущийЭлемент();
       КонецЕсли;
       
       
       Итого=Док.Сумма;
       БезНалога="00,00";
       Всего=Док.Сумма;
       ЕДИЗМ="Км";
       Ном="1";
   
       Таб.ВывестиСекцию("Заголовок");  
       Таб.ВывестиСекцию("Заказчик");  
       Таб.ВывестиСекцию("Вод");
       Таб.ВывестиСекцию("Шапка");
       Таб.ВывестиСекцию("Строка");
       Таб.ВывестиСекцию("Итого");
       Таб.ВывестиСекцию("ИтогоБезНалога");
       Таб.ВывестиСекцию("Всего");
       Таб.ВывестиСекцию("СуммаПР");
       Таб.ВывестиСекцию("Подвал")    ;
       Таб.ВывестиСекцию("Пустая");
   
       Таб.НоваяСтраница();
           КонеЦЦикла;  
       Таб.ПараметрыСтраницы(2,,, 10, 0, 0, 0,,,,,);    
       Таб.ТолькоПросмотр(1);
       Таб.Показать("Печать_Акта", "");
       
   
КонецПроцедуры

Процедура Реестр()
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |ОбрабатыватьДокументы НеПроведенные;
   |Обрабатывать НеПомеченныеНаУдаление;
   |Без итогов;
   |АктТранспортный = Документ.АктТранспортный.ТекущийДокумент;
   |Сумма = Документ.АктТранспортный.Сумма;
   |Фирма = Документ.АктТранспортный.Фирма;
   |Условие (Фирма в ВыбФирма);
   |Группировка АктТранспортный;
   |";
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   Ном=0;
   
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Реестр");
   Таб.ВывестиСекцию("Шапка");
   
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   СуммаИтог = 0;
   Пока Запрос.Группировка() = 1 Цикл
       Ном = Ном + 1;
       СуммаИтог = СуммаИтог + Запрос.Сумма;
       Таб.ВывестиСекцию("Строка");
   КонеЦЦикла;
   Таб.ВывестиСекцию("Итоги");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Реестр", "");
   
   
КонецПроцедуры;

(0) в запросе сумму получить и убрать все упоминания о Док, это про Сформировать

+(1) что в Реестр() и было сделано собственно

на форме две кнопочки Формирование Реестра и просто формирование документа, я имею ввиду может как упростить и избавиться от повторения запроса

(3) в Сформировать в таблицу данные из Док берутся?

Да все береться из одного документа

+(4) в смысле в таблице "Печать_Акта" в формулах ячеек встречаются ссылки на атрибуты Док?

(3)Разные кнопки, разные процедуры. Что упрощать?
Желание сэкономить строчки кода?

Да в таблице Печать_Акта у меня Док.Контрагент...... вот примерно так.

Я имела ввиду может, можно запрос один раз, а потом просто к нему обращаться, сейчас это принципиальной роли не играет, будет играть роль когда внешний отчет будет выполняться за большой промежуток времени....ВыбНачПериода по ВыбКонПериода;

(0) Все не так и все не там.

Вот это вот :
Док = СоздатьОбъект("Документ.АктТранспортный");
...
Док.ВыбратьДокументы(ВыбНачПериода, ВыбКонПериода);  
...
Пока Запрос.Группировка() = 1 Цикл
...
Док.НайтиДокумент(Запрос.АктТранспортный);

все для того, чтобы иметь текущий документ?


Вот это вот :
Если СпрК.НайтиПоКоду(65481) = 1 Тогда
   Клиент = СпрК.ТекущийЭлемент();
КонецЕсли;
Означает, что всегда работаем с одним клиентом, если его код есть в базе? ДляНафигаТогда все остальные?

Вот это вот очем

Навскидку:

Вот это:
       Если СпрК.НайтиПоКоду(65481) = 1 Тогда
           Клиент = СпрК.ТекущийЭлемент();
       КонецЕсли;
вынести из цикла.

Это:
Док.НайтиДокумент(Запрос.АктТранспортный);    
никчему.

А выбор макета и вывод секций в нужную таблицу, в зависимости от какая кнопа нажата решается Если/Иначе/КонецЕсли;

(8) тогда либо убираем запрос, делаем выборку за период с фильтром по фирме, либо убираем выборку и ссылки на атрибуты Док в таблице заменяем на ссылки на данные запроса.

ПС Док.ВыбратьДокументы(ВыбНачПериода, ВыбКонПериода); - это лишнее в текущем коде

Смысл в чем Если клиент выбран то выборка идет строго по периоду и по тому клиенту который выбран, если клиент не выбран то по умолчанию выборка идет по всем клиентам за выбранный период

(13) в коде нет фильтра по клиенту

MIKI Спасибо более менее стало понятно, что лишнее, Вы тоже из Ростова?

И еще последний вопрос каким методом проверить какая кнопка нажата?

(13) Вот это вот "Если клиент выбран то выборка идет строго по периоду и по тому клиенту который выбран" - из вашего кода никак не следует.
Само условие нужно унести в запрос. Примерно так:

ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)

   |Период с ВыбНачПериода по ВыбКонПериода;
   |ОбрабатыватьДокументы НеПроведенные;
   |Обрабатывать НеПомеченныеНаУдаление;
   |Без итогов;
   |АктТранспортный = Документ.АктТранспортный.ТекущийДокумент;
   |Фирма = Документ.АктТранспортный.Фирма;
   |//Примерно так
   |Клиент = Документ.АктТранспортный.Клиент;
   |Группировка АктТранспортный;
   |Условие (Фирма в ВыбФирма);  
   |";

Если выбКлиент.Выбран() = 1 Тогда
   ТекстЗапроса = ТекстЗапроса + "Условие(Клиент = выбКлиент);";
КонецЕсли;

ЗЫ. Выбклиент - поле на форме с типом "Справочник.Клиенты"

(16) В свойствах кнопки прописывается процедура, которая выполняется при нажатии.

(18)+ задай для процедуры параметр, например так:
Процедура Реестр(ИмяМакета="Реестр")

У кнопки [Сформировать] В свойствах будет Реестр("Акт"), у кнопки [Реестр] можно или Реестр("Реестр") или просто Реестр().

А в процедуре проверять:
Если ИмяМакета="Реестр" Тогда
<...>
Иначе
<...>

(15)ну, да.

Всем Спасибо большое))))

(20) не хватает функции в запросе по сумме. С ней надёжнее работать