Конвейер распознавания штрихкодов из картинок в PDF-файле: 1С + PowerShell + ZXing

Чтобы библиотека ZXing успешно распознала штрихкод EAN-128 (GS1-128), изображение должно строго удовлетворять трем фундаментальным критериям:

1. Наличие хотя бы одной «идеальной» линии сканирования

Алгоритм ZXing не анализирует штрихкод целиком как картинку — он виртуально «чертит» горизонтальные и диагональные линии поперек изображения. Штрихкод будет считан, если на пути хотя бы одной такой линии соблюдены следующие условия:

• Сквозное пересечение: Линия без разрывов проходит от левого белого поля до правого белого поля сквозь абсолютно все штрихи кода.
• Стартовый маркер: На этой линии четко считывается комбинация знаков Start A (или B, C) и спецсимвол FNC1. Именно FNC1 говорит библиотеке, что перед ней не просто Code 128, а стандарт EAN-128.
• Стоп-маркер: Линия сканирования доходит до финального символа Stop.

2. Математическая точность пропорций (Правило 11 модулей)

Поскольку алгоритм работает на чистой математике (без нейросетей), критически важна геометрия:

• Каждая буква или цифра в коде состоит из 3 штрихов и 3 пробелов, которые в сумме должны давать ровно 11 условных единиц ширины (модулей).
• Разрешение и фокус: Самый узкий штрих (в 1 модуль) на матрице камеры или скане должен занимать минимум 1.5–2 пикселя. Если картинка размыта, пропорции искажаются, ZXing не сможет поделить ширину знака на 11 и выдаст ошибку декодирования.

3. Обязательные свободные зоны (Quiet Zones)

• Слева и справа от крайних штрихов кода должно быть абсолютно чистое светлое пространство.
• Ширина этих полей должна быть минимум в 10 раз больше ширины самого узкого штриха штрихкода. Без этого алгоритм локализации ZXing просто не поймет, где на картинке начинаются и заканчиваются границы кода.

 HighQualityBicubic — это режим интерполяции в GDI+ (используется в .NET, например в Windows Forms), который обеспечивает максимально возможное качество при масштабировании изображений как при увеличении, так и при уменьшении. learn.microsoft.comlearn.microsoft.commsdn-whiteknight.github.io

При масштабировании алгоритм должен вычислить цвет и прозрачность каждого пикселя в новом изображении на основе исходных данных. При изменении размера алгоритм вычисляет цвет и прозрачность каждого пикселя в новом изображении на основе исходных данных. В отличие от простых режимов (вроде NearestNeighbor или Bilinear), HighQualityBicubic использует сложный и ресурсоёмкий алгоритм на основе кубических сплайнов, который учитывает значения не только ближайших, но и всех соседних пикселей. Это позволяет добиться очень плавных цветовых переходов и минимизировать появление ступенчатых артефактов («лесенок») на границах объектов

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

В цифровом изображении градация цвета пикселя обычно идёт в диапазоне от 0 до 255 (где 0 — это абсолютно чёрный цвет, а 255 — идеально белый). Алгоритм бинаризации берёт заданный нами порог яркости (например, значение 200) и начинает сравнивать с ним каждый пиксель:

• Всё, что больше 200 (светло-серый, блёклые шумы, грязь бумаги) — принудительно закрашивается в чистый белый цвет (255).

• Всё, что меньше 200 (тёмные элементы, сами полосы кода) — превращается в глубокий чёрный (0).

В итоге мы получаем высоко контрастное изображение: есть только белый фон и чёткие чёрные штрихи, без какого-либо постороннего «визуального мусора». Именно такая картинка подходит лучше всего для сканирования ZXing.

param (
    [string]$pdfFile  = "C:\pdf\file.pdf", # Путь к тестируемому PDF
    [string]$tempDir  = "C:\pdf\tmp",      # Временная папка для страниц
    [string]$zxingDll = "C:\pdf\zxing\zxing.dll", # Путь к библиотеке ZXing
    [string]$muTool   = "C:\pdf\mupdf\mutool.exe",  # Путь к утилите MuPDF
    [string]$debugDir = "C:\pdf\debug"     # Папка для сохранения отладочных картинок
)

Add-Type -AssemblyName System.Drawing
Add-Type -Path $zxingDll

# --- МЕТОД 1: Медленная бинаризация силами чистого PowerShell ---
function ConvertToBinary([System.Drawing.Bitmap]$bmp, [byte]$threshold) {
    $rect = New-Object System.Drawing.Rectangle(0, 0, $bmp.Width, $bmp.Height)
    $bmpData = $bmp.LockBits($rect, [System.Drawing.Imaging.ImageLockMode]::ReadWrite, [System.Drawing.Imaging.PixelFormat]::Format24bppRgb)
    $stride = $bmpData.Stride
    $totalBytes = [Math]::Abs($stride) * $bmp.Height
    $rgbValues = New-Object byte[] $totalBytes
    [System.Runtime.InteropServices.Marshal]::Copy($bmpData.Scan0, $rgbValues, 0, $totalBytes)
    
    for ($y = 0; $y -lt $bmp.Height; $y++) {
        for ($x = 0; $x -lt $bmp.Width; $x++) {
            $i = ($y * $stride) + ($x * 3)
            if ($i + 2 -lt $totalBytes) {
                # Формула люминесценции для перевода в оттенки серого
                $grayValue = [byte]($rgbValues[$i] * 0.11 + $rgbValues[$i+1] * 0.59 + $rgbValues[$i+2] * 0.3)
                $bwValue = if ($grayValue -lt $threshold) { 0 } else { 255 }
                $rgbValues[$i] = $rgbValues[$i+1] = $rgbValues[$i+2] = [byte]$bwValue
            }
        }
    }
    [System.Runtime.InteropServices.Marshal]::Copy($rgbValues, 0, $bmpData.Scan0, $totalBytes)
    $bmp.UnlockBits($bmpData)
}

# --- МЕТОД 2: Реактивная бинаризация на C# (написано с помощью AI) ---
function ConvertToBinaryFast([System.Drawing.Bitmap]$bmp, [byte]$threshold) {
    # Компилируем C# код прямо в памяти текущей PowerShell-сессии
    $Asm = Add-Type -TypeDefinition @"
    using System;
    using System.Drawing;
    using System.Drawing.Imaging;
    using System.Runtime.InteropServices;

    public class ImageProcessor {
        public static void Binarize(Bitmap bmp, byte threshold) {
            Rectangle rect = new Rectangle(0, 0, bmp.Width, bmp.Height);
            BitmapData bmpData = bmp.LockBits(rect, ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb);
            int stride = bmpData.Stride;
            int totalBytes = Math.Abs(stride) * bmp.Height;
            byte[] rgbValues = new byte[totalBytes];

            Marshal.Copy(bmpData.Scan0, rgbValues, 0, totalBytes);

            for (int y = 0; y < bmp.Height; y++) {
                for (int x = 0; x < bmp.Width; x++) {
                    int i = (y * stride) + (x * 3);
                    if (i + 2 < totalBytes) {
                        byte gray = (byte)(rgbValues[i] * 0.11 + rgbValues[i+1] * 0.59 + rgbValues[i+2] * 0.3);
                        byte bw = (gray < threshold) ? (byte)0 : (byte)255;
                        rgbValues[i] = rgbValues[i+1] = rgbValues[i+2] = bw;
                    }
                }
            }

            Marshal.Copy(rgbValues, 0, bmpData.Scan0, totalBytes);
            bmp.UnlockBits(bmpData);
        }
    }
"@ -ReferencedAssemblies "System.Drawing" -PassThru

    # Вызываем скомпилированный метод
    [ImageProcessor]::Binarize($bmp, $threshold)
}

# 1. Подготовка и очистка папок
if (-not (Test-Path $tempDir)) { New-Item -Path $tempDir -ItemType Directory | Out-Null }
else { Remove-Item "$tempDir\*.png" -ErrorAction SilentlyContinue }

if (-not (Test-Path $debugDir)) { New-Item -Path $debugDir -ItemType Directory | Out-Null }
else { Remove-Item "$debugDir\*.jpg" -ErrorAction SilentlyContinue }

# Настройка ридера ZXing
$reader = New-Object ZXing.BarcodeReader
$reader.Options.PossibleFormats = [System.Collections.Generic.List[ZXing.BarcodeFormat]]::new()
$reader.Options.PossibleFormats.Add([ZXing.BarcodeFormat]::CODE_128)
$reader.Options.TryHarder = $true
$reader.AutoRotate = $true

# Получаем количество страниц в документе
$info = & $muTool info $pdfFile
$totalPages = [int](($info | Select-String "Pages:") -split ':')[-1].Trim()
$results = New-Object System.Collections.Generic.List[PSObject]

Write-Host "Обработка PDF ($totalPages страниц) с анализом времени..." -ForegroundColor Cyan
$sw = New-Object System.Diagnostics.Stopwatch

# 2. Основной конвейер обработки страниц
1..$totalPages | ForEach-Object {
    $pageNum = $_
    $tmpImg = Join-Path $tempDir ("page-" + $pageNum + ".png")
    $bmp = $null; $cropped = $null; $scaled = $null; $decoded = $null
    
    $methodUsed = "NOT_FOUND" 
    $elapsedMs = 0 
    
    try {
        # Рендерим страницу во временный PNG файл
        & $muTool draw -r 300 -o $tmpImg $pdfFile $pageNum 2>&1 | Out-Null
        $bmp = [System.Drawing.Bitmap]::FromFile($tmpImg)
        
        # ЭТАП 0: Пробуем распознать штрихкод на чистом оригинале страницы
        $decoded = $reader.Decode($bmp)
        if ($null -ne $decoded) {
            $methodUsed = "    Этап 0 | Оригинал|"
        }
        
        # Задаем координаты зоны штрихкода (правый верхний угол)
        $startX = [int]($bmp.Width * 0.4)
        $cropW = [int]($bmp.Width - $startX - 1)
        $cropH = [int]($bmp.Height * 0.18)
        $rect = New-Object System.Drawing.Rectangle($startX, 0, $cropW, $cropH)
        $cropped = $bmp.Clone($rect, $bmp.PixelFormat)

        # --- СТАРТ ЗАМЕРА ВРЕМЕНИ ДЕКОДИРОВАНИЯ МОДИФИЦИРОВАННЫХ ФРАГМЕНТОВ ---
        $sw.Restart()

        # ЭТАП 1: Быстрый тест на «чистом» кропе
        $reader.Options.TryInverted = $false
        $reader.Options.PureBarcode = $false
        $decoded = $reader.Decode($cropped)
        
        if ($null -ne $decoded) {
            $methodUsed = "    Этап 1 | Кроп|"
        }
          
        # ЭТАП 2: Новая идея — бинаризация МИНИАТЮРЫ (сразу после кропа)
        if ($null -eq $decoded) {
            # Для переключения на сверхбыстрый метод от AI — замените комментирование строк ниже:
            ConvertToBinary $cropped 200
            # ConvertToBinaryFast $cropped 200

            $decoded = $reader.Decode($cropped)
            $methodUsed = "    Этап 2 |Кроп + бинаризация|"
        }

        # ЭТАП 3 и 4: Старая тяжелая схема (апскейл + бинаризация), если предыдущие шаги не помогли
        if ($null -eq $decoded) {
            # Бэкапим исходный кроп для истории
            $origCropPath = Join-Path $debugDir ("page-" + $pageNum + "-ORIG-cropped.jpg")
            $cropped.Save($origCropPath, [System.Drawing.Imaging.ImageFormat]::Jpeg)

            # Масштабируем картинку в 2.5 раза
            $scaled = New-Object System.Drawing.Bitmap([int]($cropped.Width * 2.5), [int]($cropped.Height * 2.5))
            $g = [System.Drawing.Graphics]::FromImage($scaled)
            $g.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
            $g.DrawImage($cropped, 0, 0, $scaled.Width, $scaled.Height)
            $g.Dispose()

            # Добавление белых полей (Padding)
            $paddingX = 50
            $paddingY = 30
            $newWidth  = $scaled.Width + ($paddingX * 2)
            $newHeight = $scaled.Height + ($paddingY * 2)

            $paddedBefore = New-Object System.Drawing.Bitmap($newWidth, $newHeight, [System.Drawing.Imaging.PixelFormat]::Format24bppRgb)
            $gBefore = [System.Drawing.Graphics]::FromImage($paddedBefore)
            $gBefore.Clear([System.Drawing.Color]::White)
            $gBefore.DrawImage($scaled, $paddingX, $paddingY)
            $gBefore.Dispose()
            
            $paddedBefore.Save((Join-Path $debugDir ("page-" + $pageNum + "-BEFORE-binary.jpg")), [System.Drawing.Imaging.ImageFormat]::Jpeg)
            $paddedBefore.Dispose()

            # Пробуем декодировать чистый апскейл
            $decoded = $reader.Decode($scaled)
            if ($null -ne $decoded) {
                $methodUsed = "    Этап 2 |Увеличение|"
            }

            if ($null -eq $decoded) {
                # Если не помогло — запускаем тяжелую бинаризацию по большой площади
                ConvertToBinary $scaled 190
                # ConvertToBinaryFast $scaled 120
                
                $paddedAfter = New-Object System.Drawing.Bitmap($newWidth, $newHeight, [System.Drawing.Imaging.PixelFormat]::Format24bppRgb)
                $gAfter = [System.Drawing.Graphics]::FromImage($paddedAfter)
                $gAfter.Clear([System.Drawing.Color]::White)
                $gAfter.DrawImage($scaled, $paddingX, $paddingY)
                $gAfter.Dispose()

                $paddedAfter.Save((Join-Path $debugDir ("page-" + $pageNum + "-AFTER-binary.jpg")), [System.Drawing.Imaging.ImageFormat]::Jpeg)

                $decoded = $reader.Decode($paddedAfter)
                $paddedAfter.Dispose()
                
                if ($null -ne $decoded) {
                    $methodUsed = "    Этап 3 |Увеличение + Бинаризация|"
                }

                # Самый крайний случай — инверсия цветов
                if ($null -eq $decoded) {
                    $reader.Options.TryInverted = $true
                    $decoded = $reader.Decode($scaled)
                    if ($null -ne $decoded) {
                        $methodUsed = "Этап 5 |Бинаризация + Инверсия|"
                    }
                }
            }
        }

        # --- СТОП ЗАМЕРА ВРЕМЕНИ ---
        $sw.Stop()
        $elapsedMs = $sw.ElapsedMilliseconds

        # Фиксируем результаты
        $foundText = "NOT_FOUND"
        if ($null -ne $decoded -and $null -ne $decoded.Text) {
            $foundText = $decoded.Text.ToString()
        } else {
            $methodUsed = "NOT_FOUND"
        }

        $results.Add([PSCustomObject]@{
            Page      = $pageNum
            Barcode   = $foundText
            Method    = $methodUsed
            TimeMs    = $elapsedMs
            ImagePath = $tmpImg
        })
        
        # Логирование в консоль
        if ($foundText -ne "NOT_FOUND") {
            Write-Host ("{0} Стр {1}: {2} | Время: {3} мс | Метод: {4}" -f "[OK]", $pageNum, $foundText, $elapsedMs, $methodUsed) -ForegroundColor Green
        } else {
            Write-Host ("{0} Стр {1}: NOT_FOUND" -f "[--]", $pageNum) -ForegroundColor Yellow
        } 
    }
    catch {
        Write-Host ("Ошибка на странице {0}: {1}" -f $pageNum, $_.Exception.Message) -ForegroundColor Red
    }
    finally {
        # Своевременно освобождаем неуправляемые ресурсы GDI+
        if ($null -ne $scaled)  { $scaled.Dispose() }
        if ($null -ne $cropped) { $cropped.Dispose() }
        if ($null -ne $bmp)     { $bmp.Dispose() }
    }
}

# 3. Экспорт результатов в CSV
$csvPath = $pdfFile -replace "\.pdf$", ".csv"
$results | Export-Csv -Path $csvPath -NoTypeInformation -Encoding UTF8 -Delimiter ";"

Write-Host ("`nГотово! Результаты сохранены: {0}" -f $csvPath) -ForegroundColor Magenta
Write-Host ("Отладочные сканы лежат в: {0}" -f $debugDir) -ForegroundColor Gray

param (
    [string]$pdfFile  = "C:\PARSE\parse_pdf\file.pdf",# нужно путь прописать самому
    [string]$tempDir  = "C:\pdf\tmp",    # нужно путь прописать самому      
    [string]$zxingDll = "C:\PARSE\parse_pdf\zxing\zxing.dll", # нужно путь прописать самому
    [string]$muTool   = "C:\PARSE\parse_pdf\mupdf\mutool.exe" # нужно путь прописать самому
)

Add-Type -AssemblyName System.Drawing
Add-Type -Path $zxingDll

function ConvertToBinary([System.Drawing.Bitmap]$bmp, [byte]$threshold) {
    $rect = New-Object System.Drawing.Rectangle(0, 0, $bmp.Width, $bmp.Height)
    $bmpData = $bmp.LockBits($rect, [System.Drawing.Imaging.ImageLockMode]::ReadWrite, [System.Drawing.Imaging.PixelFormat]::Format24bppRgb)
    $stride = $bmpData.Stride
    $totalBytes = [Math]::Abs($stride) * $bmp.Height
    $rgbValues = New-Object byte[] $totalBytes
    [System.Runtime.InteropServices.Marshal]::Copy($bmpData.Scan0, $rgbValues, 0, $totalBytes)
    
    for ($y = 0; $y -lt $bmp.Height; $y++) {
        for ($x = 0; $x -lt $bmp.Width; $x++) {
            $i = ($y * $stride) + ($x * 3)
            if ($i + 2 -lt $totalBytes) {
                $grayValue = [byte]($rgbValues[$i] * 0.11 + $rgbValues[$i+1] * 0.59 + $rgbValues[$i+2] * 0.3)
                $bwValue = if ($grayValue -lt $threshold) { 0 } else { 255 }
                $rgbValues[$i] = $rgbValues[$i+1] = $rgbValues[$i+2] = [byte]$bwValue
            }
        }
    }
    [System.Runtime.InteropServices.Marshal]::Copy($rgbValues, 0, $bmpData.Scan0, $totalBytes)
    $bmp.UnlockBits($bmpData)
}

# 1. Подготовка
if (-not (Test-Path $tempDir)) { New-Item -Path $tempDir -ItemType Directory | Out-Null }
else { Remove-Item "$tempDir\*.png" -ErrorAction SilentlyContinue }

$reader = New-Object ZXing.BarcodeReader
$reader.Options.PossibleFormats = [System.Collections.Generic.List[ZXing.BarcodeFormat]]::new()
$reader.Options.PossibleFormats.Add([ZXing.BarcodeFormat]::CODE_128)
$reader.Options.TryHarder = $true
$reader.AutoRotate = $true

# Получаем количество страниц
$info = & $muTool info $pdfFile
$totalPages = [int](($info | Select-String "Pages:") -split ':')[-1].Trim()
$results = New-Object System.Collections.Generic.List[PSObject]

Write-Host "Обработка PDF ($totalPages страниц)..." -ForegroundColor Cyan

# 2. Основной цикл
1..$totalPages | ForEach-Object {
    $pageNum = $_
    $tmpImg = Join-Path $tempDir ("page-" + $pageNum + ".png")
    $bmp = $null; $cropped = $null; $scaled = $null; $decoded = $null
    
    try {
        # Извлекаем страницу (DPI 300 для гарантии, раз мы теперь пропускаем бинаризацию)
        & $muTool draw -r 300 -o $tmpImg $pdfFile $pageNum 2>&1 | Out-Null
        $bmp = [System.Drawing.Bitmap]::FromFile($tmpImg)
        
        $startX = [int]($bmp.Width * 0.4)
        $cropW = [int]($bmp.Width - $startX - 1)
        $cropH = [int]($bmp.Height * 0.18)
        $rect = New-Object System.Drawing.Rectangle($startX, 0, $cropW, $cropH)
        $cropped = $bmp.Clone($rect, $bmp.PixelFormat)

        # ШАГ 1: БЫСТРЫЙ ТЕСТ
        $reader.Options.TryInverted = $false
        $reader.Options.PureBarcode = $false
        $decoded = $reader.Decode($cropped)

        # ШАГ 2: ЕСЛИ НЕ НАШЛИ
        if ($null -eq $decoded) {
            $scaled = New-Object System.Drawing.Bitmap([int]($cropped.Width * 2.5), [int]($cropped.Height * 2.5))
            $g = [System.Drawing.Graphics]::FromImage($scaled)
            $g.InterpolationMode = [System.Drawing.Drawing2D.InterpolationMode]::HighQualityBicubic
            $g.DrawImage($cropped, 0, 0, $scaled.Width, $scaled.Height)
            $g.Dispose()

            $decoded = $reader.Decode($scaled)

            if ($null -eq $decoded) {
                ConvertToBinary $scaled 185
                $decoded = $reader.Decode($scaled)

                if ($null -eq $decoded) {
                    $reader.Options.TryInverted = $true
                    $decoded = $reader.Decode($scaled)
                }
            }
        }

        # --- СОХРАНЕНИЕ РЕЗУЛЬТАТА (внутри цикла!) ---
        $foundText = "NOT_FOUND"
        if ($null -ne $decoded -and $null -ne $decoded.Text) {
            $foundText = $decoded.Text.ToString()
        }

        $results.Add([PSCustomObject]@{
            Page      = $pageNum
            Barcode   = $foundText
            ImagePath = $tmpImg
        })
    
    }
    catch {
      #  Write-Host ("Ошибка на странице {0}: {1}" -f $pageNum, $_.Exception.Message) -ForegroundColor Red
    }
    finally {
        # Освобождаем ресурсы
        if ($null -ne $scaled)  { $scaled.Dispose() }
        if ($null -ne $cropped) { $cropped.Dispose() }
        if ($null -ne $bmp)     { $bmp.Dispose() }
    }
} # КОНЕЦ ЦИКЛА ForEach-Object

# 3. Сохранение итогов
$csvPath = $pdfFile -replace "\.pdf$", ".csv"
$results | Export-Csv -Path $csvPath -NoTypeInformation -Encoding UTF8 -Delimiter ";"

Write-Host ("`nГотово! Результаты: {0}" -f $csvPath) -ForegroundColor Magenta

&НаКлиенте
Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
	
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);  
	Диалог.Заголовок = "Выберите файл PDF";  
	Диалог.Фильтр = "PDF файлы(*.pdf;*.pdf)|*.pdf;*.pdf";  
	Диалог.МножественныйВыбор = Ложь;
	
	Если Диалог.Выбрать() Тогда  
		ПутьКФайлу = Диалог.ПолноеИмяФайла; 
	КонецЕсли;  

КонецПроцедуры

&НаКлиенте
Процедура ОбработатьФайл(Команда)

	АдресВХ = "";
	ПоместитьФайл(АдресВХ, ПутьКФайлу,, Ложь, ЭтаФорма.УникальныйИдентификатор);
	ОбработатьФайлНаСервере(АдресВХ);
	
КонецПроцедуры

&НаСервере
Процедура ОбработатьФайлНаСервере(АдресВХ)
	
	Результаты.Очистить();
	
	// Брем файл из временного хранилища и пишем на диск сервера
	ДвоичныеДанные 		= ПолучитьИзВременногоХранилища(АдресВХ);
	ИмяВременногоФайла 	= ПолучитьИмяВременногоФайла("pdf"); 
	ДвоичныеДанные.Записать(ИмяВременногоФайла);
	
	ВыбФайл 		= Новый Файл(ИмяВременногоФайла); 
	НовоеИмяФайла 	= ИмяВременногоФайла; 
	КаталогФайла	= ВыбФайл.Путь; 
	
	// для PowerShell важно, чтобы в пути к папке не было финального слэша
	ДлинаСтроки 	= СтрДлина(КаталогФайла);
	КаталогФайла	= Лев(КаталогФайла, ДлинаСтроки - 1);
		
	// Параметры запуска для подавления окон и ускорения инициализации:
	// -WindowStyle Hidden: скрывает окно консоли
	// -NonInteractive: отключает интерактивные запросы к пользователю
	// -NoProfile: ускоряет запуск (не загружает профиль пользователя)
	ПутьКСкрипту     = "C:\PARSE\parse_pdf\conv_pdf.ps1";
	ПапкаPNG         = КаталогФайла; // Сюда скрипт нарежет PNG-страницы
	ФайлPDF          = НовоеИмяФайла;
	
	ШаблонКоманды    = "powershell.exe -ExecutionPolicy Bypass -File ""%1"" -pdfFile ""%2"" -tempDir ""%3""";
	Команда          = СтрШаблон(ШаблонКоманды, ПутьКСкрипту, ФайлPDF, ПапкаPNG);
	
	КодЗавершения    = Неопределено;
	
	Сообщить("Запущено распознавание ШК... " + ТекущаяДата());
	// Запускаем приложение в синхронном режиме (третий параметр = Истина)
	ЗапуститьПриложение(Команда, , Истина, КодЗавершения);
	Сообщить("Завершено распознавание ШК..." + ТекущаяДата());
	
	Если КодЗавершения < 1 Тогда
		// Скрипт отработал штатно, парсим CSV-карту результатов
		ТаблицаДанных = ПрочитатьФайлCSV(НовоеИмяФайла);
		ВыполнитьДействияВСистемеПоТаблицеДанных(ТаблицаДанных);
		УдалениеФайлов(НовоеИмяФайла, ТаблицаДанных);
		ЗаполнитьИнформациюОРезультатахОбработки(ТаблицаДанных);
	Иначе
		Сообщить("Скрипт завершил работу с ошибкой. Код ошибки: " + КодЗавершения);
	КонецЕсли;	
	
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьИнформациюОРезультатахОбработки(ТаблицаДанных)
	
	нпп = 1;
	Для Каждого СтрокаДанных Из ТаблицаДанных Цикл
		НоваяСтрока            = Результаты.Добавить();
		НоваяСтрока.Рекламация  = СтрокаДанных.Рекламация;
		НоваяСтрока.ПутьКФайлу  = СтрокаДанных.НовыйПутьФайла;
		НоваяСтрока.Статус     = СтрокаДанных.Статус;
		НоваяСтрока.Нпп        = нпп;
		нпп                    = нпп + 1;
	КонецЦикла;	
		
КонецПроцедуры	

&НаСервере
Функция ПрочитатьФайлCSV(Знач ИмяФайла)
		
	ВыбФайл          = Новый Файл(ИмяФайла); 
	КаталогФайла     = ВыбФайл.Путь;
	ИмяБезРасширения = ВыбФайл.ИмяБезРасширения;
	
	Таблица = Новый ТаблицаЗначений();
	Таблица.Колонки.Добавить("ЗначениеШК");
	Таблица.Колонки.Добавить("ПутьКФайлу");
	Таблица.Колонки.Добавить("Статус"); 
	Таблица.Колонки.Добавить("Рекламация");
	Таблица.Колонки.Добавить("НовыйПутьФайла");
	
	ИмяФайлаCSV = КаталогФайла + ИмяБезРасширения + ".csv";
	ФайлCSV     = Новый Файл(ИмяФайлаCSV); 
	
	Если ФайлCSV.Существует() Тогда
		ЗагружаемыйФайл = Новый ТекстовыйДокумент;
		ЗагружаемыйФайл.Прочитать(ИмяФайлаCSV, КодировкаТекста.UTF8);  
		
		ВсегоСтрок = ЗагружаемыйФайл.КоличествоСтрок();
		
		// Начинаем со 2-й строки, так как первая — это заголовки CSV
		Для к = 2 по ВсегоСтрок Цикл
			НоваяСтрока = Таблица.Добавить();
			МассивЗначений = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ЗагружаемыйФайл.ПолучитьСтроку(к), ";", Истина);
			
			// Очищаем кавычки, которые Export-Csv вешает на значения
			НоваяСтрока.ЗначениеШК = СтрЗаменить(МассивЗначений[1], """", "");
			НоваяСтрока.ПутьКФайлу = СтрЗаменить(МассивЗначений[2], """", "");
			НоваяСтрока.Статус     = "Не распознано";
		КонецЦикла;
	Иначе
		Сообщить("Скрипт не отработал! CSV файл не был создан.");
	КонецЕсли;
	
	Возврат Таблица;
		
КонецФункции   

Процедура ВыполнитьДействияВСистемеПоТаблицеДанных(ТаблицаДанных)
	Для Каждого СтрокаДанных Из ТаблицаДанных Цикл
		НайтиДокументИПереместитьФайл(СтрокаДанных);
	КонецЦикла;	
КонецПроцедуры

Процедура НайтиДокументИПереместитьФайл(СтрокаДанных)
	// Тут ваша логика поиска документов по ШК и привязки сканов
	ШК = СтрокаДанных.ЗначениеШК;	
	// ДокументСсылка = ....;
КонецПроцедуры	

Процедура УдалениеФайлов(ИмяФайлаPDF, ТаблицаДанных)
	
	// Чистим временные PNG-картинки страниц
	Для Каждого Строка Из ТаблицаДанных Цикл
		Попытка
			УдалитьФайлы(Строка.ПутьКФайлу);
		Исключение   
			Сообщить(ОписаниеОшибки());
		КонецПопытки;	
	КонецЦикла;	
	
	ИмяФайлаCSV = СтрЗаменить(ИмяФайлаPDF, ".pdf", ".csv"); 
	
	// Чистим сам темповый PDF и CSV-карту
	Попытка
		УдалитьФайлы(ИмяФайлаCSV);
		УдалитьФайлы(ИмяФайлаPDF);
	Исключение       
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
	
КонецПроцедуры	

&НаКлиенте
Процедура РезультатыПутьКФайлуОткрытие(Элемент, СтандартнаяОбработка)
	СтандартнаяОбработка = Ложь;
	ТекущиеДанные = Элементы.Результаты.ТекущиеДанные;
	Если ТекущиеДанные <> Неопределено Тогда
		ЗапуститьПриложение(ТекущиеДанные.ПутьКФайлу);
	КонецЕсли;
КонецПроцедуры