Старые клиенты обратились с проблемой: не выгружается СЗВ-Стаж. При выгрузке процесс доходил до конца и в конце программа просто вылетала с ошибкой.
При детальном разборе выяснилось, что файл выгружается нормально в кодировке Windows-1251. Затем производится конвертация в кодировку UTF-8 при помощи COM-объекта ADODB.Stream. Вот самый конец функции ФайлСЗВ_СТАЖ() в модуле Отчет.ПодготовкаСведенийДляПФР2017:
АдоДБСтрим = CreateObject("Adodb.Stream");
АдоДБСтрим.Charset="windows-1251";
АдоДБСтрим.Type = 2;
АдоДБСтрим.Mode= 3;
АдоДБСтрим.Open();
АдоДБСтрим.LoadFromFile(ПолноеИмяФайла);
ТекстАдоДБСтрим = АдоДБСтрим.ReadText();
АдоДБСтрим.Close();
АдоДБСтрим.Charset = "utf-8";
АдоДБСтрим.Open();
АдоДБСтрим.WriteText(ТекстАдоДБСтрим);
АдоДБСтрим.SaveToFile(ПолноеИмяФайла, 2);
АдоДБСтрим.Close();
На этом коде программа просто вылетала. Принял решение заменить это на запуск скрипта PowerShell. В PS изменение кодировки можно сделать так:
$WithBOM = $false
$enc1251 = [System.Text.Encoding]::GetEncoding(1251)
$encUTF8 = New-Object System.Text.UTF8Encoding($WithBOM)
$reader = New-Object -TypeName System.IO.StreamReader -ArgumentList $Source,$enc1251
$writer = New-Object -TypeName System.IO.StreamWriter -ArgumentList $Destination,$encUTF8
while ($true) {
$line = $reader.ReadLine()
if ($line -eq $null) {
break
}
$writer.WriteLine($line)
}
$reader.Close()
$writer.Close()
Написал скрипт, положил его в папку, прописанную в Path, добавил код вызова в 1С вместо указанного выше кода:
ЗапуститьПриложение("powershell.exe -ExecutionPolicy Bypass ""& ChangeEncoding.ps1 '" + ПолноеИмяФайла + "'""");
и всё заработало, клиент доволен.
У клиента Windows 7. PowerShell не обновлял, думаю, что древний, так что требования в этом смысле минимальные.
P. S. Если кто в курсе, почему может возникать такая ошибка при использовании ADODB.Stream — прошу в комменты.
