рег1= РегистрыСведений.zakup_otkaz.СоздатьНаборЗаписей();
Пока  RS.EOF()=0 Цикл
                 
               рег = рег1.Добавить();
               Рег.id_ges = RS.fields("id_ges").value();
               Рег.kol=RS.fields("kol").value();
               Рег.data_otk= RS.fields("data_otk").value;  
               Рег.tochka = RS.fields("tochka").value;
               Рег.naim = RS.fields("naim").value;
               Рег.cena=RS.fields("cena").value;
               Рег.id_nom=RS.fields("id_nom").value;
               Рег.pr_otkaz=RS.fields("pr_otkaz").value;
               RS.MoveNext();
               is=is+1;
               ИндикаторРаботы.Значение=ИндикаторРаботы.Значение+1 ;
               Если is=3000 тогда
                   Попытка Рег1.Записать();
                   Сообщить("запись:"+ is);
                   is=0;    
                   //Константы.ДатаПоследнейЗагрузки.Установить(Дата(Рег.data_otk);
                   Исключение сообщить("Произошла ошибка: "+ОписаниеОшибки());
                   Возврат;
                   КонецПопытки;                    
               КонецЕсли;        
   КонецЦикла;

Народ что делать когда несколько строк равны между собой при id_ges=kol=data_otk=tochka=naim=cena=id_nom=pr_otkaz вылетает ошибка при записи что такие записи повторяются. а нужно записать рег1.
Надумка такая что если записи совпадаю в "Исключение" вставить код

пока RS.EOF() = 0 Цикл    
Рег = РегистрыСведений.zakup_otkaz.СоздатьМенеджерЗаписи();    
               Рег.data_otk= RS.fields("data_otk").value;  
               Рег.id_ges = RS.fields("id_ges").value;
                     Рег.naim = RS.fields("naim").value;
               Рег.tochka = RS.fields("tochka").value;
               Рег.id_nom=RS.fields("id_nom").value;
               Рег.pr_otkaz=RS.fields("pr_otkaz").value;
               Рег.kol=RS.fields("kol").value;
               Рег.cena=RS.fields("cena").value;
               Рег.Записать();
               i=i+1;
                RS.MoveNext();

Но как это осушествить

Книга знаний: Коды ошибок 1С:80

а ты вот так специально с русско-английской смесью нам мозг решил взорвать, или у тебя везде так?

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

(0) не даст одинаковые записи сделать... чо-нить меняй, либо измерение типа НомерСтроки сделай...

Ок.(2)(3) (4)!! тогда как мне исключить эту запись повторения. чтоб она не писалась в РС.

(5) запихай в таблицу и сверни

(2) Думал лучше так будет для понимания суть проблемы )))

(6) Да насворачивал в таблицу ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,kol,cena");
никуя. тема даже есть v8: v8: Ошибка при записи в регистр сведений (8)

чем рег.cena лучше для понимания сути проблемы, чем рег.цена, и т.д.?

(8) по уникальным полям сворачивай

Извините за Мат) погода фиговая в перми. Дождит

(8)А если так?
ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz, cena", "kol")

(9) Гы. Не Виноват я. До меня было так. менять не хотЦЦа.

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

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

(15) к (13)

Регистр Сведений:
Измерения (id_ges,naim,tochka,id_nom,pr_otkaz)
Ресурс (kol,cena)

(15) Уважаемые знаю я.
Если is=1024 тогда                  ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,kol,cena");
                   НаборЗаписей = РегистрыСведений.zakup_otkaz.СоздатьНаборЗаписей();
                   НаборЗаписей.Загрузить(ТЗ);
                   ТЗ.Очистить();
                   
                   Попытка
                       НаборЗаписей.Записать();
                       Сообщить("запись:"+ is);
                       is=0;
                       RS.MoveNext();
 
                   Исключение сообщить("Произошла ошибка: "+ОписаниеОшибки());

а зачем регистр сведений для такого вида учета вообще использовать? если кол и цена? и как должны вносится те данные, у которых все измерения совпадают? ИМХО изначально проектировал базу человек, нифига не знакомый с 1с и регистрами накопления...

ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz" , "kol,cena"); вот только надо учесть, что цена и количество - сложатся... надо знать, какие данные должны быть в регистре, в смысле, что такое цена и количество.

(19) Как мне эти сведения запихать в 1С без повторений строк id_ges=kol=data_otk=tochka=naim=cena=id_nom=pr_otkaz

(20) нафига мне Сумма по "kol,cena"?!

что есть кол, и что есть цена? что это вообще за регистр сведений? скажи нам, что он олицетворяет в реальной жизни?

(23) на того тебе это, что если у тя количество или цена отличаются при прочих равных, то записать не даст - надо, чтобы хоть в одном измерении различия встречались...

(23)КОл-это количество Товара названиия-naim, его кода - id_ges, а cena - это Цена единицы товара.

(0) пиши не в набор записей, а создавай менеджер записи. Медленее будет работать но зато будет.

(24) To   Mitriy Как если встречаются одинковые записи. исключить эти двойные одинакоые записи и записать одну. будет тогда Гуд. я уже писал в (21)

количество товара где? ИМХО нужно как минимум цену - в измерения перекинуть...

(25) чушь какая то.

(26) Спасибо. нет уж за один день накапливаются около 10000 записей. Отдел без работы сидеть будет)

(30) ну тогда используй ТЗ перед добавлением в ТЗ проверяй есть ли там строки по одбору. Только все равно медлено.

(31)+ иначе: меняй структуру регистра. ИМХО других вариантов нет.

(27) придумывай, как считать среднюю цену или еще какую максимальную/минимальную, либо (28), либо (4), либо по периоду разводи, но чо-то в измерениях должно быть разное...

(4) Это вариант думаю проделать вставлю счетчик при
Регистр Сведений:
Измерения (ДевственныйСчетчик,id_ges,naim,tochka,id_nom,pr_otkaz)

ДевственныйСчетчик=0;

Пока  RS.EOF()=0 Цикл
               
               рег = рег1.Добавить();
Рег.ДевственныйСчетчик=ДевственныйСчетчик+1;
               Рег.id_ges = RS.fields("id_ges").value();
               Рег.kol=RS.fields("kol").value();
......
Если is=3000 тогда
                   Попытка Рег1.Записать();
                   Сообщить("запись:"+ is);
                   is=0;    
         
                   Исключение сообщить("Произошла ошибка: "+ОписаниеОшибки());
                   Возврат;
                   КонецПопытки;                    
               КонецЕсли;        
   КонецЦикла;

тебе еще не говорили, что база тормозит?

(35) пусть скажут только я тогда сделаю
Рег = РегистрыСведений.zakup_otkaz.СоздатьМенеджерЗаписи();
))гы
До хера долго будет переписыватся. пробывал когда на обед ходил. пришел. а он все еще пишет.

(34) ентот код не поможет, имхо Рег.ДевственныйСчетчик всегда равен 1...

(37)+ и вааще чо-то все как-то тупо выглядит, прощу прощения, задача изначально неправильно поставлена, имхо, много гемора предвидится, причем бесконечного...

(37) +1

(34) епт. увидел что не дописал. а вот так поможет лешить девственность счетчику.

Регистр Сведений:
Измерения (ДевственныйСчетчик,id_ges,naim,tochka,id_nom,pr_otkaz)

ДевственныйСчетчик=0;

Пока  RS.EOF()=0 Цикл
               
               рег = рег1.Добавить();
ДевственныйСчетчик=ДевственныйСчетчик+1;
Рег.ДевственныйСчетчик=ДевственныйСчетчик;
               Рег.id_ges = RS.fields("id_ges").value();
               Рег.kol=RS.fields("kol").value();
......
Если is=3000 тогда
                   Попытка Рег1.Записать();
                   Сообщить("запись:"+ is);
                   is=0;    
         
                   Исключение сообщить("Произошла ошибка: "+ОписаниеОшибки());
                   Возврат;
                   КонецПопытки;                    
               КонецЕсли;        
   КонецЦикла;

(38) ну так я уже спрашивал про предметную область, отражаемую регистром... «а в ответ тишина...»

(41) какая тишина. все понятно. поясняю. на SQL записываются записи отказов. И хотелось бы переносить из SQL в 1С эти записи. типо вести историю. Самое оптимальное это РС. записей в SQL набралось около 1 млн. по каждому отказу назначть ответственного, дата начала разбирательства почему отказ и т.п.

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

регистр сведений: непериодический и независымый!

(43) это я вообще-то сказал к тому, что тупо переносить данные из таблиц скуля в 1с - подход неправильный.
если хочешь целиком перенести, да еще и чтобы данные с одинаковыми ключами не потерялись - пиши либо с девственным счетчиком (но вероятность ошибки все равно есть), либо в справочник (!sic) с соответствующими реквизитами. Но мой совет, сначала представить эффективную структуру данных, а не тупо переносить.

не катит так

   ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena"," kol");

Ошибку выдает.
{Отчет.Отчет2.Форма.Форма(516)}: Ошибка при вызове метода контекста (Записать): Запись с такими ключевыми полями существует! : 21.03.2008 0:00:00 : 4 442 599 :  : КД093701 : 3 853 184 : нет сертификата в Перми :  (Регистр сведений: Zakup otkaz; Номер строки: 1363)
           НаборЗаписей.Записать();
по причине:
Запись с такими ключевыми полями существует! : 21.03.2008 0:00:00 : 4 442 599 :  : КД093701 : 3 853 184 : нет сертификата в Перми :  (Регистр сведений: Zakup otkaz; Номер строки: 1363)

Как исключить то запись? и в этот момент эти строки записать Рег = РегистрыСведений.zakup_otkaz.СоздатьМенеджерЗаписи();

так то, что ты просрешь эту запись - это ничего, чтоли?

(47) Даааа... Хватит одной этой записи. Просто изночально в SQL записывать стали не так с повторяющими записями.

Как произвести переборку по повторяющими записями за периуд. и записать только одну запись.

Такая запись может выпасть 1 на 20000

перенеси цену в измерения, сверни таблицу по всему, кроме количества, количество - суммируй и это добро уже пихай в регистр

(45) Тупо перенести-означает правильно перенести. тут мужрить не надо. где повторяющие записи записать одну. делов то((( тока как.

(49) и что получится. что у повторяющихся записей в регист запишется сумма по колличеству?

А чего DISTINCT или группировку при выборке со скуля не используешь?

(51) ага, но если на просранные записи насрать - то и так должно покатить
(52) а оно все равно вернет все с уникальными количествами и ценами - а в РС - это ресурсы - не прокатит, либо надо и количество и цену в измерения пихать

(52) Все использую изначально выборку делаю по дате а потом буду обновлять по минус один день.

   RS.Open("SELECT Count(*) kolq  FROM  dbo.zakup_otkaz  where data_otk between CONVERT(DATETIME, '" + ДатаНачТекст + "', 103) and  CONVERT(DATETIME, '" + ДатаКонТекст + "', 103) ", Connection);

(51) а потом как мне при формирование отчетов вылавливать эти просранные записи они же записались в регистр полноценно ?!

(54) так это ж только количество возвращает о_О

(53) ясно, что группировать надо по измерениям. А вот что с ресурсами делать хз. Если все записи с одинаковыми измерениями имеют одинаковые ресурсы, то МАКСИМУМ по ним, а если нет, то РС неправильно спроектирован.

Учитывая, что после сворачивания ТЗ, 1С ругается, то имеются уже записанные записи.

при способе записи из (0) - просранные - значит просранные. причем при «дозаписи» - еще может и «ДевственныйСчетчик» не помочь. я же говорю прежде чем переносить - надо подумать, зачем оно надо в 1с ибо не все возможно...

(54) ой. Это нужно для ИндикаторРаботы.МаксимальноеЗначение= RS.fields("kolq").value();

вот он кодик ддорогой выборки RS.Open("SELECT * FROM dbo.zakup_otkaz  where data_otk between CONVERT(DATETIME, '" + ДатаНачТекст + "', 103) and  CONVERT(DATETIME, '" + ДатаКонТекст + "', 103) ", Connection);

(58)> причем при «дозаписи» - еще может и «ДевственныйСчетчик» не помочь. тут уже как мин будут две уникальные поля в записи это дата data_otk и «ДевственныйСчетчик»))

(59) ну и где у тебя там группировка или DISTINCT ?

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

(61) дистинкт не спасет - он на все колонки распространяется, а в 1с уникальны должны быть комбинации измерений, а не измерений+регистров

(60) ну, это да, упустил...

(62) О, другое дело попробую организовать это. типо как это в коде реализовать
// Создание таблицы значений
       ТЗ = Новый ТаблицаЗначений;
       
               ТЗ.Колонки.Добавить("ДевственныйСчетчик",ОписаниеТиповЧ);
       ТЗ.Колонки.Добавить("data_otk",ОписаниеТиповС);
       ТЗ.Колонки.Добавить("id_ges",ОписаниеТиповЧ);
       ТЗ.Колонки.Добавить("naim",ОписаниеТиповС);
       ТЗ.Колонки.Добавить("tochka",ОписаниеТиповС);
       ТЗ.Колонки.Добавить("id_nom",ОписаниеТиповЧ);
       ТЗ.Колонки.Добавить("pr_otkaz",ОписаниеТиповС);
       ТЗ.Колонки.Добавить("kol",ОписаниеТиповЧ);
       ТЗ.Колонки.Добавить("cena",ОписаниеТиповЧ);
       
       Пока RS.EOF()=0 Цикл
                           ИндикаторРаботы.Значение=ИндикаторРаботы.Значение+1;
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.ДевственныйСчетчик=1;
НоваяСтрока.id_ges = RS.fields("id_ges").value();
НоваяСтрока.kol=RS.fields("kol").value();
НоваяСтрока.data_otk= RS.fields("data_otk").value;  
НоваяСтрока.tochka = RS.fields("tochka").value;
НоваяСтрока.naim = RS.fields("naim").value;
НоваяСтрока.cena=RS.fields("cena").value;
НоваяСтрока.id_nom=RS.fields("id_nom").value;
               НоваяСтрока.pr_otkaz=RS.fields("pr_otkaz").value;
               RS.MoveNext();
       КонецЦикла;
ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena"," kol");
       RS.Close();

а дальше как в конце не допонял?

(63) забей на DISTINCT :) все зависит от ситуации.

ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena","kol, девственныйСчетчик");

Для каждого Стр из ТЗ Цикл
 Если Стр.ДевственныйСчетчик>1 Тогда
   // вот в этой строке и косяк!
 КонецЕсли;
КонецЦикла;

смотрю, цену уже в измерения перекинул :)

(68) ага. периуд сделал месяц. щас переписывается предварительно свернув таблицу вот так ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena"," kol");
1С подвисла. что будет если в ТЗ запихнуть около 100тыс.записей. справится? )гы

все еще висит. Жду....

жду еще 5 мин и вырубаю 1С через контрАльтДелет

надо было прогресс-бар какой-нить с обновлением через каждые 1000 строк придумать - хоть прогресс был бы виден

если получится то кусочками запись зделаю по 5000. а то весит не по детски.

(67)Это попробую Если не удастцца так ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena"," kol"); т

учти, что нужно принимать в расчет то, что уже лежит в регистре. за и параметры «записать» смотри - я не помню, по умолчанию оно затирает то, что в регистре есть, или нет....

(72)дык. емая. все я реализовал процес Бар показывает когда считывается записи на должном уровне. а когда доходит до ТЗ.Свернуть() Записать() там ни как процесс бар не организуешь.

(72)Вроде не затирает. я придварительно по неделям попробывал. все ОК была. решил прогнать по полной программе.

ООоооо..Ого-ого. получилось. записей 210 тыс. )))

крута

и что, без косяков?

ТЗ = Новый ТаблицаЗначений;
....
....
НаборЗаписей = РегистрыСведений.zakup_otkaz.СоздатьНаборЗаписей();
Пока RS.EOF()=0 Цикл
Рег = ТЗ.Добавить();
.....
210 тыс. раз
....
RS.MoveNext();
КонецЦикла;
           ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena"," kol");
           НаборЗаписей.Загрузить(ТЗ);
           НаборЗаписей.Записать();
           ТЗ.Очистить();

           RS.Close();
           Константы.ДатаПоследнейЗагрузки.Установить(ДатаКон);

Верно. без касяков пока.
а что у меня с двоиными записями случилось по kol?
как мне теперь их исключать....в дальнейшем

попробуй
Select data_otk, .... , Sum(kol) from ... Group by «все из селекта, кроме Sum(kol)» - пусть скуль сворачивает за тебя ;)

а в (80) - RS.Close() сразу почле цикла делай - пусть сервер сразу освобождается, а не после того, как таблица свернется ;)

(82) что то начал пробывать тестить в SQL ни фига не выходит.

Select data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena, Sum(kol)
FROM   zakup_otkaz
Group by  ALL

(83) Сделал.

У МЕНЯ ВОПРОС. Почему ДАННЫЕ КОГДА ЗАПИСЫВАЮ В РС, ДО ОНи ПОВЕРХ СТАРЫХ ПИШУТСЯ.

RS.Close();
           ТЗ.Свернуть("data_otk,id_ges,naim,tochka,id_nom,pr_otkaz,cena"," kol");
           НаборЗаписей.Загрузить(ТЗ);
           НаборЗаписей.Записать();
           ТЗ.Очистить();

Все же Оказалась такая строка что в ней все параметры равны.