|
|
|
Перенос ОС из 7.7 в 8.2
|
|||
|---|---|---|---|
|
#18+
Добрый день, пишу обработку по переносу данных основных средств с 7.7 в УПП 1.3 (8.2). Никак не могу выцепить первоначальную стоимость ОС текст обработки Процедура КнопкаВыполнитьНажатие(Кнопка) // соединение с 7.7 Попытка путьБД = "/d " + ЭлементыФормы.полеПутьБД.Значение; //"/D D:\1Cv77\1SBDemo\" в77 = Новый COMОбъект("V77.Application"); в77.Initialize(в77.RMTrade, путьБД, ""); //"NO_SPLASH_SHOW"); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; ОС = в77.CreateObject("Справочник.ОсновныеСредства"); ОС.ВыбратьЭлементы(); Сообщить("Создаем документ 'Ввод начальных остатков ОС'"); Организация = ОрганизацияОС.Ссылка; ОстОС = Документы.ВводНачальныхОстатковОС.СоздатьДокумент(); ОстОС.Дата = ТекущаяДата(); ОстОС.Организация = Организация; ОстОС.ОтражатьВБухгалтерскомУчете = Истина; ОстОС.ОтражатьВНалоговомУчете = Истина; Пока ОС.ПолучитьЭлемент() Цикл Сообщить("Найдено ОС в 77 -"+ОС.Наименование); Сообщить(" создаем в справочнике 8.2..."); НовыйОС = Справочники.ОсновныеСредства.СоздатьЭлемент(); НовыйОС.Наименование = ОС.Наименование; НовыйОС.НаименованиеПолное = ОС.Наименование; Попытка НовыйОС.Записать(); Сообщить(" запись в справочнике 8.2 успешно создана"); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; //Добавляем ОС ОСвДок = ОстОС.ОС.Добавить(); ОСвДок.ОсновноеСредство = НовыйОС.Ссылка; ОСвДок.ИнвентарныйНомерРегл = ОС.код; ОСвДок.ДатаВводаВЭксплуатацию = Дата(ОС.ДатаВводаВЭксплуатацию); ОСвДок.ДатаПринятияКУчетуРегл = ОС.ДатаВводаВЭксплуатацию; СобытиеОс = Справочники.СобытияОС.НайтиПоКоду("000000001"); ОСвДок.СобытиеПринятияКУчетуРегл = СобытиеОс; ОСвДок.ПервоначальнаяСтоимостьБУ = ОС.ПервоначальнаяСтоимость; Сообщить("--------------------------------"); КонецЦикла; Попытка Сообщить("Сохраняем документ 'Ввод начальных остатков ОС'"); ОстОС.Записать(); Сообщить("Документ успешно создан"); Исключение Сообщить(ОписаниеОшибки()); КонецПопытки КонецПроцедуры В выделенной строке ничего не подставляется ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.10.2010, 12:09 |
|
||
|
Перенос ОС из 7.7 в 8.2
|
|||
|---|---|---|---|
|
#18+
Есть мнение что она периодическая... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.10.2010, 12:12 |
|
||
|
|

start [/forum/topic.php?fid=28&msg=36886663&tid=1521961]: |
0ms |
get settings: |
5ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
88ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
39ms |
get tp. blocked users: |
4ms |
| others: | 229ms |
| total: | 392ms |

| 0 / 0 |
