Имя: Пароль:
1C
1С v8
Задваивает контрагентов в обработке
0 Vladimir2503
 
28.03.13
18:58
Здравствуйте!!!
Задваивает контрагентов.

Платформа 8.2
Бухгалтерия предприятия, редакция 2.0 (2.0.45.5)

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

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

КонецПроцедуры


сейчас выводит так.

http://www.fotolink.su/v.php?id=6f2fb5663c038550a5d5a3500487d421

а нужно

http://www.fotolink.su/v.php?id=6aaea17e8e66153451fd07e02e09a521
1 Птица
 
28.03.13
19:00
А автор обработки недоступен?
2 zladenuw
 
28.03.13
19:01
где к регистру бухи. сгруппируй по контрагенту
3 Vladimir2503
 
28.03.13
19:43
А автор обработки недоступен? (1)

В том то и дело что не доступен.
А я в программировании новичок.
4 Vladimir2503
 
28.03.13
20:13
где к регистру бухи. сгруппируй по контрагенту (2)

Помогите кто нибудь правильно сгруппировать!!!
5 Umga2002
 
28.03.13
20:29
Брось Каку.... Не твое это....
Программист всегда исправляет последнюю ошибку.