powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / [игнор отключен] [закрыт для гостей] / Перенос ОС из 7.7 в 8.2
3 сообщений из 3, страница 1 из 1
Перенос ОС из 7.7 в 8.2
    #36886663
dvasilev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день, пишу обработку по переносу данных основных средств с 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");
ОСвДок.СобытиеПринятияКУчетуРегл = СобытиеОс;
ОСвДок.ПервоначальнаяСтоимостьБУ = ОС.ПервоначальнаяСтоимость;

Сообщить("--------------------------------");
КонецЦикла;


Попытка
Сообщить("Сохраняем документ 'Ввод начальных остатков ОС'");
ОстОС.Записать();
Сообщить("Документ успешно создан");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки


КонецПроцедуры




В выделенной строке ничего не подставляется
...
Рейтинг: 0 / 0
Перенос ОС из 7.7 в 8.2
    #36886672
Господин ПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть мнение что она периодическая...
...
Рейтинг: 0 / 0
Перенос ОС из 7.7 в 8.2
    #36886979
AHDP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
+ не факт, что совпадает с отражённой в учёте. :(
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / Перенос ОС из 7.7 в 8.2
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]