• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

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

  • Автор темы 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) ; вот так заработало спасибо!
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

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