Соединение таблиц

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

Платформа 1С v8.3

1. AT_Kam 46 23.11.14 16:54 Сейчас в теме

Здравствуйте!!!
Помогите пожалуйста, делаю отчет в 1с бухгалтерия 3
Необходимо соединить в одну таблицу.
ТЗ1 поступлению товаров и услуг
"Контрагент","Сумма","СуммаНДС","номерСчФактуры"
ТЗ списание с расчетного счета (банковские выписки)
"Контрагент","Сумма","номервхдокумента"
У меня не получается соединить так, чтобы
ТЗ1 была полностью и ТЗ2 была полностью, без повторов.
ТЗ
"Контрагент","Сумма","СуммаНДС","номерСчФактуры","Сумма","номервхдокумента"

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

Ответы

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

Свернуть все

2. sssss_aaaaa_2011 23.11.14 16:57 Сейчас в теме

Запрос то покажешь или его надо угадать?

3. AT_Kam 46 23.11.14 16:59 Сейчас в теме

(2) sssss_aaaaa_2011,

ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
	ПоступлениеТоваровИУслуг.ДатаСчетФактуры,
	ПоступлениеТоваровИУслуг.НомерСчетФактуры,
	ПоступлениеТоваровИУслуг.ДатаНакладной,
	ПоступлениеТоваровИУслуг.НомерНакладной,
	ПоступлениеТоваровИУслуг.НаменованиеТоваровИУслуг,
	ЕСТЬNULL(ПоступлениеТоваровИУслуг.Контрагент, "") КАК Контрагент,
	ПоступлениеТоваровИУслуг.НомерДоговора,
	ПоступлениеТоваровИУслуг.ДоговорКонтрагентаДата,
	ПоступлениеТоваровИУслуг.СуммаДокумента КАК СуммаДокумента,
	ПоступлениеТоваровИУслуг.СуммаНДСДокумента КАК СуммаНДСДокумента,
	ОплатаПоставщикам.СуммаДокумента КАК СуммаОплаты,
	ОплатаПоставщикам.НомерВходящегоДокумента,
	ОплатаПоставщикам.ДатаВходящегоДокумента,
	ОплатаПоставщикам.НазначениеПлатежа,
	ОплатаПоставщикам.Контрагент КАК Контрагент1
ИЗ
	(ВЫБРАТЬ РАЗЛИЧНЫЕ
		ЕСТЬNULL(СчетФактураИПоступлениеТоваровИУслуг.Контрагент, "") КАК Контрагент,
		СчетФактураИПоступлениеТоваровИУслуг.НаменованиеТоваровИУслуг КАК НаменованиеТоваровИУслуг,
		СчетФактураИПоступлениеТоваровИУслуг.ДоговорКонтрагентаДата КАК ДоговорКонтрагентаДата,
		СчетФактураИПоступлениеТоваровИУслуг.НомерНакладной КАК НомерНакладной,
		СчетФактураИПоступлениеТоваровИУслуг.ДатаНакладной КАК ДатаНакладной,
		ЕСТЬNULL(СчетФактураИПоступлениеТоваровИУслуг.НомерСчетФактуры, 0) КАК НомерСчетФактуры,
		ЕСТЬNULL(СчетФактураИПоступлениеТоваровИУслуг.ДатаСчетФактуры, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаСчетФактуры,
		ЕСТЬNULL(СчетФактураИПоступлениеТоваровИУслуг.СуммаДокумента, 0) КАК СуммаДокумента,
		ЕСТЬNULL(СчетФактураИПоступлениеТоваровИУслуг.СуммаНДСДокумента, 0) КАК СуммаНДСДокумента,
		ЗакупленныеТоварыКомитентовОбороты.Регистратор КАК Регистратор,
		СчетФактураИПоступлениеТоваровИУслуг.НомерДоговора КАК НомерДоговора
	ИЗ
		РегистрНакопления.ЗакупленныеТоварыКомитентов.Обороты(&ПериодНач, &ПериодКон, Регистратор, ) КАК ЗакупленныеТоварыКомитентовОбороты
			ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
				ПоступлениеТоваровУслуг.Контрагент КАК Контрагент,
				ВЫРАЗИТЬ(ПоступлениеТоваровУслуг.Комментарий КАК СТРОКА(100)) КАК НаменованиеТоваровИУслуг,
				ПоступлениеТоваровУслуг.ДоговорКонтрагента.Дата КАК ДоговорКонтрагентаДата,
				ПоступлениеТоваровУслуг.НомерВходящегоДокумента КАК НомерНакладной,
				ПоступлениеТоваровУслуг.ДатаВходящегоДокумента КАК ДатаНакладной,
				СчетФактураПолученный.НомерВходящегоДокумента КАК НомерСчетФактуры,
				СчетФактураПолученный.ДатаВходящегоДокумента КАК ДатаСчетФактуры,
				ПоступлениеТоваровУслуг.СуммаДокумента КАК СуммаДокумента,
				СчетФактураПолученный.СуммаНДСДокумента КАК СуммаНДСДокумента,
				ПоступлениеТоваровУслуг.Ссылка КАК Ссылка,
				ПоступлениеТоваровУслуг.ДоговорКонтрагента.Номер КАК НомерДоговора
			ИЗ
				Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
					ЛЕВОЕ СОЕДИНЕНИЕ Документ.СчетФактураПолученный КАК СчетФактураПолученный
					ПО ПоступлениеТоваровУслуг.Ссылка = СчетФактураПолученный.ДокументОснование
			ГДЕ
				ПоступлениеТоваровУслуг.Дата МЕЖДУ &ПериодНач И &ПериодКон
				И ПоступлениеТоваровУслуг.Проведен = ИСТИНА
				И ПоступлениеТоваровУслуг.Организация = &Организация) КАК СчетФактураИПоступлениеТоваровИУслуг
			ПО ЗакупленныеТоварыКомитентовОбороты.Регистратор = СчетФактураИПоступлениеТоваровИУслуг.Ссылка
	ГДЕ
		ЗакупленныеТоварыКомитентовОбороты.Регистратор ССЫЛКА Документ.ПоступлениеТоваровУслуг) КАК ПоступлениеТоваровИУслуг
		ПОЛНОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ РАЗЛИЧНЫЕ
			СписаниеСРасчетногоСчета.Контрагент КАК Контрагент,
			СписаниеСРасчетногоСчета.СуммаДокумента КАК СуммаДокумента,
			СписаниеСРасчетногоСчета.НазначениеПлатежа КАК НазначениеПлатежа,
			СписаниеСРасчетногоСчета.НомерВходящегоДокумента КАК НомерВходящегоДокумента,
			СписаниеСРасчетногоСчета.ДатаВходящегоДокумента КАК ДатаВходящегоДокумента
		ИЗ
			РегистрБухгалтерии.Хозрасчетный.ОборотыДтКт(&ПериодНач, &ПериодКон, Регистратор, , , СчетКт = ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.РасчетныеСчета), , ) КАК ХозрасчетныйОборотыДтКт
				ВНУТРЕННЕЕ СОЕДИНЕНИЕ Документ.СписаниеСРасчетногоСчета КАК СписаниеСРасчетногоСчета
				ПО ХозрасчетныйОборотыДтКт.Регистратор = СписаниеСРасчетногоСчета.Ссылка
		ГДЕ
			СписаниеСРасчетногоСчета.Организация = &Организация
			И СписаниеСРасчетногоСчета.Дата МЕЖДУ &ПериодНач И &ПериодКон
			И СписаниеСРасчетногоСчета.Комментарий ПОДОБНО &Комментарий) КАК ОплатаПоставщикам
		ПО ПоступлениеТоваровИУслуг.Контрагент = ОплатаПоставщикам.Контрагент

Показать

4. AT_Kam 46 23.11.14 20:29 Сейчас в теме

Сделал отбор по номеру накладной,
Строки повторяющие удаляются, сумма оплаты по банковским выпискам повторяются, как справиться с этой бедой.

  Данные.Сортировать("НомерНакладной,ДатаНакладной");
	  Для Сч=2-Данные.Количество() По 0 Цикл
		  Если Данные[-Сч].НомерНакладной = Данные[1-Сч].НомерНакладной И Данные[-Сч].ДатаНакладной = Данные[1-Сч].ДатаНакладной  Тогда
			  Если Данные[-Сч].НомерНакладной <>0 Тогда
			  	  Данные.Удалить(-Сч);
			  КонецЕсли;
		  КонецЕсли;  	
	  КонецЦикла;

Показать

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

E-mail: