1с 8.3. Как мне вывести список договоров из 1с и сравнить со списком из Excel??

Question

[24LID]

Загрузка данных из Excel-файла в 1С.
Загружаем данные из Excel-файла выводим список клиентов из файла Excel и из справочника клиенты, также выводим список договоров из Excel-файла и находим список договоров в справочнике. Задача найти договор по соответствию из Excel файла. Если в 1с нет такого договора - сделать возможность создать договор.

Контрагентов находит выводит список а с договорами сложности
Делаю запрос:

Получаю список договоров (запрос разбил на № Договора и Дату из того что в Excel файле дата не всегда совпадает)

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

Как мне вывести список договоров из 1с и сравнить со списком из Excel? Подскажите пожалуйста

Answer 1

[Дмитрий Кинаш]

В теме один вопрос, а в содержании другой. Будьте аккуратней, если хотите точный ответ.

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

Как видно из тела вопроса - запрос и его результат уже есть.

Как мне вывести список договоров из 1с и сравнить со списком из Excel?

Скопировать результат из 1С в Excel и сравнить таблицы средствами Excel (ВПР или другое).

Comments

[24LID]

Подправил вопрос. Спасибо за замечания

[Дмитрий Кинаш]

24LID, вижу, что исправили заголовок, но не сам вопрос. А в чем собственно проблема? Визуально у вас все есть и вы ищите кому дать две таблички, чтобы их сверили. Контекст задачи у вас в голове и лучше вас никто задачу не сделает. Задавайте конкретные вопросы - не работает левое соединение в запросе, ошибка при записи справочников, непонятные ошибки - тогда сможете получить помощь.

[24LID]

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

Answer 2

[Sub@ru]

Как мне вывести список договоров из 1с и сравнить со списком из Excel? Подскажите пожалуйста

Так вам надо вывести список договор из 1С или всё же сравнить данные из Excel и если есть договора которого нет в 1с добавить его !?

Я так понимаю основные значения для поиска это контрагент и номер договора.
Почему бы вам относительно данных excel по каждой строке не делать запрос в базу по параметрам &контрагент и &номер договора и в случаи если нет результата добавлять новый договор?

Comments

[24LID]

Так имеете ввиду

Стр.Договор         = Документ.бит_стр_ОплатаПоДоговоруПродаж.РасшифровкаПлатежа.НайтиПоНаименованию(Стр.ДоговорExcel, Истина,,стр.НомерДоговора);

[Sub@ru]

24LID, Нет!

Как то так:

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

Запрос надо подогнать под вашу структуру.

[24LID]

Спасибо большое.