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

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

СредняяСебестоимость НА макете напиши

а кто писал отчет?

Версия 7 склад + торговля

отчет с учебника + небольшая модификация с форумов дали ребята

(9) молодцы какие, ребята

(3) что значит на макете? просто без свойств выражения  просто слово?

(16) макет - это заготовка таблицы отчета, а написать надо в какой-нть ячейке таблицы, свойства = выражение

(15)Методическое пособие к курсу настройка и спровождение 1с тут дали на этом форуме

(16) поищи внизу закладочку "Сформировать" и внимательно изучи, чего там и как

(20) я писал выражение средняя себестоимость свойства выражение  просто пустота а расчета нет

(22) (23)

(23) значит, надо искать, почему в с/ст пусто.. возможно, нет остатков на выбранную дату у выбранной номенклатуры

(27) да ладно тебе..

(27) ты не знал!? вся миста об этом говорит.
сумма сделки до сих пор не оглашается.

(30) ты ета.. кого спрашиваешь? или чисто риторический вопрос? :)

ставишь после

СредняяСебестоимость=Формат((Запрос.Стоимость/Запрос.Количество),"Ч15.2,");

строчку

сообщить(СредняяСебестоимость);
и от этого пляшешь

(32) Ну, тому, кто знает....

(33) можно плясать от отладчика :)

(34) ИМХО, подмена понятий.

(36) вангую, что слово отладчик автору ветки ни о чем не говорит

(28) остатки есть отчет формируется количество и сумма есть тольок графа все равно пустая

(33) так значит я пишу сообщить в модуле, и ставлю выражение СредняяСебестоимость, все равно пусто?

(45) скрин таблицы можешь показать?

+46 имею в виду - из конфигуратора, а не из 1с-предприятия

а как тут у вас прикрепить файл ?

(48) только ссылка
удобно с Gyazo

(49) да я с рабочего тут нельзя устанавливать программы...

(48) могу скинуть на мыло

(51) [email protected]
и тогда уж не скрин, а отчет

(49) взял на себя смелость и скинул вам его на указанный в личной карточке емаил

(52) блин ща перекину...

(52) что значит отчет а не скрин?сохранить как внешний отчет и сам файл вам передать?

(54) не надо, я увидел
тогда кинь еще фрагмент выходной таблицы

(55) ага, именно так

(57) скинул файл на новую почту и скрин итогового отчета

(58) у меня таких регистров нет, переделал под свой
считает..
http://gyazo.com/4c71f31258bed532635c9f5a74b3c961

(59) +
есть регистр ОстаткиТМЦ с измерениями Номенклатура, ЦенаПрод
и ресурсом Количество.
Поскольку у меня ЦенаПрод в 1с не заполняется, себестоимость подсчитывется равной нулю.
Но выводится.

(59) И что это может означать? У меня же ведь показывает остатки по количеству и стоимости, а ноликов нет...Хотя когда я дописывал к Выражению СредняяСебестоимость#Ч15.2 нолики появляются

(61) да не нолики у тебя должны появляться..
попробуй отчет из моего письма.

больше, пожалуй ничем не смогу помочь. Даже тимвьюера нет у меня

+62 ошибся, не тот выслсл.
возьми из второго письма

(63) Воо!!! отлично благодарю, а можно поинтересоваться, что было изменено?

(64) убрал правую пустую колонку в таблице
переместил в свойствах выравнивание вправо
изменил вызов переменных запроса:

        Если Запрос.КоличествоКонОст>0 Тогда
            СредняяСебестоимость=Формат((Запрос.СтоимостьКонОст/Запрос.КоличествоКонОст),"Ч15.2,");

вроде всё..

"А вы, что и есть за меня будете?" - "Ага!"

(66) Агааа :)

на столе у меня лежит кексик, угостил шеф.. могу выложить фотокарточку :)

а вообще-то что-то странное есть в таблице.. но разбираться уже лень :)

(67) Не. Давай лучше кексом делись :))))

ничуть не жалко.. только далеко :)
"а горы вооонаа где!" © :)

Вот второй программист на моем опыте которому проще самому все сделать.

Помогите пожалуйста

Модуль расходной накладной:

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

Процедура СписатьПартии()  
   //РегПартии=СоздатьОбъект("Регистр.ПартииТоваров");
   //СЗ=СоздатьОбъект("СписокЗначений");
    //ВыгрузитьТабличнуюЧасть(СЗ,"Номенклатура");
   //РегПартии.УстановитьЗначениеФильтра("Номенклатура",СЗ,2);
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   РегПартии.ВыгрузитьИтоги(ТЗ,1);
   Если Константа.МетодСписания=Перечисление.МетодыСписания.FIFO Тогда
      Направление = "+";
   Иначе
      Направление="-";
   КонецЕсли;
   ТЗ.Сортировать("+Номенклатура,"+Направление+"Партия",1);
   ВыбратьСтроки();
   Пока ПолучитьСтроку()=1 Цикл
      ОсталосьСписать=Количество;
      ТЗСтрока=0;
      ТЗ.НайтиЗначение(Номенклатура,ТЗСтрока,"Номенклатура");
      Для Ном=ТЗСтрока По ТЗ.КоличествоСтрок() Цикл
         ТЗ.ПолучитьСтрокуПоНомеру(ном);
         ОстКол=ТЗ.Количество;
         ОстСум=ТЗ.Стоимость;
         Списать=МИН(ОстКол,ОсталосьСписать);
         СебестоимостьСписания=Списать/ОстКол*ОстСум;
        

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

Процедура ОбработкаПроведения()    
   ИнициализацияПеременных();
   //Рег=СоздатьОбъект("Регистр.ОстаткиТоваров");
   //СтоимРег=СоздатьОбъект("Регистр.СтоимостьТоваров");
   ВыбратьСтроки();
   Пока ПолучитьСтроку()=1 Цикл
      ОстКол=Рег.Остаток(Номенклатура,Склад,"Количество");
      Если ОстКол < Количество Тогда
         Сообщить ("В строке № "+НомерСтроки
         +"не хватает товара"""+Номенклатура+
         """, из необходимых"+Количество+
         "на складе "+Склад+" имеется" +ОстКол+",");
         СтатусВозврата(0);
      КонецЕсли;
      Если СтатусВозврата()<> 1 Тогда
         Продолжить;
      КонецЕсли;
      ОстСум=СтоимРег.Остаток(Номенклатура,"Стоимость");
      ОстКолОбщ=Рег.СводныйОстаток(Номенклатура,,"Количество");
      СебестоимостьСписания=Количество/ОстКолОбщ*ОстСум;
      Регистр.ОстаткиТоваров.Номенклатура=Номенклатура;
      Регистр.ОстаткиТоваров.Склад=Склад;
      Регистр.ОстаткиТоваров.Количество=Количество;
      Регистр.ОстаткиТоваров.ПривязыватьСтроку(НомерСтроки);
      Регистр.ОстаткиТоваров.ДвижениеРасходВыполнить();
      
      Регистр.СтоимостьТоваров.Номенклатура=Номенклатура;
      Регистр.СтоимостьТоваров.Стоимость=СебестоимостьСписания;
      Регистр.СтоимостьТоваров.ДвижениеРасходВыполнить();
      Регистр.Прибыль.Движение(Номенклатура, Контрагент, Сумма-СебестоимостьСписания);
   КонецЦикла;
   Если СтатусВозврата()<>1 Тогда
      Сообщить ("Документ"+ТекущийДокумент()+"не проведен!");
  
Иначе
   Если  Константа.МетодСписания<>Перечисление.МетодыСписания.ПоСреднему Тогда
      СписатьПартии();
   КонецЕсли;
   КонецЕсли;
Регистр.Взаиморасчеты.ДвижениеПриход(Контрагент, Итог("Сумма"));
  
  КонецПроцедуры

Выдает ошибку:
Регистр.Прибыль.Движение(Номенклатура, Контрагент, Сумма-СебестоимостьСписания);
{Документ.РасходнаяНакладная.Модуль Документа(95)}: Операция вычитания не определена для строковых величин

(72) Смотри что у тебя в переменной "Сумма"

Сообщить ("В строке № "+сокрлп(НомерСтроки)
         +"не хватает товара"""+сокрлп(Номенклатура)+

         """, из необходимых"+сокрлп(Количество)+
         "на складе "+сокрлп(Склад)+" имеется" +сокрлп(ОстКол)+",");

пардон. тупость

Регистр.Прибыль.Движение(Номенклатура, Контрагент, Сумма-СебестоимостьСписания);

смотри типы Сумма и СебестоимостьСписания

и еще косяк
обязательно вывалится как-нибудь

СебестоимостьСписания=Количество/ОстКолОбщ*ОстСум;

будет типа - деление на 0

Так а что с ней какая именно строчка, я не сильно пока разбираюсь что такое переменная суммы, вижу СтоимРег и ОстСумм

(73) а что с ней?

(79) ну тебе же явно пишут "Операция вычитания не определена для строковых величин"
Значит тормозись в отладчике на строке где ошибка и смотри чему равны переменные Сумма и СебестоимостьСписания

(79) сумма равна произведению числа на списываемую стоимость, а себестоимость     СебестоимостьСписания=Списать/ОстКол*ОстСум;
и что не то?

(77) была у меня строка
Если Запрос.Количество > 0 тогда
  СредняяСебестоимость=Формат((Запрос.Стоимость/Запрос.Количество),"Ч15.2,");
иначе
  СредняяСебестоимость = "";
КонецЕсли;

но она стала выдавать ошибку что переменная не определена

а извиняюсь это с другого модуля...

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

Процедура СписатьПартии()  
   //РегПартии=СоздатьОбъект("Регистр.ПартииТоваров");
   //СЗ=СоздатьОбъект("СписокЗначений");
    //ВыгрузитьТабличнуюЧасть(СЗ,"Номенклатура");
   //РегПартии.УстановитьЗначениеФильтра("Номенклатура",СЗ,2);
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   РегПартии.ВыгрузитьИтоги(ТЗ,1);
   Если Константа.МетодСписания=Перечисление.МетодыСписания.FIFO Тогда
      Направление = "+";
   Иначе
      Направление="-";
   КонецЕсли;
   ТЗ.Сортировать("+Номенклатура,"+Направление+"Партия",1);
   ВыбратьСтроки();
   Пока ПолучитьСтроку()=1 Цикл
      ОсталосьСписать=Количество;
      ТЗСтрока=0;
      ТЗ.НайтиЗначение(Номенклатура,ТЗСтрока,"Номенклатура");
      Для Ном=ТЗСтрока По ТЗ.КоличествоСтрок() Цикл
         ТЗ.ПолучитьСтрокуПоНомеру(ном);
         ОстКол=ТЗ.Количество;
         ОстСум=ТЗ.Стоимость;
         Списать=МИН(ОстКол,ОсталосьСписать);
         СебестоимостьСписания=Списать/ОстКол*ОстСум;
  
        

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

Процедура ОбработкаПроведения()    
   ИнициализацияПеременных();
   //Рег=СоздатьОбъект("Регистр.ОстаткиТоваров");
   //СтоимРег=СоздатьОбъект("Регистр.СтоимостьТоваров");
   ВыбратьСтроки();
   Пока ПолучитьСтроку()=1 Цикл
      ОстКол=Рег.Остаток(Номенклатура,Склад,"Количество");
      Если ОстКол < Количество Тогда
         Сообщить ("В строке № "+НомерСтроки
         +"не хватает товара"""+Номенклатура+
         """, из необходимых"+Количество+
         "на складе "+Склад+" имеется" +ОстКол+",");
         СтатусВозврата(0);
      КонецЕсли;
      Если СтатусВозврата()<> 1 Тогда
         Продолжить;
      КонецЕсли;
      ОстСум=СтоимРег.Остаток(Номенклатура,"Стоимость");
      ОстКолОбщ=Рег.СводныйОстаток(Номенклатура,,"Количество");
      СебестоимостьСписания=Количество/ОстКолОбщ*ОстСум;
      Регистр.ОстаткиТоваров.Номенклатура=Номенклатура;
      Регистр.ОстаткиТоваров.Склад=Склад;
      Регистр.ОстаткиТоваров.Количество=Количество;
      Регистр.ОстаткиТоваров.ПривязыватьСтроку(НомерСтроки);
      Регистр.ОстаткиТоваров.ДвижениеРасходВыполнить();
      
      Регистр.СтоимостьТоваров.Номенклатура=Номенклатура;
      Регистр.СтоимостьТоваров.Стоимость=СебестоимостьСписания;
      Регистр.СтоимостьТоваров.ДвижениеРасходВыполнить();
      Регистр.Прибыль.Движение(Номенклатура, Контрагент, Число(Сумма)-СебестоимостьСписания);
         КонецЦикла;
   Если СтатусВозврата()<>1 Тогда
      Сообщить ("Документ"+ТекущийДокумент()+"не проведен!");
  
Иначе
   Если  Константа.МетодСписания<>Перечисление.МетодыСписания.ПоСреднему Тогда
      СписатьПартии();
   КонецЕсли;
   КонецЕсли;
Регистр.Взаиморасчеты.ДвижениеПриход(Контрагент, Итог("Сумма"));
  
  КонецПроцедуры


Она в конце формирует прибыль в реестре прибыль, и ведет учет в реестре партий товаров(партия это приходная накладная), как мне сделать(у меня есть отчет который показывает приход по партиям), чтобы когда прибыль сформировалась еще и показала с каких партий это списано(то есть какие накладные, под какими номерами были списаны)в реестре партии товаров

Помогите, пожалуйста отчет выдает ошибку:

<<?>>Перем КолГруппировок, Таб;
{Отчет.АнализПродаж.Форма.Модуль(14)}: Объявления переменных должны быть расположены в начале модуля, процедуры или функции
<<?>>Процедура СформироватьТаблицу(Знач Запрос, Знач НомГруппировки)
{Отчет.АнализПродаж.Форма.Модуль(15)}: Определения процедур и функций должны размещаться перед операторами основной программы
Модуль:


//*******************************************
Процедура ПриОткрытии()
   СЗ.ДобавитьЗначение("Номенклатура");
   СЗ.ДобавитьЗначение("Контрагент");  
КонецПроцедуры

Процедура СдвинутьЗначение ()
   Если СЗ.ТекущаяСтрока()=1 Тогда
      СЗ.СдвинутьЗначение(1, СЗ.ТекущаяСтрока());
   Иначе
      СЗ.СдвинутьЗначение(-1,СЗ.ТекущаяСтрока());
   КонецЕсли;
   КонецПроцедуры
                  Перем КолГруппировок, Таб;
                         Процедура СформироватьТаблицу(Знач Запрос, Знач НомГруппировки)
                            Отступ="";
                            Если НомГруппировки<>1 Тогда
                     Для КолСимвТабуляции=1 По НомГруппировки Цикл
                        Отступ=Отступ+"  ";
                     КонецЦикла;
                  КонецЕсли;
                  Пока Запрос.Группировка(НомГруппировки)=1 Цикл
                     Значение=Отступ+Запрос.ЗначениеУпорядочивания(НомГруппировки);
                     Выручка=Запрос.Выручка;
                     Таб.ВывестиСекцию("Строка");
                     Если НомГруппировки <> КолГруппировок Тогда
                        СформироватьТаблицу(Зарос, НомГруппировки+1);
                     КонецЕсли;
                  КонецЦикла;
               КонецПроцедуры
              
               Процедура Сформировать()
                  Таб=СоздатьОбъект("Таблица");
                  Таб.ИсходнаяТаблица("Таблица");
                  Таб.ВывестиСекцию("Шапка");
                  Запрос=СоздатьОбъект("Запрос");
                  
                  ТекстЗапроса=
                  "//((ЗАПРОС(Запрос1)
                  |Период с НачДата по КонДата;
                  |Номенклатура=Регистр.Прибыль.Номенклатура;
                  |Контрагент=Регистр.Прибыль.Контрагент;
                  |Сумма=Регистр.Прибыль.Сумма;
                  |Функция Прибыль=Сумма(Сумма);";
                  
                  КолГруппировок=0;
                  Для Ном=1 По СЗ.КоличествоСтрок() Цикл
                     Если СЗ.Пометка(Ном)=1 Тогда
                        ТекстЗапроса=ТекстЗапроса+"
                        |Группировка"СЗ.ПолучитьЗначение(Ном)+";";
                        КолГруппировок=КолГруппировок+1;
                     КонецЕсли;
                  КонецЦикла;
                  Если КолГруппировок = 0 Тогда
                     Предупреждение("Нельзя построить отчет без группировок!",60);
                     Возврат;
                  КонецЕсли;
                  Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
                     Возврат;
                  КонецЕсли;
                  СформироватьТаблицу(Запрос,1);
                  Таб.ТолькоПросмотр(1);
                  Таб.Опции(0,0,0,0);
                  Таб.Показать("");
                  КонецПроцедуры

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

Текст модуля:
Перем КолГруппировок, Таб;
Процедура ПриОткрытии()
   СЗ.ДобавитьЗначение("Номенклатура");
   СЗ.ДобавитьЗначение("Контрагент");  
КонецПроцедуры

Процедура СдвинутьЗначение ()
   Если СЗ.ТекущаяСтрока()=1 Тогда
      СЗ.СдвинутьЗначение(1, СЗ.ТекущаяСтрока());
   Иначе
      СЗ.СдвинутьЗначение(-1,СЗ.ТекущаяСтрока());
   КонецЕсли;
КонецПроцедуры
Процедура СформироватьТаблицу(Запрос, НомГруппировки)  
   Отступ="";
   нн=0;
   Если НомГруппировки<>1 Тогда
      Для КолСимвТабуляции=1 По НомГруппировки Цикл
         Отступ=Отступ+"  ";
      КонецЦикла;
   КонецЕсли;
   Пока Запрос.Группировка(НомГруппировки)=1 Цикл
      Значение=Отступ+Запрос.ЗначениеУпорядочивания(НомГруппировки);
      Сумма=Запрос.Сумма;
      Если Запрос.Номенклатура.ЭтоГруппа()=1 Тогда
         Таб.ВывестиСекцию("Группа");
      Иначе
         нн=нн+1;
         Таб.ВывестиСекцию("Строка");
      КонецЕсли;
      Если НомГруппировки <> КолГруппировок Тогда
         СформироватьТаблицу(Запрос, НомГруппировки+1);
      КонецЕсли;
   КонецЦикла;
КонецПроцедуры

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

(86) В  таком виде и не должен выводить ничего с партий ...
Структуру регистра партии и прибыль дай

(86) и не должен.
Пользуйся функциями для останкового регистра - НачОст,КонОст,Приход,Расход

наслаждайся..

на операторе
СредняяСебестоимость=Формат((Запрос.Стоимость/Запрос.Количество)...
.
прога запросто может сломаться, потому что запросто у школяров бывают ситуации когда подвисают суммы без количеств

Да не волнуйтесь я всего лишь по учебнику делаю

(87) Можно поподробнее, пожалуйста, ты меня побуждаешь что то ввести или что бы я что то тебе дал?

(88) а можно пожалуйста, поподробнее, что куда необходимо в моем коде вбить

(92) Замени функция Сумма в тексте запроса на любую из (88) по вкусу.. наслаждайся

(93) Зачем сумма у меня в отчет выводится, я хотел к этой сумму прикрепить партию из регистра партии товаров

ааа.. посмотрел, че ты там понаписал.
У тебя запрос к 2-м регитсрам и нет никакой связи между ними.
Втыкай в переменные текста запроса, чтоб с обоих регистров брались данные , ну и соответствующие функции (для оборотного регистра, это сумма(), для останкового - те что в (88))

|Номенклатура=Регистр.Прибыль.Номенклатура,Регистр.ПартииТоваров.Номенклатура;

(95) А функцию на партию как нужно написать?