Не спец в 7.7,прошу помочь по НомерСтроки,не работает нумерация:
Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Контрагенты = Справочник.Контрагенты.ТекущийЭлемент;
   |Менеджер = Справочник.Контрагенты.Менеджер;
   |МенеджерКанц = Справочник.Контрагенты.МенеджерКанц;
   |Группировка Контрагенты;
   |Условие(Менеджер в ВыбМенеджер);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;
   
   ТабЗапроса = СоздатьОбъект("ТаблицаЗначений");
   Запрос.Выгрузить(ТабЗапроса,1,0);
   // Подготовка к заполнению выходных форм данными запроса
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);  
   
//    Пока Запрос.Группировка(1) = 1 Цикл
   ТабЗапроса.ВыбратьСтроки();
   Пока ТабЗапроса.ПолучитьСтроку()=1 Цикл
       НомерСтр = 1;
       Если ТабЗапроса.Контрагенты.ЭтоГруппа() = 1 Тогда
           Продолжить;
       Иначе
       Менеджер=ТабЗапроса.Менеджер;
       Контрагенты=ТабЗапроса.Контрагенты;
         НомерСтроки=НомерСтр+1;
       Таб.ВывестиСекцию("Менеджер");
       КонецЕсли;
   КонецЦикла;
   // Вывод заполненной формы
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
КонецПроцедуры

НомерСтр = 1;

перед циклом должен стоять...

(1)в том то идело что перед циклом тож не работает

(2) да ладно.

(2) Не только перед циклом поставь, но и зз цикла убери НомерСтр=1;

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

в 8-ке так работает

(6) ахаха. это выход.

(5) А тебе как надо? Вот так:

Таб.ВывестиСекцию("Менеджер");
НомерСтр = НомерСтр+1;

(Внимательно!!!)

У тебя в печатной форме что? НомерСтроки или НомерСтр?

(9)НомерСтроки

(10) Тогда
НомерСтроки = 1;
Пока ... Цикл
   НомерСтроки = НомерСтроки+1;
КонецЦикла;

Что-то одно - или НомерСтр, или НомерСтроки - но выбрать надо.

Все работает,всем спасибо,всех с праздником............