v7: Перезапись Групп Справочников как?!

1C 7.7

29.03.13

✎

09:37

Не работает:
СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
СпрГруппаНоменк = СоздатьОбъект("Справочник.Номенклатура");

НомерСтр2 =1;
СпрНоменклатура.ВыбратьЭлементы();
Пока СпрНоменклатура.ПолучитьЭлемент()=1 Цикл
Если ПустоеЗначение(СпрНоменклатура.КодБух)=1 Тогда
Если ПустоеЗначение(СпрНоменклатура.Код)=0 Тогда
Если СпрНоменклатура.ЭтоГруппа()=1 Тогда
Если СпрГруппаНоменк.НайтиЭлемент(СпрНоменклатура.ТекущийЭлемент())=1 Тогда
СпрГруппаНоменк.КодБух = СпрГруппаНоменк.Код;
СпрГруппаНоменк.Записать();
НомерСтр2 = НомерСтр2+1;
КонецЕсли;
Сообщить("Перезаписан Номенклатура "+СпрНоменклатура.Наименование);
Иначе
СпрНоменклатура.КодБух = СпрНоменклатура.Код;
СпрНоменклатура.Записать();
НомерСтр2 = НомерСтр2+1;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;

1 chief accountant

29.03.13

✎

09:51

(0) Может я не догоняю, но зачем искать найденную группу второй раз?

2 tpudl_bases

29.03.13

✎

09:53

(1)
просто так не работает:
Если ПустоеЗначение(СпрНоменклатура.Код)=0 Тогда
СпрНоменклатура.КодБух = СпрНоменклатура.Код;
СпрНоменклатура.Записать();
КонецЕсли;

Все справочники перезаписались,а группы нет

3 tpudl_bases

29.03.13

✎

10:14

КодБух(строка)общий реквизит для Справочник.Номенклатура
размещен на форме элемента,так же Форме группы
Длина(КодБух)=9 индетичен Спр.коду
В руками добавляю КодБух,так же не записывает....

4 tpudl_bases

29.03.13

✎

10:16

перезаписать группы справочника

5 tpudl_bases

29.03.13

✎

10:24

ап...

6 1Сергей

29.03.13

✎

10:26

(2) в каком смысле не работает? ошибку говорит? Перед записью СпрНоменклатура.КодБух чему равен?

7 chief accountant

29.03.13

✎

10:33

(5)
СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
//СпрГруппаНоменк = СоздатьОбъект("Справочник.Номенклатура");

//НомерСтр2 =1;
СпрНоменклатура.ВыбратьЭлементы();
Пока СпрНоменклатура.ПолучитьЭлемент()=1 Цикл
Если ПустоеЗначение(СпрНоменклатура.КодБух)=1 Тогда
//Если ПустоеЗначение(СпрНоменклатура.Код)=0 Тогда
Если СпрНоменклатура.ЭтоГруппа()=1 Тогда
//Если СпрГруппаНоменк.НайтиЭлемент(СпрНоменклатура.ТекущийЭлемент())=1 Тогда
СпрНоменклатура.КодБух ="Миста";
СпрНоменклатура.Записать();
//НомерСтр2 = НомерСтр2+1;
//КонецЕсли;
Сообщить("Перезаписан Номенклатура "+СпрНоменклатура.Наименование);
//Иначе
// СпрНоменклатура.КодБух = СпрНоменклатура.Код;
// СпрНоменклатура.Записать();
// НомерСтр2 = НомерСтр2+1;
КонецЕсли;
//КонецЕсли;
КонецЕсли;
КонецЦикла;

работает

8 vinogradъ

29.03.13

✎

10:33

(0) КодБух для элемента и группы определен?

9 1Сергей

29.03.13

✎

10:36

(8) судя по "В руками добавляю КодБух,так же не записывает....", нет :)

10 tpudl_bases

29.03.13