8.х читаю из *.dbf а там что то с кодировкой

подскажите пожалуйста...
есть процедура:

Код:

Путь = "C:\";
БД = Новый XBase;
БД.ОткрытьФайл(Путь+"5.dbf");
Пока БД.Следующая()Цикл
Сообщить(БД.FAMIL);
КонецЦикла;
БД.ЗакрытьФайл();

сообщает какие то нечетаемые символы, как изменить кодировку?
и ещё такой вопрос как сделать:

Код:

БД.ОткрытьФайл(Путь+"5.dbf");

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

Код:

БД.ОткрытьФайл(Адрес);

не получается... хотя в переменной он содержится...
то есть если вывести как сообщение то оно имеет вид "С:\5.dbf"

Открой синтаксис помошник и увидишь там есть свойство кодировка..

Код:

xB = Новый xBase("C:\temp.dbf");
xB.Кодировка=КодировкаXBase.OEM;

Насчет открытия файла попробуй СокрЛП(Адрес), а то может там пробелы

Подскажите как сделать номера ПФР...
у меня в базе(*dbf) номер разбит на 2 колонки, первая сам номер вторая проверочные 2 цифры...
проблема в том что нули обрезаны и что то я не могу сообразить как проверять на количесвто знаков+ноль(если нужен)+ проверочные+ноль если нужен...
и как я только не пробывал записать номер ПФР(в случае если какие то значения записывались), при открытии элемента справочника выдаёт ошибку"не возможно преобразовать к типу число" общий модуль "регламентированная отчётность" строка 672... уже замучился подскажите что делать?

Берем только из первой колонки что нам нужно Пусть это будет поле 1, а там где проверочные поле 2.Потом

Код:

НомерПФР=Поле1;
КонтрольнаяСумма=Поле2;
//Добавляем нули
Пока СтрДлина(НомерПФР)<9 Тогда
НомерПФР="0"+НомерПФР"
КонецЦикла; 
</span>
//добавляем контрольные цифры

НомерПФР=""+НомерПФР+КонтрольнаяСумма;
</FONT></FONT></pre>

Запустите открытие в отладчике(поставьте галочку остановка при ошибке), тогда точно будете знать что он не может в число преобразовать

Проблема, скорее всего, в неразрывном пробеле.

написал вот так:

Код:

Пока СтрДлина(НомерПФР)<9 Цикл
НомерПФР = ("0"+(НомерПФР));
КонецЦикла;

выводит через сообщить:

0
34 318 141
34 169 226
30 460 330
0
114 598 301
40 832 587
то есть как я понимаю ноль у меня не прибавляется...

В числах ведущий ноль игнорируется. Используйте функцию формат для изменения представления

то есть мне перед записью нужно функцие формат добавить нули? а затем записать?

подскажите почему так может быть, читаю из *dbf, но не все данные попадают в справочник физ лиц?

Код:

//Открываем БД
БД = Новый XBase;
БД.ОткрытьФайл(ПутьДоДБФ1);
БД.Кодировка=КодировкаXBase.OEM;
//Читаем БД
Пока БД.Следующая()Цикл
ДокВид = СокрЛП(БД.VID);
ДокСерия = СокрЛП(БД.SERIA);
ДокНомер = СокрЛП(БД.NOMER);
Пол = СокрЛП(БД.POL_S);
ИНН = СокрЛП(БД.INN);
ФИО = СокрЛП(БД.FIO);
ДатаРождения = Дата(БД.ROZDEN);
Если ФИО <> "" Тогда
// ПОЛ
Если Пол = "М" Тогда
Пол = Перечисления.ПолФизическихЛиц.Мужской;
Иначе Если
Пол = "Ж" Тогда
Пол = Перечисления.ПолФизическихЛиц.Женский;
КонецЕсли;
//ИНН
Если ИНН <> Неопределено Тогда
КодИМНС = Лев(ИНН,4);
КонецЕсли;
//ПФР
//Запись
ФизЛицо = Справочники.ФизическиеЛица.СоздатьЭлемент();
ФизЛицо.Наименование = Строка(ФИО);
ФизЛицо.Пол = Пол;
ФизЛицо.ДатаРождения = ДатаРождения;
ФизЛицо.ИНН = ИНН;
ФизЛицо.КодИМНС = КодИМНС;
ФизЛицо.Записать();
КонецЕсли;

КонецЦикла;

то есть у меня вроде одно условие это что бы ФИО не было пустой строкой, но почему то переносятся не все сотрудники, я бы сказал что приблизительно треть не переносится... почему это может быть? я думал может проблема в длинне наименования(ФИО), но не переносятся и короткие фамилии...

Попробйте при получения данных из ДБФ сразу преобразовывать к нужным Вам типам

ФИО = СокрЛП(СТРОКА(БД.FIO));

не помогает...

Зпустите в отладчике и гляньте на тех людях почему они не записываются, где он их рубит

во время записи....
то есть перед строкой записать переменная ФИО содержит значение, а не записывает... то есть в справочник это значение не записывается... нет там такого человека...

Советую поставить еще отладчик в модуль объекта справочника ФЛ в процедурах при записи и перед записью. Просто видно там чего то не хватает и идет отказ. Ну например какой то реквизит не такой или еще что то.

Кстати можете вот так еще написать
вместо

ФизЛицо.Записать();

Код:

Попытка
ФизЛицо.Записать();
Исключение
Инфо = ИнформацияОбОшибке();
Сообщить("Описание='" + Инфо.Описание + "'");
Сообщить("ИмяМодуля='" + Инфо.ИмяМодуля + "'");
Сообщить("НомерСтроки=" + Инфо.НомерСтроки);
Сообщить("ИсходнаяСтрока='" + Инфо.ИсходнаяСтрока + "'");
КонецПопытки;

разобрался я с сотрудниками как всегда всё из за кривости рук....

Код:

Если Пол = "М" Тогда 
Пол = Перечисления.ПолФизическихЛиц.Мужской;         
Иначе Если                
Пол = "Ж" Тогда              
Пол = Перечисления.ПолФизическихЛиц.Женский;          
КонецЕсли;

косяк был в " Иначе Если" пробел тут явно лишний....

подскажите пожалуйста....
из пред идущей процедуры вызываю процедуру записи паспортных данных в регистр сведений...

Код:

Вид = строка("ИМНС"+ДокВид);
ВидДока=Справочники.ДокументыУдостоверяющиеЛичность.НайтиПоРеквизиту("КодИМНС",Вид).Ссылка;
НабЗап = РегистрыСведений.ПаспортныеДанныеФизЛиц.СоздатьНаборЗаписей();

ФизЛицо = Справочники.ФизическиеЛица.НайтиПоНаименованию(ФИО).Ссылка;


НоваяЗапись = НабЗап.Добавить();
НоваяЗапись.Период = ТекущаяДата();
НоваяЗапись.ДокументВид = ВидДока.Ссылка.Наименование;
НоваяЗапись.ФизЛицо = ФизЛицо.Ссылка;
НоваяЗапись.ДокументНомер = ДокНомер;
НоваяЗапись.ДокументСерия = ДокСерия;
НоваяЗапись.ДокументДатаВыдачи = ТекущаяДата();
НабЗап.Записать();

что то напутал видимо опять у меня в регистре сведений всего одна запись... я думаю что наверное он стерает пред идущую... и не записывается вид документа... что я делаю не так?

По поводу вида документа у вас строчка

НоваяЗапись.ДокументВид = ВидДока.Ссылка.Наименование;

насколько я помню там вид документа это ссылка на справочник

НоваяЗапись.ДокументВид = ВидДока.Ссылка;