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

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

XiBoO

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

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


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


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

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

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

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

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

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

НовыйДокумент.Записать(РежимЗаписиДокумента.Запись) ;
ФайлDBF.ЗакрытьФайл();
 
Код текстовый или числовой?
 
код числовой типа 00001 а в восьмерке он соответственно 000001
 
текОС = Справочники.ОсновныеСредства.НайтиПоКоду('0'+ФайлDBF.os_code) ;
 
текОС = Справочники.ОсновныеСредства.НайтиПоКоду("0"+ФайлDBF.os_code) ; вот так заработало спасибо!
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

🚀 Первый раз на Codeby?
Гайд для новичков: что делать в первые 15 минут, ключевые разделы, правила
Начать здесь →
🔴 Свежие CVE, 0-day и инциденты
То, о чём ChatGPT ещё не знает — обсуждаем в реальном времени
Threat Intel →
💼 Вакансии и заказы в ИБ
Pentest, SOC, DevSecOps, bug bounty — работа и проекты от проверенных компаний
Карьера в ИБ →

HackerLab