|
Как создать и заполнить контрагента программным путём | ☑ | ||
---|---|---|---|---|
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) мсье знает толк в извращениях...
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |