Пока Выборка.Следующий() Цикл
       ЧекККМ = Выборка.Ссылка.ПолучитьОбъект();

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

не знаю как это сделать - подскажите??? сам не программист 1С - но приходится влазить.

Если в выборке одна запись, тогда

Товар.Склад = ВыборкаСклад[0].Склад

а если несколько ?

Если ВыборкаСклад.Следующий() Тогда
        Товар.Склад =СкладВыборкаДетальныеЗаписи.Склад;
Конецесли;

Запрос в цикле ?
Это очень плохо.
Надо переработать сам алгоритм получения Склада, а для этого нужен код который формирует Выборку.

Пока Выборка.Следующий() Цикл

Необходимо знать что написано до этой строки.

{Форма.Форма.Форма(39)}: Значение не является значением объектного типа (Склад)
Товар.Склад = ВыборкаСклад[0].Склад;

И чем №3 отличается от №2 ?

ЗапросЧековККМ = Новый Запрос;

ЗапросЧековККМ.Текст =
"ВЫБРАТЬ
| ЧекККМ.Ссылка как Ссылка
|ИЗ
| Документ.ЧекККМ КАК ЧекККМ
|ГДЕ НЕ ЧекККМ.Проведен";

Выборка=ЗапросЧековККМ.Выполнить().Выбрать();

Да, запрос надо-бы переписать в один

Что нужно получить в результате?

А что это за хрень - Товар.Склад ?

В документ так просто не впишешься

Да Бог с ним запросом - как мне из РегистраСведений.РаспределениеПродаж складу товара присвоить значение - выбранное запросом?

РаспределениеПродаж

Измерения

- Магазин
- НоменклатурнаяГруппа
- УдалитьКассаККМ
- РабочееМесто

Ресурсы
- Склад

в конфигураторе смотрю, Тип ресурса Склад - СправочникиСссылка.Склады

РаспределениеПродаж - независимый? непериодический?

нельзя присвоить значение. можно только записать набор записей с заменой или без.

Набор = РегистрыСведений.Имя.СоздатьНаборЗаписей();
Набор.Отбор.ИмяРеквОтбора.Установить(Значение);
НовСтрока = Набор.Добавть();
НовСтрока.ИмяРевизита = Значние;
Набор.Записать();

это я буду записывать в РегистрСведений? правильно я понимаю?

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



независимый, непереодический

Полю Склад чего - документа?

Перед тестированием , сделайте архивную копию !!!!!

Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
|    ЧекККМТовары.*,
|    РаспределениеПродаж.Склад КАК Склад
|ИЗ
|    Документ.ЧекККМ.Товары КАК ЧекККМТовары
|        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.РаспределениеПродаж  КАК РаспределениеПродаж 
|        ПО ЧекККМТовары.Номенклатура.НоменклатурнаяГруппа = РаспределениеПродаж .НоменклатурнаяГруппа
|ГДЕ
|    НЕ ЧекККМТовары.Ссылка.Проведен";

Выборка = Запрос.Выполнить().выбрать();
МакКвоВТранзакции = 500;
ТекКол = 0;
НачатьТранзакцию();
ТекДок = Неопределено;
пока Выборка.Следующий() цикл 
    ТекКол = ТекКол + 1;
    Если ТекКол = МакКвоВТранзакции тогда 
        ЗафиксироватьТранзакцию();
        НачатьТранзакцию();
        ТекКол = 0;
    КонецЕсли;
    
    Если НЕ ЗначениеЗаполнено(ТекДок) тогда
        ТекДок = Выборка.Ссылка.ПолучитьОбъект();
                ТекДок.Товары.Очистить(); 
    ИначеЕсли ТекДок <> Выборка.Ссылка тогда
        ТекДок.Записать();
        ТекДок = Выборка.Ссылка.ПолучитьОбъект();
                ТекДок.Товары.Очистить(); 

    КонецЕсли;
        НоваяСтрока = ТекДок.Товары.Добавить();
        ЗаполнитьЗначенияСвойств(НоваяСтрока, Выборка,,"Ссылка,НомерСтроки");

Конеццикла;
ЗафиксироватьТранзакцию();

Товаров в документе - сам принцип объясните, как обрашаться к значению Реквизита в РегистреСведений

(14) Вполне прилично.
Выборку сгруппировать по Документ,строка и перебирать по группировкам - тогда не надо отслеживать ТекДок

Насколько я понял, Вам необходимо перебрать все не проведенные чекиККМ и для табличной части Товары проставить Склад , такой какой указан для номенклатурной группы из регистра "РаспределениеПродаж".
Если это так, то используйте мой код ( сделав архивную копию )

К регистру - прочитать - запросом, записать - набор записей/менеджер ....
К документу - для изменения нужно иметь обЪект, а не выборку

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

Там не получиться два поля Склад ?

получится...

Нет. Через * присвоится Склад1, а тот что указан явно через псевдоним будет с наименованием Склад.
Единственное, что опасно, это если в регистре сведений будет много записей с одной номенклатурной группой, это надо ограничить на уровне Магазина ( насколько видно из архитектуры Регистра)

Посмотрел в УТП. Четто не догнал - Склад реквизит Шапки.
А если в ТЧ.Товары будут товары с разными Ном.Группами (Складами) - что Вы будете делать ?

для каждого товара в ТЧ есть свой склад - который надо заполнить из регистра сведений на основании Номенклатурной группы.

странно - взял кусок кода из конфигурации

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

когда я пишу - Товар.Склад = Выборка.Склад - ничего не присваивается

это нужно писать после строки

Пока Выборка.Следующий() Цикл

и до строки

КонецЦикла

А в Выборке хоть что-то есть?


А где видно что пишется до и после?

все - разобрался - всем спасибо...

проблема была здесь

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

Я что-то пропустил ?

martyn, выделяйте код! В следующий раз удалю сообщение.

"Ты суслика видишь?...."

а он есть... еще раз всем спасибо



понял