БП30 внешняя обработка, проблема с заполнением данных

Форум Программирование Общие вопросы программирования (Dev)

1С:Бухгалтерия 3.0

1. one_strannik 2 15.02.22 15:02 Сейчас в теме

Всем доброго дня!
Пытаюсь дополнить обработку (для БП30, управляемые формы), на форму добавил новую страницу с табл частью "Замена номенклатуры", добавил в процедуру код, чтобы в табличной части "Замена номенклатуры" в первый и второй столбец заносились данные после заполнения их на первой странице в табличной части "Список документов". Код и внешний вид страниц будет представлен ниже.
В итоге, на страницу "Замена номенклатуры" переносится только перечень отобранных документов и то, без упорядочивания.
Просьба помочь решить проблему.

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

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

    ТекОбъект.СписокДокументов.Загрузить(Запрос.Выполнить().Выгрузить());
    ЗначениеВРеквизитФормы(ТекОбъект, "Объект");
    
    
    Запрос1 = Новый Запрос;
    Запрос1.УстановитьПараметр("Ссылка",ТекОбъект.СписокДокументов.ВыгрузитьКолонку("Документ"));
    Запрос1.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |    СчетНаОплатуПокупателюТовары.Ссылка КАК Документ,
    |    СчетНаОплатуПокупателюТовары.Номенклатура КАК Номенклатура
    |ИЗ
    |    Документ.СчетНаОплатуПокупателю.Товары КАК СчетНаОплатуПокупателюТовары
    |ГДЕ
    |    СчетНаОплатуПокупателюТовары.Ссылка В(&Ссылка)
    |
    |УПОРЯДОЧИТЬ ПО
    |    Документ,
    |    Номенклатура";
    
    ТекОбъект.ЗаменаНоменклатуры.Загрузить(Запрос1.Выполнить().Выгрузить());
    ЗначениеВРеквизитФормы(ТекОбъект, "Объект");
    
КонецПроцедуры // ЗаполнитьСписокНаСервере()

Показать

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user823999 22 15.02.22 15:17 Сейчас в теме

(1)
Я бы сделала один запрос вместо двух. А в консоли запросов какой результат второго запроса?

3. one_strannik 2 15.02.22 15:52 Сейчас в теме

результат на скриншоте

Прикрепленные файлы:

5. RustamZz 15.02.22 16:05 Сейчас в теме

(1) У вас на скрине номЕКлатура

4. user726666 15.02.22 15:54 Сейчас в теме

В Запрос1 упорядочивание по ссылочным полям (Документ, Номенклатура). Для правильной сортировки можно указать флаг "Автоупорядочивание" на закладке "Порядок". Но запрос будет не оптимальным. Лучше указывать конкретные реквизиты для сортировки.
В таблице правильно указано наименование колонки "Номенклатура"?

6. one_strannik 2 15.02.22 17:27 Сейчас в теме

(4)

окумент, Номенклатура). Для правил

Спасибо за подсказку по поводу наименования столбца, теперь номенклатура в таблицу "Замена номенклатуры" также, загружается.
Не могли бы Вы более подробно подсказать про "Лучше указывать конкретные реквизиты для сортировки". Также, пробовал флаг "Автоупорядочивание" - сортировка все равно не работает
Причем в консоли запросов все ок (в параметр Ссылка я добавлял документы не по порядку, а в выводе результата они идут по порядку)

Оставьте свое сообщение

E-mail: