Имя: Пароль:
1C
1С v8
Запись нового контрагента УТ11
, ,
0 Aleksei_Pro
 
14.10.12
20:12
НовыйКонтр = Контр.ПолучитьОбъект();
НовыйКонтр.Наименование = СокрЛП(БД.Naim);
НовыйКонтр.НаименованиеПолное = СокрЛП(БД.PolNaim);
НовыйКонтр.ИНН = СокрЛП(БД.INN);
НовыйКонтр.КПП = СокрЛП(БД.KPP);
НовыйКонтр.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
НовыйКонтр.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо;
НовыйКонтр.Записать();
                   
КИ = НовыйКонтр.КонтактнаяИнформация.Добавить();                    
КИ.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
КИ.АдресЭП = СокрЛП(БД.ADP);
КИ.Вид =  Справочники.ВидыКонтактнойИнформации.EmailПартнера;
КИ = НовыйКонтр.КонтактнаяИнформация.Добавить();

КИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
КИ.ЗначенияПолей = СокрЛП(БД.ADU);
КИ.Вид =  Справочники.ВидыКонтактнойИнформации.ФаксОрганизации;
КИ.Представление = СокрЛП(БД.ADU);
               
КИ.НомерТелефона = СокрЛП(БД.Tel);
НовыйКонтр.Записать();    


Подскажите почему контактная информация не записывается?
1 Wobland
 
14.10.12
20:28
не знаю, как там в УТ11, но в 10м контактная информация в РС живёт
2 Wobland
 
14.10.12
21:03
ничего не знаю, у меня всё работает
//НовыйКонтр = Контр.ПолучитьОбъект();
НовыйКонтр=Справочники.Контрагенты.СоздатьЭлемент();
НовыйКонтр.Наименование = СокрЛП("БД.Naim");
НовыйКонтр.НаименованиеПолное = СокрЛП("БД.PolNaim");
НовыйКонтр.ИНН = СокрЛП("БД.INN");
НовыйКонтр.КПП = СокрЛП("БД.KPP");
НовыйКонтр.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
НовыйКонтр.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо;
//НовыйКонтр.Записать();
                   
КИ = НовыйКонтр.КонтактнаяИнформация.Добавить();                    
КИ.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
КИ.АдресЭП = СокрЛП("БД.ADP");
КИ.Вид =  Справочники.ВидыКонтактнойИнформации.EmailПартнера;
КИ = НовыйКонтр.КонтактнаяИнформация.Добавить();

КИ.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
КИ.ЗначенияПолей = СокрЛП("БД.ADU");
КИ.Вид =  Справочники.ВидыКонтактнойИнформации.ФаксОрганизации;
КИ.Представление = СокрЛП("БД.ADU");
               
КИ.НомерТелефона = СокрЛП("БД.Tel");
НовыйКонтр.Записать();


http://screencast.com/t/nZ4MUfTne
3 m-serg74
 
14.10.12
21:06
(2) ты нового контра создаешь, а (0) у существующего пытается добавлять, наверное нельзя сделать 2 адресаЭП, или 2 номера телефона, короче наверное (0) сначала надо ТЧ КИ.Очистить()
4 Wobland
 
14.10.12
21:11
(3) от меня пули ушли, проблемы на стороне ТС
НовыйКонтр=Справочники.Контрагенты.НайтиПоНаименованию("БД.Naim").ПолучитьОбъект();

http://screencast.com/t/L3xzznJhYs
5 m-serg74
 
14.10.12
21:18
))) да я посмотрел уже по конфигуратору, проверки на повторы нет, я в (3) был не прав
6 alexei366
 
14.10.12
21:38
так есть ошибка при записи повторной или нет?
7 m-serg74
 
14.10.12
21:38
а вот при открытии формы КИ заполняется через Найти в ТЧ КИ по Виду, так что на форме скорее всего будут видны только первые попавшиеся Значения КИ по виду
8 alexei366
 
14.10.12
21:39
И зачем два раза записывать?
9 m-serg74
 
14.10.12
21:39
(6) ошибки вроде как и нет но на форме не увидишь
10 alexei366
 
14.10.12
21:40
А ты тестовую форму сделай чтоб список выводила КИ, и посмотри есть или нет
11 m-serg74
 
14.10.12
21:41
(10) совет мне? ))) или (0)
12 alexei366
 
14.10.12
21:43
Я говорю сделай внеш обработку, там через запрос выводи по конкретному контрагенту всю таб часть и посмотри есть или нету того что ты добавял.
13 alexei366
 
14.10.12
21:44
Я так думаю что увидишь, а значит в форме объекта контрагента, что-то есть фильтры или ещё чото что при выводит инфу при условиях
14 m-serg74
 
14.10.12
21:46
(12)(13) ты бот? )))
15 alexei366
 
14.10.12
21:47
Ой блин уже нехера не вижу (синька чмо)
16 alexei366
 
14.10.12
21:47
а товарищь уже походу проблему решил и вышел со странички
17 Wobland
 
15.10.12
04:48
интересно тут у вас...