Привет, надо загрузить накладную в 1с 8,2 из DBF файла, в самом файле кодировка OEM просматриваю файл экселем или DBFShow нормально всё отображается, а при чтении в 1С в Отладчике названия колонок отображаются иероглифами. Как можно исправить? Код открытия файла:
хВ = Новый XBASE;
    Если Кодировка = "OEM" Тогда
        хВ.Кодировка = КодировкаXBase.OEM;
    КонецЕсли;
    Если Кодировка = "ANSI" Тогда
        хВ.Кодировка = КодировкаXBase.ANSI;
    КонецЕсли;
    хВ.ОткрытьФайл(ПутьКФайлу);
    
    хВ.Первая();
    ВсегоЗаписей = хВ.КоличествоЗаписей();
    Сообщить("Фаил успешно открыт");
    СоздатьПустойРазмер();
    СоздатьПустойЦвет();
    ТипНоменклатуры = Справочники.ТипыНоменклатуры.Изделие;
    Весовой = Истина;
    Итератор = 0;

    Пока Истина Цикл
        Итератор = Итератор + 1;
        Инд = Окр(Итератор / ВсегоЗаписей * 100, 2);
        ЕстьНом = 0;
        ГотоваяСтрока = ПрочитатьЗначениеПоФормату(хВ, ФорматФайла);

ап ап ап

Попробуй поменять местами открытие файла и установку кодировки

пробывал не реагирует

ПопробЫвай убрать из кода упоминание кодировки вообще :)

ЗЫ. жаль, у меня 8-ки нет, а в последний раз я читал дбф-ки в 2009 году.. забыл уже..

(0) Поставь принудительно нужную кодировку. Без проверок. Ибо признак кодировки в файле может отсутствовать.

читал с такой установкой:
xB.Кодировка     = КодировкаXbase.OEM;

(6) И с ней кракозябры? Тогда меняй кодировку.

(7) не я автор топика

я сообщаю, что спокойно читал массу дбф-файлов именно с таким оператором.

(6) +1, но была как-то засада с выгрузками из фокспро(кажется), им было плевать на устанавливаемую кодировку, приходилось использовать внешние источники.

(8) Пардон :), промахнулся :)

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase]
"DataCodePage"="ANSI"
"BDE"=dword:00000002

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"



и потом перегрузить машину

(11) хм.. и так - на каждой машине, где будет использоваться обработка..

ух ты народ! спасибо что отозвались!!! пардоньте за молчание.

(6) ну я тоже так устанавливаю

(5) как принудительно?

(11) Это называется из пушки по воробьям.

(15) Вместо
    Если Кодировка = "ANSI" Тогда
        хВ.Кодировка = КодировкаXBase.ANSI;
    КонецЕсли;

просто
       хВ.Кодировка = КодировкаXBase.ANSI;


Так понятно? Кодировку подобрать по месту.

(17) кодировка пользователем выбирается

(18) Ну вот пусть он ее правильно и выбирает.

(19) и ANSI и OEM пробывал всё равно

(20) за "пробЫвал" повбывав бы
Ну так займитесь определением правильной кодировки.
В крайнем случае дайте файл, посмотрю.