Имя: Пароль:
1C
1С v8
Записать группу в группу Справочника
0 tpudl_bases
 
09.11.12
14:00
Подскажите где ошибся:
GRUPP2=самый верхный родитель("Поставщики")
KONT_GRUPP = родитель Контрагента
           Если НЕ ПустаяСтрока(СокрЛП(ВыбКонт.GRUPP2)) Тогда
               НовыйРодительРодитель = Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP));
               НовыйРодительРодитель = НовыйРодительРодитель.ПолучитьОбъект();
               Если Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2)).Пустая() ТОгда
                   НовыйРодитель1 = Справочники.Номенклатура.СоздатьГруппу();
                   НовыйРодитель1.Наименование = СокрЛП(ВыбКонт.GRUPP2);
                   НовыйРодитель1.Записать();
                   НовыйРодительРодитель.Родитель = НовыйРодитель1.Ссылка;
                   Сообщить("Создана Новая Группа Контрагентов "+НовыйРодитель1);
               Иначе
                   НовыйРодительРодитель.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2));
               КонецЕсли;
               НовыйРодительРодитель.Записать();
           КонецЕсли;
1 zak555
 
09.11.12
14:01
ужас
2 Reset
 
09.11.12
14:02
У НовыйРодитель1 не указана группа-родитель
3 Wobland
 
09.11.12
14:02
ПустаяСтрока(СокрЛП(ВыбКонт.GRUPP2))
НовыйРодительРодитель = НовыйРодительРодитель.ПолучитьОбъект();
НовыйРодительРодитель.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2));
4 Reset
 
09.11.12
14:04
Мозги сломать можно с этими НовыйРодительРодитель
Хоть бы описал цель
5 tpudl_bases
 
09.11.12
14:05
(3) в (0) ПолучитьОбъект() уже есть
6 Reset
 
09.11.12
14:06
А то, получается, нужно по коду угадать, что он делает, при том, что оно этого не делает (ну, раз ошибка)
7 Wobland
 
09.11.12
14:06
(4) а я не ломал. человек просил ткнуть, я взял и ткнул. причём, скорее всего, не во всё ;)
8 tpudl_bases
 
09.11.12
14:09
(4)у Контрагент 2 Родителя(2 группы),Контрагент.Родитель = определен("Филиал"(GRUPP)),Филиал должен сидеть в "Поставщиках"(GRUPP2)
9 salvator
 
09.11.12
14:10
(0) А если в

НовыйРодительРодитель = Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP));

не найдется?
10 tpudl_bases
 
09.11.12
14:10
1Группа:Поставщик(GRUPP2)
2Группа:Филиал(GRUPP)
Контраген1.........
Контраген2.........
Контраген3.........
Контраген4.........
11 Reset
 
09.11.12
14:12
KONT_GRUPP = родитель Контрагента

Это ссылка на родителя или его(родителя) наименование?
12 Reset
 
09.11.12
14:12
ВыбКонт - что это?
13 tpudl_bases
 
09.11.12
14:12
(9)нашлась,не стал вытаскивать сюда:
Если Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP)).Пустая() Тогда
..............
Иначе
           Если НЕ ПустаяСтрока(СокрЛП(ВыбКонт.GRUPP2)) Тогда
               НовыйРодительРодитель = Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP));
               НовыйРодительРодитель = НовыйРодительРодитель.ПолучитьОбъект();
               Если Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2)).Пустая() ТОгда
                   НовыйРодитель1 = Справочники.Номенклатура.СоздатьГруппу();
                   НовыйРодитель1.Наименование = СокрЛП(ВыбКонт.GRUPP2);
                   НовыйРодитель1.Записать();
                   НовыйРодительРодитель.Родитель = НовыйРодитель1.Ссылка;
                   Сообщить("Создана Новая Группа Контрагентов "+НовыйРодитель1);
               Иначе
                   НовыйРодительРодитель = НовыйРодительРодитель.ПолучитьОбъект();
                   НовыйРодительРодитель.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2));
               КонецЕсли;
               НовыйРодительРодитель.Записать();
           КонецЕсли;
14 tpudl_bases
 
09.11.12
14:14
(11)ВыбКонт=XBase
Это имя на родителя
15 Reset
 
09.11.12
14:17
А не получается что?
16 tpudl_bases
 
09.11.12
14:17
17 tpudl_bases
 
09.11.12
14:18
(15)а вот сюда НовыйРодительРодитель.Родитель не садится:
НовыйРодительРодитель.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2));
               КонецЕсли;
               НовыйРодительРодитель.Записать();
           КонецЕсли;
18 tpudl_bases
 
09.11.12
14:20
то есть "Долг по Сверке"(Группа) должна лечь в "Поставщик"(Группа)
19 tpudl_bases
 
09.11.12
14:21
еще раз кидаю код,что бы вверх не подниматся:
Если Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP)).Пустая() Тогда
.........
........
       Иначе
           Если НЕ ПустаяСтрока(СокрЛП(ВыбКонт.GRUPP2)) Тогда
               НовыйРодительРодитель = Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP));
               НовыйРодительРодитель = НовыйРодительРодитель.ПолучитьОбъект();
               Если Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2)).Пустая() ТОгда
                   НовыйРодитель1 = Справочники.Номенклатура.СоздатьГруппу();
                   НовыйРодитель1.Наименование = СокрЛП(ВыбКонт.GRUPP2);
                   НовыйРодитель1.Записать();
                   НовыйРодительРодитель.Родитель = НовыйРодитель1.Ссылка;
                   Сообщить("Создана Новая Группа Контрагентов "+НовыйРодитель1);
               Иначе
                   НовыйРодительРодитель.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ВыбКонт.GRUPP2));
               КонецЕсли;
               НовыйРодительРодитель.Записать();
           КонецЕсли;
           
           НайденныйКонтрагент_.Родитель = Справочники.Контрагенты.НайтиПоНаименованию(СокрЛП(ВыбКонт.KONT_GRUPP));
       КонецЕсли;
       Если НЕ ПустаяСтрока(ВыбКонт.BANKCETKON) Тогда
           ПолучилиСчетБанка = ПолучитьБанкСчет(ВыбКонт,НайденныйКонтрагент_.Ссылка);
       КонецЕсли;
20 salvator
 
09.11.12
14:24
(17) НовыйРодительРодитель - справочник Контрагенты
как ты хочешь для него родителем назначить элемент справочника Номенклатура?
21 Reset
 
09.11.12
14:24
Ты в родителя группы Справочника Контаргенты пытаешься записать ссылку на группу Номенклатуры
22 Reset
 
09.11.12
14:25
Замылил глаза своими РодительРодитель
23 salvator
 
09.11.12
14:25
Писал бы нормальные имена переменных. Путаешь сам себя.
24 cw014
 
09.11.12
14:26
(22) НовыйРодительРодитель.Родитель

Все, моск после этого не работает
25 Reset
 
09.11.12
14:27
(24) На меня это произвело именно такой эффект :)
26 cw014
 
09.11.12
14:27
(22) Хотя ТС даже темы так оформляет "записать группу в группу"
27 tpudl_bases
 
09.11.12
14:27
(20)вот это касяк................и правдо Номенклатура
28 salvator
 
09.11.12
14:28
(27) Я бы даже сказал КосякКосяк.Косяк
29 tpudl_bases
 
09.11.12
14:37
(28)да пятница потому что,пятничные сиськи мешают работать
30 tpudl_bases
 
09.11.12
14:51
подскажите,почему привязываю по НайтиПонаименование Справочники.Контрагенты он все равно берет Номенклатуру:
http://clip2net.com/s/2u7kz

в Спр.Контрагенты есть группа "Поставщики"
31 tpudl_bases
 
09.11.12
14:54
нашел ошибку