X
XiBoO
Всем доброе время суток! Заношу остатки основных средств в восьмерку с семерки! переношу через файл dbf. Но вот возникла проблема! ОС в восьмерке имеют шестизначный код(просто добавляется ноль впереди)! а в базе пятизначный!
Проблема в том как это учитывать при поиске!! каким образом можно при поиске этот ноль в начало добавить??
Заранее спасибо!
Процедура Обработка()
ФайлDBF=Новый XBase;
ФайлDBF.ОткрытьФайл(ИмяФайла,,Истина);
НовыйДокумент=Документы.ВводНачальныхОстатковОС.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
НовыйДокумент.Организация = Организации ;
ФайлDBF.Первая();
Пока НЕ ФайлDBF.ВКонце() Цикл
текОС = Справочники.ОсновныеСредства.НайтиПоКоду(ФайлDBF.os_code) ;
Если текОС.Пустая() Тогда
Сообщить("Не найдено ОС с кодом" + ФайлDBF.os_code) ;
Иначе
новСтрока = НовыйДокумент.ОС.Добавить() ;
новСтрока.ОсновноеСредство = текОС ;
новСтрока.ПервоначальнаяСтоимостьБУ = ФайлDBF.summa ;
новСтрока.НачислятьАмортизациюБУ = ФайлDBF.iznos ;
КонецЕсли ;
ФайлDBF.Следующая();
КонецЦикла;
НовыйДокумент.Записать(РежимЗаписиДокумента.Запись) ;
ФайлDBF.ЗакрытьФайл();
Проблема в том как это учитывать при поиске!! каким образом можно при поиске этот ноль в начало добавить??
Заранее спасибо!
Процедура Обработка()
ФайлDBF=Новый XBase;
ФайлDBF.ОткрытьФайл(ИмяФайла,,Истина);
НовыйДокумент=Документы.ВводНачальныхОстатковОС.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
НовыйДокумент.Организация = Организации ;
ФайлDBF.Первая();
Пока НЕ ФайлDBF.ВКонце() Цикл
текОС = Справочники.ОсновныеСредства.НайтиПоКоду(ФайлDBF.os_code) ;
Если текОС.Пустая() Тогда
Сообщить("Не найдено ОС с кодом" + ФайлDBF.os_code) ;
Иначе
новСтрока = НовыйДокумент.ОС.Добавить() ;
новСтрока.ОсновноеСредство = текОС ;
новСтрока.ПервоначальнаяСтоимостьБУ = ФайлDBF.summa ;
новСтрока.НачислятьАмортизациюБУ = ФайлDBF.iznos ;
КонецЕсли ;
ФайлDBF.Следующая();
КонецЦикла;
НовыйДокумент.Записать(РежимЗаписиДокумента.Запись) ;
ФайлDBF.ЗакрытьФайл();