ТиС 7.7 Внешняя обработка на выборку остатков из регистра.
В представленном виде работает. НО надо добавить в итоговую таблицу еще и колонку с артикулом, чтобы потом отсортировать по ней. Пока попытки это сделать не увенчались успехом.

   ТабОстатков = СоздатьОбъект("ТаблицаЗначений");  
   ТабОстатков.НоваяКолонка("Код");
   ТабОстатков.НоваяКолонка("ВсегоОст");
   ТабОстатков.НоваяКолонка("Наименование");
   тзОст = "
   |SELECT    
   | Код = :Преф + Спр.Code ,
   | Рег.КоличествоОстаток as ВсегоОст,      
   | Спр.Descr as Наименование
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |JOIN #vr as vr ON vr.code=Спр.code";  
   РС.Выполнить("DROP TABLE #vr");
   РС.Выполнить("CREATE TABLE #vr (code char(10))");                      
   спНомН =  ПолучитьНоменклатуруПоН(ВидБазы);  
   Для н=1 по спНомН.РазмерСписка() Цикл          
       тКод = СокрЛП(спНомН.ПолучитьЗначение(н)) ;  
       тКод = Прав(тКод,СтрДлина(тКод)-1) ;
       РС.Выполнить("INSERT INTO #vr (code) VALUES ('"+тКод+"')") ;
   КонецЦикла;
   ТТ = СоздатьОбъект("ТаблицаЗначений");
   РС.УстановитьТекстовыйПараметр("ГрРасч",ТекущаяДата());
   РС.УстановитьТекстовыйПараметр("Преф",?(ВидБазы="Р","р","о"));  
   Сообщить(тзОст);
   РС.ВыполнитьИнструкцию(тзОст,ТТ,1);
   РС.Выполнить("DROP TABLE #vr");
   Возврат ТабОстатков;

(0) весьма забавное условие на код

А так,

| ,$Спр.Артикул as Артикул

(1) в select ?

да

И это, почему фильтрацию по коду делаешь? Еще и через инсерт во временную табличку ?
К чужой базе запрос что ли ?

(4) да. запрос и к своей и к чужой базе.
это я еще переделываю. надо отловить двойные позиции, т.е. с одинаковыми Артикулами.
Вроде выполняется, но колонка Артикула пустая.

А почему Чар(10)?
Почему бы не УложитьСписокОбъектов() ?
Почему бы не использовать автогенерируемые имена временных таблиц?

(6) >>>Почему бы не УложитьСписокОбъектов() ?

для строк не выйдет - будет строку к char(9) приводить...

(6) это для меня сложно... да и это не мой код, я просто дорабатываю.

(5) дык а сам артикул у данной номенклатуры заполнен хоть в базе ?

(9) упс. на старой копии делаю.
а как сделать чтобы сортировал по Артикулу?

(10) в конец  текста запроса воткни
order by $Спр.Артикул

(10) order by $спр.Артикул

а потом простым перебором в цикле перебрать на поиск одинаковых. А нет никакого метода, который бы искал одинаковые значения в таблице значений?

(13) дык в запросе и ищи сразу одинаковые.

Хотя и в ТЗ можно, заполнить единичками служебную колонку и свернуть по ней, потом отсортировать по убыванию.
Там где >1 - дубель

но проще в запросе
:)

(15) Мне не просто найти надо. мне еще количество просуммировать надо у двойных.
а каким образом в ТЗ или запросе искать? с помощью какие методов?

(16) дык суммируй..

group by в тексте запроса + having count(*)>1

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

(17) Сейчас ей еще про группировочные поля объяснять придется...
она ж Бол читать не будет....

(17)поняла что для чего. а куда именно (после чего) поставить эти конструкции?
(19) Уже нашла, читаю.

(20) гроуп бай перед ордер, только учти, если сворачивать будешь по артикулу - то само наименование номенклатуры ужо не увидишь.. если нужна еще и номенклатура - нужно будет подзапрос писать, в котором найти дубли и уже по этой табличке фильтровать основной запрос

(21) не совсем поняла. если свернуть по артикулу, то другие столбцы пропадут?

(22) яя-натюрлих, останется только сумма (количество)

(23) так не пойдет. мне надо еще и Код сохранить.

(24) тогда .... общую сумму кому лепить ?

к примеру у тебя 3 номенклатуры с одинаковым артикулом будет

но с разными наименованиями

(26) можно эту сумму во все прописать или последнему в списке

тзОст = "
   |SELECT    
   | Преф + Спр.Code as Код ,
   | Рег.КоличествоОстаток as ВсегоОст,      
   | Спр.Descr as Наименование ,
   | $Спр.Артикул as Артикул
   |
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |inner  JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |inner JOIN #vr as vr ON vr.code=Спр.code
   |where $Спр.Артикул in
   |    (select $С.Артикул from $Справочник.Номенклатура as С group by $С.Артикул having Count($С.Артикул)>1)
   |
   |
   |";

где Преф, там : добавь спереди

Ёпрст4 , ответь в почте, плз.

(29) Как-то оно очень сильно сворачивает. Табличка раза в 4 меньше стала, хотя по факту двойных-тройных очень мало. Может дело в том что артикулы все разных форматов? Например, 1 , 209-01, 306-2, 456-ПП, 432С3 и т.п.

(32) дык проверить то просто

(33) что-то не могу сообразить на каком этапе проверить.

(34) select $С.Артикул, Count($С.Артикул) ВсегоЗаписей from $Справочник.Номенклатура as С group by $С.Артикул having Count($С.Артикул)>1

Как думаешь, зачем и что покажет?

select $С.Артикул, Count(*) ВсегоЗаписей from $Справочник.Номенклатура as С group by $С.Артикул having Count(*)>1

(35) у ё..
:)

ТабОстатков = СоздатьОбъект("ТаблицаЗначений");  
   ТабОстатков.НоваяКолонка("Код");
   ТабОстатков.НоваяКолонка("ВсегоОст");
   ТабОстатков.НоваяКолонка("Наименование");
   тзОст = "
   |SELECT    
   | Код = :Преф + Спр.Code ,
   | Рег.КоличествоОстаток as ВсегоОст,      
   | Спр.Descr as Наименование,
   | Спр.$Артикул Артикул
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |JOIN #vr as vr ON vr.code=Спр.code
   |ORDER BY Спр.$Артикул
   |";  

   РС.Выполнить("DROP TABLE #vr");

   РС.Выполнить("CREATE TABLE #vr (code char(10))");                      

   спНомН =  ПолучитьНоменклатуруПоН(ВидБазы);  
   Для н=1 по спНомН.РазмерСписка() Цикл          
       тКод = СокрЛП(спНомН.ПолучитьЗначение(н)) ;  
       тКод = Прав(тКод,СтрДлина(тКод)-1) ;
       РС.Выполнить("INSERT INTO #vr (code) VALUES ('"+тКод+"')") ;

   КонецЦикла;
   ТТ = СоздатьОбъект("ТаблицаЗначений");
   РС.УстановитьТекстовыйПараметр("ГрРасч",ТекущаяДата());
   РС.УстановитьТекстовыйПараметр("Преф",?(ВидБазы="Р","р","о"));  
   Сообщить(тзОст);
   РС.ВыполнитьИнструкцию(тзОст,ТТ,1);
   РС.Выполнить("DROP TABLE #vr");

   Возврат ТабОстатков;

надо и себе поставить такую прекрасную фотку в личку, что бы  и мне помогали так активно )))

(39) Не помогают?

(40)неа

(41) Может просто ответ настолько очевиден, что лень писать?

(42)v8: Заголовки ресурсов в скд как вариант

(35)-(38) Ничего не поняла.

// А так Понятно?
   ТабОстатков = СоздатьОбъект("ТаблицаЗначений");  
   ТабОстатков.НоваяКолонка("Код");
   ТабОстатков.НоваяКолонка("ВсегоОст");
   ТабОстатков.НоваяКолонка("Наименование");
   ТабОстатков.НоваяКолонка("Артикул");
   тзОст = "
   |SELECT    
   | Код = :Преф + Спр.Code ,
   | Рег.КоличествоОстаток as ВсегоОст,      
   | Спр.Descr as Наименование,
   | Спр.$Артикул Артикул
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |JOIN #vr as vr ON vr.code=Спр.code
   |ORDER BY Спр.$Артикул
   |";  

   РС.Выполнить("DROP TABLE #vr");


   РС.Выполнить("CREATE TABLE #vr (code char(10))");                      


   спНомН =  ПолучитьНоменклатуруПоН(ВидБазы);  
   Для н=1 по спНомН.РазмерСписка() Цикл          
       тКод = СокрЛП(спНомН.ПолучитьЗначение(н)) ;  
       тКод = Прав(тКод,СтрДлина(тКод)-1) ;
       РС.Выполнить("INSERT INTO #vr (code) VALUES ('"+тКод+"')") ;


   КонецЦикла;
   ТТ = СоздатьОбъект("ТаблицаЗначений");
   РС.УстановитьТекстовыйПараметр("ГрРасч",ТекущаяДата());
   РС.УстановитьТекстовыйПараметр("Преф",?(ВидБазы="Р","р","о"));  
   Сообщить(тзОст);
   РС.ВыполнитьИнструкцию(тзОст,ТТ,1);
   РС.Выполнить("DROP TABLE #vr");


   Возврат ТабОстатков;

(44) Что именно непонятно?

(46) да всё.. к чему этот не рабочий код ?

(47)?

(47) Неть семерки под рукой, но с запросом вроде должно канать

(45) максимум что этот код сделает. так это выведет номенклатуру с остатком отсортированную по артикулу. это уже сделано. Вопрос стоит в сложении остатков по позициям с одинаковыми артикулами.

(50) И? Что сложного-то?!

ТабОстатков = СоздатьОбъект("ТаблицаЗначений");  
   ТабОстатков.НоваяКолонка("Код");
   ТабОстатков.НоваяКолонка("ВсегоОст");
   ТабОстатков.НоваяКолонка("Наименование");
   ТабОстатков.НоваяКолонка("Артикул");
   тзОст = "
   |SELECT    
   | Код = :Преф + MAX(Спр.Code) ,
   | SUM(Рег.КоличествоОстаток) as ВсегоОст,      
   | MAX(Спр.Descr) as Наименование,
   | Спр.$Артикул Артикул
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |JOIN #vr as vr ON vr.code=Спр.code
   |GROUP BY Спр.$Артикул
   |ORDER BY Спр.$Артикул
   |";  

   РС.Выполнить("DROP TABLE #vr");



   РС.Выполнить("CREATE TABLE #vr (code char(10))");                      



   спНомН =  ПолучитьНоменклатуруПоН(ВидБазы);  
   Для н=1 по спНомН.РазмерСписка() Цикл          
       тКод = СокрЛП(спНомН.ПолучитьЗначение(н)) ;  
       тКод = Прав(тКод,СтрДлина(тКод)-1) ;
       РС.Выполнить("INSERT INTO #vr (code) VALUES ('"+тКод+"')") ;



   КонецЦикла;
   ТТ = СоздатьОбъект("ТаблицаЗначений");
   РС.УстановитьТекстовыйПараметр("ГрРасч",ТекущаяДата());
   РС.УстановитьТекстовыйПараметр("Преф",?(ВидБазы="Р","р","о"));  
   Сообщить(тзОст);
   РС.ВыполнитьИнструкцию(тзОст,ТТ,1);
   РС.Выполнить("DROP TABLE #vr");



   Возврат ТабОстатков;

ну для вящей красоты можно и по-другому из(ъе../врати)ться

(52) дык это же не верно. Одинаковый артикул может быть у разных наименований.

(54) Конечно :)
А коли подумать :)))

(54) А код и наименование тогда вообще зачем?

(54) Если нужны остатки артикулов тогда:
ТабОстатков = СоздатьОбъект("ТаблицаЗначений");  
   ТабОстатков.НоваяКолонка("Код");
//    ТабОстатков.НоваяКолонка("ВсегоОст");
//    ТабОстатков.НоваяКолонка("Наименование");
   ТабОстатков.НоваяКолонка("Артикул");
   тзОст = "
   |SELECT    
//   | Код = :Преф + MAX(Спр.Code) ,
   | SUM(Рег.КоличествоОстаток) as ВсегоОст,      
//   | MAX(Спр.Descr) as Наименование,
   | Спр.$Артикул Артикул
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |JOIN #vr as vr ON vr.code=Спр.code
   |GROUP BY Спр.$Артикул
   |ORDER BY Спр.$Артикул
   |";  

   РС.Выполнить("DROP TABLE #vr");




   РС.Выполнить("CREATE TABLE #vr (code char(10))");                      




   спНомН =  ПолучитьНоменклатуруПоН(ВидБазы);  
   Для н=1 по спНомН.РазмерСписка() Цикл          
       тКод = СокрЛП(спНомН.ПолучитьЗначение(н)) ;  
       тКод = Прав(тКод,СтрДлина(тКод)-1) ;
       РС.Выполнить("INSERT INTO #vr (code) VALUES ('"+тКод+"')") ;




   КонецЦикла;
   ТТ = СоздатьОбъект("ТаблицаЗначений");
   РС.УстановитьТекстовыйПараметр("ГрРасч",ТекущаяДата());
//   РС.УстановитьТекстовыйПараметр("Преф",?(ВидБазы="Р","р","о"));  
   Сообщить(тзОст);
   РС.ВыполнитьИнструкцию(тзОст,ТТ,1);
   РС.Выполнить("DROP TABLE #vr");




   Возврат ТабОстатков;

ТабОстатков = СоздатьОбъект("ТаблицаЗначений");  
//    ТабОстатков.НоваяКолонка("Код");
   ТабОстатков.НоваяКолонка("ВсегоОст");

//    ТабОстатков.НоваяКолонка("Наименование");

   ТабОстатков.НоваяКолонка("Артикул");
   тзОст = "
   |SELECT    
//   | Код = :Преф + MAX(Спр.Code) ,

   | SUM(Рег.КоличествоОстаток) as ВсегоОст,      
//   | MAX(Спр.Descr) as Наименование,

   | Спр.$Артикул Артикул
   |FROM
   | $РегистрОстатки.ОстаткиТМЦ(:ГрРасч~, ,
   |    ,
   |    (Номенклатура),(Количество) ) as Рег
   |JOIN $Справочник.Номенклатура as Спр on Рег.Номенклатура = Спр.ID  
   |JOIN #vr as vr ON vr.code=Спр.code
   |GROUP BY Спр.$Артикул
   |ORDER BY Спр.$Артикул
   |";  

   РС.Выполнить("DROP TABLE #vr");





   РС.Выполнить("CREATE TABLE #vr (code char(10))");                      





   спНомН =  ПолучитьНоменклатуруПоН(ВидБазы);  
   Для н=1 по спНомН.РазмерСписка() Цикл          
       тКод = СокрЛП(спНомН.ПолучитьЗначение(н)) ;  
       тКод = Прав(тКод,СтрДлина(тКод)-1) ;
       РС.Выполнить("INSERT INTO #vr (code) VALUES ('"+тКод+"')") ;





   КонецЦикла;
   ТТ = СоздатьОбъект("ТаблицаЗначений");
   РС.УстановитьТекстовыйПараметр("ГрРасч",ТекущаяДата());
//   РС.УстановитьТекстовыйПараметр("Преф",?(ВидБазы="Р","р","о"));  

   Сообщить(тзОст);
   РС.ВыполнитьИнструкцию(тзОст,ТТ,1);
   РС.Выполнить("DROP TABLE #vr");





   Возврат ТабОстатков;

(58) не то. Коды и наименования тоже нужны! Артикулы нужны лишь для группировки двойных позиций...
запутали меня еще больше. лучше простым циклом переберу.

(32) как в (29) чем не устроило ?
Покажет только те записи, где с одинаковым артикулом >1

(60) эм... а остальные?

в общем надо еще доскональнее тестировать.

(61) тебе же только дубли нужны, не ?

мне дубли надо просуммировать и все остальные оставить.

(61) Ну так к своей таблице с несвернутыми остатками приджойни подзапрос с задвоенными артикулами по полю артикул.

(64) это как ?
если есть номенклатура с разным наименованием, но артикул у неё одинаковый, или отсутствует, к примеру, тогда чего ?
Сумму по ним куда писать ?

(64) Ты можешь внятно сказать что именно нужно?
Остатки по номенклатуре и остатки по артикулам одновременно?

(65) Маразм

(68) Че это? Как раз получится (28) "можно эту сумму во все прописать или последнему в списке". В этом подзапросе заодно и просуммировать по одинаковым артикулам.

(69) Таблицу с остатками во времянку надо, а не рассчитывать одно и то же дважды.

(70) Ну это согласен.

(61) получи все записи с артикулами и остатками (и колонка с единичкой), выгрузи в ИТЗ, сгруппируй по артикулу (суммируя единички и остатки), проиндексируй по счетчику, и смотри: в счетчике будет число дублей, в потомках получищь развернутые остатки по всем товарам с совпадающими артикулами.