Имя: Пароль:
1C
1С v8
Как создать и заполнить контрагента программным путём
,
0 NatashaKotova
 
03.10.12
10:09
Как создать и заполнить контрагента программным путём в 1С бухгалтерия 2.0. ?
Если у кого нибудь есть пример внешней обработки скиньте пожалуйста, заранее спасибо.
1 chelentano
 
03.10.12
10:10
(0)
Объект = Справочники.Контрагенты.СоздатьЭлемент();
Объект.Наименование = "Контрагент";
Объект.Записать();
2 kosts
 
03.10.12
10:10
А сведения для контрагента откуда будут браться?
3 kosts
 
03.10.12
10:12
+ к (1)
Не уверен, но возможно нужно еще
Объект.УстановитьНовыйКод();
4 NatashaKotova
 
03.10.12
10:15
Сведения берутся из текстового файла
5 kosts
 
03.10.12
10:17
Если это разовый импорт, то полно готовых обработок. В том числе в типовой загрузка из табличного документа...
6 NatashaKotova
 
03.10.12
10:18
есть ли ссылочка хотя бы на пример, дальше я разберусь. Буду благодарна
7 chelentano
 
03.10.12
10:19
(6) сделаю обработку загрузки за 20 000 руб.
8 MatrosoV AleXXXand_R
 
03.10.12
10:21
ИМХО

Такая обработка пишется максимум за 1 час (если конечно только создание (перезаполнение) контрагентов, договоров и контактной информации)

(7) 20000 / 1 час - нехилая ставка :)
9 DrShad
 
03.10.12
10:23
а я сделаю эту работу за 25 тыр
10 chelentano
 
03.10.12
10:23
(8) я классный специалист, могу напрячься и написать за неделю :)
11 chelentano
 
03.10.12
10:24
(9) 20 мне, 5 себе?
12 MatrosoV AleXXXand_R
 
03.10.12
10:25
(10) Классный специалист никогда не будет писать с нуля, у него уже все есть в готовом виде :)
13 1Страх
 
03.10.12
10:25
фото нет
14 chelentano
 
03.10.12
10:26
(12) тсс...
15 Alex S D
 
03.10.12
10:26
еще контактную информацию надо записать, так что без фото никак
16 DrShad
 
03.10.12
10:26
(12) а я напишу с нуля
17 Alex S D
 
03.10.12
10:29
(16) ты можешь, у тебя куча времени)
18 DrShad
 
03.10.12
10:30
(17) да, есть такое дело :)
19 hhhh
 
03.10.12
10:33
(12) чего, нехилый парсер из неизвестного текстового файла за час напишете?
20 DrShad
 
03.10.12
10:39
(19) главное ввязаться, а там хоть потоп :)))
21 Godofsin
 
03.10.12
10:40
Испугали девочку, злые одноэснеги!
22 DrShad
 
03.10.12
10:43
да, мы такие :)))
23 zladenuw
 
03.10.12
10:45
(18) а откуда много свободного времени ? работы нету ? или все автоматизировано :)
24 DrShad
 
03.10.12
10:45
(23) мне платят чтоб я ждал
25 zladenuw
 
03.10.12
10:48
(24) и я так хочу :)
26 DrShad
 
03.10.12
10:49
(25) что мешает?
27 Alex S D
 
03.10.12
10:49
(26) маленький он еще
28 Godofsin
 
03.10.12
10:49
Смотрел передачу, чуваку платят (и не хило) за то, что он спит ))) Он тестирует матрацы ))))
29 Alex S D
 
03.10.12
10:50
ждать тоже плохо.. безделье это плохо
30 amadeus2010
 
03.10.12
11:26
(0) откуда обработка должна брать сведения о контрагентах из ексель или текстовоого файла?
31 NatashaKotova
 
03.10.12
11:31
текстового файла.
А вообще можно просто записать, т.к. мне только одну организацию надо так добавлять, не понимаю как заполнить юр.адрес и физ.адрес
32 NatashaKotova
 
03.10.12
11:32
Объект = Справочники.Контрагенты.СоздатьЭлемент();
Объект.Наименование = "ООО Альфа-блок";
Объект.НаименованиеПолное ="ООО Альфа-блок";
Объект.ИНН = "7422043012";
Объект.ЮрФизЛицо ="Маринчиков Алексей Генадьевич";
Объект.КПП="742201001";

Вот так всё заполняется, а как заполнить другие данные справочника контрагенты ?
33 Redkiy
 
03.10.12
11:32
Без фотки тут не помогут. Бери пример с v8: Гиперссылки в форме
34 Alex S D
 
03.10.12
11:33
какие?
35 Alex S D
 
03.10.12
11:34
Объект.ЮрФизЛицо ="Маринчиков Алексей Генадьевич"; круто че)
36 hhhh
 
03.10.12
11:35
(32) адреса - это не в справочнике контрагенты.
37 Alex S D
 
03.10.12
11:36
да тут даже фотка не поможет, вызывайте специалиста..
38 Redkiy
 
03.10.12
11:37
(32)(35) дальше можно не продолжать - ждем фото...
39 amadeus2010
 
03.10.12
13:39
(32) У вас должно быть заполнено как-то так
/////////////////////////////////////////////////////
Объект = Справочники.Контрагенты.СоздатьЭлемент();
Объект.Наименование = Справочники.Организанизация.НайтиПоНаименованию("ООО Альфа-блок");
Объект.НаименованиеПолное =Справочники.Организанизация.НайтиПоНаименованию("ООО Альфа-блок");
//////////////////////////////////////////////////////////
и так далее по тексту.
40 amadeus2010
 
03.10.12
13:39
в конце Объект.Записать
41 kosts
 
03.10.12
13:53
(39) Это что?
42 hhhh
 
03.10.12
13:54
(39) выгляни из окна. Нет ли там под окнами офиса конопляного поля?
43 Besometr
 
03.10.12
13:55
Контрагент, контактная информация и договор:

НовыйОбъект = Справочники.Контрагенты.СоздатьЭлемент();
       НовыйОбъект.Наименование = Стр.Наименование;
       НовыйОбъект.НаименованиеПолное = Стр.Наименование;
       НовыйОбъект.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо;
       
       Если Пок Тогда НовыйОбъект.Покупатель = Истина; КонецЕсли;
       Если Пос Тогда НовыйОбъект.Поставщик = Истина; КонецЕсли;
       
       Попытка
           НовыйОбъект.Записать();
       Исключение
       КонецПопытки;            
           
       НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
       НаборЗаписей.Отбор.Объект.установить(НовыйОбъект.ссылка);
       НаборЗаписей.Отбор.Тип.установить(Перечисления.ТипыКонтактнойИнформации.Адрес);
       НаборЗаписей.Отбор.Вид.установить(Справочники.ВидыКонтактнойИнформации.АдресДоставкиКонтрагента);
       НаборЗаписей.Прочитать();
       Запись = НаборЗаписей.Добавить();
           Запись.Объект = (НовыйОбъект.ссылка);
           Запись.Тип = (Перечисления.ТипыКонтактнойИнформации.Адрес);
           Запись.Вид = (Справочники.ВидыКонтактнойИнформации.АдресДоставкиКонтрагента);
           Запись.Поле1 = "Москва г";
           Запись.Представление = "Москва г";
       Попытка
           НаборЗаписей.Записать();
       Исключение
       КонецПопытки;
       
       Если Пок Тогда
           НовыйДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
           НовыйДоговор.Организация = Справочники.Организации.НайтиПоКоду("УТ0000001");
           НовыйДоговор.Владелец = НовыйОбъект.ссылка;
           НовыйДоговор.Наименование = "Основной договор";
           НовыйДоговор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
           НовыйДоговор.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду(643);
           НовыйДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
           Попытка
               НовыйДоговор.Записать();
           Исключение
           КонецПопытки;
       КонецЕсли;
       Если Пос Тогда
           НовыйДоговор = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
           НовыйДоговор.Организация = Справочники.Организации.НайтиПоКоду("УТ0000001");
           НовыйДоговор.Владелец = НовыйОбъект.ссылка;
           НовыйДоговор.Наименование = "Основной договор";
           НовыйДоговор.ВедениеВзаиморасчетов = Перечисления.ВедениеВзаиморасчетовПоДоговорам.ПоДоговоруВЦелом;
           НовыйДоговор.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду(643);
           НовыйДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
           Попытка
               НовыйДоговор.Записать();
           Исключение
           КонецПопытки;
       КонецЕсли;
44 amadeus2010
 
03.10.12
13:58
(42)может поле и есть, но с урожаем проблемы:) Немного ошибся-это было написано под обычное приложение
45 ras
 
04.10.12
02:13
(39) мсье знает толк в извращениях...
Независимо от того, куда вы едете — это в гору и против ветра!