|
&НаСервере
Процедура ПарсингНомераДокумента(ВхСтр)
//ВхСтр - Строка адреса ФИАС
//-----------------------------------------------
//Акт
выполненных работ 000000123 от 23.03.2022 13:47:29
СтрОбл1
= "Акт выполненных работ ";
СтрОбл2
= " от ";
Поз1Нач
= СтрДлина(СтрОбл1) + 1;
Поз1Кон
= СтрНайти(ВхСтр,
СтрОбл2, , Поз1Нач, 1);
СтрНомер = Сред(ВхСтр, Поз1Нач,
Поз1Кон - Поз1Нач);//9 символов
Поз2Нач
= Поз1Кон + СтрДлина(СтрОбл2);
Поз2Кон
= СтрДлина(ВхСтр);
СтрДата = Сред(ВхСтр, Поз2Нач,
Поз2Кон - Поз2Нач + 1);//19 символов
СсылкаНаДок = Документы.АктВыполненныхРабот.НайтиПоНомеру(СтрНомер, СтрДата);
Если
НЕ СсылкаНаДок.Пустая() Тогда
Объект.АктыВыполненныхРаботНомер = СтрНомер;
Объект.АктыВыполненныхРаботДата = СтрДата;
КонецЕсли;
КонецПроцедуры
|