Имя: Пароль:
1C
1С v8
Программное копирование данных доков
0 Boudybuilder
 
01.05.12
11:47
Как программно перебрать все доки определенного типа? Мне это надо чтоб заполнить их данными новый тип этого дока.

И как программно удалять без подтверждения все доки?
1 Капитан О
 
01.05.12
11:58
>новый тип этого дока.
это что такое?
2 Boudybuilder
 
01.05.12
12:03
Ну мне надо скопировать из каждого дока1 данные и создать новый док2 с его данными.
Как перебрать все документы.док1 ?
3 Капитан О
 
01.05.12
12:03
(2) не перебрать, а выбрать
4 Boudybuilder
 
01.05.12
12:05
Как выбрать?
5 Рэйв
 
01.05.12
12:06
Выборка=Документы.Тип.Выбрать();
Пока Выборка.Следующий() Цикл
  Тек док=Выборка.Ссылка;
   /// ну а тут создавай и заполняй...
КонецЦикла;
6 Boudybuilder
 
01.05.12
12:08
Пасиб
7 Капитан О
 
01.05.12
12:09
как удалить подсказывать?
8 Boudybuilder
 
01.05.12
12:18
(7) ато!
9 Boudybuilder
 
01.05.12
12:24
Выборка = Документы.Тип.Выбрать();
   Пока Выборка.Следующий() Цикл
       ТекДок = Выборка.Ссылка;
       ТекДок.ПометкаУдаления=Истина;
       
   КонецЦикла;


Так чтото не идет
10 Рэйв
 
01.05.12
12:28
(9)А "Тип" не зпабыл на ТИП поменять?:-)
11 Boudybuilder
 
01.05.12
12:29
Нет
12 Asmody
 
01.05.12
12:29
(9) прежде чем что-то удалять, рекомендую почитать где-то про ссылочную целостность до просветления
13 Рэйв
 
01.05.12
12:32
(12)Да черт с ним. поднимем продажи вазелина в стране!:-)
(11)
Выборка = Документы.Тип.Выбрать();
   Пока Выборка.Следующий() Цикл
       ТекДок = Выборка.Ссылка;
       Об=ТекДок.ПолучитьОбъект();
       Об.ПометкаУдаления=Истина;
       Об.Записать();
   КонецЦикла;
14 Boudybuilder
 
01.05.12
12:34
(13)
А как удалить без ПометкиУдаления а напрямую?
15 Asmody
 
01.05.12
12:34
(13) а что тогда ПометкаУдаления? Сразу Удалить() и бежать за вазелином
16 Рэйв
 
01.05.12
12:34
Об.Удалить();

Ну...  Вазелином все таки запасись:-)
17 Asmody
 
01.05.12
12:35
(14) продам СП. дорого
18 Boudybuilder
 
01.05.12
12:35
Пасиб!
19 Рэйв
 
01.05.12
12:36
(17)Да зачем ему СП?  После вазелина только в бетоне замуруют наверное:-)
20 Aleksey
 
01.05.12
12:36
(13) А движения кто чистить будет?
21 Рэйв
 
01.05.12
12:36
(20)Да пес с ними!(С)Иван Васильевич.
22 Boudybuilder
 
01.05.12
12:59
Выборка = Документы.ФанРемонтВнутренний.Выбрать();
   Пока Выборка.Следующий() Цикл
       ТекДок = Выборка.Ссылка;
       НовДок = Документы.ФанРемонтВнутр.СоздатьДокумент();
       НовДок.Дата = ТекДок.Дата;
       НовДок.Номер = ТекДок.Номер;
       НовДок.Комментарий = ТекДок.Работы;
       НовДок.Записать();

Чтото Номер не проходит. Типа не уникально пишет...  
Что тут не так может быть?
23 Aleksey
 
01.05.12
13:04
Или 86 год, или стёб, третьего не дано
24 Boudybuilder
 
01.05.12
13:05
все в длинне номера наверное. в исходящем 12 в входящем 11
ЙПРСТ
25 Boudybuilder
 
01.05.12
13:06
так и есть! (24)
Извините... ;)
Спасибо за помощ