Вывод на основании с заполнением серийных номеров

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

8.3.14 Казахстан

1. Laky 15.01.23 15:09 Сейчас в теме

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

Я не очень разбираюсь в программировании 1с но хочется сделать такое.

Вот что я сейчас сделал, у меня заполняется нужный документ, но в нем не заполняются серийные номера. Конфигурация Управления торговли для Казахстана 2.2 помогите доделать код для получения нужного результата.

 Запрос = Новый Запрос;
Запрос.УстановитьПараметр("НомерЗаказ", "%0125791950-0001-1%");
Запрос.Текст = 
	"ВЫБРАТЬ
	|	ЗаказПокупателя.Ссылка
	|ИЗ
	|	Документ.ЗаказПокупателя КАК ЗаказПокупателя
	|ГДЕ
	|	ЗаказПокупателя.Комментарий ПОДОБНО &НомерЗаказ";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписиНомерЗаказа = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписиНомерЗаказа.Следующий() Цикл  
	Сообщить("Номер документа Заказа: " + ВыборкаДетальныеЗаписиНомерЗаказа.Ссылка);
КонецЦикла;
	
	
    	
	
	
	
	
	
	//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

	

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

	
	//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
	
	Запрос = Новый Запрос;  
	Запрос.УстановитьПараметр("Ссылка", ВыборкаДетальныеЗаписиНомерРеализации.Ссылка);
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	РеализацияТоваровУслугСерийныеНомера.НомерСтроки,
		|	РеализацияТоваровУслугСерийныеНомера.СерийныйНомер,
		|	РеализацияТоваровУслугСерийныеНомера.СерийныйНомер.Владелец.Наименование
		|ИЗ
		|	Документ.РеализацияТоваровУслуг.СерийныеНомера КАК РеализацияТоваровУслугСерийныеНомера
		|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
		|		ПО РеализацияТоваровУслугСерийныеНомера.Ссылка = РеализацияТоваровУслуг.Ссылка
		|ГДЕ
		|	РеализацияТоваровУслуг.Ссылка = &Ссылка";
	
	
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписиСерийныеНомера = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписиСерийныеНомера.Следующий() Цикл
		Сообщить("Серийные Номера: " + ВыборкаДетальныеЗаписиСерийныеНомера.СерийныйНомер);   
			КонецЦикла;
	
	//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА





	
	

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

Показать

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

Ответы

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

Свернуть все

2. pavel06 2 16.01.23 18:02 Сейчас в теме

Вам очевидно нужно передавать параметры в запросы далее через переменные,
т.е., например писать в1-ом запросе

Пока ВыборкаДетальныеЗаписиНомерЗаказа.Следующий() Цикл  
    Сообщить("Номер документа Заказа: " + ВыборкаДетальныеЗаписиНомерЗаказа.Ссылка);
 НомДокЗак=ВыборкаДетальныеЗаписиНомерЗаказа.Ссылка;
КонецЦикла;

Во 2-ом:

Запрос.УстановитьПараметр("Ссылка", НомДокЗак);

Пока ВыборкаДетальныеЗаписиНомерРеализации.Следующий() Цикл
        // Вставить обработку выборки ВыборкаДетальныеЗаписи 
        Сообщить("Номер документа Реализации: " + ВыборкаДетальныеЗаписиНомерРеализации.Ссылка);
     НомДокРеал=ВыборкаДетальныеЗаписиНомерРеализации.Ссылка;
    КонецЦикла;

В 3-ем:

Запрос.УстановитьПараметр("Ссылка", НомДокРеал);

И при создании документа соответственно

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

Т.е. считать, что Выборки работают только в пределах циклов Пока.

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

3. Laky 16.01.23 18:42 Сейчас в теме

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

Сейчас документ заполняется но без серийных номеров.
Не могли бы вы помочь с кодом заполнения серийных номеров

4. pavel06 2 16.01.23 20:03 Сейчас в теме

(3)

Сейчас документ заполняется но без серийных номеров

И номенклатура все позиции заполняются в ВозвратТоваровОтПокупателя по документу источнику? У вас эта конфигурация с обыкновенными формами, неуправляемыми? Серийных номеров много?

Можно, наверно, перед 3-им запросом создать ТаблицуЗначений с колонками НомерСтроки и СерийныйНомер,
в нее в цикле 3-его запроса Пока записать номера строк и сер.номера, чтоб они не только выводились на экран, но и где-то сохранены были. (Идея та же, что с переменными).

А потом, после оператора заполнения документа его сохранить(если он нормально заполняется у вас), потом добавить в его табличную часть Серийные номера номера строк и сер.номера из ТаблицыЗначений. Потом снова сохранить документ.
Потом уже можно открывать его в форме для просмотра. Примерно так я бы пробовал.

5. Laky 17.01.23 18:34 Сейчас в теме

(4)

И номенклатура все позиции заполняются в ВозвратТоваровОтПокупателя по документу источнику?

Да
(4)

У вас эта конфигурация с обыкновенными формами, неуправляемыми?

да

(4)

Серийных номеров много?

все зависит от документа реализации бывает много бывает 1

(4)

Можно, наверно, перед 3-им запросом создать ТаблицуЗначений с колонками НомерСтроки и СерийныйНомер,
в нее в цикле 3-его запроса Пока записать номера строк и сер.номера, чтоб они не только выводились на экран, но и где-то сохранены были. (Идея та же, что с переменными).

не могли бы вы показать пример как это все что вы описали сделать? с учетом того что бывает один товарная позиция но продажа его 5 шт значит 5 серийников. а если два товара то у второго тоже количество серийников тоже зависит от того сколько продано.

6. pavel06 2 19.01.23 13:04 Сейчас в теме

(5)

не могли бы вы показать пример как это все что вы описали сделать?

Я вообще-то не программист 1С, а только время от времени, что-то такое делаю.
Поэтому открываю https://helpme1s.ru/tablica-znachenij-v-yazyke-1s-8-v-primerax
и копирую перед 3-им запросом:

/// Как создать таблицу значений в 1с 8.3, 8.2
 
    // с таблицей значений можно работать только на сервере 
    ТабСер = Новый ТаблицаЗначений;    
 
    /// Как добавить колонки в таблицу значений в 1с 8.3, 8.2
 
    ТабСер.Колонки.Добавить("Владелец");
    ТабСер.Колонки.Добавить("НомерСтр");
    ТабСер.Колонки.Добавить("СерНом");

Показать

Внутри цикла Пока 3-его запроса
(если там серийные номера вам сообщаются нормально)

Сообщить("Серийные Номера: " + ВыборкаДетальныеЗаписиСерийныеНомера.СерийныйНомер);
Стр = ТабСер.Добавить();
     Стр.Владелец = ВыборкаДетальныеЗаписиСерийныеНомера.Наименование;
    Стр.НомерСтр = ВыборкаДетальныеЗаписиСерийныеНомера.НомерСтроки;
    Стр.СерНом = ВыборкаДетальныеЗаписиСерийныеНомера.СерийныйНомер;

Получившуюся таблицу ТабСер можно вывести на экран для проверки заполнения, как выводится погуглить.

Потом после НовыйДокумент.Заполнить( видимо надо НовыйДокумент.Сохранить();
и смотреть в вашем конфигураторе как в документе устроена его табличная часть про серийные номера с привязкой к владельцу серномера, как ее колонки называются, чтоб туда из ТабСер эти строчки добавлять(если надо, типы значений переделывать),
типа, например,

Для Каждого Стр Из ТабСер Цикл
НоваяСтрока.ИмяТабЧасти.Добавить(); 
НоваяСтрока.СерийныйНомер=Стр.СерНом
НоваяСтрока.ВладелцСерийногоНомера=Стр.Наименование;
КонецЦикла;
НовыйДокумент.Сохранить();

или по-другому в зависимости от вашей конфигурвции. (Может в регистре сведений еще эти серномера хранятся и туда надо заносить)

Потом смотреть, что получается в документе (на тестовой базе) и поправлять

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

E-mail: