Имя: Пароль:
1C
1C 7.7
v7: Перезапись Групп Справочников как?!
,
0 tpudl_bases
 
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
10:37
(9) да,ручками тоже не записывает
вот для (6) http://clip2net.com/s/4Pffbh
11 tpudl_bases
 
29.03.13
10:39
повторюсь,добавил новый реквизит,на форме + формеГруппы равно этиму реквизиту......
12 1Сергей
 
29.03.13
10:39
(10) в свойствах реквизита справочника на закладке дополнительно в Поле "Использовать" что указано?
13 chief accountant
 
29.03.13
10:39
(10) у тебя на форме группы КодБух есть?
14 tpudl_bases
 
29.03.13
10:42
15 1Сергей
 
29.03.13
10:43
(14) ну, как я и думал. Перечитай (12) внимательно
16 chief accountant
 
29.03.13
10:45
(14) в предприятии так-то, а вообще см (8)
17 tpudl_bases
 
29.03.13
10:46
(15) да да,для обоих надо было
http://clip2net.com/s/4Pfo2j

Спасибо