РезультатЗапроса1 содержит номенклатуру с положительными и отрицательными остатками. Как заполнить табличную часть поступления со всеми отрицательными остатками из запроса?
Как я написал - создаются новые документы с одним наименованием номенклатуры.

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

Выгружай в тз. Зачем мучать циклы.

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

Тз = запрос.выполнить().выгрузить().
Или, если уж цикл, то использовать ЗаполнитьЗначеняСвойств()

У тебя документ внутри цикла создается. Лучше сперва провести проверку создавать/не создавать, а затем циклом заполнять табличную часть.

Ну, либо переменную ввести, а-ля ДокументСоздан, определив её перед циклом и сменив после создания документа.

Если НЕ ДокументСоздан Тогда
НовоеПоступление = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
ДокументСОздан = Истина;
КонецЕсли;

Зачем документ в цикле то создаешь, сделай это перед циклом и после цикла запишешь, если ТабЧасть не пустая.
Если ТабличнаяЧасть.Количество() > 0 тогда
  НовоеПоступление.Записать();
КонецЕсли;

(0) Попробуйте нанять Программиста.
Либо начать работу с Франчайзи.
Либо работать с фрилансером.

...
Бухгалтер - "Программист", конечно хорошо, но как то лучше быть кем то одним :)

...
А так, в коде в (0):


  НовоеПоступление = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
    НовоеПоступление.Дата = ТекущаяДата();
    НовоеПоступление.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.Товары;
    НовоеПоступление.Организация = Организация1;

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

    НовоеПоступление.Записать();

+(6)  Перед: КонецЦикла; , поставить КонецЕсли;

Так же дописать проверку, как в (5), перед записью документа, что бы не было пустых документов :)

+(6) Табличная часть документа ограничена "99999" строк.

Да и в запросе можно сразу ограничить на только отрицательные количества. Будет как минимум на порядок быстрее работать.