• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

XiBoO

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

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


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


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

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

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

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

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

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

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

XiBoO

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

Pro

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

XiBoO

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!