Прибавление символа при поиске...!

  • Автор темы XiBoO
  • Дата начала
Статус
Закрыто для дальнейших ответов.
X

XiBoO

Гость
#1
Всем доброе время суток! Заношу остатки основных средств в восьмерку с семерки! переношу через файл dbf. Но вот возникла проблема! ОС в восьмерке имеют шестизначный код(просто добавляется ноль впереди)! а в базе пятизначный!

Проблема в том как это учитывать при поиске!! каким образом можно при поиске этот ноль в начало добавить??


Заранее спасибо!


Процедура Обработка()

ФайлDBF=Новый XBase;
ФайлDBF.ОткрытьФайл(ИмяФайла,,Истина);

НовыйДокумент=Документы.ВводНачальныхОстатковОС.СоздатьДокумент();
НовыйДокумент.Дата=ТекущаяДата();
НовыйДокумент.Организация = Организации ;

ФайлDBF.Первая();
Пока НЕ ФайлDBF.ВКонце() Цикл

текОС = Справочники.ОсновныеСредства.НайтиПоКоду(ФайлDBF.os_code) ;
Если текОС.Пустая() Тогда
Сообщить("Не найдено ОС с кодом" + ФайлDBF.os_code) ;
Иначе
новСтрока = НовыйДокумент.ОС.Добавить() ;
новСтрока.ОсновноеСредство = текОС ;
новСтрока.ПервоначальнаяСтоимостьБУ = ФайлDBF.summa ;
новСтрока.НачислятьАмортизациюБУ = ФайлDBF.iznos ;
КонецЕсли ;

ФайлDBF.Следующая();
КонецЦикла;

НовыйДокумент.Записать(РежимЗаписиДокумента.Запись) ;
ФайлDBF.ЗакрытьФайл();
 
X

XiBoO

Гость
#3
код числовой типа 00001 а в восьмерке он соответственно 000001
 
P

Pro

Гость
#4
текОС = Справочники.ОсновныеСредства.НайтиПоКоду('0'+ФайлDBF.os_code) ;
 
X

XiBoO

Гость
#5
текОС = Справочники.ОсновныеСредства.НайтиПоКоду("0"+ФайлDBF.os_code) ; вот так заработало спасибо!
 
Статус
Закрыто для дальнейших ответов.