Добрый день, у меня имеется dbf файл. Нужно написать обработку, которая при выборе файла, будет заполнять данные справочника(все соответственно прописано в коде). Часть информации берется из регистра сведений. Для заполнения справочника физ лица, у меня имеется 2 dbf файла, как мне сливать с них информацию, используя оба одновременно? связаны они по колонке, id которой у них совпадает

(0) Считать оба файла в таблицу(цы) значений и потом с ней(ними) работать?

Читать из одного файла, писать в ТЗ, читать из другого файла, писать в ТЗ, обрабатывать

1000 руб.

Сделать сводный dbf. Тем же Фокс про.

Процедура Перенос
Отказ = ЛОЖЬ;
   СпрКонтр = Справочники.ФизическиеЛица;
   Файл = Новый XBASE;
   Файл.ОткрытьФайл("С:\F01.dbf");
   Файл.Первая();
Пока Файл.ВКонце()= 0 Цикл
        НомерЗаписи = Файл.НомерЗаписи(); /
        ТабельныйНомер = Файл.Tb;
        ФИО = Файл.fn;
        ДатаРождения = Файл.db;
        Пол = Файл.sex;
        ПаспортСерия = Файл.pasp_ser;
        ПаспортНомер = Файл.pasp_num;
        ДатаВыдачи = Файл.dg;
        КтоВыдал = Файл.who_gave;
        КодНалоговой = Файл.kod_gnii;
        КарточкаПФР = Файл.nstrah;
        Адреса = Файл.kod_reg;
        НаименованиеРегиона = Файл.nm_reg;
        Индекс = Файл.pi;
        Область = Файл.district;
        Город = Файл.city;
        Район = Файл.settlement;
        Улица = Файл.street;
        Дом = Файл.house;
        Корпус = Файл.sub_house;
        Квартира = Файл.flat;
        СпрФизЛица = Справочники.ФизическиеЛица;
        СтрФизЛица = СпрФизЛица.СоздатьЭлемент();
        НаборФЛ = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
        НаборФЛ.Прочитать();
        СсылкаФЛ =  СтрФизЛица.Ссылка;
       
     

        СтрРег = НаборФЛ.Добавить();
        СтрРег.Объект = СтрФизЛица.Ссылка; /

        СтрРег.Вид = Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Адрес").Ссылка;  
        СтрРег.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
        СтрРег.Представление = Адрес;
       
   КонецЦикла;

   Файл.ЗакрытьФайл();

вот что накатал пока, но такая обработка не будет ведь загружать данные так как мне нужно?

пздц...

вот это зачем?

НаборФЛ = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
        НаборФЛ.Прочитать();

У... Я пошел... :)

"Справочники.ВидыКонтактнойИнформации.НайтиПоНаименованию("Адрес").Ссылка" - этот вида адреса разве не предопределенный?

(10) да, я, пожалуй, тоже..

(9) а как я задам запись из регистра сведений?

ублюдки, хрен кто поможет

(0) иди в П..оиск по форуму. нет смысла расписывать этот баян, тем более, если в программировании нуль.

Прочитать файл в ТЗ, ТЗ загнать в запрос и соединить с чем надо и как надо

(14) следи за базаром, правило 1.

(17) потому что когда нормально спрашивают, нужно нормально отвечать, или не отвечат вообще, нахер писать эти ваши уу все запущено и все такое? они результату не помогут

(18) а ты бы мог вместо того, чтобы спрашивать почитать литературу, подумать мозгом. Идти на форум с просьбой и обзывать всех - по твоему это правильно?

(19) пытаюсь разобраться, и тут я не пишу чтоб мне написали готовый код,бесят бешенные задроты, которые вместо подсказки пишут сразу 1к

(20) тут пол форума троллей, в интернетах всегда кто-то не прав, к этому надо быть готовым когда заходишь на любой сайт.

(20) модеры спят сегодня по ходу. Умник, тебе ответили в (1). Больше сказать нечего. Если ты неадекватно реагируешь на шутки, то тебе надо не сюда, а к психологу. Если ты не понял сказанного в (1), то твою ошибку в ДНК уже никто не исправит, придется смириться. Ты спрашиваешь об элементарных вещах.

Процедура Загрузить(Кнопка)
   
   Перем ТекСтрока;                                  

   НомерСчета="";
   ДатаСчета ="";

   
   ТаблицаДокументов.Очистить();
   ДеревоЗн.Строки.Очистить();
   
   Бд=новый xbase;
   Бд.открытьФайл(фИмяФайлаИсточника);
   

   Для Ном = 1 По БД.КоличествоЗаписей() Цикл
       БД.Перейти(Ном);

       
       

       
       ДатаСчета =БД.DATA_SF;
       
       
       Если  НомерСчета<>СокрЛП(БД.NUM_SF) Тогда
             НомерСчета=СокрЛП(БД.NUM_SF);
             //*** заполнение шапки
             СтрокаДерева=ДеревоЗн.Строки.Добавить();
             СтрокаДерева.Документ="Реализация";
             СтрокаДерева.НомерДок=НомерСчета;
             СтрокаДерева.ДатаДок =ДатаСчета;
             //***
             СтрокаТЗ=ТаблицаДокументов.Добавить();  
             СтрокаТЗ.Пометка=Ложь;
             СтрокаТЗ.Документ="Реализация";
             СтрокаТЗ.Признак="Ш";
             СтрокаТЗ.НомерД=НомерСчета;
             СтрокаТЗ.Дата  =ДатаСчета;
             СтрокаТЗ.Комментарии  = СокрЛП(БД.SODER);
             СтрокаТЗ.Клиент       = СокрЛП(БД.CLIENTNAME);
             СтрокаТЗ.КлиентПолнНаим  = СокрЛП(БД.CLFULLNAME);
             СтрокаТЗ.КлиентИНН       = СокрЛП(БД.CLINN);
             СтрокаТЗ.КлиентКПП       = СокрЛП(БД.CLKPP);
             СтрокаТЗ.КлиентРодНаимен = СокрЛП(БД.CLRODNAME);

       Иначе
       КонецЕсли;
       
       //*** заполнение табличной части
       СтрокаТЗ=ТаблицаДокументов.Добавить();  
       СтрокаТЗ.Пометка=Ложь;
       СтрокаТЗ.Документ="Реализация";
       СтрокаТЗ.Признак="Т";
       СтрокаТЗ.НомерД=НомерСчета;
       СтрокаТЗ.Дата  =ДатаСчета;
       
       СтрокаТЗ.ТоварНаименование  =  БД.TOVNAME;      
       СтрокаТЗ.ТоварКод  =  БД.TOVKOD;
       СтрокаТЗ.количество = БД.KOLVO;
       СтрокаТЗ.Цена  =  БД.CENA;
       СтрокаТЗ.сумма  =  БД.SUMMA;
       СтрокаТЗ.СтавкаНДС  =  БД.NDSSTAVKA;
       СтрокаТЗ.СуммаНДС  =   БД.SUMMANDS;
       СтрокаТЗ.ТоварРодНаимен = БД.TOVRODNAME;
       СтрокаТЗ.ТоварТип  = БД.TOVTYPE;

   
   КонецЦикла;

   БД.закрытьФайл();
   ЭлементыФормы.ТаблицаДокументов.СоздатьКолонки();

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

МХ          = Справочники.Склады;
   Товар       = Справочники.Номенклатура;
   ТоварГр     = Справочники.Номенклатура;
   
   Договор     = Справочники.ДоговорыКонтрагентов;

   СпрВалюты   = Справочники.Валюты;
   Контрагенты = Справочники.Контрагенты;
   БЕдИзм      = Справочники.КлассификаторЕдиницИзмерения;
   
   
   
   //***
   Для Инд1=0 По ТаблицаДокументов.Количество()-1  Цикл
       ЗнСтрокиТД=ТаблицаДокументов.Получить(Инд1);
       Если ЗнСтрокиТД.Пометка=Истина тогда
           // ***
           Если ЗнСтрокиТД.Документ="Реализация" Тогда
               //************ РасходнаяНакладная *****************************    
               Если  ЗнСтрокиТД.Признак="Ш"  Тогда
                   //Сообщить(ЗнСтрокиТД.Признак+"--"+ЗнСтрокиТД.Документ+"--"+ЗнСтрокиТД.НомерД+"--"+ЗнСтрокиТД.Дата);
                   
                   //*** Шапка

                   
                   
                   Док = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
                   
                   ПодстрокаС="0000000000";
                   Если  СтрДлина(ЗнСтрокиТД.НомерД)<11 Тогда
                         НовыйНомер=Сред(ПодстрокаС,1,11-СтрДлина(ЗнСтрокиТД.НомерД));
                         НовыйНомер=НовыйНомер+СокрЛП(ЗнСтрокиТД.НомерД);
                         Док.Номер=НовыйНомер;
                   КонецЕсли;

                   Док.Дата = ЗнСтрокиТД.Дата;
                   Док.ВидОперации=Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;  
                   
   
                   // ***Установить склад
                   НайденнаяСсылка = МХ.НайтиПоНаименованию(Склад);
                   Если НайденнаяСсылка = МХ.ПустаяСсылка() Тогда
                       Сообщить("Склада """ + ЗнСтрокиТД.СкладН + """ еще нет - будет создан");
                       //*** Создадим его
                       НовыйОбъект = МХ.СоздатьЭлемент();
                       НовыйОбъект.Наименование = ЗнСтрокиТД.СкладН;
                       НовыйОбъект.ВидСклада    = Перечисления.ВидыСкладов.Оптовый;

                       НовыйОбъект.Записать();
                       Док.Склад=НовыйОбъект.ссылка;
                   Иначе
                       Док.Склад=НайденнаяСсылка.Ссылка;
                     КонецЕсли;
                   
                                   

                   //***Валюта
                   НайденнаяСсылка = СпрВалюты.НайтиПоНаименованию(ЗнСтрокиТД.ВалютаН);
                   Если НайденнаяСсылка = СпрВалюты.ПустаяСсылка() Тогда
                       Сообщить("Такой валюты нет """ + ЗнСтрокиТД.ВалютаН + """ еще нет ");
                   Иначе
                       Док.ВалютаДокумента=НайденнаяСсылка.Ссылка;
                     КонецЕсли;
                   
                   //Док.КурсВзаиморасчетов = ЗнСтрокиТД.Курс;
                   Док.КурсВзаиморасчетов = 1;
                   Док.Комментарий      = ЗнСтрокиТД.Комментарии;
                   Док.Организация        = Организация;
                   Док.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;

                   
                   //Ищем контрагента
                   НайденнаяСсылка = Контрагенты.НайтиПоНаименованию(ЗнСтрокиТД.Клиент);
                   Если НайденнаяСсылка = Контрагенты.ПустаяСсылка() Тогда
                       Сообщить("Контрагента """ + ЗнСтрокиТД.Клиент + """ еще нет - будет создан");
                       //*** Создадим его
                       НовыйОбъект = Контрагенты.СоздатьЭлемент();
                       НовыйОбъект.Наименование       = ЗнСтрокиТД.Наименование;;
                       НовыйОбъект.НаименованиеПолное = ЗнСтрокиТД.КлиентПолнНаим;
                       НовыйОбъект.ИНН       = ЗнСтрокиТД.КлиентИНН;
                       НовыйОбъект.КодПоОКПО = ЗнСтрокиТД.КлиентОКПО;
                       НовыйОбъект.КПП       = ЗнСтрокиТД.КлиентКПП;
                       НовыйОбъект.Записать();
                       Док.Контрагент=НовыйОбъект.ссылка;
                       Клиент=НовыйОбъект.ссылка;
                   Иначе
                       Док.Контрагент=НайденнаяСсылка.Ссылка;
                       Клиент=НайденнаяСсылка.Ссылка;
                   КонецЕсли;
                   
                   
                   
                   //Создадим договор
                   
                   Запрос=Новый Запрос;
                   Запрос.Текст="ВЫБРАТЬ ПЕРВЫЕ 1
                                |    ДоговорыКонтрагентов.Ссылка
                                |ИЗ
                                |    Справочник.ДоговорыКонтрагентов КАК ДоговорыКонтрагентов
                                |ГДЕ
                                |    ДоговорыКонтрагентов.Организация = &Организация
                                |    И ДоговорыКонтрагентов.Владелец = &Владелец
                                |    И ДоговорыКонтрагентов.ПометкаУдаления = ЛОЖЬ" ;
                                //|    И ДоговорыКонтрагентов.Наименование ПОДОБНО &Наименование";
                                запрос.УстановитьПараметр("Организация",Организация);
                                запрос.УстановитьПараметр("Владелец",Клиент);
                                //запрос.УстановитьПараметр("Наименование",СокрЛП(ТаблицаДокументов.Договор));
                                 
                       Результат =Запрос.Выполнить();
                       Если Результат.Пустой() тогда // нет нифига создаем новый
                           
                       Иначе
                           выборка=Результат.Выбрать();
                           выборка.Следующий();//один он там
                           Док.ДоговорКонтрагента=выборка.ссылка;
                           
                       Конецесли;
                       
                       
                   ////Выберем банк
                   //Запрос1=Новый Запрос;
                   //Запрос1.Текст="ВЫБРАТЬ ПЕРВЫЕ 1
                   //             |    БанковскиеСчета.Ссылка
                   //             |ИЗ
                   //             |    Справочник.БанковскиеСчета КАК БанковскиеСчета
                   //             |ГДЕ
                   //             |    БанковскиеСчета.Владелец = &Владелец
                   //             |    И БанковскиеСчета.ПометкаУдаления = ЛОЖЬ" ;
                   // Запрос1.УстановитьПараметр("Владелец",Организация);
                   //
                   //              
                   //    Результат =Запрос1.Выполнить();
                   //    Если Результат.Пустой() тогда // нет нифига создаем новый
                   //        
                   //    Иначе
                   //        выборка=Результат.Выбрать();
                   //        выборка.Следующий();//один он там
                   //        Док.СтруктурнаяЕдиница=выборка.ссылка;
                   //        
                   //    Конецесли;

                   Док.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
                   Док.СчетУчетаРасчетовПоАвансам=ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");


               Иначе
                   //***Табличная часть
                   Если  СокрЛП(ЗнСтрокиТД.ТоварТип) = "Товар" Тогда
                      НоваяСтрока = Док.Товары.Добавить();
                     
                      НоваяСтрока.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
                      НоваяСтрока.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
                      НоваяСтрока.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
                      НоваяСтрока.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
                     
                   Иначе
                      НоваяСтрока = Док.Услуги.Добавить();
                     
                      НоваяСтрока.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
                      НоваяСтрока.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
                      НоваяСтрока.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
                     
                     
                     
                   КонецЕсли;  
                   
               
                   //СтрокаКода=ЗнСтрокиТД.ТоварНаименование;
                   СтрокаНаименования=ЗнСтрокиТД.ТоварНаименование;
                   СтрокаКода=ЗнСтрокиТД.ТоварКод;
                   
                   
                   НайденнаяСсылка = Товар.НайтиПоНаименованию(СтрокаНаименования);
                   Если НайденнаяСсылка = Товар.ПустаяСсылка() Тогда
                       Сообщить("Товара с таким кодом """ + СтрокаКода + """ еще нет, будет создан "+СтрокаНаименования);
                       
                       НовыйОбъект = Товар.СоздатьЭлемент();
                       НовыйОбъект.Наименование       = СтрокаНаименования;
                       НовыйОбъект.НаименованиеПолное = СтрокаНаименования;
                       //НовыйОбъект.код = СтрокаКода;
                       НовыйОбъект.НоменклатурнаяГруппа=ГруппаНоменклатуры;
                       
                       
                       
                       Если  СокрЛП(ЗнСтрокиТД.ТоварТип) = "Товар" Тогда
                       Иначе    
                             НовыйОбъект.Услуга=Истина;
                       КонецЕсли;
                       
                       //*** запишем базовую единицу измерения
                       НайденнаяСсылка1 = БЕдИзм.НайтиПоНаименованию("шт");
                       Если НайденнаяСсылка1 = БЕдИзм.ПустаяСсылка() Тогда
                           Сообщить("Такой единицы нет """ + ЗнСтрокиТД.Единица + """ нет ");
                       Иначе
                           НовыйОбъект.БазоваяЕдиницаИзмерения=НайденнаяСсылка1.Ссылка;
                       КонецЕсли;
                       
                       Если   ЗнСтрокиТД.СтавкаНДС=18 Тогда
                          НовыйОбъект.СтавкаНДС=Перечисления.СтавкиНДС.НДС18;
                       КонецЕсли;
                       
                       НайденнаяСсылка2 = ТоварГр.НайтиПоНаименованию("Товары");
                       Если НайденнаяСсылка2 = Товар.ПустаяСсылка() Тогда
                       Иначе
                           НовыйОбъект.Родитель = НайденнаяСсылка2.Ссылка;
                       КонецЕсли;
   
                       
                       НовыйОбъект.Записать();
                       НоваяСтрока.Номенклатура=НовыйОбъект.ссылка;
                   Иначе
                       НоваяСтрока.Номенклатура=НайденнаяСсылка.Ссылка;
                   КонецЕсли;
                   
                   НоваяСтрока.Количество= ЗнСтрокиТД.количество;
                   НоваяСтрока.Цена      = ЗнСтрокиТД.Цена;
                   НоваяСтрока.сумма     = ЗнСтрокиТД.сумма;
                   
                   
               КонецЕсли;
               
               
               Попытка
                   Док.Записать(РежимЗаписиДокумента.Запись);
                   //Сообщить("Создан документ "+Док)//ВременноШО  //Завсом
               Исключение
                   //    Сообщить("Номер не уникальный:--->"+Док.Номер+" от "+Док.Дата+" вид "+Док.Метаданные());    
                   Сообщить(ОписаниеОшибки());
               КонецПопытки;
               
               //********** завершение обработки РасходнаяНакладная    
               
       
           КонецЕсли;
           // ***
       КонецЕсли;
       
       
   КонецЦикла;    

   Предупреждение("Загрузка завершена!");
КонецПроцедуры

//***
        НаборД = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
        //***АДРЕС Физический
        // устанавливаем параметры отбора по полному набору Измерений регистра:
        НаборД.Отбор.Объект.Установить(НовыйЭлементК.Ссылка);
        НаборД.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Адрес);
        НаборД.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента);
        // Создаем новую строку в этом наборе записей:
        СтрокаДанных = НаборД.Добавить();
        // определяем значения Измерений этой строки:
        СтрокаДанных.Объект = НовыйЭлементК.Ссылка ;
        СтрокаДанных.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
        СтрокаДанных.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента ;
        // определяем значения Ресурсов
        СтрокаДанных.Представление = Адрес;
       
        НаборД.Записать();
       
        //*** ТЕЛЕФОН
        НаборД2 = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
        НаборД2.Отбор.Объект.Установить(НовыйЭлементК.Ссылка);
        НаборД2.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Телефон);
        НаборД2.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
        // Создаем новую строку в этом наборе записей:
        СтрокаДанных = НаборД2.Добавить();
        // определяем значения Измерений этой строки:
        СтрокаДанных.Объект = НовыйЭлементК.Ссылка ;
        СтрокаДанных.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;
        СтрокаДанных.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента ;
        // определяем значения Ресурсов
        СтрокаДанных.Поле3 =КонтактноеЛицо;
        //СтрокаДанных.Поле4 ="4";   //внутренний телефон

        СтрокаДанных.Представление = КонтактноеЛицо;
       
        НаборД2.Записать();

(25) жги еще. этому дятлу напильник даже не поможет

я б за 1к не стал бы такое делать. минимум 5к

а то и 10 к

(26) маме твоей помог ведь, раз ты родился

(29) закройся, выродок.

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

модеры, меня с ним в бан вместе. требую расправы кровавой.

(30) в школах интернет не отключают?

(33) зато на форумах за нарушение прав банят.

Какая интеллигентная беседа.

(35) Вот такая наша смена растет. Агрессию девать некуда)

(25) хотя не, это не то, что нужно мне было. мне нужен просто общий механизм:
при нажатию на кнопку происходит запись в регистр, вот этот момент меня интересует)

(36)я вот не пойму - модеры что в отпуске? Уже давно бы обоих забанили, а ветку удалили.

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

(39) Эта хрень называется "диалог выбора файла"

{Форма.Форма.Форма(8)}: Ошибка при вызове метода контекста (Первая)
   ФизЛица.Первая();
по причине:
Перед выполнением операции нужно открыть базу


что это?)

(41) Ошибка =)
Файл сначала нужно открыть
Бд=новый xbase;
Бд.открытьФайл(фИмяФайлаИсточника);

(42) надо потому что файл закрывать в dbf навигаторе перед его запуском в 1с))

теперь такой вопрос:
у меня в двх dbf файлах есть одна колонка TB, это их общий ID скажем так, нужно написать условие, что если TB найден, то идет запись, если нет, то создает запись, поддатлкните на правильное русло)

Если ФизЛица.НайтиПоКлючу("TB") Тогда
           ФизЛица.Записать();
       Иначе
           КонецЕсли;

выдает ошибку:




{Форма.Форма.Форма(19)}: Ошибка при вызове метода контекста (Записать)
       НовоеФизЛицо.Записать();
по причине:

по причине:
Значение поля "Код" не уникально

(46) Звонил Кэп, сказал что элемент с таким кодом в справочнике уже есть...

(47) еще он сказал полезного что-нить?

(48)  видимо удалить тот что есть чтобы записался новый :-)))))))))

(48) Нет, он лишнего не говорит. Я бы посоветовал тебе ЖКК почитать, курсы там какие-нибудь поизучать. В общем матчасть, так сказать. Хуже от этого еще никому не становилось. Если тебе на форуме в конце концов все разжуют, то знаний ты для себя не получишь, задание то у тебя простое.

При переносе из DBF в 1ску, возникает проблема с кодировкой, отладчиком смотрю значения какие получаются у меня, и там, где должна быть нормальная надпись, у меня пишется что то типа:
†павпК№;342АПц6†ЋР и прочая херня
как с кодировкой разобраться, чтоб не было такого? файл переименовывал из дбф3 в дбф4, в фокс про, и т.д. результат такой же

>файл переименовывал из дбф3 в дбф4, в фокс про, и т.д. результат такой же
Переименовал djvu в avi посмотрел экранизацию.

(51) >переименовывал из дбф3 в дбф4, в фокс про, и т.д.
в *.1cd забыл

(52) ну типа того
как с кодировкой то мне разобраться?)

(54) кодировку пробовал менять, чудо?

(55) оно на чтение и запись работает

(56) блин, как мне в общем сделать, чтобы нормальные буквы записывались?

разобрался с кодировкой, нужна была просто 1 строчка, которая в синтаксис помощнике легко находится

ФизЛица.Кодировка = КодировкаТекста.UTF8;

Теперь такоей вопрос, мне нужно чтобы переносились данные паспорта из дбф файла в регистр сведений Паспортные данные, переносится все, кроме ФизЛица, выдает ошибку, как ее обойти?

(60) веселье продолжается!

Паспорт = РегистрыСведений.ПаспортныеДанныеФизЛиц.СоздатьНаборЗаписей();
       НаборЗапись = НаборПаспорт.Добавить();
       НаборЗапись.ДокументСерия = ДБФ.pasp_ser;
       НаборЗапись.ДокументНомер = ДБФ.pasp_num;
       НаборЗапись.ДокументДатаВыдачи = ДБФ.dg;
       НаборЗапись.ДокументКемВыдан = ДБФ.who_gave;
       Пока Истина Цикл
       НайтиФизЛицо = СпрФизЛица.НайтиПоКоду(ФизЛица.tb)
       Если НайтиФизЛицо = СпрФизЛица.ПустаяСсылка()
           Тогда        
           НовоеФизЛицо = НайтиФизЛицо.ПолучитьОбъект();
       Иначе            
           НовоеФизЛицо = СпрФизЛица.СоздатьЭлемент();
       КонецЕсли;    
       НаборПаспорт.Записать();

но так не работает(

Пока Истина Цикл - понравилось
и еще отсутствие отбора тоже

Форма.Форма.Форма(87)}: Ошибка при вызове метода контекста (Записать)
       НаборПаспорт.Записать();
по причине:

по причине:
Запись не верна! Значение поля "Физическое лицо" не может быть пустым!: ПаспортныеДанныеФизЛиц: 01.01.0001,  (Регистр сведений: Паспортные данные физического лица; Номер строки: 1)

(63) рад что тебе понравилось, а по существу?

(63) и ещё:
Если НайтиФизЛицо = СпрФизЛица.ПустаяСсылка() Тогда
НовоеФизЛицо = НайтиФизЛицо.ПолучитьОбъект();

(65) ты не останавливайся, пиши

(67) когда же вы троли сдохните все

Делайте через ado!
Очень удобно!
Подключаете каталог где лежат дбф как базу, и с файлами в нём можно будет оперировать как таблицами, т.е. пишется запрос Select * Frov File1#dbf и погнали

v8: ADODB: Выборка из двух файлов DBF

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

(68) иннах

(72) потому что зачем давать тупейшие, бесполезные советы? если не знаешь что написать, не пиши, а строить из себя гуру 1с можешь дома перед мамой

(73) передаю по буквам: пошло на МПХ

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

(71) я тебе говорю как тебе твою задачу решить, наругают тебя чтоли за адо? без гемороя свяжешь две таблицы и всё вытянешь, тебе же это надо

ты бы не флудил, а попробовал. инфы море. а тупо просить и матом гнуть все умеют. может тебе не дано кодить. ошибка в РНК ИЛИ ДНК

омг,(75) вы в одном классе походу учитесь с (74)?

(78) задротер доты ?

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

и все сидят и меряются своими 4 см

(80) походу ты реально баран) сколько тебе лет?)

(81) ну вот это

НовоеФизЛицо = НайтиФизЛицо.ПолучитьОбъект();

неимоверная хер..ня??
Это

НовоеФизЛицо = СпрФизЛица.СоздатьЭлемент();

ещё хлеще. Ты - новый Петросян. Юмор в коротких штанишках.

со мной мужик один работал под 50, такой же тугой, решил когда-то что он самый умный, сам ниче не может предпринять, но блин такой упрямый, вообще не слушал никого

(84) 100500

(83) а что в этом коде тебе не нравится?