|
Реализация переноса из 77 в 82 без объектов помеченных на удаление. | ☑ | ||
---|---|---|---|---|
0
liquidum
16.01.13
✎
12:11
|
Есть код, переносятся все объекты справочника "контрагенты" из 7.7 ТиС в 8.2 УТ, как сделать так, чтоб помеченные на удаление элементы справочника не переносились вовсе или переносились также с пометкой на удаление?
|
|||
1
vicof
16.01.13
✎
12:12
|
Поставить условие
|
|||
2
liquidum
16.01.13
✎
12:13
|
Процедура КнопкаВыполнитьНажатие(Кнопка)
СК77 = База.CreateObject("Справочник.Контрагенты"); КолВоЭлементов = 0; СК77.ВыбратьЭлементы(); Пока СК77.ПолучитьЭлемент()=1 цикл Сообщить("Контрагент:"+СК77.Наименование); Код77 = СокрЛП(СК77.Код); Нули = "000000"; Код = ?(СтрДлина(Код77) < 6,Прав(Нули,6-СтрДлина(Код77))+Код77, Код77); КолВоЭлементов = КолВоЭлементов + 1; Если СК77.ЭтоГруппа() = 1 Тогда СК8 = Справочники.Контрагенты.СоздатьГруппу(); СК8.Наименование = СокрЛП(СК77.Наименование); СК8.Код = Код; КодРодителя77 = СокрЛП(СК77.Родитель.Код); Нули = "000000"; КодРодителя = ?(СтрДлина(КодРодителя77) < 6,Прав(Нули,6-СтрДлина(КодРодителя77))+КодРодителя77, КодРодителя77); СК8.Родитель = Справочники.Контрагенты.НайтиПоКоду(КодРодителя); СК8.Записать(); Иначе КодРодителя77 = СокрЛП(СК77.Родитель.Код); СК8 = Справочники.Контрагенты.СоздатьЭлемент(); КодРодителя = ?(СтрДлина(КодРодителя77) < 6,Прав(Нули,6-СтрДлина(КодРодителя77))+КодРодителя77, КодРодителя77); СК8.Родитель = Справочники.Контрагенты.НайтиПоКоду(КодРодителя); СК8.Код = Код; СК8.Наименование = СокрЛП(СК77.Наименование); СК8.ИНН = СК77.ЮрФизЛицо.ИНН; СК8.НаименованиеПолное = СК77.ЮрФизЛицо.ПолнНаименование; СК8.Записать(); КонецЕсли; КонецЦикла; КонецПроцедуры |
|||
3
liquidum
16.01.13
✎
12:14
|
Как оно должно выглядеть? Немогу найти чет ничего подобного.
|
|||
4
DrShad
16.01.13
✎
12:14
|
(2) сжечь! срочно
|
|||
5
DrShad
16.01.13
✎
12:15
|
вместо
Код77 = СокрЛП(СК77.Код); Нули = "000000"; Код = ?(СтрДлина(Код77) < 6,Прав(Нули,6-СтрДлина(Код77))+Код77, Код77); нужно юзать Формат() |
|||
6
DrShad
16.01.13
✎
12:15
|
у элементов есть свойство ПометкаУдаления
|
|||
7
liquidum
16.01.13
✎
12:17
|
Всмысле формат?
|
|||
8
forforumandspam
16.01.13
✎
12:23
|
(7) Не слушай его.
|
|||
9
liquidum
16.01.13
✎
12:24
|
А как быть то
|
|||
10
forforumandspam
16.01.13
✎
12:25
|
Если СК77.ПометкаУдаления() = 1 Тогда
СК8.ПометкаУдаления = Истина; КонецЕсли; |
|||
11
liquidum
16.01.13
✎
12:27
|
Ок, сейчас попробую.
|
|||
12
liquidum
16.01.13
✎
12:48
|
(10) Спасиб, все заработало.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |