БП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: